[ColD]

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


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


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

كهذا

اقتباس:

[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]

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


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


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

[AGASHE]

تفضل أخي شوف هذا المثال

[ColD]

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

[ولد رائع]

بعد اذن اخي AGASHE تفضل البرنامج exe

[ColD]

مشكور اخواني

لكن اتمنى ان يتم عمل الخطوط مثل ما وضحت

إقتباس :line(300,300) -step(5000,5)
line-step (0,5000)
line-step(-5000.0)

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

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

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

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

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

[@@أبورائد@@]

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




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

PHP كود :

Private Sub Command1_Click()

    Me.BackColor = vbWhite
    Cls
    
    Line (300, 300)-Step(5000, 0)
    Line -Step(0, 5000)
    Line -Step(-5000, 0)
    Line -Step(0, -5000)
    
    Line (800, 800 + 2000)-Step(2000, -2000), vbRed
    Line -Step(2000, 2000), vbBlue
    Line -Step(-2000, 2000), vbGreen
    Line -Step(-2000, -2000), vbMagenta
    Line -Step(4000, 0), vbCyan

End Sub 


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

[ColD]

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

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