modul v

Tujuan modul V:
-.Memahami penggunaan If…Then…Else…

Percabangan Bersyarat If…Then…Else…

Digunakan untuk menjalankan satu blok perintah, bergantung pada nilai yang diuji.
Penulisannya adalah sebagai berikut :

If then
[satu atau lebh pernyataan program]
[ElseIf then]
[satu atau lebih pernyataan program]
Else
[satu atau lebih pernyataan program]

End If

Latihan ;
Untuk menentukan nilai akhir seorang mahasisawa diperoleh dari rumus berikut.

NA (Nilai akhir)=(nilai tugas) * 0,3 + nilai tengah semester * 0,2+ nilai akhir semester * 0,5 )/ 10
Na= nilai akhir
NT= nilai tugas
NTS= nilai tengah semester
NAS=nilai akhir semester

sedangkan untuk menentukan nilai huruf apakah A,b,C,D dan E di dapat dari posisi nilai akhir sesuai dengan
ketentuan berikut.
Jika;
NA > 90 -> NA='A"
80 <>="B"
70 <>="C"
60 <>="D"
<=60 -> NA ="E"

1. Rancang antar muka seperti berikut untuk menyelesaikan kasus di atas :

2. Doubel klik tombol Cetak nilai & Huruf
3. Ketikan kode program brikut ini :

Private Sub cmdcetak_Click()
Dim NT, NTS, NAS, NA As Single
NT = Val(txtnt.Text)
NTS = Val(txtnts.Text)
NAS = Val(txtnas.Text)
NA = NT * 0.3 + NTS * 0.2 + NAS * 0.5
txtna.Text = Str(NA)

If (NA > 90) Then
txtnh.Text = "A"
End If

If (NA > 80) And (NA <= 90) Then txtnh.Text = "B" End If If (NA > 70) And (NA <= 80) Then txtnh.Text = "c" End If If (NA > 60) And (NA <= 70) Then txtnh.Text = "d" End If If (NA <= 60) Then txtnh.Text = "e" End If End Sub

4. Klik tombol atau menu Run hasilnya akan seperti berikut: