Pernyataan Bersyarat IF..THEN

Praktek modul V

If...Then

Gunakan suatu struktur If...Then untuk menjalankan suatu pernyataan secara kondisional. Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris.

If kondisi Then pernyataan

atau

If kondisi Then

pernyataan-pernyataan

End If

Kondisi biasanya berupa suatu perbandingan, maupun ekspresi yang menghasilkan nilai numerik. Visual Basic menginterpretasikan False sebagai nol (0), dan True sebagai bukan nol. pada praktek kali ini kita diwajibkan lebih memahami penggunaan IF pada sebuah kasus. dan penggunaan operator logika AND. sebelum kita memulai program, yang perlu kita pahami adalah apa yang patut kita uji dari program tersebut, nah....pada praktek kali ini kita akan mencoba membuat program untuk menentukan nilai akhir mahasiswa.

soalnya sebagai berikut:

1.untuk menentukan nilai akhir seorang mahasiswa diperoleh dari rumus

berikut: NA = (NT * 0.3 + NTS * 0.2 + NAS * 0.5)

keterangan:

NA:nilai akhir

NT:nilai tugas

NTS:nilai tengah semester

NAS:nilai akhir semester

sedangkan untuk menentukan nilai huruf apakah A,B,C,D atau E didapat dari posisi nialai akhir sesuai dengan ketentuan sebagai berikut:

jika nilai akhir > 90 maka nilai huruf = "A"

jika 80 < huruf = "B"> 90 maka nilai huruf = "C"

jika 60 < huruf = "D" huruf = "E">

setelah selesai membuat antar muka prgramnya, sekarang klik doubel pada tombol "CETAK NILAI AKHIR DAN HURUF" dan masukan kode program berikut:

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 

dan masukan program berikut di tombol cmdkeluar: 

Private Sub cmdkeluar_Click()

MsgBox ("KELUAR PROGRAM..klik OK")

End 

End Sub

program sudah selesai kita buat, saat nya kita uji program tersebut: 

-klik menu RUN kemudian START maka hasil nya seperti berikut setelah kita eksekusi

- dan masukan data seperti contoh, ga harus sama kok yang penting sesuai format:

gampang kan...selamat mencoba