Guten morgen holzi,
Der Bascom Code zum obrigen Beispiel sieht so aus.
Code:
$regfile = "m8def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 30
$framesize = 60
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
Ddrb = &B00000001 'Led Ausgang
Dim Messvolt As Word
Dim Volt As Single
Dim Volt_a As String * 10 'Dieser wert soll in VB angezeigt werden
Const Faktor = 0.0048828125
Do
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Messvolt = Getadc(0)
Volt = Messvolt * Faktor
Volt_a = Fusing(volt , "#.#")
If Len(volt_a) = 3 Then
Volt_a = " " + Volt_a + "V"
Else
Volt_a = Volt_a + "V"
End If
Locate 1 , 1
Lcd Volt_a
Waitms 250
Loop
End
Mit VB habe ich zwar schon einmal visualisiert, das war aber zum einen eine SPS welche ich über ein Steuerelement eines OPC-Servers agesprochen habe. Deshalb habe ich auch kein schimmer wie das in VB Funktionieren könnte.
gruß Cali
Lesezeichen