tajmh.yoo7.com
أهلا وسهلا بزائرتنا الكريمة , وبزائرنا الكريم في منتدى التجمع من اجل الديمقراطية والوحدة في سوريا

نرجو التسجيل في المنتدى لغير المسجلين والدخول والمشاركة المفيدة البناءة ..وشكرا

إدارة المنتدى


انضم إلى المنتدى ، فالأمر سريع وسهل

tajmh.yoo7.com
أهلا وسهلا بزائرتنا الكريمة , وبزائرنا الكريم في منتدى التجمع من اجل الديمقراطية والوحدة في سوريا

نرجو التسجيل في المنتدى لغير المسجلين والدخول والمشاركة المفيدة البناءة ..وشكرا

إدارة المنتدى
tajmh.yoo7.com
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
المواضيع الأخيرة
» هم اذكياء بالفطرة
المجموعة السابعة فيجوال بيزيك Empty29/7/2017, 11:29 am من طرف جبران جمول

» متى ستصحو وزارتي التربية والتعليم العالي
المجموعة السابعة فيجوال بيزيك Empty8/7/2017, 5:33 pm من طرف جبران جمول

»  قليلا من الصدق يا محللين
المجموعة السابعة فيجوال بيزيك Empty2/7/2017, 7:29 pm من طرف جبران جمول

» امريكا وطبيعة المفاهيم والعقائد السائدة
المجموعة السابعة فيجوال بيزيك Empty28/6/2017, 7:59 am من طرف جبران جمول

» فلم خيالي من الواقع
المجموعة السابعة فيجوال بيزيك Empty7/6/2017, 4:02 pm من طرف جبران جمول

» مناهجنا
المجموعة السابعة فيجوال بيزيك Empty5/6/2017, 8:30 pm من طرف جبران جمول

» اللعب عالمكشوف ... لمن يملك الطرنيب
المجموعة السابعة فيجوال بيزيك Empty7/10/2016, 11:43 am من طرف الأمين العام

» خبير أمريكي: "الرواية الرسمية لعمليات سبتمبر الإرهابية مزيفة
المجموعة السابعة فيجوال بيزيك Empty13/9/2016, 9:33 am من طرف جبران جمول

» ماذا عن الاله بعل بعض المعلومات
المجموعة السابعة فيجوال بيزيك Empty6/8/2016, 12:20 pm من طرف جبران جمول

» سلمية تحارب بالكهرباء بالمياه
المجموعة السابعة فيجوال بيزيك Empty12/7/2016, 7:27 pm من طرف جبران جمول

» أسئلة برسم الفقهاء والعلماء فهل من مجيب
المجموعة السابعة فيجوال بيزيك Empty12/7/2016, 7:13 pm من طرف جبران جمول

» متى نبتعد عن السلفية في افكارنا .؟
المجموعة السابعة فيجوال بيزيك Empty8/7/2016, 11:12 am من طرف جبران جمول

» مبروك لقطر مبروك للخليج
المجموعة السابعة فيجوال بيزيك Empty5/8/2015, 6:58 pm من طرف الأمين العام

» ممثل الرئيس في سلمية لحل الأزمة
المجموعة السابعة فيجوال بيزيك Empty16/7/2015, 11:07 pm من طرف الأمين العام

» عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .
المجموعة السابعة فيجوال بيزيك Empty12/7/2015, 8:24 pm من طرف الأمين العام

اللعب عالمكشوف ... لمن يملك الطرنيب

7/10/2016, 11:43 am من طرف الأمين العام

اللعب عالمكشوف ... لمن يملك الطرنيب


بعد ست سنوات من الحرب الطاحنة و التخفي لكل دولة وراء الدعم المقدم لقوى …

تعاليق: 0

مبروك لقطر مبروك للخليج

5/8/2015, 6:58 pm من طرف الأمين العام

مبروك لقطر مبروك للخليج ....

