• View
  213

• Download
  0

Visual Basic merupakan bahasa pemrograman yang dapat digunakan untuk membuat suatu program sederhana. Berikut adalah contoh langkah-langkah penggunaan visual basic 2010 dalam membuat program kasir. Nah, gue mau berbagi sedikit ilmu gue nih guys tentang pemrograman, cocok banget buat lo semua yang kuliah di jurusan programming k.

Embed Size (px)

DESCRIPTION

membuat warna

Text of Membuat Warna Visual Basic

Example 18

Example 18.1

The Code:Dim strColor As String

Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChangedstrColor = 'Red'End Sub

Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChangedstrColor = 'Green'End Sub

Private Sub RadioYellow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioYellow.CheckedChangedstrColor = 'Yellow'End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel2.Text = strColorEnd SubAlthough the user may only select one item at a time, he may make more than one selection if those items belong to different categories. For example, the user wish to choose T-shirt size and color, he needs to select one color and one size, which means one selection in each category. This is easily achieved in VB2008 by using the Groupbox control under the containers categories. After inserting the Groupbox into the form, you can proceed to insert the radio buttons into the Groupbox. Only the radio buttons inside the Groupbox are mutually exclusive, they are not mutually exclusive with the radio buttons outside the Groupbox. In Example 18.2, the users can select one color and one size of the T-shirt.Example 18.2

Dim strColor As StringDim strSize As String

Cara Download Visual Basic

Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChangedstrColor = 'Red'End Sub

Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChangedstrColor = 'Green'End Sub

Microsoft Visual Basic 6.0

Private Sub RadioYellow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioYellow.CheckedChangedstrColor = 'Yellow'End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel2.Text = strColorLabel4.Text = strSizeEnd Sub

Private Sub RadioXL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioXL.CheckedChangedstrSize = 'XL'End Sub

Private Sub RadioL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioL.CheckedChangedstrSize = 'L'End Sub

Private Sub RadioM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioM.CheckedChangedstrSize = 'M'End Sub

Private Sub RadioS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioS.CheckedChangedstrSize = 'S'End Sub