TUTORIAL MATERI BOLEAN LOKAL MI-3 AMIK SEMESTER 2

4/25/2012  Antoni  No comments

Tutorial kali ini penulis akan memaparkan materi kuliah lagi,  yaitu FUNGSI BOLEAN. Penulis disini membantu untuk pembuatan modul kuliah Aplro 2 dalam pertemuan tersebut. Karena dosen yang bersangkutan tidak memberikan modul. Penulis mohon maaf kalau modul ini  ada kesalahan, kuran gsempurna bagi seluruh pembaca, mohon kritikannya yang sifatnya membangun. TERIMA KASIH.



Pada gambar di atas
pada Form sediakan komponen :
1.  8 buah Label
2.  7 buah Tex Box
3.  2 buah Comand Button


ketentuan komponen-komponen tersebut adalah :

No
Name
Properties
Nilai/Keterangan
1
Project
Name
prjNilai_Huruf
2
Form
Name
Caption
frmNilai Huruf
NILAI NILAI HURUF
3
Label1
Label2
Label3
Label4
Label5
Label6
Label7
Label8
Caption
NILAI HURUF MAHASISWA MI3
NAMA
NMP
NILAI UTS
NILAI TUGAS
NILAI US
HASIL NILAI
NILAI HURUF


4
Text Box 1

Text Box 2

Text Box 3

Text Box 4

Text Box 5

Text Box 6

Text Box 7
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
txtNama
kosongkan
txtNpm
kosongkan
txtUts
kosongkan
txtUs
Kosongkan
txtTugas
kosongkan
txtHasil
kosongkan
txtHuruf
kosongkan
5
Comand Button1

Comand Button1
Name
Caption
Name
Caption
cmdbersih
BERSIH
cmdkeluar
KELUAR

Ketik sintak berikut ini di halaman code visual basic :

Private Function Hasil(Uts As Single, Us As Single, Tugas As Single) As Single
    Hasil = 40 / 100 * Uts + 40 / 100 * Us + 20 / 100 * Tugas
End Function

Private Sub Huruf()
    If txtHasil.Text >= 86 And txtHasil.Text <= 100 Then
        txtHuruf.Text = "A"
    ElseIf txtHasil.Text >= 66 And txtHasil.Text <= 85 Then
        txtHuruf.Text = "B"
    ElseIf txtHasil.Text >= 50 And txtHasil.Text <= 65 Then
        txtHuruf.Text = "C"
    ElseIf txtHasil.Text >= 40 And txtHasil.Text <= 49 Then
        txtHuruf.Text = "D"
    ElseIf txtHasil.Text > 40 Then
        txtHuruf.Text = "E"
    End If
End Sub

Private Sub Bersih()
   txtNama.Text = ""
   txtNPM.Text = ""
   txtUs.Text = ""
   txtUts.Text = ""
   txtTugas.Text = ""
   txtHasil.Text = ""
   txtHuruf.Text = ""
End Sub

Kemudian pada lembar kerja Form
1. Dobel klik txtUts, masukkan kode berikut :
Private Sub txtUts_Change()
txtHasil.Text = Hasil(Val(txtUts.Text), Val(txtUs.Text), Val(txtTugas.Text))
End Sub

2. Dobel klik txtUs, masukkan kode berikut :
Private Sub txtUs_Change()
txtHasil.Text = Hasil(Val(txtUts.Text), Val(txtUs.Text), Val(txtTugas.Text))
End Sub

3. Dobel klik txtTugas, masukkan kode berikut :
Private Sub txtTugas_Change()
txtHasil.Text = Hasil(Val(txtUts.Text), Val(txtUs.Text), Val(txtTugas.Text))
End Sub

4. Dobel klik txtHasil, masukkan kode berikut :
Private Sub txtHasil_Change()
Huruf
End Sub

5. Dobel klik txtHuruf, masukkan kode berikut :
Private Sub txtHuruf_Change()
Huruf
End Sub

6. Dobel klik cmdbersih, masukkan kode berikut :
Private Sub cmdBersih_Click()
Bersih
End Sub

7. Dobel Klik cmdkeluar, masukkan kode berikut :
Private Sub cmdBersih_Click()
Unload Me
End Sub

Setelah selesai coba jalankan dengan menekan tombol F5. Untuk selanjutnya anda bisa memodifikasi Form, apakah menukar warna latar, font dan lain-lain. Insya Allah hasil akhirnya akan dapat diperoleh seperti :
Anda Dapat Download Tutorial file PDF di sini!

Download file program lengkapnya klik di sini, jika di minta password masukkan kode di bawah ini !
Password “antoni” (huruf kecil tanpa kutip)

Posted in: , ,

0 comments:

Posting Komentar