ATMega 8 Ausgabe Problem von Programm

[Simon R. (simon_r44)]

Hallo,

Ich programmiere gerade mit Bascom  kleinere Programme was auch bisher 
gut funktioniert. Bei "größeren" wird es dann für mich schon etwas 
schwieriger.

Das untenstehende Programm stellt ein Spannungsmesser dar, der von den 
Ports PC0 nach einer Zeit zu PC1 geht und jeweils an den Ports die 
Spannnungen misst, diese dann auch am LCD ausgibt (2 Digits)

Das funktioniert soweit auch.

Nun wollte ich zum Test, das wenn die Spannung z.B. bei Volt_2 "0.0" 
oder "0.00" ist, das Portb.0 eine LED einschaltet. Das funktioniert 
nicht.

Ich hab schon ein paar mal damit rumgespielt, nichts führte zum Erfolg.

Eigentlich wollte ich, das wenn Volt_2 über z.B. "5.0" ist, dass dann 
die LED leuchet für eine unbegrentzte Zeit.

Für den ein oder anderen mag der Code unübersichtlich sein:

$regfile = "m8adef.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 100
$framesize = 100


Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
   Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Config Single = Scientific , Digits = 2

Led1 Alias Portb.0
Config Led1 = Output

Cursor Off

Const Adc_multi = 0.0048828125                             
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim Messergebnis_1 As Word
Dim Volt_1 As Single
Dim Messergebnis_2 As Word
Dim Volt_2 As Single


Declare Sub Init
Declare Sub Text

Call Init
Wait 1

'
'************** HAUPTPROGRAMM *********************************************
'

Do

  Debounce Pind.0 , 1 , Taster1 , Sub

    Messergebnis_1 = Getadc(0)
    Volt_1 = Messergebnis_1 * Adc_multi


  Cls

  Locate 2 , 10
  Lcd Volt_1 ; " V"
  Locate 2 , 1
  Lcd "Batterie"

  Waitms 5


    Messergebnis_2 = Getadc(1)
    Volt_2 = Messergebnis_2 * Adc_multi

  Locate 1 , 10
  Lcd Volt_2 ; " V"
  Locate 1 , 1
  Lcd "Akku"

  Wait 1

Loop



Do

If Volt_2 = 0.00 Then
   Portb.0 = 1

  Wait 20
  End If

Loop


'***************************************************************************

Taster1:
    Call Text
Return

'***************************************************************************

Sub Init

 Cursor Off
 Cls
 Locate 1 , 5 : Lcd "Spannung"
 Locate 2 , 5 : Lcd " Messen "
 Wait 5
 Cls

End Sub


Sub Text

 Cls
 Locate 1 , 1
 Lcd "Testprogramm"
 Locate 2 , 1
 Lcd "Voltmeter"
 Wait 5

End Sub


End

[STK500-Besitzer (Gast)]

schmeiss das "loop" und "do" zwischen den anderen beiden raus.

[Frank G. (frank_g53)]

Ich kann dir nicht sagen wo das Problem liegt.
Aber da ja ein LCD vorhanden ist, würde ich einfach nach jedem wichtigen 
Programmschritt eine Ausgabe auf das Display geben: 
Variableninhalt,jetzt wird Programmschritt xyz ausgeführt,.....
Dann kommst du bestimmt auf den bug.

[Simon R. (simon_r44)]

STK500-Besitzer schrieb:
> schmeiss das "loop" und "do" zwischen den anderen beiden raus.

Danke, funktioniert.

Das hatte ich anfangs auch so gemacht, hat aber nie funktioniert.

Ich weiss auch warum, weil ich blöderweisse imer Volt_1 auf 0V gebracht 
habe anstatt Volt_2

[Simon R. (simon_r44)]

Dann hätte ich nochmal eine Frage, wenn im Programm steht

...

If Volt_2 = 4.00 Then
   Portb.0 = 1

  Wait 20
  End If

Loop

...

Wie kann ich dann dem Programm sagen, das Portb.0 erst 1 sein soll, wenn 
der Wert über 4.00 ist?

Das gleiche dann mit unter z.B. 4.00?


Ich konnte mit über und unter nichts im Netz finden.

[Samuel C. (dragonsam)]

Dann solltest du mal grundsätzlich programmieren lernen (sieht man auch 
am restlichen Code) und nicht nur c&p.

Gleich:              =
Größer:              >
Größer oder Gleich:  >=
Kleiner:             <
Kleiner oder Gleich: <=

Hier noch ein kleiner Kurs. Mach ihn komplett durch, dann dürfte dein 
Code schon besser aussehen.
http://halvar.at/elektronik/kleiner_bascom_avr_kurs

PS: 4.00 wirst du sowieso nie genau treffen.