شما اینجا هستید : حل تمرین مطالب فصل 7 ویژوال بیسیک

برای ویرایش این بلوک به قسمت تنظیمات بلوک های دلخواه > بلوک فروشگاه شماره 2 مراجعه فرمایید.

حل تمرین فصل 7

گرافیک ویژوال بیسیک

در ادامه حل این تمارین که دوران +۹۰ و-۹۰ و ۱۸۰ درجه و آینه کردن تصویر انجام شده است دقت نمایید که دو عدد تصویر با نام پی۱ و پی۲  قرار دهید و چهار عدد دکمه فرمان  روی فرم قرار دهید و مقدار اسکال مود آنهارا روی پیکسل تنظیم نمایید.

Private Sub Command1_Click()
'دوران -90درجه
For x = 0 To p1.Width
For y = 0 To p1.Height
a = p1.Point(x, y)
p2.PSet (y, x), a
Next y
Next x
End Sub

Private Sub Command3_Click()
'دوران +90 درجه
For x = 0 To p1.Width
For y = 0 To p1.Height
a = p1.Point(p1.Height - y, p1.Width - x)
p2.PSet (x, y), a
Next y
Next x
End Sub

Private Sub Command4_Click()
'آينه کردن تصوير
For x = 0 To p1.Width
For y = 0 To p1.Height
a = p1.Point(x, y)
p2.PSet (p1.Width - x, y), a
Next y
Next x
End Sub

Private Sub Command5_Click()
'دوران 180 درجه
For x = 0 To p1.Width
For y = 0 To p1.Height
a = p1.Point(x, y)
p2.PSet (p1.Width - x, p1.Height - y), a
Next y
Next x
End Sub