Gast
#406099
Hallo Leuts! Ich bin hier mal wieder am Verzweifeln ... Ich beschäftige mich noch nicht lange mit Bascom. Ich möchte eine kleine U-Meßschaltung realisieren. 2 ADC Ports auslesen, umrechnen und auf gLCD ausgeben, Spannung bis 5 Volt, Uref = 5 V. Also, das Auslesen und Umrechnen klappt schon, aber ich möchte den Wert auf dem LCD formatieren. Unter 1 Volt soll in Millivolt angezeigt werden, und zwar (absichtlich) so: ###.# mV ... ab 1 V dann ##.## V Ich verwende den Befehl "format", aber irgendwie zeigt der ständig lange Zahlen an. Mit "Fusing" fängt die Anzeige links an und wandert -je mehr Stellen vorm Komma- nach rechts, das will ich verhindern. Für einen ADC paste ich mal meinen (besch....) code, nicht lachen :) ------------------------------------- Dim Adc0 As Word Dim Vpre As Single Dim V0 As Single Dim C0index As String * 2 Config Adc = Single , Prescaler = Auto , Reference = Avcc Start Adc Vpre = 48876 / 10000000 Adc0 = Getadc(3) V0 = Adc0 * Vpre Dim V0test As String * 5 If V0 < 1 Then V0 = V0 * 1000 C0index = "mV" V0test = Str(v0) V0test = Format(v0test , " ") Else V0index = " V" V0test = Str(v0) V0test = Format(v0test , " ") End If Locate 5 , 2 Lcd C0test Locate 5 , 7 Lcd C0index ------------------------------------- Ich hab mittlerweile schon Stunden gesucht und probiert ... (die doppelte Ausführung von format im IF-Abschnitt ist noch vom Probieren drin) Wenn Lcd Fusing(...) von rechts nach links schreiben würde, wäre es glaube ich kein Problem. Für einen Rat bin ich sehr dankbar! Grüße, Robert