07-03-2005, 15:35
|
|
|
חבר מתאריך: 15.01.04
הודעות: 350
|
|
הנה חלק מהתוכנה
Private Sub send_Click()
regdelay = 1
stp = 0
For j = 1 To Cycles
If Cycles <= 9 Then
Label9.Caption = "Cycles :" & j & "/" & Cycles
Else: Label9.Caption = "Cycles :" & j
End If
For i = 1 To Len(message)
strLetter = Mid(message, i, 1)
Send_Letter
delay_1s
If stp = 1 Then delayp_r
Next i
Next j
End Sub
Private Sub delayp_r()
regdelay = 0
Do While regdelay = 0
DoEvents
Loop
End Sub
Private Sub resume2_Click()
regdelay = 1
stp = 0
End Sub
Private Sub pause1_Click()
stp = 1
End Sub
Private Sub reset_Click()
איפוס משתנים שונים
End Sub
Private Sub delay_1s()
Timer1.Interval = speeddata
regdelay = 0
Timer1.Enabled = True
Do While regdelay = 0
DoEvents
Loop
Timer1.Enabled = False
End Sub
Private Sub send_data()
regdata = regdata + lang + green
On Error Resume Next
If stp = 1 Then
פה אני רוצה להפסיק אותה >>>> delayp_r
delayp_r
Else
Out &H378, regdata
End If
End Sub
Public Sub Send_Letter()
Select Case strLetter
Case " "
send_blank
Case "A", "a"
send_A
Case "B", "b"
send_B
End Select
End Sub
Private Sub send_A()
Label7.Caption = "A"
regdata = &HF
send_data
delay_1s
regdata = &H14
send_data
delay_1s
regdata = &H14
send_data
delay_1s
regdata = &H14
send_data
delay_1s
regdata = &HF
send_data
delay_1s
regdata = 0
send_data
delay_1s
End Sub
וכן אני צריך רק לטעון את התוכנה מחדש ושלא יחזור על התהליך שהוא לא סיים אחרי זה, איך אפשר לעשות את זה .??
_____________________________________
חתימתכם הוסרה כיוון שלא עמדה בחוקי האתר. לפרטים נוספים לחצו כאן.
נערך לאחרונה ע"י aalonco בתאריך 07-03-2005 בשעה 15:40.
|