Sommer
14.02.2005, 21:39
Hallo Leute,
Private Sub Timer4_Timer()
'Kanal 1 Meldung
'-----------------------------------
If MSComm1.PortOpen = True Then
If mnuUnter1.Checked = True Then
If Text16.Text >= Alarm1 Then
Beep
End If
End If
End If
'------------------------------------
If MSComm1.PortOpen = True Then
If mnuÜber1.Checked = True Then
If Text16.Text <= Alarm1 - 1 Then
Beep
End If
End If
End If
die Schleife Beep immer je nach dem ob der Wert überschritten ist oder unterschritten wird im Menü ausgewählt.
Jetzt will ich aber ein Fenster öffnen und das natürlich nur einmal :-)
aber er sitzt im Timer fest und es geht auch nicht mit for next ?
zumindestens bei mir nicht.
Wie kann ich es nun anstellen das mein form... aufgeht und dort einen Befehl ausführt?
Jetzt macht er das ja bei jeden timer durchlauf.
Natürlcih soll er weiter beep machen :-)
Danke für eure Hilfe.
by Ulli
Private Sub Timer4_Timer()
'Kanal 1 Meldung
'-----------------------------------
If MSComm1.PortOpen = True Then
If mnuUnter1.Checked = True Then
If Text16.Text >= Alarm1 Then
Beep
End If
End If
End If
'------------------------------------
If MSComm1.PortOpen = True Then
If mnuÜber1.Checked = True Then
If Text16.Text <= Alarm1 - 1 Then
Beep
End If
End If
End If
die Schleife Beep immer je nach dem ob der Wert überschritten ist oder unterschritten wird im Menü ausgewählt.
Jetzt will ich aber ein Fenster öffnen und das natürlich nur einmal :-)
aber er sitzt im Timer fest und es geht auch nicht mit for next ?
zumindestens bei mir nicht.
Wie kann ich es nun anstellen das mein form... aufgeht und dort einen Befehl ausführt?
Jetzt macht er das ja bei jeden timer durchlauf.
Natürlcih soll er weiter beep machen :-)
Danke für eure Hilfe.
by Ulli