| Ich nutze: C-Control II Unit, CC2-Application-Board, original OS |
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
Antwort schreiben
Antworten:
Re: Excel (von André H. - 13.03.2004 12:03)