Tag: SUBROUTINE
Tengo el siguiente sector de arranque escrito en nasm: [org 0x7c00] <p>my<em>print</em>function: mov ah, 0x0e int 0x10 ret</p> <p><em>start: mov al, ‘A’ call my</em>print<em>function call my</em>print_function</p> <p>_boot: jmp $ times 510-($-$$) db 0 dw 0xaa55 Lo compilo con nasm -f bin boot.asm -o boot.bin y luego ejecuto qemu boot.bin, pero . . . Read more
Estoy tratando de llamar a la validación con un if, pero no funciona y la siguiente línea sigue ejecutándose, por favor ayuda. Private Sub BtnCreateInvioce_Save_Click(sender As Object, e As EventArgs) Handles BtnCreateInvioce_Save.Click If txtvalidation() = True Then PrintPreviewModule.Document = PrintModule add_items() PrintPreviewModule.ShowDialog() estimateclear() janAutoNumberUpdate(“invoiceno”) frmestimate_Load(sender, e) End If End Sub
Tengo varias hojas de cálculo. Hay 3 opciones de llamada a subrutina basadas en el nombre de la hoja de cálculo. He intentado reorganizar y usar If, If Not, Else y ElseIf, Exit Sub, End If, etc. Si la llamada se completa y retorna, inevitablemente llega a la última llamada . . . Read more
Imports System Module Program Sub WriteConcatenated(ByVal ParamArray TextArr As String()) For I As Integer = 0 To TextArr.Length – 1 For J As Integer = 0 To TextArr.Length – 1 Dim ConcatenatedText = TextArr(I) + TextArr(J) For Each Text As String In TextArr If Text = ConcatenatedText Then Console.WriteLine(Text) End . . . Read more
Con el uso de la declaración call, estoy llamando a un sub RETURNSEARCHMATCHES que incluye la función UDF FINDCOLLETTEROFNAMEDRANGE(string). El código donde llamo a la función se muestra a continuación: Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False If Selection.Count = 1 Then . . . Read more