سه شنبه , 12 دسامبر 2017
سرخط خبرها
خانه - کامپیوتر - برنامه نویسی - اموزش ویژوال بیسیک

اموزش ویژوال بیسیک

ویژوال بیسیکدر این ساعت جلسه دوم اموزش های ویژوال بیسیک را که توسط استاد اقا رضی در دانشگاه علمی کاربردی واحد سر دفتران و دفتر یاران تدریس شده را قرار دادم .در این پست چند نمونه سوال امتهانی ویژوال بیسیک هم وجود دارد .

برنامه ای بنوسید که دارای یک 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

اموزش ویژوال بیسیک
به این مطلب امتیاز دهید
نت های پیانو نت های ویولن نت های سنتور نت های گیتار

همچنین ببینید

طراحی سایت موسیقی

طراحی سایت برای آموزشگاه های موسیقی

طراحی سایت آموزشگاه های موسیقی یکی از خدمات طراحی وب سایت گروه نرم افزار تی …

پاسخ دهید

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