Tugas Visual Basic 3

1. Modifikasi Program soal 1

 

Listing progam

Public Class Form1

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

        cmbKode.Items.Add("SPT")

        cmbKode.Items.Add("SND")

        cmbKode.Items.Add("TST")

        cmbKode.Items.Add("TOP")

        cmbKode.Items.Add("TAS")

    End Sub

    Private Sub cmbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKode.SelectedIndexChanged

        Dim kdBarang, namaBarang As String

        Dim harga As Single

        kdBarang = cmbKode.Text

        Select Case kdBarang

            Case "SPT"

                namaBarang = "Sepatu"

                harga = 200000

            Case "SND"

                namaBarang = "Sandal"

                harga = 100000

            Case "TST"

                namaBarang = "T-Sirt"

                harga = 1500000

            Case "TOP"

                namaBarang = "Topi"

                harga = 500000

            Case "TAS"

                namaBarang = "Tas"

                harga = 700000

            Case Else

                namaBarang = "-"

                harga = 0

        End Select

        txtNama.Text = namaBarang

        txtHarga.Text = harga

        txtTotal.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)

        txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)

        If radioTunai.Checked = True Then

            txtDiskon.Text = Val(txtTotal.Text) * 10 / 100

            txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)

        ElseIf radioKredit.Checked = True Then

            txtDiskon.Text = 0

            txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)

        End If

    End Sub

    Private Sub txtJumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJumlah.TextChanged

        txtTotal.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)

        txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)

    End Sub

    Private Sub radioTunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioTunai.CheckedChanged

        txtDiskon.Text = Val(txtTotal.Text) * 10 / 100

        txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)

    End Sub

    Private Sub radioKredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioKredit.CheckedChanged

        txtDiskon.Text = 0

        txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)

    End Sub

    Private Sub btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click

        txtDiskon.Clear()

        txtHarga.Clear()

        txtJumlah.Clear()

        txtTotal.Clear()

        txtNama.Clear()

        cmbKode.Text = ""

        Me.radioTunai.Checked = False

        Me.radioKredit.Checked = False

        cmbKode.Enabled = False

        radioKredit.Enabled = False

        radioTunai.Enabled = False

        txtJumlah.Enabled = False

        btClear.Enabled = False

    End Sub

    Private Sub btTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTutup.Click

        Me.Close()

    End Sub

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

        cmbKode.Enabled = True

        txtJumlah.Enabled = True

        radioKredit.Enabled = True

        radioTunai.Enabled = True

        btClear.Enabled = True

    End Sub

End Class

 

 2. Punzle:

Listing progam

 

Public Class Form1

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

Kode_randomisasi()

End Sub

Private Sub Kode_randomisasi()

Dim control As Windows.Forms.Control

For Each control In Me.Controls

If control.GetType.Name = "Button" Then

Dim rndnumber As Random

rndnumber = New Random

Dim number As Integer

control.Text = number

number = rndnumber.Next(1, 10)

Bt1.Text = number

If Bt2.Text = Bt1.Text Then

Do

number = rndnumber.Next(1, 10)

Bt2.Text = number

Loop Until Bt2.Text <> Bt1.Text

End If

If Bt3.Text = Bt2.Text Or Bt3.Text = Bt1.Text Then

Do

number = rndnumber.Next(1, 10)

Bt3.Text = number

Loop Until Bt3.Text <> Bt2.Text And Bt3.Text <> Bt1.Text

End If

If Bt4.Text = Bt3.Text Or Bt4.Text = Bt2.Text Or Bt4.Text = Bt1.Text Then

Do

number = rndnumber.Next(1, 10)

Bt4.Text = number

Loop Until Bt4.Text <> Bt3.Text And Bt4.Text <> Bt2.Text And Bt4.Text <> Bt1.Text

End If

If Bt5.Text = Bt4.Text Or Bt5.Text = Bt3.Text Or Bt5.Text = Bt2.Text Or Bt5.Text = Bt1.Text Then

Do

number = rndnumber.Next(1, 10)

Bt5.Text = number

Loop Until Bt5.Text <> Bt4.Text And Bt5.Text <> Bt3.Text And Bt5.Text <> Bt2.Text And Bt5.Text <> Bt1.Text

End If

If Bt6.Text = Bt5.Text Or Bt6.Text = Bt4.Text Or Bt6.Text = Bt3.Text Or Bt6.Text = Bt2.Text Or Bt6.Text = Bt1.Text Then

Do

number = rndnumber.Next(1, 10)

Bt6.Text = number

Loop Until Bt6.Text <> Bt5.Text And Bt6.Text <> Bt4.Text And Bt6.Text <> Bt3.Text And Bt6.Text <> Bt2.Text And Bt6.Text <> Bt1.Text

End If

If Bt7.Text = Bt6.Text Or Bt7.Text = Bt5.Text Or Bt7.Text = Bt4.Text Or Bt7.Text = Bt3.Text Or Bt7.Text = Bt2.Text Or Bt7.Text = Bt1.Text Then

Do

number = rndnumber.Next(1, 10)

Bt7.Text = number

Loop Until Bt7.Text <> Bt6.Text And Bt7.Text <> Bt5.Text And Bt7.Text <> Bt4.Text And Bt7.Text <> Bt3.Text And Bt7.Text <> Bt2.Text And Bt7.Text <> Bt1.Text

End If

