Für dieses Forum muß Javascript im Browser aktiviert werden!
Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C2 Quellcode formatieren: <code>Quellcode</code> ASM Quellcode formatieren: <asm>Quellcode</asm> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! > Hallo Bert, > > > Ich versuch gerade folgendes: > > > > <code> > > byte sbuf[2]; > > > > sbuf[1]=32450; > > hwcom.send(sbuf,2); > > </code> > > ... > > Dieses Versuche ich mit VB zu empfangen. Klappt mit Byte-Variablen prima. > > Nur wenn ich integer-Variablen (oder long) senden möchte kann ich diese in VB nicht auswerten. > > > > Dieses als String zu senden währe möglich, macht aber viel Arbeit alles wieder zu ändern. > > Dies kann natürlich niche gehen, da Du versuchst einer Bytevariabel einen Integerwert zu zu weisen. > Das Endet in einer "AND 0xFF"-Verknüpung. > Du kannst, wie schon genannt, die Zahl als String senden. > Nachteile: > - Es werden unnötig viele Datenbytes über die RS232 übertragen. > - Es muß ein Anschlußzeichen gesendet werden, da der String keine feste Länge hat. > Vorteil: > - die Auswertung in VB ist relativ einfach. > > Aber, warum verwendest Du nicht einfach die Funktionen in hwcom.c2, zum Senden von > Longwerte als 4Byte-Datenpaket ? hwcom.putling(); > Du brauchst dann nur<code> > hwcom.putlong(wert);</code> > schreiben, und der Wert wird als vier Bytes mit MSB-First gesendet. > Der Vorteil ist hier, daß immer nur 4 Bytes übertragen werden. > Somit hast Du alle Vorteile eines festen Formats. > > In VB kannst Du dies dann sehr einfach wieder zusammensetzten: > <font face="Courier New" size=2> > Function getlong () > inputlenold = MSCcomm1.Inputlen > MSCcomm1.Inputlen = 1 > Wert = 0 > For i = 0 To 3 > Wert = (Wert * 256) + ASC(MSComm1.Input) > Next i > MSCcomm1.Inputlen = inputlenold > getlong = Wert > End Function > </font> > > MfG André H.