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