Dim x, i



Private Sub Command1_Click()
Text2.Text = "Command1_Click"
End Sub

Private Sub Command2_Click()
Text2.Text = "Command2_Click"
End Sub

Private Sub Command3_Click()
Text2.Text = "Command3_Click"
End Sub

Private Sub Command4_Click()
Text2.Text = "Command4_Click"
End Sub



Private Sub Timer1_Timer()
i = i + 1
Text1.Text = i
If i >= 10 Then
i = 0
End If

If Text1 = "10" Then

Command1_Click

ElseIf List1 = "[email protected]" Then

Command2_Click


Else



Command3_Click


End If
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxx
Bir koşulun oluşması yada oluşmaması durumuna gore yapılması gereken işlemlerin yapılmasını sağlayan komut bloğu.



If Koşul 1 Then

... ‘ Koşul1 in gercekleşmesi durumunda yapılacak olanlar

ElseIf Koşul 2 Then

... ‘ Koşul1 in gercekleşmediği Koşul2 nin gercekleştiği

... ‘ durumlarda yapınacak işlemler

Else

... ‘ Koşul1 ve Koşul2 nin gercekleşmesi durumda

... ‘ yapılacak işlemler

End If
end sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxx
BUNU YUKARDA AYNEN YAPTIM AMA 2 KOŞUL OLUŞTUGU ZAMAN GEREKLİ BUTONA BASMIYOO NERDE YANLIŞ YAPTIM BEN YANİ İSTEDİGİM ŞU SAYI 10 OLUNCA VA LİSBOXTA ornek mesutaslan yazdıgı zaman İSİ 4 cu BUTON CALISSIN BU KOŞULLARIN OLMAMASI DIŞINDA BAŞKA BUTONLAR CALISISN AMA NEDENSE OLMUYOO diyer butonlar calışıyoo ama 2 koşul olunca 4 buton calışmadı
__________________