من كأس النخوة التفخيخية و الهيجان العاهر اشربوا ....
من كأس الحقد و السقاطة و التآمر …

تعاليق: 0

ممثل الرئيس في سلمية لحل الأزمة

16/7/2015, 11:07 pm من طرف الأمين العام

المجموعة السابعة فيجوال بيزيك G

تعاليق: 0

عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .

12/7/2015, 8:24 pm من طرف الأمين العام

عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .
سلمية الأمان سلمية المحبة هناك من يحاول إثارة فتيل الفتنة و الخراب …

تعاليق: 0

ماذا بعد يا صاحب القرار

9/7/2015, 9:41 pm من طرف الأمين العام

ماذا بعد يا صاحب القرار .....
هاهو التلفزيون السوري الرسمي  يفصحُ بما عجزَ عنه الناس  .. ويفضحُ بما لا يقبل الشك …

تعاليق: 0

الشعب يتساءل ......

7/7/2015, 9:54 pm من طرف الأمين العام

بيان :
الشعب يتساءل ......
إننا لا نتكلم في السياسة لان السياسة بأساسها هي علاقة أوجدها الإنسان ليستطيع من …

تعاليق: 0


المجموعة السابعة فيجوال بيزيك

اذهب الى الأسفل

المجموعة السابعة فيجوال بيزيك Empty المجموعة السابعة فيجوال بيزيك

مُساهمة  Admin 21/4/2007, 5:03 pm

الرسم في V.B




إن برنامج الــV.B ليس برنامج مخصص للرسم ومع ذلك فإن الغاية من استخدام ميزات الرسم هي زيادة التوضيح من خلال الرسومات المبسطة.

إن الصعوبة في مجال الرسم هي إيجاد المقياس المناسب لإظهار الرسومات لأن أداة الرسم محدودة الأبعاد ولا تظهر سوى الربع الأول، فيهدف المقياس إلى إجراء إزاحة للمحاور الإحداثية من أجل إظهار الإحداثيات السالبة أو من أجل ملاءمة أبعاد الأشكال مع حجم لوحة الرسم.







X
المجموعة السابعة فيجوال بيزيك Clip_image0011- أداة الرسم هي Picture Box ومبدأ الإحداثيات في الزاوية اليسرى العليا للأداة، كما في الشكل التالي:


أي لا يظهر إلا الربع الأول.

2- يمكن تحديد أبعاد الأداة في الشاقول والأفق وذلك باعتماد

خاصيتي scalewidth، scaleheight .

3- نغير واحدات القياس من الخاصية Scale Mode

حيث ( 1inch=1440 twip=96pixel=72point).

4- وهناك شكلين للمقاييس أما أن تكون في الاتجاه الأفقي نفسها للاتجاه الشاقولي، وهذه حالة رسم الأشكال(رسم دائرة) ففي هذه الحالة علينا اختيار مقياس أفقي للرسم Sx ومقياس شاقولي Sy ومن ثم نختار أصغر المقياسين. أما في حال رسم المخططات (العلاقة بين كمية الأمطار والزمن على سبيل المثال) ففي هذه الحالة يمكن أن يكون لدينا مقياسين للرسم مقياس للأفق ومقياس للشاقول.

وبشكل عام تكون المقاييس كما يلي:

Sx=kw/Xmax حيث ، Kw=p1.scalewidth

Sy=Kh/Ymin حيث ، Kh=p1.scaleheigh



5- حالات الرسم المختلفة:

- رسم خط:
p1.Line(x1,y1)-(x2,y2),QBcolor(i)


- رسم مستطيل:
p1.Line(x1,y1)-(x2,y2),QBcolor(i),B


- رسم مستطيل مليء:
p1.Line(x1,y1)-(x2,y2),QBcolor(i),BF


- رسم دائرة:
p1.circle(xc ,yc),R, QBcolor(i),B


- رسم نقطة:
p1.pset(xb ,yb), QBcolor(i)






B





H





b1





