title image


Smiley Re: "Serieller Port" - dtr und rts auf high setzen
'Meine LED blinkt schon, ich hab´s so gemacht

'die LED hab ich auf Pin 4grün (DTR=Plus) und Pin 5weiss (GND) angeschlossen.

'vorher unter Projekt/Komponenten die "Microsoft Comm Control 5.0" aktivieren (=Mscomm32.ocx)



'Benötigt Timer1 und MSComm1

Private Sub Form_Load()



MSComm1.CommPort = 2

MSComm1.Settings = "9600,N,8,1"

MSComm1.PortOpen = True

Timer1.Interval = 777



End Sub

Private Sub Timer1_Timer()

Beep

a = MSComm1.DTREnable

'Mscomm1.RTSEnable = Not a

MSComm1.DTREnable = Not a

Caption = a



End Sub
 Die von mir vorgeschlagenen Lösungen wurden unter VB6 getestet (Betriebssystem: Windows 98 SE)
Meine Microsite


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: