بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الاخوة والاخوات الخبراء بلغة فيجوال بيزيك 6
انا طالب هندسة مدنية واعمل على برنامج لتصميم القطاعات الانشائية وتواجهني مشكلة
وهي رسم القطاعات المصممة
وتتلخص في اني احتاج الى معرفة كيفية كتابة الكود لرسم عدد من النقط التى يحدد المستخدم عددهاعلى خط افقى واحد داخل شكل مرسوم وقد حاولت كتابة هذا الكود مستعينا بدروس الاخ hnhn فى الرسم وقد افادتني كثيرا (جزاه الله خيرا) ولكن واجهتني مشكلة اليكم محاولتى
Private Sub Command1_Click()
n1 = Val(Text1.Text)
n2 = n1 - 1
k = 1080 / n2
X2 = 4230 + k
For X1 = X2 To X1 = 5320
Next
PSet (X1, 1400), vbRed
End Sub
Private Sub Form_Load()
Form1.DrawWidth = 7
Form1.AutoRedraw = True
End Sub
حيث اريد ان يدخل المستخدم مثلا الرقم خمسة فى التكست بوكس فيتم رسمهم على مسافات متساوية داخل الشكل المرسوم على خط افقى معين
ولكن عند تنفيذ هذا البرنامج فانه يرسم لى نقطة واحدة فقط
احترت ارجو المشورة لانى هاوي ولست متخصص
اثقلت فى اسئلتي ولكني انتظر كرم اجابتاتكم
ولكم جزيل الشكر