h1
تمرين اكتب الكود الخاص بزر حساب لرسم الشكل التالي:




















[color=red]Private Sub Command1_Click()[color:2105=red:2105]

B = Val(Text1.Text)

b1 = Val(Text2.Text)

H = Val(Text3.Text)

h1 = Val(Text4.Text)

sw = p1.ScaleWidth

sh = p1.ScaleHeight

sx = 0.9 * sw / b

sy = 0.9 * sh / h

If sx > sy Then

sc = sy

Else

sc = sx

End If

p1.Cls

x0 = (sw - b * sc) / 2

y0 = (sh - h * sc) / 2

p1.Line (x0, y0)-(x0 + B * sc, y0)

p1.Line -(x0 + B * sc, y0 + h1 * sc)

p1.Line -(x0 + b1 * sc, y0 + h1 * sc)

p1.Line -(x0 + b1 * sc, y0 + H * sc)

p1.Line -(x0, y0 + H * sc)

p1.Line -(x0, y0)

End Sub





مثال13:

ليكن لدينا دائرتين معرفة كل واحدة بإحداثيات مركزها ونصف قطرها، والمطلوب:

كتابة برنامج بلغةV.B لمعرفة وضع النقطتين بالنسبة لبعضهما مع الرسم.






Function MAX(X, Y)

If X > Y Then

MAX = X

Else

MAX = Y

End If

End Function



Function MIN(X, Y)

If X > Y Then

MIN = Y

Else

MIN = X

End If

End Function



Function DIS(X1, X2, Y1, Y2)

DIS = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)

End Function



[color=red]Private Sub Command1_Click()[color:2105=red:2105]

Dim X1, X2, Y1, Y2, R1, R2

X1 = Val(Tex1.Text)

Y1 = Val(TEY1.Text)

R1 = Val(TER1.Text)

X2 = Val(Tex2.Text)

Y2 = Val(TeY2.Text)

R2 = Val(TeR2.Text)

D1 = DIS(X1, X2, Y1, Y2)

D2 = R1 + R2

D3 = Abs(R1 - R2)

lx = Abs(MAX(X1 + R1, X2 + R2) - MIN(X1 - R1, X2 - R2))

ly = Abs(MAX(Y1 + R1, Y2 + R2) - MIN(Y1 - R1, Y2 - R2))



If D1 > D2 Then

M = "الدائرتين متباعددين خارجاً"

ElseIf D1 = D2 Then

M = "الدائرتين متماستين خارجاً"

ElseIf D1 < D2 And D1 > D3 Then

M = "الدائرتين متقاطعتين خارجاً"

ElseIf D1 = D3 And D1 <> 0 Then

M = "الدائرتين متماستين داخلاً"

ElseIf D1 < D3 And D1 <> 0 Then

M = "الدائرتين متباعددين داخلاً"

ElseIf D1 = 0 And R1 = R2 Then

M = "الدائرتين طبوقتين"

ElseIf D1 = 0 And R1 <> R2 Then

M = "الدائرتين متمركزتين"

End If



p1.Cls

SW = p1.ScaleWidth

sh = p1.ScaleHeight

p1.CurrentX = 100

p1.CurrentY = 50

p1.Print M

sx = 0.9 * SW / lx

sy = 0.9 * sh / ly

SC = MIN(sx, sy)

X0 = (SW - lx * SC) / 2 - MIN(X1 - R1, X2 - R2) * SC

Y0 = (sh - ly * SC) / 2 + MAX(Y1 + R1, Y2 + R2) * SC

p1.Circle (X0 + X1 * SC, Y0 - Y1 * SC), R1 * SC, RGB(255, 0, 0)

p1.Circle (X0 + X2 * SC, Y0 - Y2 * SC), R2 * SC, QBColor(0)

[color=red]End Sub[color:2105=red:2105]




Admin
Admin

عدد الرسائل : 34
تاريخ التسجيل : 26/03/2007

https://tajmh.yoo7.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى