Gracias
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
;************************************************************
;Realiza un ordenamiento de un array con 20 numeros
************************************************************
.MODEL SMALL ; Modelo de memoria para el programa
.DATA ; Declaracion de variables
Mensaje1 db 'Array sin ordenar',0Ah,24h ;declaracion de mensajes,0AH,24h es un salto de linea
Mensaje2 db 'Array ordenado',0Ah,24h
Mensaje3 db 'Array con multiplos del 3',0Ah,24h
.CODE
INICIO:
; Cuerpo del programa
mov dx,OFFSET Mensaje1 ; Direccion de la cadena de texto
mov ah,9 ; Funcion para imprimir cadenas
int 21h ; Llamada al sistema operativo
INICIALIZACION:
mov si,offset tabla_o
mov cx,19
mov cambio,0
mov temp, 0
ciclo:
mov ah,[si] ;elemento 1
mov al,[si+1] ;elemento 2
cmp al,ah ;Realiza la comparacion del elemento 1 con el 2
jg mayor ;Salta si es mayor
fciclo:
inc si
loop ciclo ;ciclar hasta 20 elementos
cmp cambio,1
je INICIALIZACION
salir:
mov ah,4ch ; servicio del DOS para regresar
int 21h ; el control al procesador de comandos msdos ; Funcion para imprimir cadenas
; el control al procesador de comandos msdos
cambio db 0 ; variable de estado 1=mayor 0=menor
tabla_o db 2,9,16,1,4,5,6,32,17,10,60,63,90,12,33,45,99,100,80
temp db 0; Variable temporal
mayor:
mov cambio,1
;T temp = list[i + 1];
; list[i + 1] = list[i];
; list[i] = temp;
; madeChanges = true;
mov temp, al
mov [si + 1] ,ah
mov al, temp
mov [si],al
jmp fciclo
END INICIO
CODE ENDS
END
Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT FACTURAS.CONSECUTIVO, Format(CDate([VENCIMIENTO])) AS LIMITE_FECHA INTO [Excel 12.0 Xml;DATABASE=" & fichero & ";HDR=Yes;].[CUENTAS] from [CUENTAS]", AccessConn)
Private Sub BtnExportar_Click(sender As System.Object, e As System.EventArgs) Handles BtnExportar.Click
Dim fichero As String = String.Empty
Dim ext As String = String.Empty
If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
'
fichero = SaveFileDialog1.FileName
Dim AccessConn As New System.Data.OleDb.OleDbConnection(frmLogin.constring)
If AccessConn.State = ConnectionState.Open Then
AccessConn.Close()
Else
'New sheet in Workbook
Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT * INTO [Excel 12.0 Xml;DATABASE=" & fichero & ";HDR=Yes;].[CUENTAS] from [CUENTAS]", AccessConn)
AccessConn.Open()
AccessCommand.ExecuteNonQuery()
AccessConn.Close()
MsgBox("Archivo exportado con éxito.")
End If
Catch
MsgBox("No se pudo exportar el archivo.")
End Try
End If
End Sub