Po przeczytaniu wielu postów napisałem program który ma wyświetlać na wyświetlaczu LCD Napięcie , prąd oraz temp. Chciałem to wykorzystać do zasilacza, którego właśnie buduje. jednak po zaprogramowaniu procka wyświetlacz mi się nie inicjuje (zaświecają się kwadraty w pierwszej lini). Czy jest jakiś błąd w moim programie ? Proszę o sprawdzenie.
Code:
$regfile = "m8def.DAT" 'deklaracja procesora, w tym wypadku Atmega8
$crystal = 1000000 'deklaracja cześtotlwiości pracy (wew oscylator 1MHz w zupełności wystarcza)
'Deklaracja portów od wyświetlacza LCD
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 20 * 2 'ustawiamy typ wyświetlacza (soft jest dostosowany do pracy z wyświetlaczem 2x20, przy pracy z innym wyświetlaczem trzeba będzie skorygować wyświetlanie znaków)
'ustawiamy typ wyświetlacza (soft jest dostosowany do pracy z wyświetlaczem 2x20, przy pracy z innym wyświetlaczem trzeba będzie skorygować wyświetlanie znaków)
'*************************************WAŻNE**********************************************
'Pamiętać o podłączeniu rezystora podciągającego o wartości 4.7kohm między linią DQ a VCC
Config 1wire = Portd.5 'deklaracja portu na którym będą podpięte DS18b20
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'konfiguracja wewnętrznego
'przetwornika A/C
Config Portd.0 = Output
Dim I1 As Integer , Ss As String * 6
Dim Dsid1(8) As Byte
Dim B As Byte 'deklaracja zmiennej do odczytu kodów ID
Dim W As Byte 'deklaracja zmiennej do odczytu ilośc czujników
Dim Wart_ac As Word
Dim Wart_ac2 As Word 'zmienna na wartość odczytaną
'z przetwornika
Dim V As Single
Dim A As Single 'zmienna przechowująca obliczoną
'wartość zmierzonego napięcia
Dim Wart_nap As String * 4
Dim Wart_p As String * 4 'zmienna, do której wpisywana
'zostaje przetworzona wartość
'zmiennej V na tekst
Deflcdchar 0 , 8 , 20 , 11 , 4 , 4 , 4 , 3 , 32 'znak stopnia Celsjusza
Deflcdchar 7 , 4 , 10 , 10 , 14 , 14 , 31 , 31 , 14 'ZNAK TERMOMETRA
Deflcdchar 1 , 32 , 32 , 2 , 20 , 14 , 5 , 8 , 32 'znak wiatraka
Cursor Off 'Wyłącza kursor
Waitms 100
W = 1wirecount()
Cls
'Znajdź pierwszy czujnik podpięty do portu
Dsid1(1) = 1wsearchfirst() 'Znajdź kolejny czujnik podpięty do portu
'*******************Odczyt numerów ID czujników temperatury*********************
If Dsid1(8) = Crc8(dsid1(1) , 7) Then 'ta opcja pojawia się tylko przy włączaniu urządzenia
For B = 1 To 8
Next
End If
Cls
'*******************koniec odczytu ID czujników temperatury*********************
Do
'--------konwersja temp dla wszystkich dsow
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 50
1wreset
1wwrite &H55 2
1wverify Dsid1(1) 'wysyłamy adres pierwszego czujnika
1wwrite &HBE
I1 = 1wread(2)
'---------------------------------
'****Jeśli pracujesz z wyświetlaczem innym niż 2x20 to tutaj trzeba wprowadzić zmiany w LOCATE********
I1 = I1 * 10
I1 = I1 / 16
If I1 > 0 Then 'korekta przesuniecia znaku st C przy przejściu z temp ujemnej na dodatnią
Ss = Str(i1)
Ss = Format(ss , " 0.0")
Locate 2 , 2 'Pozycja wyświetlania nazwy i temperatury (1.1 -> 1 linia 1 kolumna, 2.10 -> 2 linia 10 kolumna itd)
Lcd "Temp =" ; Ss ; Chr(0) ;
Else
Ss = Str(i1)
Ss = Format(ss , " 0.0")
Locate 2 , 2 'Pozycja wyświetlania nazwy i temperatury (1.1 -> 1 linia 1 kolumna, 2.10 -> 2 linia 10 kolumna itd)
Lcd "Temp =" ; Ss ; Chr(0) ;
End If
If I1 > 45 Then
Portd.0 = 0
Locate 2 , 19
Lcd Chr(1)
End If
Start Adc 'uruchamia wbudowany przetwornik
'początek pętli programu
Wart_ac = Getadc(1) 'odczytanie wartości z wejścia
'ADC1 mikrokontrolera
V = Wart_ac * 0.0049 'zamiana odczytanej wartości
'z A/C na napięci 'Wart_ac * ok. 4,8 mV
V = V * 4.8
V = V * 2
Wart_nap = Fusing(v , "#.&&") 'formatowanie wartości zmiennej
'V do do formatu x.xx i zamiana
'tej wartości na postać tekstową
Locate 1 , 2 'Pozycja wyświetlania nazwy i temperatury (1.1 -> 1 linia 1 kolumna, 2.10 -> 2 linia 10 kolumna itd)
Lcd ; Wart_nap ; "V"
Wart_ac2 = Getadc(2) 'odczytanie wartości z wejścia
'ADC1 mikrokontrolera
A = Wart_ac2 * 0.0049 'zamiana odczytanej wartości
'z A/C na napięcie
'Wart_ac * ok. 4,8 mV
A = A * 4.8
A = A * 2
Wart_p = Fusing(a , "#.&&") 'formatowanie wartości zmiennej
'V do do formatu x.xx i zamiana
'tej wartości na postać tekstową
Locate 1 , 10 'Pozycja wyświetlania nazwy i temperatury (1.1 -> 1 linia 1 kolumna, 2.10 -> 2 linia 10 kolumna itd)
Lcd ; Wart_p ; "A"
Loop
End