در این ساعت جلسه دوم اموزش های ویژوال بیسیک را که توسط استاد اقا رضی در دانشگاه علمی کاربردی واحد سر دفتران و دفتر یاران تدریس شده را قرار دادم .در این پست چند نمونه سوال امتهانی ویژوال بیسیک هم وجود دارد .
برنامه ای بنوسید که دارای یک tex box و یک button باشد هنگامی که روی button کلیک می کنیم اعداد یک تا 10 را در textbox نمایش دهد 012345678910
برای این کار یک button و یک text box در فرم قرار می دهیم سپس بر روی button کلیک می کنیم و کد های زیر را در ان وارد می کنیم .
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aaa As Integer
Dim bbb As String
For aaa = 0 To 10
bbb = Str(aaa)
TextBox1.Text = TextBox1.Text + bbb
Next
End Sub
End Class
10 button روی فرم قرار دهید و برنامه ای بنوسید تا زمانی که روی هر button کلیک می کنیم اعداد صفر تا نه مربوط به هر button را در label نمایش دهد.
ابتدا برای عوض کردن text رو button ها روی قسمت خالی فرم کلیک می کنیم و کد های زیر را وارد می کنیم.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button0.Text = “0”
Button1.Text = “1”
Button2.Text = “2”
Button3.Text = “3”
Button4.Text = “4”
Button5.Text = “5”
Button6.Text = “6”
Button7.Text = “7”
Button8.Text = “8”
Button9.Text = “9”
End Sub
سپس برای وارد کردن عد د روی باتم ها هر باتم کلیک کنید و کد های زیر را وارد کنید
.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
برای باتم اول Label1.Text = “1”
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
برای باتم دوم و الی اخر Label1.Text = “2”
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = “3”
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Text = “4”
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label1.Text = “5”
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Label1.Text = “6”
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Label1.Text = “7”
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Label1.Text = “8”
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Label1.Text = “9”
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Label1.Text = “10”
End Sub
Private Sub Button0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button0.Click
Label1.Text = “0”
End Sub
End Class
در سوال قبل با هر بار کلیک کردن روی هر باتم هدد داخل لیبل عوض شده و عدد کلیک کرده شده جایگزین می شود .
برنامه ای بنوسید که با هر بار کلیک کردن روی باتم عدد قبلی لیبل پاک نشود بلکه عدد جدید جلوی عدد قبالی قرار بگیرد
برای مثال اگر شما اولین بار عدد 1 را فشار دادید عدد یک در لیبل نمایش داده شود و اگر دوباره عدد 2 را وارد کردید عدد 12 در لیبل نمایش داده شود و اگر دوباره عدد 8 را وارد کردید 128 در لیبل باکس نمایش داده شود (مکانیزم ماشین حساب
برای این کار روی هر باتم به صورت مجزا کلیک می کنیم و کد های زیر را وارد می کنیم
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
برای باتم 1 Label1.Text = Label1.Text + “1”
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
برای باتم 2 و الی اخر به همین ترتیب Label1.Text = Label1.Text + “2”
End Sub