منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مساعده في عمل برنامج لرسم شكل رباعي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته


اتمنى عمل البرنامج البسيط دة لان مطلوب مني في الجامعه ونسخه على اسطوانه


ما عرفت اعمل الا اشياء بسيطه

كهذا
اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]
line(300,300) -step(5000,5)
line-step (0,5000)
line-step(-5000.0)
line-step
[/TD]
[/TR]
[/TABLE]

ههههه لكن ما عرفت اكمل باقي المربع الخارجي

راح اعطيكم التصميم


الفكره تبعه ان يتم عمل
2 زر داخل الفورم

زر مكتوب عليه

exit
عند الضغط عليه
ينهى البرنامج
وزر اخر مكتوب عليه drawعند الضغط عليه يظهر هذا التصميم
[TABLE="class: ncode_imageresizer_warning, width: 640"]
[TR]
[TD="class: td2, align: center"][/TD]
[/TR]
[/TABLE]


واتمنى الخطوط تكون بالوان غير ثابته
كالاحمر والاخضر والبني .. الخ


انما المربع الخارجي يكون باللون الاسود


وجزاكم الله كل خير مقدما

تفضل أخي شوف هذا المثال
انا لا اعرف تشغيله
لكن لو تكرمت تحفظه بأمتداد عند الضغط عليه يفتح
مثلا بأمتداد
exe
بعد اذن اخي AGASHE تفضل البرنامج exe
مشكور اخواني

لكن اتمنى ان يتم عمل الخطوط مثل ما وضحت
إقتباس :line(300,300) -step(5000,5)
line-step (0,5000)
line-step(-5000.0)

لان هذا اللي اخذته في المحاضره لان نظرت للسورس ووجدت اكواد جديد

ولو ما نفع مشكور لمجهودكم
واتمنى التعديل على البرنامج اللي اخوي عمله

ووضع الخلفيه بيضاء وليست سوداء

بالاضافه وضع مربع ايطار مثل ماهو واضح في الصوره السابقه

وشكرا اخواني وجزاكم الله كل خير

السلام عليكم ورحمة الله وبركاته




المربع الذي سمته لم تعد لنقطة البداية



PHP كود :
Private Sub Command1_Click()

    
Me.BackColor vbWhite
    Cls
    
    Line 
(300300)-Step(50000)
    
Line -Step(05000)
    
Line -Step(-50000)
    
Line -Step(0, -5000)
    
    
Line (800800 2000)-Step(2000, -2000), vbRed
    Line 
-Step(20002000), vbBlue
    Line 
-Step(-20002000), vbGreen
    Line 
-Step(-2000, -2000), vbMagenta
    Line 
-Step(40000), vbCyan

End Sub 





السلام عليكم ورحمة الله وبركاته
استاذ ابو رائد بارك الله فيك انت فهمت طلبي
ربنا يجزي الاخوه كل خير

موفقين بأذن الله