klawitura + wyswietlacz 7seg

pawelek1053 · Postautor: **pawelek1053** » 6 kwie 2007, o 14:49

chce napiac program aby liczby wpisywane z klawiatury at pojawialy sie na wyswietlaczu. Lepiej byłoby na LCD ale obecnie nie posiadam takiego. Napisalem program ale sa bledy i nie wiem jak sie uch pozbyc prosze o pomoc. Od niedawna interesuje sie uC wiec dopiero sie ucze.

Kod: Zaznacz cały

$regfile = "ATtiny2313.dat"
$crystal = 8000000

Config Portb = Output


Config Keyboard = Pind.4 , Data = Pind.5 , Keydata = Keydata

Declare Sub Wysw7seg(byval Cyfra As Byte)

Dim Kod_cyfr As Byte
Dim Kod_kl As Byte
Dim I As Byte

 Do
   Kod_kl = Getkbd()

   If Kod_kl > 0 Then

      If Kod_kl = 48 Then
         Call Wysw7seg(0)
      End If


   End If


Loop
End

Sub Wysw7seg(byval Cyfra As Byte)

   If Cyfra < 10 Then

   Kod_cyfr = Lookup(cyfra , Kody7seg)


   Portb = Kod_cyfr

   Else
   Portb = Portb And &B10000000
   End If

End Sub

Kody7seg:
Data &B11000000 , &B11111001 , &B10100100 , &B10110000 , &B10011001,
Data &B10010010 , &B10000010 , &B11111000 , &B10000000 , &B10010000


Keydata:

'normal keys lower case

Data 0 , 0 , 0 , 0 , 0 , 200 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , &H5E , 0

Data 0 , 0 , 0 , 0 , 0 , 113 , 49 , 0 , 0 , 0 , 122 , 115 , 97 , 119 , 50 , 0

Data 0 , 99 , 120 , 100 , 101 , 52 , 51 , 0 , 0 , 32 , 118 , 102 , 116 , 114 , 53 , 0

Data 0 , 110 , 98 , 104 , 103 , 121 , 54 , 7 , 8 , 44 , 109 , 106 , 117 , 55 , 56 , 0

Data 0 , 44 , 107 , 105 , 111 , 48 , 57 , 0 , 0 , 46 , 45 , 108 , 48 , 112 , 43 , 0

Data 0 , 0 , 0 , 0 , 0 , 92 , 0 , 0 , 0 , 0 , 13 , 0 , 0 , 92 , 0 , 0

Data 0 , 60 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0

Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0



'shifted keys UPPER case

Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

Data 0 , 0 , 0 , 0 , 0 , 81 , 33 , 0 , 0 , 0 , 90 , 83 , 65 , 87 , 34 , 0

Data 0 , 67 , 88 , 68 , 69 , 0 , 35 , 0 , 0 , 32 , 86 , 70 , 84 , 82 , 37 , 0

Data 0 , 78 , 66 , 72 , 71 , 89 , 38 , 0 , 0 , 76 , 77 , 74 , 85 , 47 , 40 , 0

Data 0 , 59 , 75 , 73 , 79 , 61 , 41 , 0 , 0 , 58 , 95 , 76 , 48 , 80 , 63 , 0

Data 0 , 0 , 0 , 0 , 0 , 96 , 0 , 0 , 0 , 0 , 13 , 94 , 0 , 42 , 0 , 0

Data 0 , 62 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 0

Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0

radzio · Postautor: **radzio** » 6 kwie 2007, o 20:01

Nie napisałeś jakie błedy... Nie umieściłeś schematu. Jak ktoś ma Ci pomóc?

pawelek1053 · Postautor: **pawelek1053** » 7 kwie 2007, o 10:54

Juz wiem gdzie jest błąd Pomylilem sie i zamiast napisac Getatkbd() napisalem Getkbd(). I z tad wynikaly te dziwne bledy przy kompilacji!!!

klawitura + wyswietlacz 7seg

Kto jest online