آخرین خبرها

نمونه سوال ویژوال بیسیک

vb 200x100 - نمونه سوال ویژوال بیسیکجلسه سوم کلاس های ویژوال بیسیک را که توسط استاد اقا رضی در دانشگاه علمی کار بردی واحد سر ئفتران و دفتر یاران تدریس شده بود را در این ساعت قرار دادم تا شما دوستان نیز از ان استفاده کنید.سوالات و مشکلاتتان را با ما در میان بگذارید.

برنامه ای بنوسید که دارای یک باتن و یک لیبل باشد این برنامه به گونه ای کار کند که با هر بار کلیک روی باتن یک عدد به عدد قبلی اضافه کرده و ان را در لیبل به نمایش در بیارد.

برای این کار در بالا ترین قسمت فرم یک متغیر از نوع اینتیجر و یک متغیر از نوع استرینگ تعریف می کنیم.

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

Rate this post
نت های پیانو نت های ویولن نت های سنتور نت های گیتار

درباره‌ی vahid ezati

دوست دارم دارم تا تمام چیزی را که می دانم در اختیار بازدید کنندگان وب سایت قرار دهم پیشنهادات و انتقادات شما بنده را خوشحال می کند

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *