آموزش ویژوال از روی سورس ها(مختص مبتدیان)

آموزش ویژوال از روی سورس ها(مختص مبتدیان) - پاسخ 5

زمان جاري : شنبه 29 اردیبهشت 1403 - 6:23 قبل از ظهر

...در حال بارگيري لطفا صبر کنيد

صفحه اصلي / مقالات آموزشی / آموزش ویژوال از روی سورس ها(مختص مبتدیان) / پاسخ 5

admin

برنامه نویس

ارسال‌ها : 78

عضويت:17 /10 /1390

محل زندگي: هرات-قندهار

سن: 22

شناسه ياهو:

تشکرها : 22

تشکر شده : 32

پاسخ 5 : آموزش ویژوال از روی سورس ها(مختص مبتدیان)
رنگی کردن صفحه
ساختار حلقه: از كلمه ((فور)) تا كلمه ((نكست)) يك حلقه ايجاد ميشه. و اعدادي كه تعريف شده(از 20 تا 3 هزار) بايد رد بشه. اين تعداد چرخش حلقه است. البته اينجا با جهش هاي نوزده تايي اعداد را سپري مي كنه.

کد:
Dim x As Long

Dim y As Long

Private Sub c1_Click()

For x = 0 To 3000 Step 30

For y = 0 To 3000 Step 30

PSet (x, y), vbRed

Next

Next

End Sub

اینم یکی دیگه

کد:
Dim x As Single

Dim y As Single

Private Sub c1_Click()

For x = -600 To 600 Step 0.007

y = (x ^ 2) / 100 + 500

PSet (x + 1400, y)

Next

End Sub

آنقدر مستم که بی کشتی به دریا میزنم
یا به عشقت میرسم یا غرق دریا میشوم

سه شنبه 28 آذر 1391 - 23:43

وب کاربر ارسال پيام نقل قول تشکر گزارش

تمامی حقوق این قالب مربوط به همین انجمن میباشد|طراح قالب : ابزار فارسی -پشتیبانی : رزبلاگ

درباره ما بيشتر بدانيد !

دستــرسي سريع

تعرفه تبلیغات