[VB6] Teller starten als com poort hoog is

[Verwijderd]

ik heb de volgende code gemaakt:

code:

Dim DSRold, Teller1
Private Sub Form_Load()
 i = OPENCOM("COM1,1200,N,8,1")
 If i = 0 Then MsgBox ("Geen COM-poort beschikbaar")
 RTS 0
 Teller1 = 10
 Timer1.Interval = 1000
End Sub

Private Sub Form_Unload(Cancel As Integer)
  CLOSECOM
End Sub

Private Sub Timer1_Timer()
  Teller1 = Teller1 - 1
  Label1.Caption = Str$(Teller1)

  If Teller1 = 0 Then RTS 1
  If Teller1 = 0 Then Teller1 = 1
  End Sub

Deze telt dus terug van 10 naar 0, en als hij op 0 staat wordt "Ready to Send" op de com-poort hoog.
Dus, het ledje gaat branden wanneer de teller op 0 staat.

Nu moet ik alleen nog even de teller laten starten wanneer een pin een hoog signaal krijgt.
Ik zou bijv. TXD altijd "hoog" kunnen zetten om zo aan +5v te komen en RD kunnen gebruiken om het signaal in te lezen.

Weet iemand hoe ik dit kan oplossen, want ik kom steeds weer vast te zitten...

[joca]

Misschien snap ik je vraag niet goed, maar ik denk dat je je teller wil laten starten als je data op je commpoort krijgt, toch?

Je kan dan toch met het mscomm object je teller later starten op het oncomm event?

[Verwijderd]

Jep.
Het moet een soort "alarm installatie" worden.
Komt er een hoog signaal in de com poort, dan moet de teller gaan terug lopen naar 0.
Je hebt dus 10 seconden om het alarm te de-activeren.
Nadat de 10 seconden verstreken zijn gaat het lampje branden.

Nu alleen het probleem.... Ik heb nauwlijks gewerkt met VB
Ik heb een aantal tutorials gelezen om deze code te kunnen maken
Zou je misschien een voorbeeldje kunnen geven???

Alvast bedankt !

[joca]

Ik heb ook niet echt veel VB ervaring, maar als je het MSComm object gebruikt dan heb je het oncomm event wat optreedt als er data binnenkomt.

Je moet dit component wel eerst even toevoegen, dit doe je bij components, Microsoft Comm control 6.0

Je kan met dit object ook eenvoudig je commpoort openen en sluiten.