TUGAS KELOMPOK MODUL 1 LISTING DAN ALGORITMA

Public Class Form1
Dim harga_awal, harga_akhir As Integer
Dim diskon As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ComboBox1
.Items.Add(“Flashdisk 2GB”)
.Items.Add(“Flashdisk 4GB”)
.Items.Add(“Flashdisk 6GB”)
.Items.Add(“Flashdisk 8GB”)
.Items.Add(“Hardisk 250 GB”)
.Items.Add(“Hardisk 160 GB”)
.Items.Add(“Hardisk 500 GB”)
.Items.Add(“Hardisk 1 TB”)
End With
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = (“Flashdisk 2GB”) Then
Label5.Text = (“30000”)
ElseIf ComboBox1.Text = (“Flashdisk 4GB”) Then
Label5.Text = (“50000”)
ElseIf ComboBox1.Text = (“Flashdisk 6GB”) Then
Label5.Text = (“120000”)
ElseIf ComboBox1.Text = (“Flashdisk 8GB”) Then
Label5.Text = (“170000”)
ElseIf ComboBox1.Text = (“Hardisk 250 GB”) Then
Label5.Text = (“400000”)
ElseIf ComboBox1.Text = (“Hardisk 160 GB”) Then
Label5.Text = (“600000”)
ElseIf ComboBox1.Text = (“Hardisk 500 GB”) Then
Label5.Text = (“700000”)
ElseIf ComboBox1.Text = (“Hardisk 1 TB”) Then
Label5.Text = (“1000000”)
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text >= 0 And TextBox1.Text = 21 And TextBox1.Text = 41 And TextBox1.Text = 61 Then
Label7.Text = (“45”)
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim total As Single
Dim total1 As Single
Dim diskon As Single
If Label7.Text > 0 Then
diskon = (Label5.Text * TextBox1.Text * Label7.Text) / 100
total = (Label5.Text * TextBox1.Text – diskon)
Label6.Text = total
ElseIf Label7.Text = 0 Then
total1 = Label5.Text * TextBox1.Text
Label6.Text = total1
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
End Class

ALGORITMA MODUL 1 TUGAS KELOMPOK
PROGRAM Kasir_toko_komputer
{menghitung jumlah harga pembelian barang beserta diskon yang diberikan pada pembelian dalam jumlah tertentu}
DEKLARASI
total : single {jumlah harga dengan diskon tertentu}
total1 : single {jumlah harga tanpa diskon}
diskon : single {diskon yang diberikan dalam pembelian dengan jumlah tertentu}
ALGORITMA
If Nama Barang = Flashdisk 2GB Then
Harga = 30000
ElseIf Nama Barang = Flashdisk 4GB Then
Harga = 50000
ElseIf Nama Barang = Flashdisk 6GB Then
Harga = 120000
ElseIf Nama Barang = Flashdisk 8GB Then
Harga = 170000
ElseIf Nama Barang = Hardisk 250 GB Then
Harga = 400000
ElseIf Nama Barang = Hardisk 160 GB Then
Harga = 600000
ElseIf Nama Barang = Hardisk 500 GB Then
Harga = 700000
ElseIf Nama Barang = Hardisk 1 TB Then
Harga = 1000000
End If
If Jumlah >= 0 And Jumlah = 21 And Jumlah = 41 And Jumlah = 61 Then
Diskon = (“45”)
End If
If diskon > 0 Then
Diskon = (Harga Satuan * Jumlah * Diskon) / 100
total = (Harga Satuan * Jumlah – diskon)
Harga = total
ElseIf diskon = 0 Then
total1 = Harga Satuan * Jumlah
Harga = total1
End If