Membuat Program Konversi Nilai Sederhana di VB 6.0

Halo, kali ini saya akan menshare cara membuat program konversi nilai sederhana di visual basic 6.0.

Pertama-tama, kita buat dulu formnya seperti gambar berikut :

Kemudian ubah caption pada properties label1 menjadi nilai seperti gambar berikut :

Lakukan hal yang sama seperti langkah-langkah diatas, untuk mengubah caption label2 menjadi "Grade", label3 menjadi "Keterangan" dan command1 menjadi "Konversi". Setelah itu, kosongkan properties text pada text1, text2, dan text3, kemudian pada text2 dan text3 ubah properties locked menjadi True. Hal ini dilakukan agar user tidak dapat mengubah isi dari text2 dan text3. Seperti gambar berikut :

Setelah itu klik 2 kali tombol Konversi untuk masuk ke mode code dan masukan sintaks berikut :

nilai = Val(Text1.Text)
If nilai > 100 Then
MsgBox "Nilai terlalu besar", vbCritical, "Error"
ElseIf nilai > 80 Then
grade = "A"
ElseIf nilai > 70 Then
grade = "B"
ElseIf nilai > 60 Then
grade = "C"
ElseIf nilai > 50 Then
grade = "D"
Else
grade = "E"
End If
Text2.Text = grade

Sintaks diatas berfungsi untuk mengkonversi inputan dari text1 yang disimpan dalam variabel nilai, jika nilai > 100 maka akan muncul pesan nilai error "Nilai terlalu besar", jika nilai>80 maka  variabel grade = A, jika nilai>70 maka variabel grade = B, dst. setelah proses seleksi selesai maka dia akan otomatis merubah isi dari text 2 menjadi hasil dari seleksi nilai yang simpan dalam variabel grade.

Setelah itu coba run program dengan menekan F5, jika tidak terdapat error dalam penulisan sintaks maka outputnya seperti gambar berikut :

Setelah konversi grade berhasil sekarang kita akan menseleksi hasil dari grade dengan menggunakan Select Case. Masukan sintaks berikut dibawah text2.text = grade

Select Case grade
Case "A"
ket = "Sangat Bagus"
Case "B"
ket = "Bagus"
Case "C"
ket = "Cukup"
Case "D"
ket = "Kurang"
Case "E"
ket = "Sangat Kurang"
End Select
Text3.Text = ket

Sintaks diatas berfungsi untuk menseleksi variabel grade, jika variabel grade = A, maka variabel ket = Sangat Bagus, jika variabel grade = B, maka variabel ket = Bagus, dst. setelah proses maka Text3 akan otomatis terisi dari hasil seleksi grade yang disimpan dalam variabel ket.

Setelah itu run program dengan menekan F5, Jika tidak terdapat kesalahan, maka outputnya akan menjadi seperti gambar berikut :

Sekian totorial dari saya, semoga bermanfaat :)

Share on Google Plus

About Unknown

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.