
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
> Hi, es geht doch ganz einfach mit dem "Microsoft Comm Control 5.0" Steuerelement! .... > OPEN "COM1:" as #7 > INPUT #7, i > oder so war doch die Syntax? (Zuletzt vor 10 Jahren gemacht, sorry, wenn's nicht stimmt). vor 9 Jahren wars aber dann schon komplexer: --VB5-- Private Sub Form_Load() With MSComm1 .CommPort = 1 .PortOpen = True .Settings = "9600,N,8,1" .InputLen = 0 .RThreshold = 1 End With ...... End Sub Private Sub Form_Unload(Cancel As Integer) MSComm1.PortOpen = False End Sub ...... '================ 'Relais schalten '================ Private Sub K1_Click(Index As Integer) MSComm1.Output = Chr(101) 'sendet byte an cc ......... End Sub ...... Private Sub MSComm1_OnComm() If MSComm1.CommEvent = comEvReceive Then tix = Timer Do While Timer < (tix + 0.1) instring = MSComm1.Input 'empfangen (puffer auslesen) outstring = outstring & instring Text1.Text = outstring Loop End If outstring = "" End Sub isse nix probleme! gruß christoph |
| Antwort schreiben |