عرض مشاركة واحدة
  #5 (permalink)  
قديم 02-08-2013, 01:11 AM
حلمي أكون ضابط حلمي أكون ضابط غير متصل
عضو متواصل
 
تاريخ التسجيل: Feb 2013
المشاركات: 41
معدل تقييم المستوى: 24
حلمي أكون ضابط يستحق التميز

اقتباس:
المشاركة الأصلية كتبت بواسطة طلالي الحربي مشاهدة المشاركة
ماشاالله

كان بالود اجربه بس لي فترة متكاسل اشغل الكمبيوتر

لو ترسلي السورس ابحوله الى استعلام اون لاين
افضل من تنزيل وكمبيوتر

كثير مايستخدمون غير الجوالات والتابلت

واهنيك علئ الفكرة
تفضل السورس كامل


كود PHP:
Public Class Form1

    
Private Sub TextBox1_KeyPress(sender As ObjectAs System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress
        
If Char.IsLetter(e.KeyCharThen e.Handled True
        Dim _allowedCharacters 
As String = ("?:.;-_=+<*&^%$##@؟!ّ")
        If 
_allowedCharacters.Contains(e.KeyCharAndAlso e.KeyChar <> ChrW(Keys.BackThen
            e
.Handled True
        End 
If
    
End Sub

    
Private Sub TextBox1_TextChanged(sender As System.ObjectAs System.EventArgsHandles TextBox1.TextChanged

    End Sub

    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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.ObjectAs System.EventArgsHandles Label6.Click

    End Sub

    
Private Sub Label8_Click(sender As System.ObjectAs System.EventArgsHandles Label8.Click

    End Sub

    
Private Sub Panel2_Paint(sender As System.ObjectAs System.Windows.Forms.PaintEventArgsHandles Panel2.Paint

    End Sub
End 
Class 
رد مع اقتباس