Komutları Hafızaya Alan Robot

Pic Basic Pro kodları:

 
'*************************************
'önce komutları sırasıyla giriniz sonra RUN tuşuna basınız                                             
'*************************************
   saga VAR porta.0'sağa komut butonu
   sola VAR porta.1'sola komut butonu
   ileri VAR porta.2'ileri komut butonu
   run VAR porta.3'başlatma butonu
   s VAR BYTE 'girilen komut sayısı
   i VAR BYTE 'for-next döngü değişkeni
   tus VAR BYTE 'butonların durumunu alan değişken
   x VAR BYTE[39]'komut dizi değişkeni
   s=0 
   trisa=255
   trisb=0
   portb=0 
       
tara: 
   tus=0    
   WHILE tus=0'butonlara basılana kadar tarama   
      IF saga=0 THEN tus=1
      IF sola=0 THEN tus=2
      IF ileri=0 THEN tus=3
      IF run=0 THEN tus=5   
   WEND
   IF tus=5 THEN basla 
   s=s+1
   x[s]=tus 'dizi değişkenlerine tus değerleri atanır
   WHILE porta<>15'herhangi bir butona basılı ise 
   'while-wend komutları arasında döner yeni komut almaz
   WEND
   GOTO tara
   
basla:     
   FOR i=1 TO s       
      LOOKUP x[i],[0,1,2,3],portb   
      PAUSE 1000
      portb=0
      PAUSE 1000
   NEXT       
   s=0
   portb=0
   PAUSE 500
   GOTO tara    
     

Dosyaları indirmek için tıklayınız...