اقتباس:
المشاركة الأصلية كتبت بواسطة طلالي الحربي
ماشاالله
كان بالود اجربه بس لي فترة متكاسل اشغل الكمبيوتر
لو ترسلي السورس ابحوله الى استعلام اون لاين
افضل من تنزيل وكمبيوتر
كثير مايستخدمون غير الجوالات والتابلت
واهنيك علئ الفكرة
|
تفضل السورس كامل
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsLetter(e.KeyChar) Then e.Handled = True
Dim _allowedCharacters As String = ("?:.;-_=+<*&^%$##@؟!ّ")
If _allowedCharacters.Contains(e.KeyChar) AndAlso e.KeyChar <> ChrW(Keys.Back) Then
e.Handled = True
End If
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'كبير -------- صغير
If Val(TextBox1.Text) >= 143410001 And Val(TextBox1.Text) <= 243410297 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "11" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الاحد" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 243410298 And Val(TextBox1.Text) <= 343410595 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "12" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الاثنين" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 343410596 And Val(TextBox1.Text) <= 443411123 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "13" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الثلاثاء" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443411124 And Val(TextBox1.Text) <= 443412249 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "14" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الاربعاء" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443412250 And Val(TextBox1.Text) <= 443413330 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "15" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الخميس" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443413332 And Val(TextBox1.Text) <= 443414110 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "18" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الاحد" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443414111 And Val(TextBox1.Text) <= 443414876 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "19" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الاثنين" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443414877 And Val(TextBox1.Text) <= 443415652 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "20" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الثلاثاء" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443415653 And Val(TextBox1.Text) <= 443416448 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "21" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الاربعاء" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443416449 And Val(TextBox1.Text) <= 443417251 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "22" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الخميس" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443417252 And Val(TextBox1.Text) <= 443418025 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "25" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الاحد" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443418026 And Val(TextBox1.Text) <= 443418816 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "26" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الاثنين" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443418817 And Val(TextBox1.Text) <= 443419593 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "27" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الثلاثاء" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443419594 And Val(TextBox1.Text) <= 443420357 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "28" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الاربعاء" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443420358 And Val(TextBox1.Text) <= 443421149 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "29" ' يوم
Label9.Text = "10" ' شهر
Label13.Text = "الخميس" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443421150 And Val(TextBox1.Text) <= 443421910 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "02" ' يوم
Label9.Text = "11" ' شهر
Label13.Text = "الاحد" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443421911 And Val(TextBox1.Text) <= 443422672 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "03" ' يوم
Label9.Text = "11" ' شهر
Label13.Text = "الاثنين" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443422673 And Val(TextBox1.Text) <= 443423445 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "04" ' يوم
Label9.Text = "11" ' شهر
Label13.Text = "الثلاثاء" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443423446 And Val(TextBox1.Text) <= 443424207 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "05" ' يوم
Label9.Text = "11" ' شهر
Label13.Text = "الاربعاء" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443424208 And Val(TextBox1.Text) <= 443424972 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "06" ' يوم
Label9.Text = "11" ' شهر
Label13.Text = "الخميس" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443424973 And Val(TextBox1.Text) <= 443425737 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "09" ' يوم
Label9.Text = "11" ' شهر
Label13.Text = "الاحد" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443425738 And Val(TextBox1.Text) <= 443426511 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "10" ' يوم
Label9.Text = "11" ' شهر
Label13.Text = "الاثنين" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443426512 And Val(TextBox1.Text) <= 443427270 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "11" ' يوم
Label9.Text = "11" ' شهر
Label13.Text = "الثلاثاء" ' يوافق يوم
End If
'--------------------
If Val(TextBox1.Text) >= 443427271 And Val(TextBox1.Text) <= 443427883 Then
Panel1.Visible = False
Panel2.Visible = True
Label6.Text = TextBox1.Text
Label8.Text = "12" ' يوم
Label9.Text = "11" ' شهر
Label13.Text = "الاربعاء" ' يوافق يوم
End If
End Sub
Private Sub Label6_Click(sender As System.Object, e As System.EventArgs) Handles Label6.Click
End Sub
Private Sub Label8_Click(sender As System.Object, e As System.EventArgs) Handles Label8.Click
End Sub
Private Sub Panel2_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel2.Paint
End Sub
End Class