Şimdi Ara

Pic programlama derleme dosyası

Sıcak Fırsatlarda Tıklananlar

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

Kioxia EXCERIA microSD 64 GB Hafıza Kartı, UHS1 R100 : Amazon.com.tr: Bilgisayar https://www.amazon.com.tr/dp/B088X252DK 4 yıl önce paylaşıldı

Camper Erkek Drift-k100876 Spor ayakkabı : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B09NQH44ZY 2 ay önce paylaşıldı

SONGMICS ahşap elbise askısı, 20'li set, masif ahşap askılar, omuz bölgesinde çentikler, kaymaz pantolon çubuğu, 360° dönebilen kanca, takım elbise, gömlek için, beyaz-gümüş CRW03W-20 : Amazon.com.tr: Ev ve Yaşam https://www.amazon.com.tr/dp/B00ECMM898 dün paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

4
Cevap

0
Favori

438
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

Arkadaşlar programımda ufak bir sıkıntı çekiyorumda derlemiyor verdiğim kodları.
Acil derlenmesine ihtiyacım var microcode studio programı vb. olanlar aşağıdaki kodları
pic16f877a için hex koduna çevirip derlerlerse çok sevinirim

define osc 4
define LCD_DREG PORTD
define LCD_DBIT 0
define LCD_RSREG PORTE
define LCD_RSBIT 0
define LCD_EREG PORTE
define LCD_EBIT 2
define LCD_RWREG PORTE
define LCD_RWBIT 1
define LCD_BITS 8
define LCD_LINES 2
trisb.5=0
trisb.1=1
trisb.2=1
trisb.4=1
ileri var portb.2
geri var portb.1
onay var portb.4
motor var portb.5

adcon1=%00001110

hos:
Lcdout $FE,$1,"Hosgeldiniz"
pause 500
If ileri=1 then '1
menu:
Lcdout $FE,1,"Menu"
pause 500
If geri=1 then
goto hos
endif

If ileri=1 then '2
siparis:
Lcdout $FE,1,"Siparis"
pause 500
if geri=1 then
goto menu
endif

If ileri=1 then '3
icecek:
Lcdout $FE,1,"icecek"
pause 500
if geri=1 then
goto siparis
endif

if onay=1 then '4
kola:
Lcdout $FE,1,"Kola"
pause 500
if geri=1 then
goto icecek
endif

if ileri=1 then '5
fanta:
Lcdout $FE,1,"Fanta"
pause 500
if geri=1 then
goto kola
endif

if onay=1 then '6
fanta1:
Lcdout $FE,1,"Fanta 1 LT"
pause 500
if geri=1 then
goto fanta
endif

onay:
if onay=1 then '7
Lcdout $FE,1,"Eklendi"
pause 5000
motor=1
pause 5000
motor=0
goto fanta1
else
goto fanta1
endif '7

else
goto fanta '6
endif

endif '5

if onay=1 then '10
kola1:
Lcdout $FE,1,"Kola 1 LT"
pause 500
if geri=1 then
goto kola
endif

if onay=1 then '11
onayko:
Lcdout $FE,1,"Eklendi"
pause 5000
motor=1
pause 5000
motor=0
goto kola1

else
goto kola1
endif

else
goto kola '10
endif

else
goto icecek '4
endif

else
goto siparis '3
endif

else
goto menu '2
endif

else '1
goto hos
endif
end

zokur

Yüzbaşı

547 Mesaj

Tüm Başarılarını Gör

aeronics

Binbaşı

1994 Mesaj

Tüm Başarılarını Gör

Yapay Zeka’dan İlgili Konular

Python Hızlı Referans Kodlar | PDF KÜTÜPHANESİ

5 ay önce açıldı

ETA SQL HATA MUHASEBE PROGRAMI

11 yıl önce açıldı

python hatası

geçen yıl açıldı

Daha Fazla Göster

Sayfa: 1

Benzer içerikler

Ip işlemleri

Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara

KAPAT X

%40
Kazan

%2,8
Kazan

%6,5
Kazan

%25
Kazan

%1,6
Kazan

%3,2
Kazan

%5,5
Kazan

%3,2
Kazan

%5
Kazan

%3,2
Kazan

%5
Kazan

%2
Kazan

Alışveriş Yaptıkça Para Kazan Harekete Geç »