Belajar Logika dan Pemrograman

Public Class Form1
Dim a As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
a = a + 1
If a = 1 Then
PictureBox1.ImageLocation = "F:\1\vb\082121774\moon01.ico"
ElseIf a = 2 Then
PictureBox1.ImageLocation = "F:\1\vb\082121774\moon02.ico"
ElseIf a = 3 Then
PictureBox1.ImageLocation = "F:\1\vb\082121774\moon03.ico"
ElseIf a = 4 Then
PictureBox1.ImageLocation = "F:\1\vb\082121774\moon04.ico"
ElseIf a = 5 Then
PictureBox1.ImageLocation = "F:\1\vb\082121774\moon05.ico"
ElseIf a = 6 Then
PictureBox1.ImageLocation = "F:\1\vb\082121774\moon06.ico"
ElseIf a = 7 Then
PictureBox1.ImageLocation = "F:\1\vb\082121774\moon07.ico"
ElseIf a = 8 Then
PictureBox1.ImageLocation = "F:\1\vb\082121774\moon08.ico"
Else
a = 0
End If
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Interval = 50
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
End Class

Download...

Public Class Form3
Dim harga As Decimal = 0
Dim x As Decimal = 0
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
harga = harga + 12.51
Else
harga = harga - 12.51
End If
x = harga * 9175
Label2.Text = "Rp. " & x
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
harga = harga + 9.68
Else
harga = harga - 9.68
End If
x = harga * 9175
Label2.Text = "Rp. " & x
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
harga = harga + 1.5
Else
harga = harga - 1.5
End If
x = harga * 9175
Label2.Text = "Rp. " & x
End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then
harga = harga + 25.25
Else
harga = harga - 25.25
End If
x = harga * 9175
Label2.Text = "Rp. " & x
End Sub
End Class

Download...

Public Class Form2

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

For Each x As RadioButton In GroupBox1.Controls
If x.Checked = True Then Label3.Text = x.Text
Next
For Each x As RadioButton In GroupBox2.Controls
If x.Checked = True Then Label4.Text = x.Text
Next
If Label3.Text = "" Or Label4.Text = "" Then
MessageBox.Show("Masukkan pilihan", "informasi")
End If
End Sub

End Class

Download...

public class demokeranjang
{
public static void main(String[] args)
{
barang sabun = new barang("Sabun", "001", 5000);
barang deterjen = new barang("Deterjen", "002", 7000);
barang shampoo = new barang("Shampoo", "003", 5000);

keranjang a = new keranjang();

a.masukkanBarang(sabun);
a.masukkanBarang(deterjen);
a.masukkanBarang(shampoo);

System.out.println("Isi keranjang awal : ");
System.out.print(a);
System.out.println("Total Harga Keranjang : "+a.totalHarga());

a.keluarkanBarang("003");

System.out.println("Setelah Keluarkan 003 : ");
System.out.print(a);
System.out.println("Total Harga Keranjang : "+a.totalHarga());
}
}

import java.util.ArrayList;

public class keranjang
{
private ArrayList k;

//konstruktor
public keranjang()
{
k = new ArrayList();
}

public void masukkanBarang(barang b)
{
k.add(b);
}

public void keluarkanBarang(String kode)
{
for(barang b:k)
{
if(b.getKode()==kode)
{
k.remove(b);
break;
}
}
}

public long totalHarga()
{
long total = 0;
for(barang b:k)
{
total+=b.getHarga();
}
return(total);
}

public String toString()
{
String str ="";
for(barang b:k)
{
str+=b.toString() + "\n";
}
return str;
}
}

Download...