'****************************************************************
'* 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