تبلیغات در اینترنتclose
آموزش ویژوال از روی سورس ها(مختص مبتدیان)
زمان جاري : پنجشنبه 24 آبان 1397 - 12:38 بعد از ظهر
نام کاربري : پسورد : يا عضويت | رمز عبور را فراموش کردم
...در حال بارگيري لطفا صبر کنيد
صفحه اصلي / مقالات آموزشی / آموزش ویژوال از روی سورس ها(مختص مبتدیان)
ارسال پاسخ جديد
آموزش ویژوال از روی سورس ها(مختص مبتدیان)
تعداد بازدید: 688
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
وب کاربر ارسال پيام نقل قول تشکر گزارش






برای ارسال پاسخ ابتدا باید لوگین یا ثبت نام کنید.


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

: