  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Hallo Markus, ich habe das Problem etwas anders gelöst. Da ich Meßwerte ursprünglich über HyperTerminal ausgelesen habe arbeite ich in meinem C-Control Programm mit dem Befehl "Print". In einem EXCEL-Makro habe ich dann die empfangenen Zeichen zu einer Textvariablen zusammengesetzt deren Wert ich anschließend mit der EXCEL-Funktion Wert in Zahlen zurückverwandelt habe. Inzwischen habe ich aber ein VBA-Programm das mir die empfangenen Daten direkt in eine ACCESS-Tabelle einträgt. Ich denke das EXCEL-Modell habe ich noch Zuhause. Falls Du Interesse daran hast melde Dich. Gruß Dietmar > Hallo C-Controler > > Ich möchte Messdaten, die als Wordvariable im C-control gespeichert sind in Excel einlese! > Gibt es eine Funktion wie z.B. "Readword"???? > Mit "Readstring" habe ich scho experimentiert! > > Wer kann mir einen Tip geben, ich komme nicht weiter. > > > Danke für die Hilfe > Markus > > Ich benutze dieses Vb-Programm : > > 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:c").Select > Selection.ClearContents > Range("A2").Select > TIMEOUT 1000 > SENDBYTE 27 > zeile = 3 > Do > e1 = READBYTE > e2 = READBYTE > If e1 >= 0 And e2 >= 0 Then > Cells(zeile, 1).Value = e1 > Cells(zeile, 2).Value = e2 > Cells(1, 5).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 > > > > > > > |
| Antwort schreiben |