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
Aktyw Forum
Zarejestruj się na forum.ep.com.pl i zgłoś swój akces do Aktywu Forum. Jeśli jesteś już zarejestrowany wystarczy, że się zalogujesz.
Sprawdź punkty Zarejestruj sięPOMOCY dlaczego tego nie chce mi pokazac na lcd ?
Moderatorzy:Jacek Bogusz, robertw, k.pawliczak, Moderatorzy
Kto jest online
Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 49 gości