(05/02/2020, 12:50)accessman yazdı: [ -> ]bu son mesajı niye böyle yazdı acaba site de hata mı var
Sitede hata yok, siz ne yazdıysanız onu gösterir. Yazılan kodda, biri bitmeden diğeri başlamaz. Excelden veri al kodu eklediyseniz o kod çalışır, sonra diğer koda geçer. Konuda 7. sayfaya gelindi hala hangi kodun bekleyeceğine dair bir örneğiniz yok.
Dim bitti As Boolean
Private Sub CloseBtn_Click()
Dim bittimi As Boolean
bittimi = first
End Sub
Private Sub Komut381_Click()
WasteTime
End Sub
Function first() As Boolean
bitti = False
Dim i, ii, iii As Integer
For i = 1 To 100
For ii = 1 To 10
For iii = 1 To 10
DoEvents
Next
Next
Next
bitti = True
End Function
Sub WasteTime()
Do
DoEvents
Loop Until bitti = True
MsgBox "merhaba"
End Sub
bu kodlarda CloseBtn_Click ile döngü başlatılıyor
Komut381_Click ile mesaj çağırılıyor
mesaj çıkmadan önce sürekli
bitti = true
kontrol etmesini istiyorum
(05/02/2020, 15:19)accessman yazdı: [ -> ]Dim bitti As Boolean
Private Sub CloseBtn_Click()
Dim bittimi As Boolean
bittimi = first
End Sub
Private Sub Komut381_Click()
WasteTime
End Sub
Function first() As Boolean
bitti = False
Dim i, ii, iii As Integer
For i = 1 To 100
For ii = 1 To 10
For iii = 1 To 10
DoEvents
Next
Next
Next
bitti = True
End Function
Sub WasteTime()
Do
DoEvents
Loop Until bitti = True
MsgBox "merhaba"
End Sub
Hani döngü yoktu sorgu vardı!!!!!
Sayın @
accessman, örnek uygulamanızı ekleyin. "şu işlemi yapınca şu kodu beklemeden şu koda geçiyor" şeklinde ayrıntılı açıklama yazın. İnceleyip çözüm bulmaya çalışalım. Yoksa boolean, for next, hepsi farazi kalacak.