case komutu

[scorpions_64]

Arkadaşlar bir konuda yardımınıza ihtiyacım var, basit bir devre var, tek buton ve case komutu ile animasyonları değiştiriyorum buraya kadar güzel, lakin 1 adet bir buton koyup değiştirdiğim animasyonları yeni koyacağım butona basınca nasıl çalıştırırım?    mesela 2. butonu buton1 ile gpio.2 bitine koydum.

Kod Seç Genişlet

Dim buton1 As GPIO.2
Dim BUTON As GPIO.3
Dim SAY As Byte         

Dim led As GPIO.4
Dim led2As GPIO.5

SAY=0
BASLA:

If BUTON=1 Then
BUTONTEST:
If BUTON=1 Then GoTo BUTONTEST
SAY=SAY+1
EndIf

Select SAY
Case 1

High led
DelayMS 50
Low led
DelayMS 50

High led1
DelayMS 50
Low led1
DelayMS 50

Case 2

High led1
DelayMS 50
Low led1
DelayMS 50
 
High led
DelayMS 100
Low led
DelayMS 100

SAY=0
EndSelect
GoTo BASLA
End