Şimdi Ara

sumo robot kodu sorunu pic16f877a

Sıcak Fırsatlarda Tıklananlar

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

Black + Decker HMSCT0001-XJ Evcil Hayvan Tüy Toplayıcı, Rulo, Köpek ve Kedi Tüylerini Toplar https://www.amazon.com.tr/dp/B0CYQ3ZJ9X?ref=ppx_yo2ov_dt_b_fed_asin_title dün paylaşıldı

Stanley Klasik Çelik Shot Bardak ve Matara Seti, Yeşil (Hammertone Green), 0.23 Litre https://www.amazon.com.tr/dp/B07PXKN13V 2 yıl önce paylaşıldı

Mack Office MCC-006 Laptop Sırt Çantası, Profesyonel Sırt Çantası, Kadınlar ve Erkekler için Bilgisayar Çantası, 15.6 inç Notebook Çantası, USB şarj bağlantılı, Siyah https://www.amazon.com.tr/dp/B081SBZ2BP 3 yıl önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

1 Misafir - 1 Masaüstü

5 sn

1
Cevap

0
Favori

443
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