برنامج رسم الصور

اريد

برنامج رسم صغير جدا جدا جدا

فقط يرسم خط مستقيم (عادي) ويقدر المستخدم البرنامج ان يضع صورة ويرسم عليها ويحفظها

بأمتدادات (BMP,JPG,GIf)

ممكن ارجوكم لكي اكمل مافعلت

أرجوكم يا شباب البرمجه

اريد

برنامج رسم صغير جدا جدا جدا

فقط يرسم خط مستقيم (عادي) ويقدر المستخدم البرنامج ان يضع صورة ويرسم عليها ويحفظها

بأمتدادات (BMP,JPG,GIf)

ممكن ارجوكم لكي اكمل مافعلت

ياشباب اريد برنامج رسم صغير جدا جدا جدا

فقط يرسم مربع ودائرة و يرسم خط ويقدر المستخدم البرنامج ان يضع صورة ويرسم عليها ويحفظها ويكتب عليها

بأمتدادات (BMP,JPG,GIf)

ارجوكم

على ما أظن ان المنتدى ليس لحل الواجبات او يقدم لكم البرامج جاهزه...

المقصود انه يجب ان يتم المحاوله من اجل تصميم البرنامج وعند مواجهة اي مصاعب او مشاكل اللجوء الى المنتدى واذا استمر الشخص في مثل هذه الطريقه اي الحصول على البرنامج جاهز فانه لن يتعلم اي شيئ لذا انصح بان تقومي بالمحاوله لتصميم البرنامج وفي حال وجود اي مشاكل طرحها من اجل المساعده,,,,,

اوجه هذا الكلام الى نفسي قبل ان اوجهه الى بقية الاعضاء

مشكور اخوي على الرد

شباب مااحد يسويه لي لأكمل مابتدائت

هذا برنامج رسم حر فقط بدون دوائر و خطوط لإظهار الفكرة الاساسية فقط ويحفظ الملف على ال c:\vb_phot.bmp بامتداد bmp اما ال تحويل الى jpg فهو صعب جدا حتى ان هذا الكود كود تجارى ولم يتم طرحه للاستخدام المجانى الا من خلال ملف dll

اما الان ادرجى picturebox و command button مع هذا الكود

Dim Down As Boolean
Dim oldX As Integer
Dim oldY As Integer

Private Sub Command1_Click()
SavePicture Picture1.Image, "C:\VB_PHOTO.bmp"
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Down = True
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Down = False
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Down = True Then
Picture1.Line (X, Y)-(oldX, oldY), 4
End If
oldX = X
oldY = Y
End Sub

الله يوفقك دنيا وأخره

انت علمتني وعلمت اي شخص دخل المنتدى انت مبرمج ممتاز وانت طبيبتك فوق الحدود

بس : ابي يكتب على الصورة اهم شي

أينكم يامبرمجيييييييييييين العرب

أينكم ياGhost2010 و Bashamohnds و BV_ROCKET

أريده ضروري

والله يوفقكم

شيبتوا براسي ارجوكم اريد

ياشباب اريد برنامج رسم صغير جدا جدا جدا

فقط يرسم مربع ودائرة و يرسم خط ويقدر المستخدم البرنامج ان يضع صورة ويرسم عليها ويكتب عليها ويحفظها ويكتب عليها

بأمتدادات (BMP,JPG,GIf)

Private Sub Command1_Click()
'طباعة دائرة
Picture1.Circle (500, 500), 500
'طباعة مربع
Picture1.Line (500, 500)-(1000, 1000), 4, B
'طباعة خط
Picture1.Line (500, 500)-(1000, 1000), 4
'ضبط مكان ولون الكتابة
Picture1.CurrentX = 500
Picture1.CurrentY = 500
Picture1.ForeColor = vbRed
'طباعة الكتابة
Picture1.Print "بنت البرمجة"
End Sub

مشكور انت المنقذ ولكن اريد الحفظ الحفظ على امتداد (bmp)

مشكور وفقك الله

الحفظ

SavePicture Picture1.Image, "C:\VB_PHOTO.bmp"

مشكورررررررررررررررررررررر وفقك الله (المنقذ) VB_ROCKET

بس الكتابه موقعها بال Picture محدد اريد مستخدم برنامجي هو الذي يحدد المكان ممكن يالمنقذ

والمربع مكانه محدد

اريد المستخدم هو الذي يرسم مربعات على كيفه يحددها بأي مكان هو يريد

ارجوك

مشكورررررررررررررررررررررر وفقك الله (المنقذ) VB_ROCKET

بس الكتابه موقعها بال Picture محدد اريد مستخدم برنامجي هو الذي يحدد المكان ممكن يالمنقذ

والمربع مكانه محدد

اريد المستخدم هو الذي يرسم مربعات على كيفه يحددها بأي مكان هو يريد

ارجوك

باشا مهندس VB_ROCKET و بلال