<head>
<title>
Adi Santoso | 04211039 | SI
</title>
<style>
body, table th, table td
{
font-family: batang,verdana;
font-size: 14px;
}
table td, table th
{
padding: 3px;
}
</style>
</head>
<BODY>
<center><h1><font color="black" >Tugas 2 </font></h1> <h4><font color="black">Adi Santoso (04211039)</font></h4></center>
<p>Ada sebuah biro travel menentukan jumlah armada yang berangkat dengan ketentuan sebagai berikut :<br>
<p>a. 1 Bus Besar berisi 50 penumpang.<br>
<p>b. 1 Bus Kecil berisi 7 penumpang.<br>
<b><p>Pertanyaan :</b><br><br>
1. Buat aplikasi dengan input awal jumlah penumpang.<br><br>
2. Output adalah informasi : <br>
    Penumpang bus besar<br>
    Penumpang bus kecil<br>
    Penumpang ditolak<br>
<br>
<i><font color="red">Syarat : Bus besar berangkat terlebih dahulu dan jika kondisi penumpang penuh</font></i>
<hr>
<center>
<b>.: Jawaban :.<b>
</center>
<hr>
<FORM NAME="frmMyForm">
Masukkan Jumlah Penumpang :   <INPUT name="adi" size="5"> Penumpang<br></br>
<INPUT TYPE=button VALUE="Keperluan Bus" NAME="cek">
<INPUT TYPE=reset VALUE="Reset" ><br><br>
<table border=1 style="border-collapse: collapse" bgcolor="lavender">
<tr><th>Jenis</th><th>   Kebutuhan Bus   </th></tr>
 : <tr>
<td>   Bus besar   </td><td>   <Input name="bus_besar" size="5" /> </td>
</tr>
<tr>
<td>   Bus kecil   </td><td>   <Input name="bus_kecil" size="5" /> </td>
</tr>
<tr>
<td>   Penumpang Ditolak   </td><td>   <Input name="bus_tolak" size="1" /> orang</td>
</tr>
</table></td>
</FORM>
<SCRIPT type="text/vbscript">
Dim max_busbesar,max_buskecil,penumpang,sm,sn,sisa,sisaB
Sub cek_OnClick
max_busbesar = 50
max_buskecil = 7
penumpang = cdbl(frmMyForm.adi.value)
sm = 0
sn = 0
sisa = 0
sisaB = 0
if penumpang < max_buskecil then
sisa = penumpang
frmMyForm.bus_tolak.value = sisa
frmMyForm.bus_besar.value = "0"
frmMyForm.bus_kecil.value = "0"
elseif penumpang >= max_buskecil and penumpang < max_busbesar then
sm = penumpang mod max_buskecil
sisa = int(penumpang / max_buskecil)
if sm = 0 then
frmMyForm.bus_kecil.value = sisa
frmMyForm.bus_tolak.value = "0"
frmMyForm.bus_besar.value = "0"
else
frmMyForm.bus_tolak.value = sm
frmMyForm.bus_kecil.value = sisa
frmMyForm.bus_besar.value = "0"
end if
else
sn = penumpang mod max_busbesar
if sn = 0 then
sisa = int(penumpang/max_busbesar)
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_tolak.value = "0"
frmMyForm.bus_kecil.value = "0"
else
sm = sn mod max_buskecil
sisa = int(penumpang/max_busbesar)
sisaB = int(sn / max_buskecil)
if sm = 0 then
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_kecil.value = sisaB
frmMyForm.bus_tolak.value = "0"
else
if sn < max_buskecil then
frmMyForm.bus_tolak.value = sm
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_kecil.value = "0"
else
frmMyForm.bus_tolak.value = sm
frmMyForm.bus_besar.value = sisa
frmMyForm.bus_kecil.value = sisaB
end if
end if
end if
end if
End Sub
</SCRIPT>
</BODY>
</HTML>
Hasil Running :
Tugas 2
Adi Santoso (04211039)
Ada sebuah biro travel menentukan jumlah armada yang berangkat dengan ketentuan sebagai berikut :
a. 1 Bus Besar berisi 50 penumpang.
b. 1 Bus Kecil berisi 7 penumpang.
Pertanyaan :
1. Buat aplikasi dengan input awal jumlah penumpang.
2. Output adalah informasi :
Penumpang bus besar
Penumpang bus kecil
Penumpang ditolak
Syarat : Bus besar berangkat terlebih dahulu dan jika kondisi penumpang penuh
.: Jawaban :.
0 komentar:
Posting Komentar