Hola amigos!
Sigo dandome en la cabeza con el vb
Tengo unas dudas referente al codigo que coloco el maestro lordlafebre al comienzo de este hilo, el cual muestra un valor en un display y atraves del puerto paralelo. Coloco una parte del codigo.
Option Explicit
Dim i As Integer
Dim vec(16) As Integer
Private Sub Command1_Click()
For i = 0 To 9
Display2.Picture = Display(i)
Escribir &H378, vec(i)
Delay (0.5)
Next i
End Sub
Private Sub Command2_Click()
Escribir &H378, 0
End
End Sub
Private Sub Form_Load()
vec(0) = BinADec(111111)
vec(1) = BinADec(110)
vec(2) = BinADec(1011011)
vec(3) = BinADec(1001111)
vec(4) = BinADec(1100110)
vec(5) = BinADec(1101101)
vec(6) = BinADec(1111101)
vec(7) = BinADec(111)
vec(Cool = BinADec(1111111)
vec(9) = BinADec(1101111)
Escribir &H378, vec(0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Escribir &H378, 0
End Sub
Donde dice Private Sub Form_Load() me imgjino que es para cargar las variables?
Donde dice
Display2.Picture = Display(i) Es para mostrar el display por pantalla pero aunque se ve asi he intentado utilizarla para mostrar figuras y no me sirve, es decir, que hace falta algo?
Vamos a ver si me explico, mejor: Los displays (7Segmentos) los hice en power point, luego cree un array utilizando la herramienta image, coloque cada display dentro de un image (image1(0)...image1(9) ) y de alli en adelante se me tranco el serrucho
Me podrian indicar que es lo que me falta?
Nota: las rutinas de delay, binAdecimal y de DecAbin ya las tengo!
De antemano gracias
