رسم مثلث

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

default رسم مثلث

مُساهمة من طرف Admin في الخميس أكتوبر 19, 2006 11:25 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

Admin
jadquraan
jadquraan

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

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

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

default رد: رسم مثلث

مُساهمة من طرف فيجوال بيسك 6 في الأربعاء أكتوبر 25, 2006 8:00 pm

المثلث من أصعب الأشكال الهندسية في الفيجوال بيسك

بغض النظر عن المربع أو المستطيل أو الدائره فبرنامج الفيجوال بيسك يتيح ذلك بسهوله

ولكن المثلث من الأشكال المعدومه في البرنامج إلا عن طريق الكود

والكود السابق جميل وبسيط أيضاَ

تحياتي للجميع

فيجوال بيسك 6
مراقب عام
مراقب عام

عدد الرسائل : 17
تاريخ التسجيل : 22/10/2006

معاينة صفحة البيانات الشخصي للعضو

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

default رد: رسم مثلث

مُساهمة من طرف bigboss_quraan في الأربعاء أكتوبر 25, 2006 8:04 pm

بصراحة

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

وشكرا

_________________





bigboss_quraan
مشرف عام
مشرف عام

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

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

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

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


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