close
تبلیغات در اینترنت
خرید دامنه
حل تمرین مطالب فصل 7 ویژوال بیسیک
صفحه اصلی کانال تلگرام
تبلیغات
محصول پرفروش فروشگاه
Title
عنوان محصول
قیمت : ...
خرید پستی
توضیحات محصول
بزودی فروشگاه گام به گام راه اندازی می شود.
تبلیغات شما
تبلیغات شما
گام ها
آمار
● آمار گام ها کل گام ها : 145 کل نظرات : 222 ● آمار کاربران افراد آنلاین : 1 تعداد اعضا : 1018 ● آمار بازدید بازدید امروز : 33 بازدید دیروز : 137 گوگل امروز : 0 گوگل دیروز : 1 بازدید کلی : 2,560,453 ● اطلاعات شما آی پی : 54.162.15.31 مروگر : سیستم عامل :
آرشیو
نویسندگان
لینک های دوستان
نظرسنجی
سوالات آزمون هاي كدام موسسه به كنكور شباهت بيشتري دارد؟






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

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

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

عنوان پاسخ بازدید توسط
حل المسائل حسابان،ریاضیات 3 تجربی ،هندسه 2،ریاضیات 2،جبر و احتمال ،ریاضیات 1 ،هندسه1 6 4499 aminmoin
حل مسایل فیزیک سوم تجربی سال 94 3 3736 aminmoin
حل المسائل کلیه دروس سوم ریاضی یکجا 13 13768 aminmoin
دانلود کتاب حل المسائل فیزیک 3 رشته ریاضی 1 8847 aminmoin
حل المسائل ریاضی چهارم دبستان جدید 5 5175 aminmoin
انلود کتاب حل المسائل حسابان سال سوم ریاضی فیزیک 0 1829 alireza77
حل المسائل ریاضی سال سوم تجربی 0 1709 alireza77
درخواست حل المسائل دروس سوم ریاضی 1 2140 mohsen
دانلود کتاب حل المسائل هندسه ۲ – سوم ریاضی فیزیک 1 2660 sepehr
دوستان 1 917 admin
lllll جک جدید 93 llllll 7 2213 mohsen
::. چت روم گام به گام .:: 1 2325 darkroom
جدیدترین روش تقلب 2014 (طنز) 1 3857 admin
عکس خرخون ترین فرد دنیا ؟!؟! 1 5425 admin
کدوم خرخون تره؟ 0 1968 mohsen
>>> بیا ببین اینجا چه خبره ؟!؟!؟ 0 1067 mohsen
دانلود سوالات و پاسخ تشريحي كنكور رياضي 93 0 1218 mohsen
لطفا حا المسایل تمامی دروس دوم تجربی را در سایتتون بگذارید 0 1732 fateme
گام به گام ریاضی هفتم 2 1801 admin
با سلام 7 1758 sara001

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

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

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