POMOCY dlaczego tego nie chce mi pokazac na lcd ?

[mikolaj]

Witam temat jest prosty. wpisuje pewne dane do pamieci , i potem je wyrzucam na lcd no i jednych danych mi nie chce na lcd wyrzucic !!!

w programie zaznaczylem ten momencik o ktory mi chodzi, pewnie to jest jakas banalna rzecz o ktorej nie wiem.
Za wszelkie dobre pomysly z gory dz.

pozdrawiam

$regfile = "8535def.dat"
$crystal = 8000000

$sim ' <---- GDY BEDZIEMY CHCIELI WGRAC PROGRAM DO PROCA TO WYKRESLIC !!!!!!!!!

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 'konfiguracja portow

Config Kbd = Portb , Delay = 100 ' konfiguracja portu pod ktory jest podpiea klawiatura, okreslony rowniez jest czas w [ms] miedzy nacisnieciami

'*********************'
'iniciowanie zmiennych'
'*********************'

Dim A As Byte 'mozemy wpisac wartosc do 255
Dim B As Byte 'mozemy wpisac wartosc do 255
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim F As Byte
Dim G As Word
Dim Odd As Word
Dim Doo As Word
Dim Kombinacja As Word
Dim Liczba As Word
Dim Czas As Word

'wpisywanie pewnych wartosci

G = 272
Liczba = 30
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 1
Czas = 100
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 274
Liczba = 32
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 200
Czas = 200
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 276
Liczba = 34
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 300
Czas = 300
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 278
Liczba = 36
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 400
Czas = 400
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 280
Liczba = 38
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 500
Czas = 500
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 282
Liczba = 40
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 600
Czas = 600
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 284
Liczba = 42
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 700
Czas = 700
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 286
Liczba = 44
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 800
Czas = 800
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 288
Liczba = 46
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 900
Czas = 900
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 290
Liczba = 48
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 1000
Czas = 1000
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G

G = 292
Liczba = 50
Liczba = Hexval(liczba)
G = Hexval(g)
Kombinacja = 1100
Czas = 1200
Writeeeprom Czas , Liczba
Writeeeprom Kombinacja , G


E = 1 'e=czas
'Czas = 1
F = 11 'f=kombinacja
'Kombinacja = 10
G = 24
Odd = Hexval(g) 'zamiana zmiennej na kod hex 'zamiana zmiennej na kod hex
Writeeeprom E , Odd 'zapis do Eeprom wartosci Od czyli E
'Writeeeprom Czas , Odd
G = G + 2
Doo = Hexval(g)
Writeeeprom F , Doo
'Writeeeprom Kombinacja , Doo




'**************************************'
'Tu sie zaczyna program wlaczenia petli'
'**************************************'

Cls
Lcd "Run Program ?"
Lowerline
Lcd "Enter <-> Delete"

Do
Mozetak:
A = 0
Do 'Petla czekajaca na nacisniecie klawisza
A = Getkbd()
Loop Until A < 16

Select Case A

Case 10 : Goto Nonie 'Gdy nacisniemy liczbe 10 to tak jak bysmy nacineli Delete
Case 11 : Goto Oczywiscie 'Gdy nacisniemy na liczbe 11 To jak bysmy nacisneli Enter
Case Else : Goto Mozetak
End Select
Loop

Oczywiscie:

Kolano:

G = 24
Odd = G
Odd = Hexval(odd)
G = 26
Doo = G 'zamiana zmiennej na kod hex
Doo = Hexval(doo) 'zamiana zmiennej na kod hex
Readeeprom E , Odd 'odczyt z Eeprom wartosci Od czyli E
Readeeprom F , Doo 'odczyt z Eeprom wartosci Do czyli F

Cls
Locate 1 , 1
Lcd "t= ms" 'troche spacji aby zakryc tekst do "ms" w 2 lini
Locate 1 , 11
Lcd "Nr= "

Do
A = Getkbd()
Liczba = E
Liczba = Liczba * 2 'Liczba to czas trwania kombinacji
Liczba = Liczba + 28
G = Liczba + 242
G = Hexval(g)
Liczba = Hexval(liczba) 'zamiana zmiennej na kod hex 'zamiana zmiennej na kod hex
Readeeprom Czas , Liczba 'zapis do Eeprom


'Cls
'Lcd G
'Do
' A = Getkbd()
'Loop Until A < 16


Readeeprom Kombinacja , G 'zapis do Eeprom
Locate 2 , 1
Lcd Bin(kombinacja) '<---- DLACZEGO mi tego nie chce pokazac na ekranie lcd ???!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Locate 1 , 3
Lcd Czas
Locate 1 , 14
Lcd E


'B = Low(kombinacja)
'C = High(kombinacja)
'Porta = B
'Portd = C

If E = F Then
Waitms Czas
Goto Kolano
End If
E = E + 1
Loop Until A < 16

Nonie: 'to pochodzi z niezgodzenia sie na run programu


'*******************************'
'Koniec programu wlaczania petli'
'*******************************'



End