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...

html

head
titleBrowser Informatio/title>

/head

body onload="info()"


h1Browser Information/h1
table border="1" width="400"
tr
thCode Name/th
td:/td
td id="code" /td
/tr

tr
thName/th
td:/td
td id="name" /td
/tr

tr
thVersion/th
td:/td
td id="version" /td
/tr

tr
thUser Agent/th
td>:/td
td id="agent" /td
/tr

tr
thPlatform/th
td:/td
td id="platform" /td
/tr
/table

script type="text/javascript"
document.getElementById("code").innerHTML = navigator.appCodeName;
document.getElementById("name").innerHTML = navigator.appName;
document.getElementById("version").innerHTML = navigator.appVersion;
document.getElementById("agent").innerHTML = navigator.userAgent;
document.getElementById("platform").innerHTML = navigator.platform;
/script
/body

/html

Download...

html

head
titleHTML DOM Table Object/title
/head

body
script type="text/javascript"
var p1 = document.createElement("p");
var t_p1 = document.createTextNode("Table Object Properties");
p1.appendChild(t_p1);

var table = document.createElement("table");
table.setAttribute("border","1");
table.setAttribute("width","500");
var tr1 = document.createElement("tr");
var th1_1 = document.createElement("th");
var th1_2 = document.createElement("th");
var t_th1_1 = document.createTextNode("Property");
var t_th1_2 = document.createTextNode("Description");
th1_1.appendChild(t_th1_1);
th1_2.appendChild(t_th1_2);
tr1.appendChild(th1_1);
tr1.appendChild(th1_2);
table.appendChild(tr1);

var tr2 = document.createElement("tr");
var td2_1 = document.createElement("td");
var td2_2 = document.createElement("td");
var t_td2_1 = document.createTextNode("border");
var t_td2_2 = document.createTextNode("Sets or returns the width of the table border");
td2_1.appendChild(t_td2_1);
td2_2.appendChild(t_td2_2);
tr2.appendChild(td2_1);
tr2.appendChild(td2_2);
table.appendChild(tr2);

var tr3 = document.createElement("tr");
var td3_1 = document.createElement("td");
var td3_2 = document.createElement("td");
var t_td3_1 = document.createTextNode("caption");
var t_td3_2 = document.createTextNode("Sets or returns the caption of a table");
td3_1.appendChild(t_td3_1);
td3_2.appendChild(t_td3_2);
tr3.appendChild(td3_1);
tr3.appendChild(td3_2);
table.appendChild(tr3);

document.body.appendChild(p1);
document.body.appendChild(table);
/script
/body
/html

Download...

html

head
titleTanggal & Waktu Sistem/title
script type="text/javascript"
function mulai(){
var nama_hari = new Array("Minggu","Senin","Selasa","Rabu","Kamis","Jumat","Sabtu");
var nama_bulan = new Array("Januari","Februari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","November","Desember");
var tanggal = new Date();
var hour = tanggal.getHours();
var minute = tanggal.getMinutes();
var second = tanggal.getSeconds();
var tgl = tanggal.getDate();
var day = tanggal.getDay();
var month = tanggal.getMonth();
var year = tanggal.getFullYear();
if(minute<10) minute="0"+tanggal.getMinutes();
if(second<10) second= "0"+tanggal.getSeconds();


document.getElementById("wkt").innerHTML = "Waktu: " + hour + ":" + minute + ":" + second;
document.getElementById("tgl").innerHTML = "Hari: " + nama_hari[day] + "," + tgl + " " + nama_bulan[month] + " " + year;
t = setTimeout("mulai()",1000);
}

/script
/head

body onload="mulai()"

Download...