menülü oyuncak araba...

Başlatan mustafa_cmbz, 30 Ekim 2007, 19:02:40

mustafa_cmbz

pic'e yeni merak saran arkadaşlar için eğlenceli olur diye düşündüm fakat menü kısmını biraz kısalttım staj defterine sığmıyordu isteğe göre menü seçeneği arttırılabilinir....ben ışık eklemeyi unutmuşum isteyen ekleyebilir fikir olsun :D

http://rapidshare.com/files/66291337/OYUNCAK_ARABA.rar.html

devrenin nasıl çalıştığınıda program anlatsın :D

kodlar :


   symbol SAG1=PORTB.3
     SYMBOL SOL1=PORTB.4
     
     SYMBOL SAG2=PORTB.5
     SYMBOL SOL2=PORTB.6
     
     SYMBOL SET=PORTA.1
     SYMBOL MENU=PORTA.0
     SYMBOL BUZZER=PORTB.7
     SYMBOL LED=PORTA.2
     SYMBOL LED2=PORTB.2
     
     BASLA:
     
     PAUSE 300
     HIGH LED2
     IF SET=1 THEN ANA
     GOTO BASLA
     
     ANA:
     
     IF MENU=1 THEN LOOP1
     HIGH LED
     PAUSE 100
     LOW LED
     PAUSE 150
     GOTO ANA2
     
     ANA2:
     PAUSE 300
     IF MENU=1 THEN LOOP1
     GOTO ANA2
   
     
     LOOP1:
    
     IF SET=1 THEN KONT1
     IF MENU=1 THEN LOOP2
       HIGH BUZZER
     HIGH LED
     PAUSE 100
     LOW BUZZER
     LOW LED
     GOTO LOP1
     
     LOP1:
     IF SET=1 THEN KONT1
     IF MENU=1 THEN LOOP2
     GOTO LOP1
     
     
     
     
     KONT1:
     
     HIGH SAG1
     HIGH SOL2
     PAUSE 3000
     LOW SAG1
     LOW SOL2
     
     PAUSE 500
     
     HIGH SAG1
     HIGH SAG2
     PAUSE 5000
     LOW SAG1
     LOW SAG2
     
     PAUSE 500
     
     GOTO LOOP1
     
     
     LOOP2:
     
     IF SET=1 THEN KONT2
     IF MENU=1 THEN LOOP1
      HIGH BUZZER
     HIGH LED
     PAUSE 100
     LOW BUZZER
     LOW LED
     GOTO LOP2
     
     LOP2:
     IF SET=1 THEN KONT2
     IF MENU=1 THEN LOOP1
     GOTO LOP2
     
     
     KONT2:
     
     HIGH SOL1
     HIGH SOL2
     PAUSE 5000
     LOW SOL1
     LOW SOL2
      
     PAUSE 500
     
     HIGH SOL1
     HIGH SAG2
     PAUSE 6000
     LOW SOL1
     LOW SAG2
     
     PAUSE 500
     
     HIGH SAG1
     HIGH SAG2
     PAUSE 7000
     LOW SAG1
     LOW SAG2
     
     PAUSE 500
     
     GOTO LOOP2
     
     END

parametre

kodlari yukleme imkanı varmıdır

subram

http://www.elektronark.org  Türkiyede Elektronik Kültürünü Değiştirmeye Geliyoruz