Napisałem programik do wagi, obsługuje przetwornik ac w AtMega8 :
Program ładnie działa, mam tylko pytanko czy muszę jeszcze coś dopisać oby przeliczyć wartość na kilogramy, czy wystarczy to co jest??
A drugi problem to nie wiem czy programowy, mam problem z czułością ważenia od 0.3kg ładnie działa ale poniżej jest już znacznie gorzej.
Z góry bardzo dziękuje za pomoc
Poprawiłem tytuł, dodałem znaczniki [code].
[zumek]
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.4 , Rs = Portd.5
Dim I As Byte
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'ustawianie przetwornika AC
'Config Timer0 = Timer , Prescale = 64 'ustawienie licznika dla przerwań co 2ms
'Enable Interrupts 'odblokowanie przerwań
'Enable Timer0 'odblokowanie przerwania od Timer0
'On Timer0 Petla Nosave 'po przepełnieniu licznika skocz do etykiety o nazwie Petla
'************************* deklaracja zmiennych ****************************
Dim Wart_ac As Word 'zmienne konwersji pomiaru
Dim V As Single 'zmienne konwersji pomiaru
Dim Wart_nap As String * 3 'zmienne konwersji wyświetlania
'zmienne konwersji wyświetlania
'zmienna licznika wyświetlacza LED
'Dim Flaga As Bit
Start Adc 'start przetwornika A/C
Do
Wart_ac = Getadc(1)
Cls
Lcd Wart_ac
Lowerline
V = Wart_ac * 0.0049
Wart_nap = Fusing(v , "#.&&")
Lcd "Waga= "
Lcd Wart_nap
Lcd "kg "
Waitms 1000
Loop
End
'koniec programu
Program ładnie działa, mam tylko pytanko czy muszę jeszcze coś dopisać oby przeliczyć wartość na kilogramy, czy wystarczy to co jest??
A drugi problem to nie wiem czy programowy, mam problem z czułością ważenia od 0.3kg ładnie działa ale poniżej jest już znacznie gorzej.
Z góry bardzo dziękuje za pomoc
Poprawiłem tytuł, dodałem znaczniki [code].
[zumek]
