Latihan_UTS VB

Buat tampilan sebagai berikut :

Private Sub ch1_Click()
If ch1 = 1 And ch2 = 0 Then
txttunj.Text = 10 / 100 * Val(txtgapok.Text)
Else
If ch1 = 0 And ch2 = 1 Then
txttunj.Text = 5 / 100 * Val(txtgapok.Text)
Else
If ch1 = 1 And ch2 = 1 Then
txttunj.Text = 15 / 100 * Val(txtgapok.Text)
Else
txttunj.Text = 0
End If
End If
End If
End Sub

Private Sub ch2_Click()
If ch1 = 1 And ch2 = 0 Then
txttunj.Text = 10 / 100 * Val(txtgapok.Text)
Else
If ch1 = 0 And ch2 = 1 Then
txttunj.Text = 5 / 100 * Val(txtgapok.Text)
Else
If ch1 = 1 And ch2 = 1 Then
txttunj.Text = 15 / 100 * Val(txtgapok.Text)
Else
txttunj.Text = 0
End If
End If
End If
End Sub

Private Sub cmdhitung_Click()
txttotal.Text = Val(txtgapok.Text) + Val(txttunj.Text)
End Sub

Private Sub bersih()
Dim x As Control
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Text = “”
End If
Next
ch1 = o
ch2 = 0
End Sub

Private Sub cmdinput_Click()
bersih
tampil
txtnip.SetFocus
End Sub

Private Sub Form_Load()
sembunyi
End Sub

Private Sub txtnip_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Left(txtnip, 4) = “2005″ Then
txtthn.Text = “2005″
Else
If Left(txtnip, 4) = “2006″ Then
txtthn.Text = “2006″
Else
If Left(txtnip, 4) = “2007″ Then
txtthn.Text = “2007″
Else
MsgBox “Tahun Masuk Tidak Ada”, vbOKOnly, “Info”
bersih
sembunyi
End If
End If
End If
If Mid(txtnip, 5, 2) = “01″ Then
txtjbtn.Text = “Direktur”
txtgapok.Text = 1500000
Else
If Mid(txtnip, 5, 2) = “02″ Then
txtjbtn.Text = “Staff”
txtgapok.Text = 1000000
Else
If Mid(txtnip, 5, 2) = “03″ Then
txtjbtn.Text = “umum”
txtgapok.Text = 850000
Else
bersih
sembunyi
End If
End If
End If
End If
End Sub

Private Sub sembunyi()
txtnip.Visible = False
Label2.Visible = False
End Sub

Private Sub tampil()
txtnip.Visible = True
Label2.Visible = True
End Sub

Silakan Anda Modifikasi lagi untuk belajar …..

Pert.9 pascal (Latihan Array)

Buat Tampilan Berikut Ini :
1. Tampilan Layar Utama

2. Tampilan Layar Laporan

Listing Program :

program array_nilai;
uses crt;
var
i,j,data:integer;
nama:array[1..20] of string;
tugas,quiz,uts,uas:array[1..20]of real;
rata:array[1..20]of real;
total:real;
begin
clrscr;
write(‘ Masukan jumlah data siswa :’);readln(data);
for i:=1 to data do
begin
writeln(‘ Data siswa ke-’,i,’:');
write(‘ Masukan nama siswa :’);readln(nama[i]);
write(‘ Nilai Tugas :’);readln(tugas[i]);
write(‘ Nilai Quiz :’);readln(quiz[i]);
write(‘ Nilai UTS :’);readln(uts[i]);
write(‘ Nilai UAS :’);readln(uas[i]);
end;
clrscr;
begin
writeln(‘ Daftar Nama dan Nilai siswa’);
writeln(‘ =========================================’);
writeln;
writeln(‘No. Nama Tugas Quiz UTS UAS Rata-rata ‘);
writeln(‘————————————————————————-’);

for i:=1 to data do
begin
gotoxy(2,6+i);write(i);
gotoxy(5,6+i);write(nama[i]);
gotoxy(16,6+i);write(tugas[i]:3:2);
gotoxy(25,6+i);write(quiz[i]:3:2);
gotoxy(34,6+i);write(uts[i]:3:2);
gotoxy(42,6+i);write(uas[i]:3:2);
rata[i]:=(tugas[i]+quiz[i]+uts[i]+uas[i])/4;
gotoxy(49,6+i);write(rata[i]:3:2);
end;
gotoxy(3,8+i);
writeln;
writeln(‘——————————————————–’);
total:=total[i]/data;
gotoxy(4,10+i);writeln(‘Total Rata-Rata Keseluruhan :’,total:2:2);
end;
readln;
end.

Selamat Mencoba….

Latihan_UTS

Ada sedikit latihan, untuk dipelajari sebelum uts sebagai bahan referensi saja.
Buat tampilan sebagai berikut:

Tampilan layar 1 :

tampilan layar 2 :

Listing program :
program pulza;
uses crt;
var nm,nm_produk:string[30];
nominal,hrg_nominal,jumbel,totbay:longint;
lagi,kd_produk:char;
label mpie;
begin
mpie:
clrscr;
gotoxy(20,4);writeln(‘PENJUALAN PULZA “LENSA”‘);
writeln;
write(‘Masukan Nama Agen : ‘);readln(nm);
write(‘Pilih Kode Produk [M/I/S] : ‘);readln(kd_produk);
write(‘Pilih Nominal Pulsa [5/10/20/25]: ‘);readln(nominal);
if (kd_produk=’M') or (kd_produk=’m') then
begin
nm_produk:=’mentari’;
case nominal of
5:
hrg_nominal:=5100;
10:
hrg_nominal:=10500;
20:
hrg_nominal:=21000;
25:
hrg_nominal:=25500;
end;
end
else if (kd_produk=’I') or (kd_produk=’i') then
begin
nm_produk:=’im3′;
case nominal of
5:
hrg_nominal:=5200;
10:
hrg_nominal:=10700;
20:
hrg_nominal:=21000;
25:
hrg_nominal:=25000;
end;
end
else if (kd_produk=’S') or (kd_produk=’s’) then
begin
nm_produk:=’Simpati’;
case nominal of
10:
hrg_nominal:=12000;
20:
hrg_nominal:=22000;
25:
hrg_nominal:=26000;
end;
end;
writeln;
writeln(‘Nama Produk : ‘,nm_produk);
writeln(‘Harga Nominal : ‘,hrg_nominal);
write(‘Jumlah Beli : ‘);readln(jumbel);
clrscr;
gotoxy(10,2);writeln(‘Data Pembelian Pulsa’);
writeln;
writeln(‘Nama Agen : ‘,nm);
writeln(‘Nama Produk : ‘,nm_produk);
writeln(‘Harga Nominal : ‘,hrg_nominal);
writeln(‘Jumlah Beli : ‘,jumbel);
totbay:=jumbel*hrg_nominal;
writeln(‘Ingin Input Data Lagi [Y/N] : ‘);readln(lagi);
if (lagi=’Y') and (lagi=’y') then
goto mpie;
readln;
end.

Untuk memperlancar silakan anda buat contoh lain .