PERTEMUAN IIISTRUKTUR KENDALI :
- PERCABANGAN
- PERULANGAN
Percabangan
1. If .... end if
Syntax :
If <ekspresi> then
<Pernyataan>
...
elseif <ekspresi> then
<Pernyataan>
...
else
<Pernyataan>
...
End if
contoh :
If text1=”L” then
If text1=”L” then
jenkel=”laki-laki”
else
jenkel=”perempuan”
end if
2. Select Case ...end case
Syntax:
Select case <pilihan>
case <pilih1>
<pernyataan>
case <pilih2>
<pernyataan>
else case
<pernyataan>
end select
Contoh :
Select case angka
Case 4
huruf=”A”
Case 3
huruf=”B”
Case 2
huruf=”C”
Case 1
huruf=”D”
Else case
huruf=”E”
Perulangan
1. for...next
Perulangan proses menggunakan For…Next adalah bentuk pengulangan terkendali dengan variabel kendali yang terus berjalan maju atau mundur.
syntax:
for <nama_var>=<nilai_awal> to <nilai_akhir> step <selang>
<pernyataan>
...
Next [<nama_var>]
Contoh :
Dim i%
For i=1 to 5
Print i
Next i
2. do until ... loop
syntax:
do until <kondisi>
<pernyataan>
...
loop
contoh:
Dim i%
Do until i<5
Print i
i=i+1
loop
3. do while...loop
syntax:
do while <kondisi>
<pernyataan>
...
loop
contoh:
Dim i%
Do while i<=5
Print i
i=i+1
loop
4. while ...wend
Perulangan dengan While... Wend adalah bentuk pengulangan terkendali dengan proses akan diulang selama kondisi yang diberikan masih dipenuhi.
syntax:
while <kondisi>
<pernyataan>
...
Wend1
Contoh :
Dim i%
while i<=5
Print i
i=i+1
wend
Praktikum 3
Membuat program untuk :
1) Menampilkan angka 1 sampai batas yang diinputkan (N)
Manual program : Isikan batas pada text1 klik tombol tampil maka akan tampil angka 1 s.d batas yang dimasukkan pada list1. (menggunakan For Next)
2) Menampilkan alphabet mulai dari huruf A sampai batas yang diinputkan.
Manual program : isikan batas huruf pada text1 (mis.batas yang dimasukkan = 5) maka akan tampil huruf A, B, C, D, E pada list1 (menggunakan for next)
3) Menampilkan Bilangan Prima dari bil.prima awal (bil= 2) sampai batas yang diinputkan. Manual program : isikan batas huruf pada text1 (mis.batas yang diinputkan = 5) maka akan tampil angka 2, 3, 5, 7, 11 pada list1. Definisi bilangan prima adalah bilangan yang hanya habis dibagi oleh 1 dan bilangan itu sendiri atau bisa dikatakan bahwa bilangan prima adalah bilangan yang tidak habis dibagi oleh bilangan 2 sampai sebelum bilangan itu sendiri. (menggunakan while..wend)
(General) (Declarations)
Dim i As Integer
Private Sub CmdTampilBaris_Click()
n = Val(Text1)
List1.Clear
For i = 1 To n
List1.AddItem "Angka " & i
Next i
End Sub
Private Sub CmdAlphabet_Click()
n = Val(Text1)
List1.Clear
For i = 1 To n
kodeASCII = 64 + i
List1.AddItem Chr(kodeASCII)
Next i
End Sub
Private Sub CmdBilPrima_Click()
n = Val(Text1)
List1.Clear
k = 0
bil = 2
While k < n
prima = True
For pembagi = 2 To bil - 1
If bil Mod pembagi = 0 Then prima = False
Next pembagi
If prima Then
List1.AddItem bil
k = k + 1
End If
bil = bil + 1
Wend
End Sub
1. Buat project baru simpan dengan nama praktikum3.vbp
2. Atur design form seperti gambar berikut,simpan dengan nama frmpass.frm :
3. Untuk menambahkan komponen progressbar, tekan tombol Ctrl + T, pilih Microsoft windows Common Controls 6.0(SP 6)
4. ketikkan kode program berikut:
Private Sub cmdok_Click()
Dim pesan As String
pesan = ""
If txtpass = "" Then
pesan = "pasword belum diisi, " + pesan
txtpass.SetFocus
End If
If txtuser = "" Then
pesan = "user belum diisi, " + pesan
txtuser.SetFocus
End If
If pesan <> "" Then
MsgBox Left(pesan, Len(pesan) - 2) , vbCritical +
à vbOKOnly, "PERINGATAN"
Else
pesan = ""
If txtpass <> pass Then
pesan = "password salah, " + pesan
End If
If UCase(txtuser) <> user Then
pesan = "user tidak dikenal, " + pesan
End If
If pesan <> "" Then
MsgBox Left(pesan, Len(pesan) - 2) ,vbCritical + ÃvbOKOnly,"PERINGATAN"
Else
Timer1.interval=1000
Timer1.Enabled = True
End If
End If
End Sub
Private Sub Form_Load()
txtuser = ""
txtpass = ""
txtpass.PasswordChar = "*"
ProgressBar1.Min = 0
ProgressBar1.Max = 1000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim i%
For i = ProgressBar1.Min To ProgressBar1.Max
ProgressBar1.Value = i
If ProgressBar1.Value = 1000 Then
Unload Me
frmolah.Show
End If
Next
End Sub
Private Sub txtpass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmdok.SetFocus
End Sub
Private Sub txtuser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtpass.SetFocus
End Sub
5. Tambahkan module, dengan cara pilih menu Project – Add module
Ketik kode program berikut pada module1 :
Public Const user As String = "ADMIN"
Public Const pass As String = "1234"
Tugas Pertemuan III
Tambahkan satu form lagi dengan cara klik icon addform 
pada toolbar, atau menu Project – Add form
pada toolbar, atau menu Project – Add form
Ketentuan :
- Pada saat form load, cmdHitung,Bersihkan,dan Keluar tidak aktif.
- Ketika menginputkan jumlah, maka cmdHitung aktif
- Ketika cmdHitung aktif, maka :
o CmdBersihkan dan cmdKeluar aktif,
o Label bayar = txtjumlah * harga satuan,
o Ketentuan Discount :
o Jika label bayar >= 500000 maka diskon 10% dari label bayar
o Jika < 500000 dan >=250000 maka diskon 0.05% dari label bayar
o Jika < 250000 dan >=100000 maka diskon 0.02% dari label bayar
o Selain itu tidak mendapatkan diskon!
o Total Bayar = label bayar – diskon
- Uang kembali akan ditampilkan pada saat event enter pada txtCash,
- Private Sub TextCash_KeyPress(KeyAscii As Integer)
- If KeyAscii = 13 Then ....
- ........
- End if
- .. dengan perhitungan : Cash – Total, dengan ketentuan jika txtCash kurang dari txtUangKembali, maka muncul text pada txtUangKembali..”Maaf uang Anda kurang” + (sejumlah uang yang kurang tsb)
· Print Screen Hasil Eksekusi Program Struk Bayar
· Print Screen Kode Editor-nya..
· Jangan lupa cantumkan nim & nama pada form properties caption!
SELAMAT MENGERJAKAN.. SUKSES!!J
0 komentar:
Posting Komentar