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

تعداد بازدید: 1218

admin

برنامه نویس

ارسال‌ها : 78

عضويت:17 /10 /1390

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

سن: 22

شناسه ياهو:

تشکرها : 22

تشکر شده : 32

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

دروووووووووود...
توی این تایپک آموزش ویژوال با استفاده از سورس کد ها صورت میگیرد..

اسپم ممنوع فقط اگه سوال بود بپرسید...

موفق باشید

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

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

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

admin

برنامه نویس

ارسال‌ها : 78

عضويت:17 /10 /1390

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

سن: 22

شناسه ياهو:

تشکرها : 22

تشکر شده : 32

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

این سورسی که میخوام بهتون یاد بدم میاد خاصیت کپشن رو عوض میکنه .. کپشن چیه؟ بریم توی کدها میفهمی خودت..

کد روبه رو کپشن (عنوان) فرم رو عوض میکنه .. مثلا ما یک دکمه داریم میخوایم وقتی روش کلیک کردیم عنوان برنامه مارو تغییر بده
مواد لازم : یک دکمه بنام cd
روی دکمه دابل کلیک کنید .صفحه ای باز میشه کدهای زیر رو توش کپی کنید(بین اون رویداد کلیک دکمه)

کد:
Me.Caption = "madar"

برنامه رو اجرا کنید و روی دکمه کلیک کنید..میبینید که عنوان فرم یا برنامه ی ما تغییر کرد

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

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

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

admin

برنامه نویس

ارسال‌ها : 78

عضويت:17 /10 /1390

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

سن: 22

شناسه ياهو:

تشکرها : 22

تشکر شده : 32

پاسخ 2 : آموزش ویژوال از روی سورس ها(مختص مبتدیان)
خوب ما دوتا تکست باکس داریم و یک دکمه میخوایم طرف داخل تکست باکس ها عدد وارد من بعد روی دکمه کلیک کنه تا جمع عدد ها رو توی یه لیبل برامون نمایش بده..
مواد لازم 2تا تکست باک بنامهای t1 ,t2 یه دونه دکمه و یدونه لیبیل
چون عملیات ما کار با اعداد صحیح هست باید اون رو توی متغیری اول اعلان کنیم... واسه اعداد صحیح integer هست

کد:
Dim sum As Integer

سپس کد زیر

کد:
Private Sub Command1_Click()

sum = t2.Text + Val(t1.Text)

Label1.Caption = sum

End Sub

در اینجا sum نشون دهندی علامت جمع هستش.

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

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

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

admin

برنامه نویس

ارسال‌ها : 78

عضويت:17 /10 /1390

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

سن: 22

شناسه ياهو:

تشکرها : 22

تشکر شده : 32

پاسخ 3 : آموزش ویژوال از روی سورس ها(مختص مبتدیان)
مثال براي ليست باكس
ابزار لازم:
روي فرم ، يك ليست باكس و يك دكمه بياوريد.
نام گذاري:
ls1,c1
نام ليست باكس را مجبور شدم دو حرفي كنم تا با ليبل اشتباه نشه.
كد نويسي:

کد:
Private Sub c1_Click()

ls1.AddItem "basic"

End Sub

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

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

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

admin

برنامه نویس

ارسال‌ها : 78

عضويت:17 /10 /1390

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

سن: 22

شناسه ياهو:

تشکرها : 22

تشکر شده : 32

پاسخ 4 : آموزش ویژوال از روی سورس ها(مختص مبتدیان)
ساخت دایره رنگی
مواد لازم : يك دكمه / نامگذاري : سي1

کد:
Private Sub c1_Click()

Circle (2100, 1200), 1100

End Sub

کد:

Dim radius As Integer

Private Sub c1_Click()

For radius = 20 To 3000 Step 19

Circle (1400, 1200), radius, vbRed

Next

End Sub

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

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

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

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

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

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

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

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