sumo robot kodu sorunu pic16f877a

Aşağı Git Tüm Forumlar Donanım / Hardware Elektronik ve Mekanik Elektronik sumo robot kodu sorunu pic16f877a

Bu konudaki kullanıcılar: 1 misafir

0
Cevap 445
Tıklama 0
Öne Çıkarma

1. sayfa

sumo robot kodu sorunu pic16f877a

Cevap Yaz

abdulkadirugur64

12 yıl (19 mesaj)

Onbaşı

Konu Sahibi

beyler kafayı yiyicem bi yardım edin çok basit bi kodu yazamadım yada isis de bi sorun var?resim de ki isis devresi
sorunu anlamış değilim beyler bi göz atarsanız çok sevinirim....
< Resime gitmek için tıklayın >

< Resime gitmek için tıklayın >

buda kafayıyemek üzere olduğum kod:

@ __config _XT_OSC & _WDT_OFF & _PWRTE_OFF & _LVP_OFF & _CP_OF

ADCON1=7
OPTION_REG.7=0

TRISA=%00000111
TRISB=%00000000
TRISD=%00000000
TRISC=%00000100 'BUNDA EMİN DEĞİLİM

TRISE=0

SYMBOL SHARP=PORTA.0 'SEMBOL TANIMLAMALARI
SYMBOL QRD=PORTA.2
SYMBOL QRD1=PORTA.1

SYMBOL SOLMILERI=PORTB.0
SYMBOL SOLMGERI=PORTB.1
SYMBOL SAGMILERI=PORTB.2
SYMBOL SAGMGERI=PORTB.3

SYMBOL YON=PORTC.3

SYMBOL SOLMILED=PORTD.0
SYMBOL SOLMGLED=PORTD.1
SYMBOL SAGMILED=PORTD.2
SYMBOL SAGMGLED=PORTD.3

SAY var byte 'VARYASYON BELİRTME

BEKLEME: 'DELAY SÜRECİ
FOR SAY=1 TO 10
PORTD=%00000001
PORTB=0
PAUSE 125
PORTD=%00000010
PORTB=0
PAUSE 125
PORTD=%00000100
PORTB=0
PAUSE 125
PORTD=%00001000
PORTB=0
PAUSE 125
NEXT

if YON=1 then GOSUB SOLARASTIR

if YON=0 then gosub SAGARASTIR

pause 100
'--------------------------------------------------------------------------------
BASLA: 'ASIL OLAY
IF QRD=0 AND QRD1=0 THEN GOSUB CEKIL

IF SHARP=0 THEN GOSUB DUZGIT

IF SHARP=1 AND QRD=1 AND QRD1=1 THEN GOSUB ILERI
GOTO BASLA
END

ILERI:

SAGMILED=1
SOLMILED=1
SAGMGLED=0
SOLMGLED=0
SOLMILERI=1
SAGMILERI=1
SOLMGERI=0
SAGMGERI=0
goto BASLA
end

SOLARASTIR: 'IF DÖNGÜSÜNDEKİ ETİKET TANIMLAMALARI

SAGMILERI=1
SAGMGERI=0
SAGMILED=1
SAGMGLED=0
SOLMILERI=0
SOLMGERI=0
SOLMILED=0
SOLMGLED=0

SAGARASTIR:

SAGMILERI=0
SAGMGERI=0
SAGMILED=0
SAGMGLED=0
SOLMILERI=1
SOLMGERI=0
SOLMILED=1
SOLMGLED=0

DUZGIT:

SAGMILERI=1
SAGMGERI=0
SAGMILED=1
SAGMGLED=0
SOLMILERI=1
SOLMGERI=0
SOLMILED=1
SOLMGLED=0

CEKIL:

SAGMILERI=0
SAGMGERI=1
SAGMILED=0
SAGMGLED=1
SOLMILERI=0
SOLMGERI=0
SOLMILED=0
SOLMGLED=0

GOTO BASLA
END
< Resime gitmek için tıklayın >< Resime gitmek için tıklayın >

Cevap Yaz

1. sayfa

Tüm Forumlar Donanım / Hardware Elektronik ve Mekanik Elektronik sumo robot kodu sorunu pic16f877a