Anonymní profil Milos – Programujte.com

Ahojte, som tu prvý krát a som vo VB zaciatocnik. Potreboval by som poradit ohladom posielania hodnoty premennej do serioveho portu. V podstate mi stale posiela len "je nulovy" tzn. ze v premenna Striekacka=0?

Dakujem

Private Sub Command1_Click()
Select Case Striekacka
    Case 0
      MSComm1.Output = "je nulovy"
    Case 2
      MSComm1.Output = "2"
    Case 5
      MSComm1.Output = "5"
    Case 10
      MSComm1.Output = "10"
    Case 15
      MSComm1.Output = "15"
    Case 20
      MSComm1.Output = "20"
    Case 50
      MSComm1.Output = "50"
End Select
End Sub

Private Sub Option1_Click()
'Static Striekacka As Integer
Striekacka = 2
End Sub