Pada tutorial kali ini kita akan mebuat sebuah program, diman jadwal tersebut akan mengkonversi sebuah nilai angka kedalam nilai huruf, berikut pembahasanya :
1. Jalankan VB dengan jadwal Stanadar EXE
2. Tambahkan 2 label, 1 text box, dan1 command button, aturlah hingga menyerupai ini :
3. ubah captionya, menyerupai ini :
Sehingga Seperti ini :
4. Tambahkan Script berikut :
Private Sub Command1_Click()
If Text1 >= 0 And Text1 <= 20 Then 'Jika Text1 lebih besar dari 0 dan lebih kecil dari 20 maka
Label2 = "E" 'Caption label2 ialah E
ElseIf Text1 >= 21 And Text1 <= 40 Then 'Jika nilai text1 diantara 21 hingga 40 maka
Label2 = "D" 'Caption label2 ialah D
ElseIf Text1 >= 41 And Text1 <= 60 Then 'Jika nilai text1 diantara 41 hingga 60 maka
Label2 = "C" 'Caption label2 ialah C
ElseIf Text1 >= 61 And Text1 <= 80 Then 'Jika nilai text1 diantara 61 hingga 80 maka
Label2 = "B" 'Caption label2 ialah B
ElseIf Text1 >= 81 And Text1 <= 99 Then'Jika nilai text1 diantara 81 hingga 99 maka
Label2 = "A+" 'Caption label2 ialah A+
ElseIf Text1 = 100 Then 'Jika nilai text1 = 100
Label2 = "A++" 'Caption label2 ialah A++
Else 'Jika tidak dalam kondisi di atas, maka akan ada
MsgBox "Isi Nilai Mulai dari 0 Sampai 100" 'Kotak Pesan Isi Nilai Mulai dari 0 Sampai 100
End If
End Sub
5. Terakhir, jalankan programnya
1. Jalankan VB dengan jadwal Stanadar EXE
2. Tambahkan 2 label, 1 text box, dan1 command button, aturlah hingga menyerupai ini :
3. ubah captionya, menyerupai ini :
Tool Box | Properties | Keterangan |
Form 1 | Start Up Position | Center Screen |
Label 1 | Caption | Nilai |
Font Size | 14 | |
Label 2 | Caption | Kosong |
Font Size | 24 | |
Aligment | Center | |
Text 1 | Caption | Kosong |
Command1 | Caption | Nilai Huruf |
Font Size | 12 |
4. Tambahkan Script berikut :
Private Sub Command1_Click()
If Text1 >= 0 And Text1 <= 20 Then 'Jika Text1 lebih besar dari 0 dan lebih kecil dari 20 maka
Label2 = "E" 'Caption label2 ialah E
ElseIf Text1 >= 21 And Text1 <= 40 Then 'Jika nilai text1 diantara 21 hingga 40 maka
Label2 = "D" 'Caption label2 ialah D
ElseIf Text1 >= 41 And Text1 <= 60 Then 'Jika nilai text1 diantara 41 hingga 60 maka
Label2 = "C" 'Caption label2 ialah C
ElseIf Text1 >= 61 And Text1 <= 80 Then 'Jika nilai text1 diantara 61 hingga 80 maka
Label2 = "B" 'Caption label2 ialah B
ElseIf Text1 >= 81 And Text1 <= 99 Then'Jika nilai text1 diantara 81 hingga 99 maka
Label2 = "A+" 'Caption label2 ialah A+
ElseIf Text1 = 100 Then 'Jika nilai text1 = 100
Label2 = "A++" 'Caption label2 ialah A++
Else 'Jika tidak dalam kondisi di atas, maka akan ada
MsgBox "Isi Nilai Mulai dari 0 Sampai 100" 'Kotak Pesan Isi Nilai Mulai dari 0 Sampai 100
End If
End Sub
5. Terakhir, jalankan programnya
Ketika anda menuliskan angka -1 ke bawah dan 101 ke atas maka akan muncul pesan "Kotak Pesan Isi Nilai Mulai dari 0 Sampai 100"
dan dikala anda menuliskan angka dari 0 hingga 100 maka label 2 akan berubah menurut script yang telah dituliskan. Itulah tutorial mengenai Menentukan Nilai Huruf,
sekian dan terimakasih
Comments
Posting Komentar