آخرین خبرها

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

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

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

4.5/5 - (2 امتیاز)
نت های پیانو نت های ویولن نت های سنتور نت های گیتار

درباره‌ی vahid ezati

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

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

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