Visual Basic - Con tres pictureBox crear menu dinamico para balanzas

Life is soft - evento anual de software empresarial
   
Vista:

Con tres pictureBox crear menu dinamico para balanzas

Publicado por Esteban Mackay D. (1 intervención) el 10/10/2011 21:30:49
With 3 pictureBox controls can monitoring 2 serial ports. It's working with two scale indicators
'Con tres picturebox can monitoriar dos puertos seriales. Usado con dos indicadores.
Option Explicit
'Pruebas con tres PictureBox
'Octubre 9, 2011 EMD
Dim sNum As Integer
Dim unValor As Long
Dim nTot As Long

Private Sub cmdAlto_Click()
CambiaPic
picDisplay(2).Visible = True
HoraYa.Caption = laHora(nTot - 1).Caption
'Aqui sabe de donde viene
Debug.Print nTot - 1, sNum
lblTotal(2).Caption = lblTotal(nTot - 1).Caption
lblAviso.Caption = "Muestra el resultado de estacion: " & nTot
End Sub

Private Sub cmdStations_Click()
'picture 0 y 1 tienen dos led rojo y verde
cmdStations.Caption = "Estacion " & sNum
Select Case sNum
Case 1
'presenta la pantalla del indicador 1
CambiaPic
picDisplay(0).Visible = True
nTot = sNum
Case 2
'presenta la pantalla del indicador 2
CambiaPic
picDisplay(1).Visible = True
nTot = sNum
End Select
lblAviso.Caption = "Muestra lo que esta pasando en estacion " & sNum
sNum = sNum + 1
If sNum > 2 Then sNum = 1

End Sub

Private Sub CambiaPic()
'Trabaja para todos los picture de menu
Dim Index As Integer
For Index = 0 To picDisplay.Count - 1
picDisplay(Index).Visible = False
Next Index
End Sub

Private Sub Form_Load()
'Activa boton para que quede en el primero
sNum = 1
cmdStations_Click
CambiaPic
picDisplay(0).Visible = True 'Muestra pesa activa

End Sub
Private Sub Cuentame_Timer()
laHora(0).Caption = Format(Now, "long time")
laHora(1).Caption = Format(Now, "long time")
'Contador ficticio
unValor = Int((10000 * Rnd) + 1)
lblTotal(0).Caption = Format(unValor, "####0")
lblTotal(1).Caption = Format(unValor, "####0")
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder