Teraz chciał bym zrobić woltomierz na przetworniku 12bitowym MAX187, który dostałem jako próbkę z maximusa .
Wspomniany przetwornik komunikuje się z kontrolerem poprzez interfejs ISP
znalazłem w necie na ATmega8, twórca szukał również porady bo program nie działał prawidłowo.
Poprawiony kod źródłowy dla zaadoptowania go do 89S52
Kod: Zaznacz cały
Config Lcd = 16 * 2
Config Spi = Soft , Din = P2.4 , Dout = P2.3 , Clk = P2.5 , Cs = P2.2
Dim Wart_ac As Word
Dim V As Single
Dim Wart_nap As String * 6
Spiinit
Do
Reset P2.2
Delay
Set P2.5
Delay
Reset P2.5
Delay
Spiin Wart_ac , 2
Set P2.2
Cls
Lcd Wart_ac
Lowerline
V = Wart_ac * 0.001
Wart_nap = Fusing(v , "#.&&&&")
Lcd Wart_nap
Waitms 100
Loop
Endpozdrawiam
