Witam mam taki problem:
Zrobiłem isntrukcję select case, lecz od czasu gdy ją umieściłem w programie (w pętli głównej) to ona mi się zawiesza (pętla) dochodzi do selsct case i stop... Co robię nie tak?
Porszę wziąść po uwagę to, że jestem dopiero początkującym..
Z góry dziękuję za pomoc i pozdrawiam!
Zrobiłem isntrukcję select case, lecz od czasu gdy ją umieściłem w programie (w pętli głównej) to ona mi się zawiesza (pętla) dochodzi do selsct case i stop... Co robię nie tak?
Porszę wziąść po uwagę to, że jestem dopiero początkującym..
Z góry dziękuję za pomoc i pozdrawiam!
...
Aa = I1 / 10
Locate 1 , 9
Lcd Aa
Stan = 0
Select Case Aa
Case 48 To 100 : Portc = &B00111111
Set Portd.1
Set Portd.2
Set Stan
Case 42 To 47 : Portc = &B00111111
Set Portd.1
Set Portd.2
Reset Stan
Case 36 To 41 : Portc = &B00111111
Set Portd.1
Reset Portd.2
Reset Stan
Case 30 To 35 : Portc = &B00111111
Reset Portd.1
Reset Portd.2
Reset Stan
Case 24 To 29 : Portc = &B00111110
Reset Portd.1
Reset Portd.2
Reset Stan
Case 18 To 23 : Portc = &B00111100
Reset Portd.1
Reset Portd.2
Reset Stan
Case 12 To 17 : Portc = &B00111000
Reset Portd.1
Reset Portd.2
Reset Stan
Case 6 To 11 : Portc = &B00110000
Reset Portd.1
Reset Portd.2
Reset Stan
Case 1 To 5 : Portc = &B00100000
Reset Portd.1
Reset Portd.2
Reset Stan
Case 0 : Portc = &B00000000
Reset Portd.1
Reset Portd.2
Reset Stan
End Select
If Stan = 1 Then
Do
Set Portd.3
Waitms 100
Reset Portd.3
Loop
Else
Reset Portd.3
End If
Locate 2 , 9
Lcd Stan
End If