Wyświetlacz grzaficzny a klawiatura ps2.


Napisałem program do wyświetlania znaków z klawiatury ps2 podłączonej do at32.Głównie inspirowałem się tym:

link

Moim problemem jest to że ciągle podczas kompilacji programu wyskakuje taki error:

oraz po wgraniu poniższego programu na at32 (z errorem) wyświetla się napis testowy "ok", diody podłączonej klawiatury raz migną i dalej żdnej reakcji.Wydaje mi śię że to przez wyświetlacz źle działa bo oryginalny program był pisany pod wyświetlacz 16*2.

Proszę o wskazanie co muszę poprawić w swoim projekcie.

oto program testowy:

$regfile = "m32def.dat"
$crystal = 8000000
Config Porta = Input                                        ''''''''''''''''''''''''''''''''''''''''''''
        Porta = &B11111111                                  '  '''''''''''''''''''''''''''''''''''''''''' 
Config Portb = Output                                       '''                                '''
        Portb = &B11111111                                  '''''
                                             '              ' '                                 '''''
Config Portc = Output                                       ''                                 '''
        Portc = &B11111111                                  '''''''''''''''''''''''''''''''''''''''''
                                                            '''''''''''''''''''''''''''''''''''''''''''
Config Portd = Input
        Portd = &B11111111
 
 
Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , Ce = 1 , Ce2 = 0 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
$lib "glcdKS108.lib"
$include "font8x8.font"                                     
Setfont Font8x8
 
 
 
 
 
Config Keyboard = Pind.2 , Data = Pind.4 , Keydata = Keydata
 
Dim Kod_kl As Byte
 Cls
 Locate 1 , 1
 Lcd "ok"
 Wait 2
 
Cls
Do
   Kod_kl = Getatkbd()
 
   If Kod_kl > 0 Then
      If Kod_kl > 31 And Kod_kl < 127 Then
 
         Locate 1 , 1
         Lcd Chr(kod_kl)
 
      End If
      If Kod_kl = 44 Then
 
         Cls
      End If
      If Kod_kl = 13 Then
 
         Lowerline
 
      End If
  End If
Loop
End
 
Keydata:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,
Data &H5E , 0 , 0 , 0 , 0 , 0 , 0 , 113 , 49 , 0 , 0 , 0 , 122 ,
Data 115 , 97 , 119 , 50 , 0 , 0 , 99 , 120 , 100 , 101 , 52 ,
Data 51 , 0 , 0 , 32 , 118 , 102 , 116 , 114 , 53 , 0 , 0 , 110 ,
Data 98 , 104 , 103 , 121 , 54 , 7 , 8 , 44 , 109 , 106 , 117 , 55 ,
Data 56 , 0 , 0 , 44 , 107 , 105 , 111 , 48 , 57 , 0 , 0 , 46 , 45 ,
Data 108 , 48 , 112 , 43 , 0 , 0 , 0 , 0 , 0 , 0 , 92 , 0 , 0 , 0 ,
Data 0 , 13 , 0 , 0 , 92 , 0 , 0 , 0 , 60 , 0 , 0 , 0 , 0 , 8 , 0 ,
Data 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 48 , 44 , 50 , 53 , 54 , 56 ,
Data 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0
 
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,
Data 0 , 0 , 0 , 0 , 0 , 0 , 81 , 33 , 0 , 0 , 0 , 90 , 83 , 65 ,
Data 87 , 34 , 0 , 0 , 67 , 88 , 68 , 69 , 0 , 35 , 0 , 0 , 32 , 86 ,
Data 70 , 84 , 82 , 37 , 0 , 0 , 78 , 66 , 72 , 71 , 89 , 38 , 0 ,
Data 0 , 76 , 77 , 74 , 85 , 47 , 40 , 0 , 0 , 59 , 75 , 73 , 79 ,
Data 61 , 41 , 0 , 0 , 58 , 95 , 76 , 48 , 80 , 63 , 0 , 0 , 0 , 0 ,
Data 0 , 0 , 96 , 0 , 0 , 0 , 0 , 13 , 94 , 0 , 42 , 0 , 0 , 0 , 62 ,
Data 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 0 , 48 ,
Data 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0




Portret użytkownika mirley

Re: Wyświetlacz i klawiatura

Przede wszystkim problemem jest to że chcesz napisać wszystko na raz. Uruchom najpierw samą klawiaturę i podaj znaki na tektowy zwykły LCD, potem uruchom sam graficzny wyświetlacz próbując wyświetlać na nim znaki a dopiero na końcu wszystko na raz

-

UWAGA! Możliwy jest zakup zaprogramowanych uC i zestawów elementów itp. do niektórych projektów. O dostępność proszę pytać via email. Konkretne oferty pojawiają się w cenniku.

Portret użytkownika zan

.

Niestety niemam zwykłego wyświetlacza lcd, ale muszę powiedzieć że wyświetlanie znaków i obrazków na graficznym działa be problemu, tylko nie z klawiaturą :)