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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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
العمر : 34
تاريخ التسجيل : 19/10/2006

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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