Private m_Run1       As Boolean
Private m_Trigger1   As Boolean
 
Private Sub cmdStart1_Click()
  m_Run1 = True
End Sub
 
 
Private Sub cmdStop1_Click()
  m_Run1 = False
End Sub
 
 
Private Sub tmrTrigger_Timer()
 
  If WasWeißIch Then
    m_Trigger1 = True
  End If
 
End Sub
 
Private Sub resetTrigger()
  m_Trigger1 = False
End Sub
 
 
Do While ???
 
  If m_Run1 And m_Trigger1 Then
    Ausgabe_COM1
  End If
 
  If B Then
    Ausgabe_COM2
  End If
 
  resetTrigger
 
Loop

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 01.03.10 um 07:56:20 editiert.