|
| | بخصوص اسئله السنوات الماضيه للرسم .. | |
| | كاتب الموضوع | رسالة |
---|
Entesar
عدد الرسائل : 97 العمر : 34 تاريخ التسجيل : 11/03/2009
| موضوع: بخصوص اسئله السنوات الماضيه للرسم .. الخميس يونيو 25, 2009 6:20 pm | |
| | |
| | | عيوش
عدد الرسائل : 11 العمر : 34 تاريخ التسجيل : 11/06/2009
| موضوع: رد: بخصوص اسئله السنوات الماضيه للرسم .. الجمعة يونيو 26, 2009 1:32 am | |
| | |
| | | SARA.A
عدد الرسائل : 236 العمر : 34 تاريخ التسجيل : 20/11/2008
| موضوع: رد: بخصوص اسئله السنوات الماضيه للرسم .. الجمعة يونيو 26, 2009 3:57 pm | |
| صبآح الخير مشكوووورة عيوش ع المعلومة ربي يوفقك وو بالنسبة السؤال الثالث ..انتصار مو تحسين يبي دوائر فوق بعض و كل اشوي تكبر بكبر تكبر,,, مممم حسيت يبي كيذا ولا؟؟؟ | |
| | | Entesar
عدد الرسائل : 97 العمر : 34 تاريخ التسجيل : 11/03/2009
| | | | Entesar
عدد الرسائل : 97 العمر : 34 تاريخ التسجيل : 11/03/2009
| موضوع: رد: بخصوص اسئله السنوات الماضيه للرسم .. الجمعة يونيو 26, 2009 9:46 pm | |
| س٢ : عرفي صوره على Picture Box ثم قسميها الى اربعه اجزاء حيث يتم تلوين الجزء الاول باللون الاصفر والثاني باللون الاحمر والثالث باللون الازرق والرابع بالاحضر ؟ Dim m As New Bitmap(500, 400) Dim g As Graphics = Graphics.FromImage(m)
Dim w, h, x, y As Integer
PictureBox1.Image = m
x = PictureBox1.Location.X y = PictureBox1.Location.Y
w = PictureBox1.Width / 2 h = PictureBox1.Height / 2
g.FillRectangle(Brushes.Yellow, x, y, w, h) g.FillRectangle(Brushes.Red, x, h, w, h) g.FillRectangle(Brushes.Blue, w, y, w, h) g.FillRectangle(Brushes.Green, w, h, w, h)
بالتوفيق .. | |
| | | SARA.A
عدد الرسائل : 236 العمر : 34 تاريخ التسجيل : 20/11/2008
| موضوع: رد: بخصوص اسئله السنوات الماضيه للرسم .. السبت يونيو 27, 2009 4:26 am | |
| مساء الخيرات و الرسسسم
ممممممممم مدري كان في احد سهران لذا الوقت و لا هع ..الموووهيم ..هذا جواب السؤال 3 [center]fبنـــــــــــــــــــــــــــــات بليز تأكدو منه هل هو صووح ولا و ردو علي بليز g.DrawEllipse(Pens.Black, New Rectangle(140, 130, 120, 120)) g.DrawEllipse(Pens.Black, New Rectangle(130, 120, 140, 140)) g.DrawEllipse(Pens.Black, New Rectangle(120, 110, 160, 160)) g.DrawEllipse(Pens.Black, New Rectangle(110, 100, 180, 180)) g.DrawEllipse(Pens.Black, New Rectangle(100, 90, 200, 200)) و بالتوفيق يا حلواآآت ....يا ريت تتأكدون بعد من الجواب ...قعدوا طرحو و جمعوا.. هي الفكرة الاساسية ان راح تزيدين كل مرة العرضو الطول و في نفس الوقت تنقصين من قيمة x , y[/center] | |
| | | SARA.A
عدد الرسائل : 236 العمر : 34 تاريخ التسجيل : 20/11/2008
| موضوع: رد: بخصوص اسئله السنوات الماضيه للرسم .. السبت يونيو 27, 2009 4:42 am | |
| لو مثلا ع الدائرة اللي نصف قطرها 80 .... هنا راح تنقصين 200-80 عشان تطلعين قيمة x و بعدين تحسبين 190-80 =110 عشان تطلعين قيمه y اما طولها و عرضها ..راح تضربين نصف القطر ب2 يعني 80*2=160>>>>وكيذا لباقي الدوائر ... اتووومونآآ انو شرح وافي ... بس انتصار ما تطبق معاي حلك للبكشر بوكس | |
| | | دانه
عدد الرسائل : 114 العمر : 34 تاريخ التسجيل : 03/06/2009
| موضوع: رد: بخصوص اسئله السنوات الماضيه للرسم .. السبت يونيو 27, 2009 5:38 am | |
| iذا كود ال للبكشر بوكس يطبق جربيه ساره
Dim g As Graphics g = PictureBox1.CreateGraphics Dim x As Single x = (PictureBox1.Width) / 2 Dim y As Single y = (PictureBox1.Height) / 2 g.FillRectangle(Brushes.Black, 0, 0, x, y) g.FillRectangle(Brushes.Blue, x, y, PictureBox1.Width, PictureBox1.Height)
g.FillRectangle(Brushes.Red, x, 0, PictureBox1.Width, y)
g.FillRectangle(Brushes.Green, 0, y, x, y)
وهذا كود دوائر خمس بس قياسات غير الي جات بالامتحان بس نفس الفكره واطبق Dim gf As Graphics gf = Me.CreateGraphics
gf.DrawEllipse(Pens.Black, New Rectangle(260, 280, 120, 120)) gf.DrawEllipse(Pens.Black, New Rectangle(250, 270, 140, 140)) gf.DrawEllipse(Pens.Black, New Rectangle(240, 260, 160, 160)) gf.DrawEllipse(Pens.Black, New Rectangle(230, 250, 180, 180)) gf.DrawEllipse(Pens.Black, New Rectangle(220, 240, 200, 200))
بالتوقيــــــــــــــــــــــــــــق للجميـــــــــــــــــــــــــــــــع | |
| | | | بخصوص اسئله السنوات الماضيه للرسم .. | |
|
مواضيع مماثلة | |
|
| صلاحيات هذا المنتدى: | لاتستطيع الرد على المواضيع في هذا المنتدى
| |
| |
| |
|