case komutu

[ali]

merha arkadaşlar.yeni yeni birşeyler öğrenmeye başladım.case komutu ile aşağıdaki gibi yazdım.sormak istediğim progda kısalma yapmak istiyorum .cae0-case1-case2-case3-case4-case5-case6-case7 komutlarını birkez yazıp nasıl kısaltma yapabilirim.

çalısan progrom:

If azbut=0 Then GoSub led_az
If artbut=0 Then GoSub led_art

led_art:
led=led+1
If led>=8 Then led=7
   Select case led
   Case 0
   Case 1
   Case 2
   Case 3
   Case 4
   Case 5
   Case 6
   Case 7

   End Select
Return

led_az:
led=led-1
If led=255 Then led=0
Select case led
   Case 0
   Case 1
   Case 2
   Case 3
   Case 4
   Case 5
   Case 6
   Case 7
   End Select
Return

[ete]

Mademki artırma ve eksiltmeye gosub ile gidiyorsun o halde oradan select case kısmına girmeden dönmek en doğrusu olur.
Dönüş kısmına 1 adet select case bölümü koydunmu iki defa yazmaktan kurtulmuş olursun.

If azbut=0 Then GoSub led_az
If artbut=0 Then GoSub led_art
 Select case led
   Case 0
   Case 1
   Case 2
   Case 3
   Case 4
   Case 5
   Case 6
   Case 7
   End Select
Goto xxxxx

led_art:
led=led+1
If led>=8 Then led=7
RETURN

led_az:
led=led-1
If led=255 Then led=0
 Return

Ete

[ali]

teşekkür ederim ete hocam