• Miércoles 6 de Noviembre de 2024, 00:28

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - IAO

Páginas: 1 2 [3]
51
Visual Basic para principiantes / Re: Problemas Timer1_timer()
« en: Jueves 18 de Agosto de 2005, 17:59 »
Hola..

Si "Eli".
Anoche en casa, analizando más. Logré implementarlo con el ComboBox.

Encerré en un "If <-------------> End If" cada puerto y funcionó.

';Para el EmuPort
';========================================================
';Read SIGNED WORD from port 200:
EmuPto = READ_IO_WORD(200)
   
If Port.ListIndex = 0 Then
   
    ';Display 7 digits:
    Dim i As Integer
    Dim v As Byte
    For i = 0 To 7
        v = EmuPto Mod 2 ';Cantidad de digitos. 1 y 0 Aquí.
        Led(i).Picture = dig(v).Picture
        EmuPto = Int(EmuPto / 2)
    Next i
End If


Bueno sobre assembler: para Pics y para Macro Asseembler. (Mams32)

Hablamos, felicidad.

52
Visual Basic para principiantes / Re: Problemas Timer1_timer()
« en: Jueves 18 de Agosto de 2005, 00:50 »
Hola.

Como les decía, !!!!!YA ESTA¡¡¡¡¡    :beer:

El Programa tomó otro rumbo, pero funciona Igual.
No pude hacerlo funcionar con el "ComboBox", pero le
apliqué unos "RadioButom" y todo bién.

Aquí se los dejo como muestra de amistad.
El que quiera bájelo y disfrútelo, sino déjelo allí.

Gracias "Eli"  , no me funcionó, pero me ayudó a otro enfoque.

Por los momentos, queda así, mientras termino mis proyectos
de Assembler que son muchos.

Chao, espero lo disfruten. Chao "Eli"  :kiss:

53
Visual Basic para principiantes / Re: Problemas Timer1_timer()
« en: Miércoles 17 de Agosto de 2005, 17:34 »
Hola...

Gracias "Eli" por sus comentarios.
Los analizaré, luego les comento.

Sobre el ComboBox, te comento que: Siempre_Encima Control32, True
es el responsable de mantener en primer plano el "FORM". Esto hace que el
ComboBox se comporte un tanto extraño. Hice una trampa para evitar ese problema.

Disculpen si tardo un poco en responder.

Lo de "Eli" es por cariño. Se ve lindo.

Regresaré.

54
Visual Basic para principiantes / Problemas Timer1_timer()
« en: Martes 16 de Agosto de 2005, 16:39 »
Hola a todos.

Soy un Novato. Este mi primer Mensaje.
Trataré comunicarles mi problema.
Hice a medias un programa que envía al Puerto físico (LPT1) unos Bits.
Luego le añadí un Puerto Lógico (200) y comenzaron los conflíctos.

Ambos Puertos (Lógico y Físico) tienen sus respectivos Módulos.

El programa funciona bién si lo compilo con uno solo de esos puertos (Lógico o Físico).
 
Pero al unir los 2 puertos  en el  "Private Sub Timer1_Timer()", los indicadores de salida (led's), muestran intermitencia.

Entiendame por favor, no le pido, que me lo haga.
Solo que me oriente, en lo que pueda.
Si debo leer algo en particular, muestreme el enlace.
He intentado varias maneras y formas, pero sin resultado.


Por favor.
Dele un vistazo al código, y hágame algún comentario.
Será de mucha utilidad para mí.
Si prefieres bájate el proyecto completo, al final puedes tomarlo.
*-*-* (Gracias y recontra Gracias)*-*-*

Private Sub Timer1_Timer()

    ' Read SIGNED WORD from port 200:
    EmuPto = 200 'READ_IO_WORD(200)
    Dim i As Integer
    Dim v As Byte
    For i = 0 To 7
        v = EmuPto Mod 2 'Cantidad de digitos. 1 y 0 Aquí.
        Led(i).Picture = dig(v).Picture
        EmuPto = Int(EmuPto / 2) '10)
    Next i

'Lee el dato del puerto.  'Inp(&H378)
m = Inp(Puerto)  '+ 1) Esto Daba un problema en la salida.

'Debe ir en éste Orden.
'=========================
'Otra forma de Entenderlo.
If m > 127 Then Bit(7) = 0: m = m - 128 Else Bit(7) = 1 '0 'Invertido
If m > 63 Then Bit(6) = 0: m = m - 64 Else Bit(6) = 1
If m > 31 Then Bit(5) = 0: m = m - 32 Else Bit(5) = 1
If m > 15 Then Bit(4) = 0: m = m - 16 Else Bit(4) = 1
If m > 7 Then Bit(3) = 0: m = m - 8 Else Bit(3) = 1
If m > 3 Then Bit(2) = 0: m = m - 4 Else Bit(2) = 1
If m > 1 Then Bit(1) = 0: m = m - 2 Else Bit(1) = 1
If m > 0 Then Bit(0) = 0: m = m - 1 Else Bit(0) = 1

'Controla los Led's de estado.
For Ciclo = 0 To 7
If Bit(Ciclo) = 0 Then _
Led(Ciclo).Picture = LoadPicture(App.Path + "\LR.BMP") _
Else Led(Ciclo).Picture = LoadPicture(App.Path + "\LG.BMP")
Next Ciclo
End Sub[/size]

Páginas: 1 2 [3]