lcd ekran basltama hatası

[ywzslm]

arkadaslar tusa bastıgım anda ekranın çalışmasını istiyorum fakat bir türlü if komutunu kullanamıyorum yardımcı olursanız sevinirim
kod:
'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : ywzslm                                            *
'*  Notice  : Copyright (c) 2008 ywzslm                         *
'*          : All Rights Reserved                               *
'*  Date    : 25.08.2008                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
TRISA=0
TRISB=0  
pause 100
lcdout $fe,$0c
LCDOUT $FE,$C0
SYMBOL TUS0=PORTB.1
IF TUS0=1
THEN GOTO BASLA
ELSE
   TUS0=0
 ENDIF
ENDIF
BASLA:
lcdout $fe,2,  " yavuz selim"
lcdout $FE,$C0,"yavuz selim"
pause 100

lcdout $fe,2,  "  yavuz selim"
lcdout $FE,$C0,"  yavuz selim"
pause 100

lcdout $fe,2,  "   yavuz selim"
lcdout $FE,$C0,"   yavuz selim"
pause 100

lcdout $fe,2,  "    yavuz selim"
lcdout $FE,$C0,"    yavuz selim"
pause 100

lcdout $fe,2,  "     yavuz selim"
lcdout $FE,$C0,"     yavuz selim"
pause 100

lcdout $fe,2,  "      yavuz selim"
lcdout $FE,$C0,"      yavuz selim"
pause 100

lcdout $fe,2,  "        yavuz selim"
lcdout $FE,$C0,"        yavuz selim"
pause 100

lcdout $fe,2,    "         yavuz selim"
lcdout $FE,$C0,"         yavuz selim"
pause 100

lcdout $fe,2,    "m         yavuz seli"
lcdout $FE,$C0,"m         yavuz seli"
pause 100

lcdout $fe,2,    "im         yavuz sel"
lcdout $FE,$C0,"im         yavuz sel"
pause 100

lcdout $fe,2,    "lim         yavuz se"
lcdout $FE,$C0,"lim         yavuz se"
pause 100

end

[karbal656]

Merhaba;

TEST:
IF TUS0=1 THEN 
PAUSE 200
GOTO BASLA
ENDİF
GOTO TEST


BASLA:
............
..............

Bu şekilde bir dene istersen.
Başarılar.

[Gurkan-Demirbas]

Merhaba
TRISB = 0 demek Tüm PortB pinlerini Output yap demek. Tuşu okumak için Input yapman gerek
TRISB = % 00000010  'PortB.1 input diğerleri Output
yapıp denermisin?

GürkaN

[onurksp]

AS. öncelikle
Burda if komutunu kullanırken başka bir işlem yapmıyorsan o kısmı  sürekli kontrol altında tutmak amacı ile sonsuz döngüye almanı tavsiye ederim.Ben kodu aşağıdaki gibi değiştirdim .Çalışıyo LCD ayarlarını aşağıdaki gibi yapman gerekir.

proteus devre seması ve bas dosyasını içeren klasörü 4shared a upload ettim.Ya siteden indire tıkla şifreyi gir(www.picproje.org) projeler ordan da karışık yazan klasörün içinde yada aşağıdaki adresten indir(aynı yer)
Kolay gelsin
http://www.4shared.com/file/60393497/460bb2f5/yavuz-lcd_kayan_yaz.html


'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : ywzslm *
'* Notice : Copyright (c) 2008 ywzslm *
'* : All Rights Reserved *
'* Date : 25.08.2008 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
DEFINE LCD_DREG       PORTB     
DEFINE LCD_DBIT      4        
DEFINE LCD_RSREG   PORTB   
DEFINE LCD_RSBIT   1        
define LCD_RWREG    PORTB    
define LCD_RWBIT    2        
DEFINE LCD_EREG       PORTB     
DEFINE LCD_EBIT      3        
DEFINE LCD_BITS      4      
DEFINE LCD_LINES   2   
TRISA=255
TRISB=0
ADCON1=7 'porta digital IO
pause 100
lcdout $fe,$0c
LCDOUT $FE,$C0
SYMBOL TUS0=PORTA.1
KNTRL1:
     IF TUS0=0 THEN BASLA
     GOTO KNTRL1   ' sürekli kontrol et
BASLA:
lcdout $fe,2, " yavuz selim"
lcdout $FE,$C0,"yavuz selim"
pause 100

lcdout $fe,2, " yavuz selim"
lcdout $FE,$C0," yavuz selim"
pause 100

lcdout $fe,2, " yavuz selim"
lcdout $FE,$C0," yavuz selim"
pause 100

lcdout $fe,2, " yavuz selim"
lcdout $FE,$C0," yavuz selim"
pause 100

lcdout $fe,2, " yavuz selim"
lcdout $FE,$C0," yavuz selim"
pause 100

lcdout $fe,2, " yavuz selim"
lcdout $FE,$C0," yavuz selim"
pause 100

lcdout $fe,2, " yavuz selim"
lcdout $FE,$C0," yavuz selim"
pause 100

lcdout $fe,2, " yavuz selim"
lcdout $FE,$C0," yavuz selim"
pause 100

lcdout $fe,2, "m yavuz seli"
lcdout $FE,$C0,"m yavuz seli"
pause 100

lcdout $fe,2, "im yavuz sel"
lcdout $FE,$C0,"im yavuz sel"
pause 100

lcdout $fe,2, "lim yavuz se"
lcdout $FE,$C0,"lim yavuz se"
pause 100

end

[ywzslm]

cok tesekkür ederim bu daha ilk denemelerim diyebilirm if komutlarına tekrardan baksam iyi olacak yardımların için çok teşekkürler