Şimdi Ara

sumo robot kodu sorunu pic16f877a

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

1 Misafir - 1 Masaüstü

5 sn

1
Cevap

0
Favori

446
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

Öne Çıkar

0 oy

Sayfa: 1

Giriş

Mesaj

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....

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