benhur
Üye
- Katılım
- 21 Kas 2009
- Mesajlar
- 321
- Puanları
- 1
- Yaş
- 29
öncelikle merhaba pic programlama olayını öğrenmeye çalışıyorum.pic konusunda oldukça acemiyim.sorunum şu programı yazdım.derledim.proteusta gösterdim.çalışıyor ama butonlara basınca bişey olmuyor.yazdığım dil pic basic pro.programda nerde hata yaptığımı ve nasıl çözeceğimi söylerseniz sevinirim.ledlerin yanıp yanmaması şuan önemli değil proplemi çözünce onlar ile uğraşırım.şuanki amacım hangi butona basarsam o butondaki ismi lcd ye yazmak..iyi akşamlar.şimdiden teşekkürler...
PHP:
'****************************************************************
'* Name : led sowh.BAS *
'* Author : [Benhur yılmaz] *
'* Notice : Copyright (c) 2011 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 25.05.2011 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
'GİRİŞ ÇIKIŞ AYARLARI
ADCON1=7
TRISA=%011111
TRISB=0
TRISC=0
TRISD=0
'LCD BACAK BAĞLANTISI
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
low PORTB.1
'TUS TANIMLAMA
SYMBOL TUS0=PORTE.0
SYMBOL TUS1=PORTA.1
SYMBOL TUS2=PORTA.2
SYMBOL TUS3=PORTA.3
SYMBOL TUS4=PORTA.4
'PORT SIFIRLAMA
PORTC=0
PORTD=0
'LCD AÇILIŞ SÜRESİ
PAUSE 100
'NORMALDE EKRANDA GÖRÜNECEK YAZI
BASLA:
lcdout $fe, 1
lcdout "BENHUR YILMAZ"
PAUSE 100
LCDOUT $FE,$C0,"KOMUT GIRINIZ:"
PAUSE 2500
LCDOUT $FE,1
'BUTTON KOŞULLARI
IF TUS0=1 THEN YURUYEN_ISIK
IF TUS1=1 THEN KARA_SIMSEK
IF TUS2=1 THEN FLIP_FLOP
IF TUS3=1 THEN ATLAYARAK_YURU
IF TUS4=1 THEN XP
GOTO BASLA
'BUTON GONGULERİ
YURUYEN_ISIK:
lcdout $fe, 1
lcdout "YURUYEN ISIK"
pause 100
LCDOUT $FE,$C0,"YURUTULUYOR..."
LCDOUT $FE,1
GOTO BASLA
KARA_SIMSEK:
lcdout $fe, 1
lcdout "KARA SIMSEK"
pause 100
LCDOUT $FE,$C0,"YURUTULUYOR..."
LCDOUT $FE,1
GOTO BASLA
FLIP_FLOP:
lcdout $fe, 1
lcdout "FLIP FLOP"
pause 100
LCDOUT $FE,$C0,"YURUTULUYOR..."
LCDOUT $FE,1
GOTO BASLA
ATLAYARAK_YURU:
lcdout $fe, 1
lcdout "ATLAYARAK YURU"
pause 100
LCDOUT $FE,$C0,"YURUTULUYOR..."
LCDOUT $FE,1
GOTO BASLA
XP:
lcdout $fe, 1
lcdout " XP "
pause 100
LCDOUT $FE,$C0,"YURUTULUYOR..."
LCDOUT $FE,1
GOTO BASLA
GOTO BASLA
END
