Showing posts with label pemrograman. Show all posts
Showing posts with label pemrograman. Show all posts

belajar php " kelas komputer"

INPUT UTS

Kelas Komputer
No.Pendaftar :
Nama Pendaftar :
Materi Kelas :
Type Kelas : khusus(10siswa) khusus(20siswa) khusus(30siswa)
Pilih Dosen : burhan S.com
Somad Spd
Rizky.MM
OUTPUT UTS 
 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>
Share
»»  Baca lagi... Best Regard,
This share facebook Posted by Unknown 0 comments
Labels:

Latihan vb Toko Digital LG

 design layout

  Hasil run
 
 
 
 
 
 
Private Sub cmdkeluar_Click()
If MsgBox("Apakah Anda yakin mau keluar ?", vbQuestion + vbYesNo, "information") = vbYes Then
End
End If
End Sub

Private Sub cmdbersih_Click()
cmbkode.Text = ""
txtnama.Text = ""
txtharga.Text = ""
txtjumbel.Text = ""
txtpajak.Text = ""
txttotal.Text = ""
txtbonus.Text = ""
cmbkode.SetFocus
End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 txtpajak.Text = 0.01 * txtharga.Text * Val(txtjumbel.Text)
 txttotal.Text = txtharga.Text * Val(txtjumbel.Text) + txtpajak.Text
If Val(txttotal.Text) >= 1550000 Then
 txtbonus.Text = "JAM TANGAN"
Else
txtbonus.Text = "tidak dapat"
End If
End If
End Sub

Private Sub cmbkode_Click()
If cmbkode.ListIndex = 0 Then
 txtnama.Text = " MESIN CUCI"
 txtharga.Text = 2000000
ElseIf cmbkode.ListIndex = 1 Then
 txtnama.Text = "KULKAS"
 txtharga.Text = 1750000
ElseIf cmbkode.ListIndex = 2 Then
 txtnama.Text = "TELEVISI"
 txtharga.Text = 1500000
End If
 txtjumbel.SetFocus

End Sub

Private Sub Form_Load()
cmbkode.AddItem ("A001")
cmbkode.AddItem ("A002")
cmbkode.AddItem ("A003")
End Sub


Private Sub txtnama_Change()

End Sub
Share
»»  Baca lagi... Best Regard,
This share facebook Posted by Unknown 0 comments
Labels:

Latihan Pemrograman Visial Basic

Quis Vibi Lab E\MLE
  • Desai Form sbb:
  1. Logika dan ketentuan soal
-          Input nama penumpang
-          Input kelas
KELAS
KETERANGAN
1
EXECUTIVE
2
BISNIS
3
EKONOMI
-          Pilih tujuan maka harga akan tampil
Tujuan
Kelas
Harga
JAKARTA-
SURABAYA
1
310000
2
250000
3
170000
JAKARTA-
SOLO
1
260000
2
210000
3
150000
JAKARTA-
YOGYAKARTA
1
230000
2
170000
3
120000
-          Input Jumlah tiket maka Total akan tampil
TOTAL = harga tiket * jumlah tiket


  
 
Private Sub CMDBERSIH_Click()
TXTNAMA.Text = ""
TXTKELAS.Text = ""
LBLKELAS.Caption = ""
TXTHARGA.Text = ""
TXTJUMLAH.Text = ""
TXTTOTAL.Text = ""
OPTYOGYA.Value = False
OPTSOLO.Value = False
OPTSBY.Value = False
TXTNAMA.SetFocus
End Sub

Private Sub TXTKELAS_Change()
If TXTKELAS.Text = "1" Then
    LBLKELAS.Caption = "EXCLUSIVE"
ElseIf TXTKELAS.Text = "2" Then
    LBLKELAS.Caption = "BISNIS"
ElseIf TXTKELAS.Text = "3" Then
    LBLKELAS.Caption = "EKONOMI"
Else
    LBLKELAS.Caption = "SALAH INPUT"
End If
End Sub


Private Sub OPTSBY_Click()
If TXTKELAS.Text = "1" Then
    TXTHARGA.Text = 310000
ElseIf TXTKELAS.Text = "2" Then
    TXTHARGA.Text = 250000
Else
    TXTHARGA.Text = 170000
End If
End Sub

Private Sub OPTSOLO_Click()
If TXTKELAS.Text = "1" Then
    TXTHARGA.Text = 260000
ElseIf TXTKELAS.Text = "2" Then
    TXTHARGA.Text = 210000
Else
    TXTHARGA.Text = 150000
End If
End Sub

Private Sub OPTYOGYA_Click()
If TXTKELAS.Text = "1" Then
    TXTHARGA.Text = 230000
ElseIf TXTKELAS.Text = "2" Then
    TXTHARGA.Text = 170000
Else
    TXTHARGA.Text = 120000
End If
End Sub




Private Sub TXTJUMLAH_Change()
TXTTOTAL.Text = Val(TXTHARGA.Text) * Val(TXTJUMLAH.Text)
End Sub

Private Sub CMDKELUAR_Click()
S = MsgBox("MAU KELUAR YAA...?", vbQuestion + vbYesNo, "INFORMASI")
If S = vbYes Then
    End
End If
End Sub
Share
»»  Baca lagi... Best Regard,
This share facebook Posted by Unknown 0 comments
Labels:
Subscribe to: Posts (Atom)
Image Hosted by ImageShack.us