هذا تغيير احسن فى الكود

من طرف **Admin** الأربعاء فبراير 03, 2010 2:17 am

هذا تغيير احسن فى الكود
ستجعل برنامجك ذاكر لله
استغفر الله - سبحان الله - الحمد لله - لا اله الا الله - الله اكبر - لا حول ولا قوة الا بالله

الرمز PHP:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If Label1.Text = "" Then
Label1.Text = ("استغفر الله")
ElseIf Label1.Text = ("استغفر الله") Then
Label1.Text = ("سبحان الله")
ElseIf Label1.Text = ("سبحان الله") Then
Label1.Text = ("الحمد لله")
ElseIf Label1.Text = ("الحمد لله") Then
Label1.Text = ("لا اله الا الله")
ElseIf Label1.Text = ("لا اله الا الله") Then
Label1.Text = ("الله اكبر")
ElseIf Label1.Text = ("الله اكبر") Then
Label1.Text = ("لا حول ولا قوة الا بالله")

ElseIf Label1.Text = ("لا حول ولا قوة الا بالله") Then
Label1.Text = ""
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'لجعل التكست على الليبل فارغ بفتح البرنامج

Label1.Text = ""

'لجعل التايمر متاح والثوانى 180 ثانية---3 دقائق
Timer1.Interval = 180000
Timer1.Enabled = True
End Sub

__________________