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 C-Control II - Gemeinde, > in dem Buch MSR mit Excel und Word wird beschrieben wie mit der C-Control I Daten > mit dem „print“ Befehl in einer Exceltabelle übertragen werden. Das Gleiche versuche ich > mit der C – Control II mit dem Befehl „hwcom.send(,str.length(s)); . Die Übertragung zum > HyperTerminal funktioniert aber nicht die Übertragung in einer Exceltabelle. Das Einsetzen > der „port.dll“ habe ich versucht aber leider ohne Erfolg. Auch das mehrmalige Öffnen der > COM 1 Schnittstelle blieb ohne Erfolg. > Kann mir jemand weiter helfen?? > > Gruß Ulli K. > C2 Programm > int d,e; > string s; > > thread main > { > hwcom.init(); > hwcom.setspeed(hwcom.SPEED_9600); > d = ports.adc(5); > str.putint(s,d); > wait hwcom.rxd(); > sleep 1000; > hwcom.send(s,str.length(s)); > sleep 200; > hwcom.put(345); > sleep 200; > } > Visual Basic Programm in einer Exceltabelle: > > Declare Sub OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$) > Declare Function READBYTE Lib "RSAPI.DLL" () As Integer > Declare Sub TIMEOUT Lib "RSAPI.DLL" (ByVal ms%) > Declare Sub CLOSECOM Lib "RSAPI.DLL" () > Declare Sub SENDBYTE Lib "RSAPI.DLL" (ByVal B%) > Declare Sub DELAY Lib "RSAPI.DLL" (ByVal ms%) > > Sub c_control() > OPENCOM "COM1:9600,N,8,1" > ThisWorkbook.Sheets("Tabelle1").Activate > Columns("A:B").Select > Selection.ClearContents > Range("A1").Select > TIMEOUT 1000 > SENDBYTE 27 > Zeile = 1 > Do > e1 = READBYTE > e2 = READBYTE > If e1 >= 0 And e2 >= 0 Then > Cells(Zeile, 1).Value = e1 > Cells(Zeile, 2).Value = e2 > Cells(1, 3).Value = Zeile > Zeile = Zeile + 1 > End If > Loop Until (e1 < 0 Or e2 < 0) > CLOSECOM > Calculate > MsgBox Str(Zeile - 1) + " Meßwerte gelesen" > End Sub

Dateianhang: (.gif, .png., .jpg, .zip, .rar)

max. 256kB

max. 256kB