Posielanie hodnoty premennej do serioveho portu – Visual Basic – Fórum – 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

#1 Milos
aj ja som zaciatocnik, ale vidim v tom kode chybu, premennu striekacka mate deklarovanu pri Option1_click, to znamena, ze hned po opusteni Option1_click uz ta premenna neexistuje, deklarujte ju mimo procedury aby bola dostupna v celom Forme a samozrejme ju odkomentujte

dim Striekacka As Integer

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()
Striekacka = 2
End Sub

#2 ing
 

mám to takto, ale stále to nefunguje. Ak premennej pridelím nejaku hodnotu viď. "príklad" tak to funguje. Som akosi bezradný.

Private Sub Command1_Click()
Dim Striekacka As Byte

"príklad" Striekacka = 2
If Striekacka = 0 Then MSComm1.Output = "je nulovy"
If Striekacka = 2 Then MSComm1.Output = "2"
If Striekacka = 5 Then MSComm1.Output = "5"
If Striekacka = 10 Then MSComm1.Output = "10"
If Striekacka = 15 Then MSComm1.Output = "15"
If Striekacka = 20 Then MSComm1.Output = "20"
If Striekacka = 50 Then MSComm1.Output = "50"
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "2400,n,8,1"
MSComm1.PortOpen = True
End Sub

Private Sub Option1_Click()
Striekacka = 2
End Sub

Private Sub Option2_Click()
Striekacka = 5
End Sub

Private Sub Option3_Click()
Striekacka = 10
End Sub

Private Sub Option4_Click()
Striekacka = 15
End Sub

Private Sub Option5_Click()
Striekacka = 20
End Sub

Private Sub Option6_Click()
Striekacka = 50
End Sub

Private Sub tmrTimer_Timer()
txtDisplay.Text = txtDisplay.Text + Chr(13) + MSComm1.Input
End Sub

#3 Milos
skusal som ju deklarovat aj v Form_Load() ale nejde to stale

A proč ji deklaruješ znova? Pokud ti to takto jde zkompilovat, tak už tam asi tu proměnnou Striekacka máš a je viditelná ve všech těch procedurách. Kromě Command1_Click, ve které ji deklaruješ znova jako lokální, takže se pracuje s ní a ne tou, kterou z dalších procedur nastavuješ. Takže odtamtud ji vyhoď.

#4 Milos
ako pisal "z", premenna stale nieje delkarovana pre cely form ale iba pre command1_click, uvediem priklad

Private Sub Command1_Click()
textbox1.text = striekacka  'premenna striekacka bude prazdna, pretoze ked opustis form_load premenna striekacka zanikne
End Sub

Private Sub Form_Load()
Dim Striekacka As Byte
striekacka = 2
End Sub

namiesto toho pouzi toto

Dim Striekacka As Byte  'premenna striekacka je deklarovana pre cely form, tak ked opustis form_load tak v striekacke ostane hodnota ktoru si tam priradil

Private Sub Command1_Click()
textbox1.text = striekacka  
End Sub

Private Sub Form_Load()
striekacka = 2
End Sub