Witam!
Chciałem zrobić sobie wskaźnik wysterowania od 0 do 1V. Jak na razie próbuję napisać kod żeby mierzył od 0 do 5V.
Kod wygląda tak:(sugerowałem się problemami użytkowników)
Używam do tego bargrafa dwukolorowego, lecz na razie pomińmy drugi kolor. Wiem, że w kodzie się opisałem za dużo jak na 2 kolor ale później mam zamiar to wykorzystać. No i oczywiście nie zaświeca słupka tak jak powinien. Ale mniejsza o to. Chodzi mi tylko żeby to działało. Proszę napisać czy poprawny kod ewentualnie czekam na poprawki
a drugi problem w tym, że nie mogę skompilować nawet tego :/
Błąd to:
unknown statement [greenj]
Dzięki za pomoc!
Chciałem zrobić sobie wskaźnik wysterowania od 0 do 1V. Jak na razie próbuję napisać kod żeby mierzył od 0 do 5V.
Kod wygląda tak:(sugerowałem się problemami użytkowników)
$regfile = "m8def.dat" ' INFORMACJA O PROCESORZE
$crystal = 1000000
Config Portd = Output
Config Portb = Output
Config Portc = Output
Dim Nap As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Portd.3 = 0
Portd.4 = 0
Portb.0 = 0
Portb.1 = 0
Portb.2 = 0
Portb.3 = 0
Portb.4 = 0
Portc.5 = 0
Portd.0 = 0
Portd.1 = 0
Portd.2 = 0
' deklaracje podprogramów
Declare Sub Greena
Declare Sub Greenb
Declare Sub Greenc
Declare Sub Greend
Declare Sub Greene
Declare Sub Greenf
Declare Sub Greeng
Declare Sub Greenh
Declare Sub Greeni
Declare Sub Grennj
Do
Nap = Getadc(0)
Select Case Nap
Case 1023 To 921:
Greena
Case 920 To 819:
Greenb
Case 818 To 717:
Greenc
Case 716 To 615:
Greend
Case 614 To 512:
Greene
Case 511 To 409:
Greenf
Case 408 To 306:
Greeng
Case 305 To 203:
Greenh
Case 202 To 100:
Greeni
Case 99 To 1:
Greenj
End Select
Loop
End
' ciała podprogramów
Greena:
Portb.0 = 1
Portd.2 = 1
Reset Portb.0
Reset Portd.2
Return
Greenb:
Portb.0 = 1
Portd.0 = 1
Reset Portb.0
Reset Portd.0
Return
Greenc:
Portb.1 = 1
Portd.2 = 1
Reset Portb.1
Reset Portd.2
Return
Greend:
Portb.1 = 1
Portd.0 = 1
Reset Portb.1
Reset Portd.0
Return
Greene:
Portb.2 = 1
Portd.1 = 1
Reset Portb.2
Reset Portd.2
Return
Greenf:
Portb.2 = 1
Portd.0 = 1
Reset Portb.2
Reset Portd.0
Return
Greeng:
Portb.3 = 1
Portd.2 = 1
Reset Portb.3
Reset Portd.2
Return
Greenh:
Portb.3 = 1
Portd.0 = 1
Reset Portb.3
Reset Portd.0
Return
Greeni:
Portb.4 = 1
Portd.2 = 1
Reset Portb.4
Reset Portd.2
Return
Greenj:
Portb.4 = 1
Portd.0 = 1
Reset Portb.4
Reset Portd.0
Return
Używam do tego bargrafa dwukolorowego, lecz na razie pomińmy drugi kolor. Wiem, że w kodzie się opisałem za dużo jak na 2 kolor ale później mam zamiar to wykorzystać. No i oczywiście nie zaświeca słupka tak jak powinien. Ale mniejsza o to. Chodzi mi tylko żeby to działało. Proszę napisać czy poprawny kod ewentualnie czekam na poprawki
a drugi problem w tym, że nie mogę skompilować nawet tego :/
Błąd to:
unknown statement [greenj]
Dzięki za pomoc!
