DATA FAKTUR
Latihan Web PHP 1
BENS FLORIS
|
No Transaksi: Kode Bunga : Jumlah Beli : Jenis Kirim :Diantar Tidak Diantar |
112
switch($mk)
{
case "Borland":
$biaya=100000;
$pert=10;
break;
case "Visual Basic":
$biaya=200000;
$pert=20;
break;
default:
$biaya=300000;
$pert=30;
break;
}
{
if (strcmp($tp,"Khusus(10siswa)")==0)
$adm=100000;
if (strcmp($tp,"Khusus(30siswa)")==0)
$adm=200000;
if (strcmp($tp,"Khusus(50siswa)")==0)
$adm=300000;
}
$bdx=0;
$bdy=0;
$bdz=0;
if($x){$bdx=50000;}
if($y){$bdx=100000;}
if($z){$bdx=200000;}
$tbd=$bdx+$bdy+$bdz;
$t=$tbd+$biaya+$adm;
echo"DAFTAR PENDAFTAR
";
echo"Tanggal Daftar :";
echo(Date("d/D-F-Y"));
echo"
";
echo"No Pendaftar :$no
";
echo"Nama Pendaftar : $nm
";
echo"Materi Kelas : $mk
";
echo"Biaya :RP.$biaya
";
echo"Pertemuan :$pert x
";
echo"Type kelas :$tp
";
echo"Administrasi :Rp.$adm
";
echo"Biaya Dosen :Rp.$tbd
";
echo"Total biaya :Rp.$t
";
echo"
";
echo(date("H:I:S"));
echo"
";
?>
belajar php " kelas komputer"
Coding Input
<!doctype html public "-//W3C//DTD HTML 4.0 //EN">
<html>
<head>
<title>INPUT UTS</title>
</head>
<body bgcolor=black>
<form method=get action=okursus.php>
<font size=4 color=black;
<table border=4 width=10%bg color=black callspasing=5 cellpadding=25
align=center>
<pre>
<tr><td colspan="10"><strong><div align="center">
<blink><font size=6 color=red>Kelas Komputer</font></blink></div></strong></tr></td>
<tr>
<td>
No.Pendaftar : <td><input type="number" name=no size=5></td></tr>
<tr>
<td>
Nama Pendaftar : <td><input type="text" name=nm size=25></td></tr>
<tr>
<td>
Materi Kelas : <td><select name=mk><option>Borland</option>
<option>Vissual Basic</option>
<option>Web Programing</option> </tr></td>
<tr>
<td>
Type Kelas : <td><input type="radio" name=tp value=khusus (10siswa)><font color=black>khusus(10siswa)</font>
<input type="radio" name=tp value=khusus (20siswa)><font color=black>khusus(20siswa)</font>
<input type="radio" name=tp value=khusus (30siswa)><font color=black>khusus(30siswa)</font></tr></td>
<tr>
<td>
Pilih Dosen : <td><input type="checkbox" name=x>burhan S.com <br>
<input type="checkbox" value=y> Somad Spd <br>
<input type="checkbox" value=z> Rizky.MM </tr></td>
<tr><td colspan="6">
<div align="center"><input type="submit"name=Proses value=Proses>
<input type="reset"name=reset value=Batal></div>
</tr>
</td>
</form>
</pre>
</body>
</html>
Coding Output
<!doctype html public "-//W3C//DTD HTML 4.0 //EN">
<html>
<head>
<title>OUTPUT UTS</title>
</head>
<body bgcolor=black>
<font size=4 color=#DFE925>
<pre>
<?
switch($mk)
{
case "Borland":
$biaya=100000;
$pert=10;
break;
case "Visual Basic":
$biaya=200000;
$pert=20;
break;
default:
$biaya=300000;
$pert=30;
break;
}
{
if (strcmp($tp,"Khusus(10siswa)")==0)
$adm=100000;
if (strcmp($tp,"Khusus(30siswa)")==0)
$adm=200000;
if (strcmp($tp,"Khusus(50siswa)")==0)
$adm=300000;
}
$bdx=0;
$bdy=0;
$bdz=0;
if($x){$bdx=50000;}
if($y){$bdx=100000;}
if($z){$bdx=200000;}
$tbd=$bdx+$bdy+$bdz;
$t=$tbd+$biaya+$adm;
echo"<font color=#00FF00><strong>DAFTAR PENDAFTAR</strong></font><br>";
echo"Tanggal Daftar :";
echo(Date("d/D-F-Y"));
echo"<br>";
echo"No Pendaftar :$no <br>";
echo"Nama Pendaftar : $nm <br>";
echo"Materi Kelas : $mk<br>";
echo"Biaya :RP.$biaya<br>";
echo"Pertemuan :$pert x<br>";
echo"Type kelas :$tp <br>";
echo"Administrasi :Rp.$adm<br>";
echo"Biaya Dosen :Rp.$tbd<br>";
echo"Total biaya :Rp.$t<br>";
echo"<br>";
echo(date("H:I:S"));
echo"<br>";
?>
</pre>
</body>
</html>
Latihan Uas VB 1
' 1. Membersihkan Teks
Sub
bersih()
txtno.Text = ""
Option1.Value = False
Option2.Value = False
cbkode.Text = "-pilih-"
txtlama.Text = ""
txtkembali.Text = ""
End Sub
' 2. Membuat No. Otomatis
Private Sub cmdadd_Click()
bersih
If adopinjam.Recordset.RecordCount > 0 Then
adopinjam.Recordset.MoveLast
txtno.Text = Val(adopinjam.Recordset!nopinjam) + 1
Else
txtno.Text = 1
End If
End Sub
' 3. Menampilkan Jenis kode berdasarkan kode buku
Private Sub cbkode_Click()
Private Sub cmdadd_Click()
bersih
If adopinjam.Recordset.RecordCount > 0 Then
adopinjam.Recordset.MoveLast
txtno.Text = Val(adopinjam.Recordset!nopinjam) + 1
Else
txtno.Text = 1
End If
End Sub
' 3. Menampilkan Jenis kode berdasarkan kode buku
Private Sub cbkode_Click()
If cbkode.Text =
"EK1" Then
txtjenis.Text = "Ekonomi"
ElseIf
cbkode.Text = "AL1" Then
txtjenis.Text = "Algoritma"
Else
txtjenis.Text = "Bahasa"
End If
End Sub
'4. Menghitung Tanggal
Kembali
Private Sub txtlama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13
Then
txtkembali.Text = DTPicker1.Value + Val(txtlama.Text)
End If
End Sub
'5. Menyimpan Ke Tabel
Pinjam
Private Sub cmdsave_Click()
With
adopinjam.Recordset
.AddNew
!nopinjam = txtno.Text
!kdbuku = cbkode.Text
!tglpinjam = DTPicker1.Value
!tglkembali = txtkembali.Text
If Option1.Value = True Then
!Status = Option1.Caption
else
!Status = Option2.Caption
End If
.Update
MsgBox
"Data Tersimpan ", vbOKOnly, "Pemberitahuan"
End With
End Sub'6. Menghapus Record
Private Sub cmddel_Click()
If MsgBox("Delete This Record ? ", vbOKCancel, "Confirm") = vbOK Then
adopinjam.Recordset.Delete
End If
End Sub
'7. Menutup Form
Private Sub cmdexit_Click()
If MsgBox("Close This Form ? ", vbOKCancel, "Confirm") = vbOK Then
Unload Me
End If
End Sub
' 8. Tombol Navigasi
Private Sub cmdfirst_Click()
adopinjam.Recordset.MoveFirst
MsgBox "Awal Record!"
End Sub
Private Sub cmdlast_Click()
adopinjam.Recordset.MoveLast
MsgBox "Akhir Record!"
End Sub
Private Sub cmdnext_Click()
If adopinjam.Recordset.EOF = False Then
adopinjam.Recordset.MoveNext
Else
MsgBox "Awal Record!"
End If
End Sub
Private Sub cmdprev_Click()
If adopinjam.Recordset.BOF = False Then
adopinjam.Recordset.MovePrevious
Else
MsgBox "Awal Record!"
download artisteer 2.5
Artisteer memiliki vitur yang sangat lengkap ,konsepnya seperti Microsoft Office .Bisa digunakan untuk membuat template untuk Blogger ,wordpress ,typepad ,HTML dan lain-lain.Disamping itu artisteer juga memiliki tool yang mudah ,anda tidak perlu ahli dalam kode HTML atau yang lainya karena ini merupakan software pembuat template yang instan.
Subscribe to:
Posts (Atom)
