برای ویرایش این بلوک به قسمت تنظیمات بلوک های دلخواه > بلوک فروشگاه شماره 2 مراجعه فرمایید.
حل تمرین فصل 7 گرافیک ویژوال بیسیک در ادامه حل این تمارین که دوران +۹۰ و-۹۰ و ۱۸۰ درجه و آینه کردن تصویر انجام شده است دقت نمایید که دو عدد تصویر با نام پی۱ و پی۲ قرار دهید و چهار عدد دکمه فرمان روی فرم قرار دهید و مقدار اسکال مود آنهارا روی پیکسل تنظیم نمایید. Private Sub Command1_Click() Private Sub Command3_Click() Private Sub Command4_Click() Private Sub Command5_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
'دوران +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
'آينه کردن تصوير
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
'دوران 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