کدهای آماده ویژوال بیسیک

ماشین حساب

86/1/18 , 2:16 ع نظر

یک Label به نام lblDisplay به عنوان نمایشگر ماشین حساب و با Caption برابر مقدار" 0" (زیرا مقدار اولیه ماشین‌حساب‌ها صفر می باشد) در محل خود قرار می دهیم. همچنین یکCommandButtonبه نام cmdequal به عنوان دکمه مساوی و با Caption برابر "=" نیز در محل مخصوص خود قرار می دهیم. حال ده عدد Command Botton دیگر با Caption های به ترتیب برابر " 0" تا "9 " را در جای خود قرار می دهیم و سپس نام همه این ده دکمه را به نام cmdNumber تغییر می دهیم. در این صورت همانطور که گفته شد، VB این ده کنترل را به صورت آرایه کنترلی (Control Array) در نظر خواهد گرفت (به پیغام داده شده با همین مضمون جواب Yes دهید). به همین ترتیب چهار CommandButton دیگر را با Captionهای "+ " و "- " و "* " و "/ " و با نام یکسان cmdOprator به عنوان دکمه های چهار عمل اصلی به صورت آرایه کنترلی در محل های خود قرار می دهیم. حال کافی است در یونیت مربوط به این فرم، چنین کدنویسی کنیم (توجه داشته باشید که متغیرهای x و y و op در سطح فرم (Form Level) تعریف شده اند و لذا مقدار آن در تمام فرم قابل دسترسی خواهد بود) :

Dim x, y As Integer Dim op As String Private Sub cmdNumber_Click(Index As Integer) If lblDisplay.Caption = "?" Then lblDisplay.Caption = "" lblDisplay.Caption = lblDisplay.Caption + cmdNumber(Index).Caption End Sub Private Sub cmdOprator_Click(Index As Integer) x = Val(Trim(lblDisplay.Caption)) op = cmdOprator(Index).Caption lblDisplay.Caption = "?" End Sub Private Sub cmdEqual_Click() y = Val(Trim(lblDisplay.Caption)) Select Case op Case "+" lblDisplay.Caption = x + y Case "-" lblDisplay.Caption = x - y Case "*" lblDisplay.Caption = x * y Case "/" lblDisplay.Caption = x / y End Select End Sub

جلوه گرافیکی

86/1/18 , 2:14 ع نظر

برای ایجاد این جلوه ، یک تایمر روی فرم بگذارید و خاصیت Interval آنرا برابر 20 قرار دهید که تعیین کننده سرعت ریزش است

Dim x(50), y(50), Velocity(50), Size(50) As Integer Private Sub Form_Load() "از این حلقه برای تعیین موقعیت و اندازه دانه های قطره استفاده شده است For i = 1 To 50 "موقعیت هر یک از دانه ها به صورت تصادفی در آرایه گذاشته می شود x(i) = Int(Me.Width * Rnd) y(i) = Int(Me.Height * Rnd) Velocity(i) = Int(500 - (Int(Rnd * 499))) "اندازه هر کدام از دانه ها به صورت تصادفی بین صفر و صد تعیین می شود Size(i) = 100 * Rnd Next End Sub Private Sub Timer1_Timer() For i = 1 To 50 "رسم دایره Circle (x(i), y(i)), Size(i), BackColor "ایجاد یک شمارنده برای تغییر موقعیت دانه ها y(i) = y(i) + Velocity(i) If y(i) >= Me.Height Then y(i) = 0 x(i) = Int(Me.Width * Rnd) End If Circle (x(i), y(i)), Size(i), vbWhite Next End Sub