درخواست كمك براي حل تمرين مربوط به فصل گرافيك ويژوال

سلام
اقا استاد ما يه تمرين مربوط به فصل گرافيك ويژوال بيسيك داده كه مونديم توش ... كسي مي تونه اين رو براي ما حل كنه ؟

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] This image has been resized. Click this bar to view the full image. The original image is sized 2592x1944. [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

واقعاً ممنون ميشم .

دوست عزیز یک مقدار ناخوانا هست:21:
اگه تایپ کنید بهتر می تونم کمک تون کنم.

اقا حق داری متوجه نشی ... ما سه ماهه که از این برنامه نویسی هیچی نفهمیدیم . به خاطر استاد عتیغه ای که داریم ... نمی دونم چطور این استادمون رو توصیف کنم ... فکرش هم که میفتم اعصابم خورد میشه .
این تمرین رو هم گروهی تو کلاس تعیین کرد که انجام بدیم واسش ایمیل کنیم . همینطوری پای تخته نوشت . البته سوال فقط همینه که تو عکس زیر میبینید ... بقیش راهنمایی برای حل هست .

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خوب جالبه :18:

نمی دونم.:41::41::41:

ولی کاش اطلاعات مسئله بیشتر بود.

این کد اونی که میخوای نیست ولی شاید بتونه کمکت کنه

[PHP]Private Sub Command1_Click()
Cls
ForeColor = RGB(256 * Rnd(), 256 * Rnd(), 256 * Rnd())
x = 20
y = 70
CurrentX = x
CurrentY = y
DrawWidth = 4
Line -Step(0, -30)
Line -Step(40, -20)
Line -Step(30, 0)
Line -Step(0, -10)
Line -Step(30, 0)
Line -Step(0, 10)
Line -Step(10, 0)
Line -Step(0, 50)
Line -Step(-110, 0)
DrawWidth = 1
DrawStyle = 1
CurrentX = CurrentX + 50
Line -Step(0, -50)
DrawWidth = 4
DrawStyle = 0
'================================================= =======================
CurrentX = 20
CurrentY = 100
Line -Step(0, -10)
Line -Step(110, 0)
Line -Step(0, 40)
Line -Step(-110, 0)
Line -Step(0, -10)
Line -Step(50, 0)
Line -Step(0, -20)
Line -Step(-50, 0)
DrawWidth = 1
DrawStyle = 1
Line -Step(25, 0)
Line -Step(0, -10)
CurrentY = CurrentY + 30 'mesal'
Line -Step(0, 10)
CurrentX = CurrentX + 45
Line -Step(0, -40)
CurrentX = CurrentX + 30
Line -Step(0, 40)
DrawWidth = 4
DrawStyle = 0
'================================================= =======================
CurrentX = 180
CurrentY = 20
Line -Step(40, 0)
Line -Step(0, 50)
Line -Step(-10, 0)
Line -Step(0, -40)
Line -Step(-20, 0)
Line -Step(0, 40)
Line -Step(-10, 0)
Line -Step(0, -50)
DrawWidth = 1
DrawStyle = 1
CurrentY = CurrentY + 10
Line -Step(40, 0)
CurrentY = CurrentY + 40
Line -Step(-40, 0)
CurrentY = CurrentY - 20
Line -Step(10, 0)
CurrentX = CurrentX + 20
Line -Step(10, 0)
End Sub
[/PHP]

سایه معمولا اول باید بدونی چطور قرینه میشه
یعنی سایه همون قرینه هست

این کد قرینه کردن هست::

[PHP]Private Sub Command1_Click()
Cls
ScaleMode = 3
DrawWidth = 1
Scale (-320, 240)-(320, -240)
Line (0, 240)-(0, -240)
Line (-320, 0)-(320, 0)
xa = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
ya = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
xb = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
yb = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
xm = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
ym = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
xc = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
yc = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
xn = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
xn = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()

DrawWidth = 5
Line (xm, ym)-(xn, yn), vbBlack


DrawWidth = 5
Line (xa, ya)-(xb, yb), vbRed
Line -(xc, yc), vbRed
Line -(xa, ya), vbRed

m = (ym - yn) / (xm - xn)
h = ym - m * xm
mpa = -1 / m
hpa = ya - mp * xa

xap = 2 * (h - hpa) / (np - m) - xa
xap = 2 * (np * h - m * hpa) / (np - m) - ya

hpb = yb - np * xb

xap = 2 * (h - hpb) / (np - m) - xb
xap = 2 * (np * h - m * hpa) / (np - m) - yb
Line (xap, yap)-(xbp, ybp), vbCyan

hpb = yc - np * xc
End Sub


[/PHP]

اینم یه قرینه ی دیگه::

[PHP]Private Sub Command1_Click()
Cls
ScaleMode = 3
DrawWidth = 1
Scale (-320, 240)-(320, -240)
Line (0, 240)-(0, -240)
Line (-320, 0)-(320, 0)
xa = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
ya = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
xb = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
yb = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
DrawWidth = 5
Line (xa, ya)-(xb, yb), vbRed
xbp = xb
ybp = -yb
xap = xa
yap = -ya
Line (xap, -yap)-(xbp, ybp), vbBlue
DrawWidth = 5
Line (xa, ya)-(xap, yap), vbBlack
Line (xb, yb)-(xbp, ybp), vbBlack
xbz = -xb
ybz = yb
xaz = -xa
yaz = ya
Line (-xaz, -yaz)-(-xbz, -ybz), vbGreen
xbt = -xb
ybt = -yb
xat = -xa
yat = -ya
Line (-xat, -yat)-(-xbt, -ybt), vbYellow
xbt = -xb
ybt = -yb
xat = -xa
yat = -ya

End Sub
[/PHP]

اینم کد قرینه سازی که کاملتره:::

[PHP]Private Sub Command1_Click()
Cls
ScaleMode = 3
DrawWidth = 1
Scale (-320, 240)-(320, -240)
DrawStyle = 0
Line (0, 240)-(0, -240)
Line (-320, 0)-(320, 0)
Xm = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
Ym = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
Xn = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
Yn = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
Xa = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
Ya = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
Xb = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
Yb = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
Xc = (-1) ^ Round(10 * Rnd()) * 320 * Rnd()
yc = (-1) ^ Round(10 * Rnd()) * 240 * Rnd()
DrawWidth = 1
Line (Xm, Ym)-(Xn, Yn), vbBlack

DrawWidth = 5
Line (Xa, Ya)-(Xb, Yb), vbRed
Line -(Xc, yc), vbRed
Line -(Xa, Ya), vbRed
Font.Size = 14
CurrentX = Xa: CurrentY = Ya: Print "A("; Round(Xa); ","; Round(Ya); ")"
CurrentX = Xb: CurrentY = Yb: Print "B("; Round(Xb); ","; Round(Yb); ")"
CurrentX = Xc: CurrentY = yc: Print "C("; Round(Xc); ","; Round(yc); ")"

m = (Ym - Yn) / (Xm - Xn)
h = Ym - m * Xm

mp = -1 / m

hpA = Ya - mp * Xa

Xap = 2 * (h - hpA) / (mp - m) - Xa
Yap = 2 * (mp * h - m * hpA) / (mp - m) - Ya

hpB = Yb - mp * Xb

Xbp = 2 * (h - hpB) / (mp - m) - Xb
Ybp = 2 * (mp * h - m * hpB) / (mp - m) - Yb
Line (Xap, Yap)-(Xbp, Ybp), vbCyan

hpC = yc - mp * Xc

Xcp = 2 * (h - hpC) / (mp - m) - Xc
Ycp = 2 * (mp * h - m * hpC) / (mp - m) - yc
Line -(Xcp, Ycp), vbCyan
Line -(Xap, Yap), vbCyan
DrawWidth = 1
DrawStyle = 2
Line (Xa, Ya)-(Xap, Yap), vbBlack
Line (Xb, Yb)-(Xbp, Ybp), vbBlack
Line (Xc, yc)-(Xcp, Ycp), vbBlack
CurrentX = Xap: CurrentY = Yap: Print "A'("; Round(Xap); ","; Round(Yap); ")"
CurrentX = Xbp: CurrentY = Ybp: Print "B'("; Round(Xbp); ","; Round(Ybp); ")"
CurrentX = Xcp: CurrentY = Ycp: Print "C'("; Round(Xcp); ","; Round(Ycp); ")"
CurrentX = (Xcp + Xc) / 2: CurrentY = (yc + Ycp) / 2: Print "H'("; Round((Xc + Xcp) / 2); ","; Round((yc + Ycp) / 2); ")"

'Xap = Xa
'Yap = -Ya
'Xbp = Xb
'Ybp = -Yb
'Line (Xap, Yap)-(Xbp, Ybp), vbBlue
'DrawWidth = 1
'DrawStyle = 3
'Line (Xa, Ya)-(Xap, Yap), vbBlack
'Line (Xb, Yb)-(Xbp, Ybp), vbBlack
'DrawStyle = 0
'DrawWidth = 5
'Xaz = -Xa
'Yaz = Ya
'Xbz = -Xb
'Ybz = Yb
'Line (Xaz, Yaz)-(Xbz, Ybz), vbCyan
'Xat = -Xa
'Yat = -Ya
'Xbt = -Xb
'Ybt = -Yb
'Line (Xat, Yat)-(Xbt, Ybt), vbYellow
End Sub
[/PHP]