Gast
#64722
Hallo Mikrocontroller Freunde
Ich möchte über die Serielle Schnittstelle eine double Variable z.B
13.432 an mein VBA-Programm am meinem PC senden und dort anzeigen
lassen.
Das senden von Ganzzahlen wie 15, 16 ,255 ist kein Problem
Mein Problem: Warscheinlich liegt es an der Typumwandlung
Ich würde mich freuen wenn jemand eine Lösung für mich hat
Mit freundlichen Grüßen
Christian Hölscher
Mein Quellcode in C
void main(void)
{
unsigned int x;
double Variable_1 = 12.23;
PCON = 0x80;
TMOD = 0x22;
TH1 = 250;
TL1 = 250;
TMOD = 0x22;
TR1 = 1;
SCON = 0x52;
ET1 = 0;
while(1)
{
SBUF = Variable_1;
for(x=0;x<=1000;x++);
}
}
Mein Quellcode in VBA:
Sub form_load()
MSComm1.RThreshold = 8 '3 Variablen einlesen
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End Sub
Private Sub Serielle_auswerten_1()
Dim Wert1 As double
Dim Ergebnis As double
sdata = MSComm1.Input ' Get Data (2 Bytes = 1 Wort)
'Wert1 = Asc(Mid$(sdata, 1, 2)) Kommentar so lese ich char
Me.txtwert1.Text = sdata Hier müste der Fehler liegen!!!
End Sub