Gast
#2249151
Hallo Jungs! Mein Name ist Sven und eigentlich beschäftige ich mich mit anderen Dingen. Ich bin eher in der Mechanik zu Hause. Ich arbeite sehr viel im CAD(Catia, Solidworks), beschäftige mich mit der Konstriktion von Werkzeugmaschinen usw. Jetzt habe ich den schritt gewagt und mir eine Mindestausstattung für die Atmegas gekauft, sowie mir die Testversion von Bascom installiert. Ich hab gestern eine Platine für mein LCD gelötet und auch eine kleine LED-Platine. 5 stunden später war auch schon ein kleines Programm für eine einfache Anzeige fertig. Das sieht so aus: $regfile = "M8def.dat" $crystal = 1000000 $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 Cursor Off Cls Waitms 20 Config Adc = Single , Prescaler = Auto , Reference = Avcc Config Portc.0 = Input Config Portc.1 = Input Config Portb.0 = Output Dim Analogwandler As Integer Dim Otemp As Single Dim Atemperatur As Single Locate 1 , 1 Lcd "Oeltemp " Locate 2 , 1 Lcd "Abgastemp. " Do Analogwandler = Getadc(0) otemp = Analogwandler * 15 otemp = otemp / 100 Locate 1 , 12 Lcd Fusing(otemp , "##.#") Waitms 100 Analogwandler = Getadc(1) Atemperatur = Analogwandler Locate 2 , 12 Lcd Fusing(Atemperatur , "##.#") Waitms 100 If Analogwandler < 900 Then Portb.0 = 0 Else Sound Portb.0 , 500 , 100 End If Loop End Es funktioniert auch recht gut...aber jetzt komm ich nicht weiter. Die Bascom-Hilfe hat so viel zu bieten...aber ich hab nach 2 Stunden trotzdem nix erreicht. Ich würde gerne noch 2 Analogwerte aufnehmen...und die eben auch ausgeben. Bis hier hin noch kein Problem. Aber wie bitte wechsel ich mit zB einem Tastimpuls die LCD-Ausgabe. Ich würde es Quasi gern per Taster switchen. Bitte erschlagt mich nicht....ich bin da erst seit gut 2 Tagen dran und hatte nie etwas mit Mikrokontrollern zu tun...will aber besser werden. Gruß Sven