رسم مثل قائم الزاوية من اليمين واليسار

اذهب الى الأسفل

default رسم مثل قائم الزاوية من اليمين واليسار

مُساهمة من طرف Admin في الخميس أغسطس 21, 2008 11:00 pm

اضف زرين امر ومربع نص
' ثم اضف الكود التالي في زر الأمر الأول
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, b As Integer
Dim le As Integer
le = 8
TextBox1.Text = vbCrLf
For i = 1 To le
For b = 1 To i
TextBox1.Text = TextBox1.Text & "*"
Next b
TextBox1.Text = TextBox1.Text & vbCrLf
Next i
End Sub
' والكود التالي في زر الامر الثاني
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim le, i, m, s, b As Integer
Dim star, spa As String
le = 8
TextBox1.Text = ""
For i = 1 To le
For b = 1 To i
star = star & "*"
Next b
spa = ""
m = i
For s = le To i Step -1
spa = spa & " "
Next s
TextBox1.Text = TextBox1.Text & vbCrLf & spa & star
star = ""
Next i
End Sub

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى