close
تبلیغات در اینترنت
خرید دامنه
حل تمرین مطالب فصل 7 ویژوال بیسیک
صفحه اصلی کانال تلگرام
تبلیغات
محصول پرفروش فروشگاه
Title
عنوان محصول
قیمت : ...
خرید پستی
توضیحات محصول
بزودی فروشگاه گام به گام راه اندازی می شود.
تبلیغات شما
تبلیغات شما
گام ها
آمار
● آمار گام ها کل گام ها : 145 کل نظرات : 219 ● آمار کاربران افراد آنلاین : 1 تعداد اعضا : 1018 ● آمار بازدید بازدید امروز : 21 بازدید دیروز : 69 گوگل امروز : 0 گوگل دیروز : 0 بازدید کلی : 2,576,292 ● اطلاعات شما آی پی : 54.224.100.134 مروگر : سیستم عامل :
آرشیو
نویسندگان
لینک های دوستان
نظرسنجی
سوالات آزمون هاي كدام موسسه به كنكور شباهت بيشتري دارد؟






Image
قیمت
خرید پستی

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

آخرین ارسالی های انجمن

عنوان پاسخ بازدید توسط
حل المسائل حسابان،ریاضیات 3 تجربی ،هندسه 2،ریاضیات 2،جبر و احتمال ،ریاضیات 1 ،هندسه1 6 4438 aminmoin
حل مسایل فیزیک سوم تجربی سال 94 3 3702 aminmoin
حل المسائل کلیه دروس سوم ریاضی یکجا 13 13697 aminmoin
دانلود کتاب حل المسائل فیزیک 3 رشته ریاضی 1 8795 aminmoin
حل المسائل ریاضی چهارم دبستان جدید 5 5128 aminmoin
انلود کتاب حل المسائل حسابان سال سوم ریاضی فیزیک 0 1815 alireza77
حل المسائل ریاضی سال سوم تجربی 0 1688 alireza77
درخواست حل المسائل دروس سوم ریاضی 1 2114 mohsen
دانلود کتاب حل المسائل هندسه ۲ – سوم ریاضی فیزیک 1 2601 sepehr
دوستان 1 887 admin
lllll جک جدید 93 llllll 7 2184 mohsen
::. چت روم گام به گام .:: 1 2279 darkroom
جدیدترین روش تقلب 2014 (طنز) 1 3829 admin
عکس خرخون ترین فرد دنیا ؟!؟! 1 5399 admin
کدوم خرخون تره؟ 0 1952 mohsen
>>> بیا ببین اینجا چه خبره ؟!؟!؟ 0 1040 mohsen
دانلود سوالات و پاسخ تشريحي كنكور رياضي 93 0 1183 mohsen
لطفا حا المسایل تمامی دروس دوم تجربی را در سایتتون بگذارید 0 1701 fateme
گام به گام ریاضی هفتم 2 1764 admin
با سلام 7 1708 sara001

حل تمرین مطالب فصل 7 ویژوال بیسیک

مدیر
23:39
بازدید : 676

حل تمرین فصل 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

گام های مرتبط
مسابقه گام به گام
دانلود کتاب توریسم ورزشی
دانلود جزوه زبان تخصصی کامپیوتر
دانلود کتاب آموزش گام به گام css
دانلود کتاب آموزش گام به گام php
آموزش شیمی3 مهندس آقاجانی
اس ام اس محرم
دانلود نمونه سوالات ریاضی عمومی 1 دانشگاه
اس ام اس جدید عید غدیر
دانلود حل المسائل ادبیات سوم دبیرستان




ارسال دیدگاه
نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتی
ورود به سایت
نام کاربری :
رمز عبور :
رمز عبور را فراموش کردم ؟
عضویت
نام کاربری :
رمز عبور :
تکرار رمز :
ایمیل :
نام اصلی :
کد امنیتی : * کد امنیتیبارگزاری مجدد
جدیدترین گام ها
گام های محبوب
تبلیغات متنی
محل تبلیغات متنی شما با قیمت ارزان
YOUR ADS
تبلیغات متنی
محل تبلیغات متنی شما با قیمت ارزان
YOUR ADS
تبلیغات متنی
محل تبلیغات متنی شما با قیمت ارزان
YOUR ADS