خبر جدید
سلام دوستان آدرس جدید ورودی به سایت من
+ نوشته شده در ساعت توسط حسن سامی نسب
|
| تبليغات | X |
آموزش ویژوال بیسیک و مطالب خواندنی
تا میتونید نظر بدین.خوشحال میشم
این سایت تازه راه اندازی شده
امیدوارم بتونه نظرت را جلب کنه.به آی دی من هم سری بزن.ضرر نمی کنی.
Hassan_SamiNasab.1385@Yahoo.comبرایت بگم تا حالشو ببری.
اگه خوشت اومد حتما برایم ایمیل بفرست.( منتظرت هستم )
آماده ای!
پس شروع می کنیم.
کد شماره ی 1 : برنامه ی Fire : شاید از این کد خوشت بیاید ....یک
Timer بر روی فرم خود قرار بده و کد زیر را در فرم خود کپی کن : Private Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As LongPrivate Fire() As Byte
)
) Private Sub Form_LoadTimer1.Interval = 10
Me.AutoRedraw = True ReDim Fire ( 0 To 100, 0 To 100 )For x = 0 To 100
For y = 0 To 100
Fire(x, y) = 0
Next y
Next x
End Sub
)
) Private Sub Timer1_TimerOn Error Resume Next
Dim x As Integer
Dim y As Integer
Dim Color As Integer
Dim table As Byte
For y = 100 To 0 Step -1
For x = 0 To 100
Randomize
( Fire(x, y) = Fire(x, y) - Int(Rnd * 3 ( table = Int(Rnd * 3 ( Fire(x, y - table) = Fire(x, yColor = (Int ( Fire ( x,y) * 3 ))
,Color /2) ,Color SetPixel Me.hdc , x + (Rnd *2) , y , RGB (Color + ColorNext x
Next y
For x = 0 To 100
For y = 95 To 100
Fire(x, y) = 110
Next y
Next x
Me.Refresh
End Sub
کد شماره ی 2 : برنامه ی ساعت عقربه ای :اول یک تایمر بر روی فرم خود ایجاد کن و اینتروال آن را برابر 1000 قرار بده.کد زیر را بنویس :
Private Sub Form_Load()Private Sub Timer1_Timer()
Form1.Refresh
X = Form1.Width / 2
Y = Form1.Height / 2.2
Circle (X, Y), Y - 200, vbWhite
Circle (X, Y), Y - 220, vbWhite
For i = 1 To 12
Circle (X + (Y - 400) * Cos(i * 22 / 42), Y + (Y - 400) * Sin(i * 22 / 42)), 50, vbRed
Next
h = Hour(Time())
If h > 12 Then
h = h - 12
End If
m = Minute(Time())
s = Second(Time())
Line (X, Y)-(X + (Y - 600) * Cos((66 / 14 + s * (44 / 420))), Y + (Y - 600) * Sin((66 / 14 + s * (44 / 420)))), vbBlue
Line (X, Y)-(X + (Y - 800) * Cos((66 / 14 + m * (44 / 420))), Y + (Y - 800) * Sin((66 / 14 + m * (44 / 420)))), vbYellow
Line (X, Y)-(X + (Y - 1200) * Cos(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420)), Y + (Y - 1200) * Sin(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420))), vbWhite
End Sub
متشکرم . ایمیل یادت نره . منتظر یک برنامه ی جالب باشیدComboBox
DirListBox
DriveLsitBoxFileListBox
خوب ! حالا آموزش جدید را آغاز می کنم:
برای فرمان دادن به کنترلهای فوق الذکر باید چند نکته زیر را بدانی:
1- برای فرمان دادن به کنترلهای
ListBox و ComboBox بیشتر از تابع Select Case استفاده می شود.2- سه کنترل دیگر معرفی شده ، کنترلهایی هستند که
غالبا فرمانهای آنها به صورت ترکیبی می باشد و اغلب در صورتیبا هم متصل می شوند.
ممکنه که بگی من منظور را درک نکرده ام. اما برای رفع این مشکل در ادامه چند کد حرفه ای برایت بازگو می کنم تامنظور را بهتر درک کنی.
من این موارد را به صورت جدا از هم آورده ام تا به خواننده یه جورایی کمک کرده باشم.
1- چگونگی کار با ListBox :برای فرمان دادن به این کنترل همانطور که گفته شد از
Select Case استفاده می شود. List Box ابزاری برای نگه داری و نمایش یک لیست از رشته ها است.چگونه می توان به
ListBox درج کرد؟برای آزمایش کلیدی را در فرم خود قرار داده و کد زیر را بنویسید :(
ListBox یادت نره)"
List1.AddItem "Hassan List1.Additem "Javad"اگر کد بالا را بنویسید هر دو آیتم به ترتیب در لیست درج می شوند. البته ما هنگام درج می توانیم تعیین کنیم که آیتم جدید
در کدام خانه قرار بگیرد :
List1.Additem "Hassan"List1.Additem "Javad" ,0
برای حذف کردن آیتم مورد نظر از لیست:
List1.RemoveItem "Namber"در مورد کد بالا باید بگویم که به جای
"Namber" باید اندیس مورد نظر را نوشت.مانند: List1.RemoveItem 1برای گرفتن اندیس آیتم انتخاب شده:
List1.ListIndexالبته می توان به جای استفاده از اندیس از موارد دیگر لیست استفاده کرد.اغلب برنامه نویسان به جای اندیس
از متن آن آیتم در برنامه نویسی استفاده می کنند که در این صورت میزان اشتباه کاهش می یابد:
List1.Textبرای حذف کردن تمامی آیتم ها از کد زیر استفاده می شود:
List1.Clearخوب ! برای گرفتن آیتم انتخاب شده که بیشتر ما به آن نیاز داریم باید از
Select Case استفاده کرد که به نظرمی آیدمانند تابع
If عمل می کند. به مثال زیر توجه کنید:همانطور که گفته شد من می خواهم مقدار متن لیست را بگیرم:
Select Case List1.Text Case "Hassan" EndCase "Javad"
Command1.Caption = "Javad" Select Endامیدوارم که از این بخش آموزش خوشت آمده باشد.
اگه به دنبال یک کد حرفه ای می گردی. من در این وبلاگ می ذارم تا تو هم لذت ببری.
2- چگونگی کار با ComboBox :
این کنترل ترکیبی از
ListBox و TextBox است . که سه شکل ( Style ) مختلف دارد 0.Dropdown Combo 1.Simple Combo 2.Dropdawn Listاولی یک
TextBox و ListBox جداشونده است.در دومی هردو زیر هم قرار دارند و در سومی ListBoxفقط باز شونده و با
TextBox فقط خواندنی است.کار با
Combo تا حد بسیار زیادی مشابه لیست است . فقط اینکه متن Combo در خاصیت Text است.برای آشنایی کد زیر می تواند به تو کمک کند:
Private Sub Form_ Load() Combo1.AddItem "*.bmp;*.jpg;*.gif" Combo1.AddItem "*.bmp" Combo1.AddItem "*.jpg" Combo1.AddItem "*.gif"همانطور که در مورد لیست برایت گفتم تابع
Select Case زیاد مورد استفاده قرار می گیرد.خوب برای
Combo هم از توابع مربوط به لیست استفاده می کنیم.برای آموزش کنترلهای دیگر حتما به وبلاگ من در هفته ی آینده یک سری بزن چون که خیلی زیبا می خواهم برایت
آموزش دهم .
دوست عزیز اگر مواردی را که من توضیح نداده ام و شما آن را می دانید حتما برایم در قسمت نظرات نظر خود را
بنویس.
را برایتان بازگو نمایم.
اگه از این کدها خوشتون آمد به ایمیل من سری بزنید تا برایتان برنامه های جدیدتری برایتان چت کنم. Hassan_Samonassab.1385.yahoo.com برای بازگو کردن این مطلب لازم است به دو سوال از دوستانی که برایم ایمیل کردن پاسخ دهم.1- جواد گفته: با سلام.ببخشید می خواهم چگونگی اضافه کردن یک عدد به اعداد دیگر را برای طراحی ماشین حساب
برایم بگویید؟
سلام جواد جان . برای پاسخ به سوال شما حرفی ندارم و فقط می توانی از کد زیر در ماشین حسابت استفاده کنی.
این کد را در دکمه ی مورد نظر کپی کن.
" عدد مورد نظر"
Text1.Text = Text1.Text +2- محسن گفته : . برنامه ای بنویسید که پول و نرخ بهره و روز را دریافت کند و سود حاصل را به صورت زیر نمایش دهد.
سود : پول × نرخ بهره × روز
ابزار های زیر را به برنامه اضافه کنید
Text1 برای وارد کردن پولText2
برای وارد کردن نرخ بهره Text3 برای وارد کردن روز Text4 برای نشان دادن سود حاصل و command1حال روی
command1 دابل کلیک کرده و دستور زبر را تایپ نماییدText4.Text = Text1.Text * Text2.Text * Text3.Text
ادامه سوالات را برای جلسه !
