جلسه سوم کلاس های ویژوال بیسیک را که توسط استاد اقا رضی در دانشگاه علمی کار بردی واحد سر ئفتران و دفتر یاران تدریس شده بود را در این ساعت قرار دادم تا شما دوستان نیز از ان استفاده کنید.سوالات و مشکلاتتان را با ما در میان بگذارید.
برنامه ای بنوسید که دارای یک باتن و یک لیبل باشد این برنامه به گونه ای کار کند که با هر بار کلیک روی باتن یک عدد به عدد قبلی اضافه کرده و ان را در لیبل به نمایش در بیارد.
برای این کار در بالا ترین قسمت فرم یک متغیر از نوع اینتیجر و یک متغیر از نوع استرینگ تعریف می کنیم.
Public Class Form1
Dim aa As Integer
Dim cc As String
سپس روی باتم کلیک می کنیم و کد های زیر را در قسمت مربوط به کد های کلیک باتن وارد می کنیم.7
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
aa = aa + 1
cc = Str(aa)
Label1.Text = Label1.Text + cc
End Sub
برنامه ای بنوسید که دو تکس باکس و یک کنترل باتن باشد برنامه را طوری بنوسید که زمانی که روی باتم کلیک کردیم دو عدد وارد شده در دو تکس باک را با هم جمع کرده و در لیبلی جدا نمایش دهد.
برای این کار بر روی باتن دو بار کلیک کرده و کد های زیر را در قسمت مربوطه وارد می کنیم.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
در برنامه سوال قبل کدی را بنوسید که باکلیک روی یک باتن عملی مانند عمل پاک کردن اخرین عدد ماشین حساب را انجام دهد .
مثلا اگر عدد 123456789 را در لیبل داشته باشیم با کلیک روی این باتم عدد اخر پاک شود و با هر بار کلیک یک عدد اخر حذف شود .
برای این کار می بایست تکس عددی داخل لیبل را به عدد تبدیل کنیم سپس عدد بدست امده را تقسیم بر ده کنیم تا یکان عدد بدست امده حذف شود سپس عدد بدست امده را در لیبل نمایش دهیم.
یک باتم دیگر بر روی فرم ایجاد کنید و پس از کلیک روی باتن مورد نظر کد زیر را در ان وارد کنید .
cc = Val(Label1.Text)
bb = cc \ 10
Label1.Text = Str(bb)
فرم جدیدی باز کنید 2 تکس باکس در ان قرار دهید و سه باتم رو ی ان قرار دهید نام باتن ها را به ترتیب + – و = قرا دهید
برنامه ای بنوسید تا کار برد در هر تکس باکس یک عدد وارد کند و سپس یکی از دکمه های + یا – را کلیک کند و سپس = را کلیک کند برنامه با توجه به فشرده شدن + یا – نتیجه را با فشردن کلیک مساوی در یک لیبل نمایش دهد.
Public Class Form1
+64
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = “+”
Button2.Text = “-“
Button3.Text = “=”
Label3.Text = “”
Label1.Text = “”
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
aa = “1”
Label3.Text = “+”
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
aa = “2”
Label3.Text = “-“
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If (aa = “1”) Then
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End If
If (aa = “2”) Then
Label1.Text = Val(TextBox1.Text) – Val(TextBox2.Text)
End If
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
End Class
سوال قبلی را طوری تعغیر دهید تا به جای وارد کردن عدد در دو تکس باکس عدد را در یک تکس باکس وارد کنیم
Public Class Form1
Dim aa As Char
Dim adda As Integer
Dim addb As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = “+”
Button2.Text = “-“
Button3.Text = “=”
Label3.Text = “”
Label1.Text = “”
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
aa = “1”
Label3.Text = “+”
adda = Val(TextBox1.Text)
TextBox1.Text = “”
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
aa = “2”
Label3.Text = “-“
adda = Val(TextBox1.Text)
TextBox1.Text = “”
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
addb = Val(TextBox1.Text)
TextBox1.Text = “”
If (aa = “1”) Then
Label3.Text = adda + addb
End If
If (aa = “-“) Then
Label3.Text = adda – addb
End If
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
End Class