If Bt8.Text = Bt7.Text Or Bt8.Text = Bt6.Text Or Bt8.Text = Bt5.Text Or Bt8.Text = Bt4.Text Or Bt8.Text = Bt3.Text Or Bt8.Text = Bt2.Text Or Bt8.Text = Bt1.Text Then

Do

number = rndnumber.Next(1, 10)

Bt8.Text = number

Loop Until Bt8.Text <> Bt7.Text And Bt8.Text <> Bt6.Text And Bt8.Text <> Bt5.Text And Bt8.Text <> Bt4.Text And Bt8.Text <> Bt3.Text And Bt8.Text <> Bt2.Text And Bt8.Text <> Bt1.Text

End If

If Bt9.Text = Bt8.Text Or Bt9.Text = Bt7.Text Or Bt9.Text = Bt6.Text Or Bt9.Text = Bt5.Text Or Bt9.Text = Bt4.Text Or Bt9.Text = Bt3.Text Or Bt9.Text = Bt2.Text Or Bt9.Text = Bt1.Text Then

Do

number = rndnumber.Next(1, 10)

Bt9.Text = number

Loop Until Bt9.Text <> Bt8.Text And Bt9.Text <> Bt7.Text And Bt9.Text <> Bt6.Text And Bt9.Text <> Bt5.Text And Bt9.Text <> Bt4.Text And Bt9.Text <> Bt3.Text And Bt9.Text <> Bt2.Text And Bt9.Text <> Bt1.Text

End If

End If

Next

Btacak.Text = "Acak Angka"

If Bt1.Text = "9" Then

Bt1.Text = ""

End If

If Bt2.Text = "9" Then

Bt2.Text = ""

End If

If Bt3.Text = "9" Then

Bt3.Text = ""

End If

If Bt4.Text = "9" Then

Bt4.Text = ""

End If

If Bt5.Text = "9" Then

Bt5.Text = ""

End If

If Bt6.Text = "9" Then

Bt6.Text = ""

End If

If Bt7.Text = "9" Then

Bt7.Text = ""

End If

If Bt8.Text = "9" Then

Bt8.Text = ""

End If

If Bt9.Text = "9" Then

Bt9.Text = ""

End If

End Sub

Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click

If Bt2.Text = "" Then

Bt2.Text = Bt1.Text

Bt1.Text = ""

ElseIf Bt4.Text = "" Then

Bt4.Text = Bt1.Text

Bt1.Text = ""

End If

Berhasil()

End Sub

Private Sub Bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt2.Click

If Bt1.Text = "" Then

Bt1.Text = Bt2.Text

Bt2.Text = ""

ElseIf Bt3.Text = "" Then

Bt3.Text = Bt2.Text

Bt2.Text = ""

ElseIf Bt5.Text = "" Then

Bt5.Text = Bt2.Text

Bt2.Text = ""

End If

Berhasil()

End Sub

Private Sub Bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt3.Click

If Bt2.Text = "" Then

Bt2.Text = Bt3.Text

Bt3.Text = ""

ElseIf Bt6.Text = "" Then

Bt6.Text = Bt3.Text

Bt3.Text = ""

End If

Berhasil()

End Sub

Private Sub Bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt4.Click

If Bt1.Text = "" Then

Bt1.Text = Bt4.Text

Bt4.Text = ""

ElseIf Bt5.Text = "" Then

Bt5.Text = Bt4.Text

Bt4.Text = ""

ElseIf Bt7.Text = "" Then

Bt7.Text = Bt4.Text

Bt4.Text = ""

End If

Berhasil()

End Sub

Private Sub Bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt5.Click

If Bt2.Text = "" Then

Bt2.Text = Bt5.Text

Bt5.Text = ""

ElseIf Bt4.Text = "" Then

Bt4.Text = Bt5.Text

Bt5.Text = ""

ElseIf Bt6.Text = "" Then

Bt6.Text = Bt5.Text

Bt5.Text = ""

ElseIf Bt8.Text = "" Then

Bt8.Text = Bt5.Text

Bt5.Text = ""

End If

Berhasil()

End Sub

Private Sub Bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt6.Click

If Bt3.Text = "" Then

Bt3.Text = Bt6.Text

Bt6.Text = ""

ElseIf Bt5.Text = "" Then

Bt5.Text = Bt6.Text

Bt6.Text = ""

ElseIf Bt9.Text = "" Then

Bt9.Text = Bt6.Text

Bt6.Text = ""

End If

Berhasil()

End Sub

Private Sub Bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt7.Click

If Bt4.Text = "" Then

Bt4.Text = Bt7.Text

Bt7.Text = ""

ElseIf Bt8.Text = "" Then

Bt8.Text = Bt7.Text

Bt7.Text = ""

End If

Berhasil()

End Sub

Private Sub Bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt8.Click

If Bt5.Text = "" Then

Bt5.Text = Bt8.Text

Bt8.Text = ""

ElseIf Bt7.Text = "" Then

Bt7.Text = Bt8.Text

Bt8.Text = ""

ElseIf Bt9.Text = "" Then

Bt9.Text = Bt8.Text

Bt8.Text = ""

End If

Berhasil()

End Sub

Private Sub Bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt9.Click

If Bt6.Text = "" Then

Bt6.Text = Bt9.Text

Bt9.Text = ""

ElseIf Bt8.Text = "" Then

Bt8.Text = Bt9.Text

Bt9.Text = ""

End If

Berhasil()

End Sub

Private Sub Berhasil()

If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt9.Text = "" Then

MessageBox.Show("Selamat Anda Menang")

End If

End Sub

Private Sub Btacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btacak.Click

Kode_randomisasi()

End Sub

End Class