Good Bye Lua Welcome VB.net | مساعدة

[Me[Z]oO]

حل بمشكلة في لغة VB.net

  
Private Sub button1_Click(ByVal Sender As 
Dim u_nameAs String 
Dim U_B_D As Date 
Dim U_Gender As Boolean 
Dim U_C_F As Ingeger 
               u_name = TextBox1.Text 
               U_B_D = TextBox2.Text 
If RadioButton1.Checked == True  
U_Gender = True 
else 
U_Gender = False 
  
  
End 
  
  

وش الخطأ ؟

[Me[Z]oO]

[#J2mes]

المنتدى لـ اللعبه فقط لاغير !

[a7zan]

بس Lua ترى هذا قسم البرمجة لـ لغة

تقدر تطرح الموضوع ذا بالقسم العام

[iMr.WiFi..!]

جرب ذذ

  
Private Sub button1_Click(ByVal Sender As) 
Dim u_nameAs String 
Dim U_B_D As Date 
Dim U_Gender As Boolean 
Dim U_C_F As Ingeger 
               u_name = TextBox1.Text 
               U_B_D = TextBox2.Text 
If RadioButton1.Checked == True 
U_Gender = True 
else 
U_Gender = False 
  
  
end 
  

او ذا

  
Private Sub button1_Click(ByVal Sender As 
Dim u_nameAs String 
Dim U_B_D As Date 
Dim U_Gender As Boolean 
Dim U_C_F As Ingeger 
               u_name = TextBox1.Text 
               U_B_D = TextBox2.Text 
If RadioButton1.Checked == True 
U_Gender = True 
else 
U_Gender = False 
  
  
end 
) 
  

[Me[Z]oO]

جرب ذذ

  
Private Sub button1_Click(ByVal Sender As) 
Dim u_nameAs String 
Dim U_B_D As Date 
Dim U_Gender As Boolean 
Dim U_C_F As Ingeger 
               u_name = TextBox1.Text 
               U_B_D = TextBox2.Text 
If RadioButton1.Checked == True 
U_Gender = True 
else 
U_Gender = False 
  
  
end 
  

او ذا

  
Private Sub button1_Click(ByVal Sender As 
Dim u_nameAs String 
Dim U_B_D As Date 
Dim U_Gender As Boolean 
Dim U_C_F As Ingeger 
               u_name = TextBox1.Text 
               U_B_D = TextBox2.Text 
If RadioButton1.Checked == True 
U_Gender = True 
else 
U_Gender = False 
  
  
end 
) 
  

هريس

end لازم اول حرف كابيتل ض

حل ؟

[iMr.WiFi..!]

طيب جرب المثال الاول وبعدين خل ال E كبيتل

[</Mr.Tn6eL>]

Private Sub button1_Click(ByVal Sender As Object) 
    Dim u_name As String 
    Dim U_B_D As Date 
    Dim U_Gender As Boolean 
    Dim U_C_F As Ingeger 
    u_name = TextBox1.Text 
    U_B_D = TextBox2.Text 
    If RadioButton1.Checked == True Then 
        U_Gender = True 
    Else 
        U_Gender = False 
    End If 
End Sub 

[Me[Z]oO]

Private Sub button1_Click(ByVal Sender As Object)
    Dim u_name As String
    Dim U_B_D As Date
    Dim U_Gender As Boolean
    Dim U_C_F As Ingeger
    u_name = TextBox1.Text
    U_B_D = TextBox2.Text
    If RadioButton1.Checked == True Then
        U_Gender = True
    Else
        U_Gender = False
    End If
End Sub

انه الابداع

مشكور تنطيل <3

[3SM]

ينتقل للقسم مناسب

[</Mr.Tn6eL>]

انه الابداع

مشكور تنطيل <3

العفو

[ivor]

ينتقل للقسم مناسب

يا اخي بالقوانين تقول

يمنع تقول ينقل او يغلق وانت مش مشرف

اتمني تكون عرفت هاد الجزء

[Me[Z]oO]

سؤال ي تنطيل

مو المفروض نسوي ال

End If

بعد التحقق ؟

[</Mr.Tn6eL>]

سؤال ي تنطيل

مو المفروض نسوي ال

End If

بعد التحقق ؟

سوينا

[3SM]

ينتقل للقسم مناسب

يا اخي بالقوانين تقول

يمنع تقول ينقل او يغلق وانت مش مشرف

اتمني تكون عرفت هاد الجزء

القسم مو مناسب يعني

خلي المشرف يشوفها

بعدين ينقلو

اتمنى ان تكون فهمت هدا الجزء

[Me[Z]oO]

Private Sub button1_Click(ByVal Sender As Object) 
    Dim u_name As String 
    Dim U_B_D As Date 
    Dim U_Gender As Boolean 
    Dim U_C_F As Ingeger 
    u_name = TextBox1.Text 
    U_B_D = TextBox2.Text 
    If RadioButton1.Checked == True Then 
        U_Gender = True 
    End If 
    Else 
        U_Gender = False 
End Sub 

اقصد هيك يا تنطيل

[HassoN]

Private Sub button1_Click(ByVal Sender As Object) 
    Dim u_name As String 
    Dim U_B_D As Date 
    Dim U_Gender As Boolean 
    Dim U_C_F As Ingeger 
    u_name = TextBox1.Text 
    U_B_D = TextBox2.Text 
    If RadioButton1.Checked == True Then 
        U_Gender = True 
    End If 
    Else 
        U_Gender = False 
End Sub 

اقصد هيك يا تنطيل

خطاء ، المفروض تحط ال

End If

Else بعد ال

وانت كاتب

Integer خطاء

[Me[Z]oO]

مشكور حسون ^

[HassoN]

مشكور حسون ^

حياك الله

[N3xT]

LUA المنتدى خاص بلغة

ي ليت لا تخرج عن القوانين , واذا عندك مشاكل بلغة الفيجوال أطرحها بالمنتديات المتخصصه ، مثل الديف بوينت الخ