Haberler:

Eposta uyarılarını yanıtlamayınız ( ! ) https://bit.ly/2J7yi0d

Ana Menü

Basic yardım

Başlatan kafa1500, 25 Şubat 2007, 00:22:45

kafa1500

selamlar, aşağıdaki kodlarla lcd birinci karaktere adresine herhangi bir harf yazabiliyorum, acaba butona basarak ikinci karakter adresine geçmeyi nasıl yapabilirim? amacım birinci karakter adresine harf yazdıktan sonra butonla ikinci karakter adresine geçmek ve harf yazmak.


I var BYTE
I=65

BASLA:
PAUSE 50
LCDOUT  $FE,$80,I

IF TUS1=0   THEN
PAUSE 50
I=I+1
IF  I=91    THEN    I=65
LCDOUT $FE,1
LCDOUT  $FE,$80,I
ENDIF

IF TUS2=0   THEN
PAUSE 50
I=I-1
IF I=64     THEN    I=90
LCDOUT $FE,1
LCDOUT  $FE,$80,I

ENDIF
PAUSE 50
GOTO BASLA
END
Güzelin nazına, Ford'un ara gazına hastayım.

mech

LCDOUT $FE,$14
yazarsan kursör 1 karakter sağa geçer. Bunu 2 kere tekrarlarsan 2 karakter sağa geçmiş olur, vs.

LCDOUT $FE, $0F ' kursör yanıp söner duruma geçer
LCDOUT $FE,$14
LCDOUT $FE,$10 'kursör sola
LCDOUT $FE,$0C 'kursör görüntüsü yok olur
LCDOUT $FE,$C0 '2. satırın başına geçer
LCDOUT $FE,1 'ekranı sil
LCDOUT $FE,2 'satır başı.
LCDOUT $FE,$0E ' kursör alt çizgi olur...
Bilginin Efendisi Olmak İçin Çalışmanın Kölesi Olmak Şarttır

kafa1500

butonla kursörü sağ alıyorum ama bir karakter sağa aldıktan sonra tekrar sola alamıyorum. nasıl yapabilirim?
bu kodlar olmuyor
IF TUS2=0 THEN
PAUSE 50
LCDOUT  $FE,$0E,$14
ENDIF

IF TUS3=0   THEN
PAUSE   50
LCDOUT  $FE,$0E,$10
ENDIF
Güzelin nazına, Ford'un ara gazına hastayım.

mech

$10 dedikten sonra tekrar yazsanız ya da 2 kere $10 komutunu ardarda ve virgülle ayırmadan altalta her seferinde lcdout yazarak denerseniz.
Bilginin Efendisi Olmak İçin Çalışmanın Kölesi Olmak Şarttır

kafa1500

@mech hocam teşekkürler,
yanlız ben bu işi çözemedim, aşağıdaki kodlarla harf girişini yapıyorum buna ek olarak ikinci karakter adresine geçip tekrar harf girişi yapmak istiyorum ama beceremedim,
bu işin mantığını kavrayamadım. nasıl yapmalı?

MENU:
        PAUSE   100
        LCDOUT $FE,1
KARSEC:
            PAUSE 100
            IF TUS0=0 THEN I=I+1
            IF TUS1=0 THEN I=I-1 
                IF I<65 THEN I=90
                IF I>90 THEN I=65
            LCDOUT $FE,2,I
            PAUSE 100          
        GOTO MENU
END



yukardakine  böyle bir kod ekliyorum ama maalesef.....
      IF TUS2=0 THEN LCDOUT  $FE,$0E,$14,I 
            PAUSE 100      
        IF TUS3=0 THEN LCDOUT  $FE,$0E,10,I
Güzelin nazına, Ford'un ara gazına hastayım.