آخرین خبرها

تمرین ویژوال بیسیک

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

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

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

  Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

        Me.BackColor = Color.Red

    End Sub

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

و بار دیگر روی گزینه دابل کلیک کلیمی کنیم و کد های زیر را وارد می کنیم.

   Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick

        Me.BackColor = Color.Yellow

    End Sub

سه باتن روی قرار دهید کدی را وارد کنید که نوشته روی هر کلید را به ترتیب ابی قرمز و سبز قرار دهد.

برای این کار ابتدا سه باتم به فرم اضافه می کنیم سپس در فضای خالی از فرم کلیک می کنیم و کد های زیر را در رویداد لود فرم وارد می کنیم .

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.Text = “قرمز “

        Button2.Text = “ابی”

        Button3.Text = “زرد”

    End Sub

End Class

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

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.BackColor = Color.Red

    End Sub

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.BackColor = Color.Blue

    End Sub

بعد از ان روی باتن مربوط به رنک زرد کلیک می کنیم و مانند مراحل قبل کد زیر را در ان وارد می کنیم.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.BackColor = Color.Yellow

    End Sub

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

برای این کار ابتدا روی باتن 1 کلیک و کد زیر را در ان وارد می کنیم.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.BackColor = Color.Red

        Button2.Enabled = False

        Button3.Enabled = False

سپس روی دکمه دوم کلیک کرده و کد زیر را وارد می کنیم

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.BackColor = Color.Red

        Button1.Enabled = False

        Button3.Enabled = False

    End Sub

و به همین ترتیب کلیک باتن 3 را ویرایش می کنیم.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.BackColor = Color.Red

        Button1.Enabled = False

        Button2.Enabled = False

    End Sub

در سوال قبل کلیدی را روی فرم قرار دهید تا با کلیک کردن ان کلید های غیر فعال شده مجدد فعال شوند.(بر روی کلید هم درج شود فعال سازی)

برای این کار ابتدا روی قسمت خالی فرم دابل کلیک کنید و کد زیر را در آن وارد کنید.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.Text = “قرمز “

        Button2.Text = “ابی”

        Button3.Text = “زرد”

        Button4.Text = “فعال سازی”

    End Sub

سپس روی باتم 4 کلیک کنید و کد زیر را برای فعال سازی کلید های غیر فعال شده وارد کنید.

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Button1.Enabled = True

        Button2.Enabled = True

        Button3.Enabled = True

یک کلید دیگر روی فرم قرار دهید و متن روی ان را خروج بگذارید .

برای این کار روی فضای خالی فرم کلیک کنید و کد زیر را وارد کنید.

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.Text = “قرمز “

        Button2.Text = “ابی”

        Button3.Text = “زرد”

        Button4.Text = “فعال سازی”

        Button5.Text = “خروج”

کدی برای کید 5 بنوسید تا وقتی روی کلید 5 کلیک کردیم از برنامه خارج شویم.

برای این کار کد زیر را بر روی رویداد کلیک 5 وارد می کنیم.

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        End

    End Sub

End Class

کد

End

باعث می شود که از برنامه خارج شویم.

اگر شاگرد استاد رضی هستید نظر یادتون نره .

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

درباره‌ی vahid ezati

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

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

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