Kamis, 24 Januari 2013

Visual Basic : Program Menghitung Nilai Akhir Matakuliah


Contoh Kasus :
1.  Gunakan fungsi manipulasi string untuk menentukan jurusan (jurusan ditentukan oleh isi digit ketiga dari kiri pada NIM).

2.  Buat agar textbox nilai yang tidak akan digunakan untuk peginputan, properti enabled-nya di set menjadi false.

Berikut Formnya :



Kemudian ketikkan listing berikut :

Private Sub Command1_Click()
‘Tombol Hitung
Dim na As Single
Dim nt As Integer
Dim nm As Integer
Dim nf As Integer
Dim nh As String

nt = Val(Text4.Text)
nm = Val(Text5.Text)
nf = Val(Text6.Text)

If Option1.Value = True Then
na = (0.4 * nm) + (0.6 * nf)
ElseIf Option2.Value = True Then
na = (0.2 * nt) + (0.4 * nm) + (0.4 * nf)
ElseIf Option3.Value = True Then
na = (0.3 * nt) + (0.4 * nm) + (0.3 * nf)
End If

If na >= 80 Then
nh = "A"
ElseIf na >= 60 Then
nh = "B"
ElseIf na >= 40 Then
nh = "C"
ElseIf na >= 30 Then
nh = "D"
ElseIf na < 30 Then
nh = "E"
End If

Text7.Text = na
Text8.Text = nh
End Sub

Private Sub Command2_Click()
‘Tombol Ulangi
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
Text1.SetFocus
End Sub

Private Sub Command3_Click()
‘Tombol Keluar
End
End Sub

Private Sub Option1_Click()
‘Option  C/C++
If Option1.Value = True Then
Text4.Enabled = False
End If
End Sub

Private Sub Option2_Click()
‘Option Pascal
If Option2.Value = True Then
Text4.Enabled = True
End If
End Sub

Private Sub Option3_Click()
‘Option Visual basic
If Option3.Value = True Then
Text4.Enabled = True
End If
End Sub

Private Sub Text1_LostFocus()
‘Text1
Dim jur As String

If Mid(Trim(Text1), 3, 1) = "1" Then
jur = "Sistem Informasi"
ElseIf Mid(Trim(Text1), 3, 1) = "2" Then
jur = "Teknik Informatika"
ElseIf Mid(Trim(Text1), 3, 1) = "3" Then
jur = "Manajemen Informatika"
End If

Text3.Text = jur
End Sub

Outputnya :




Artikel Terkait :

Bagikan :

3 komentar:

  1. Terima Kasih ya Gan, Artikel yang sangat Bagus dan Bermanfaat.. Update terus dan sukses selalu ya Gan


    BandarQ
    Bandar QQ
    BandarQ Online
    Poker Online
    Domino QQ
    AduQ

    BalasHapus
  2. Selamat datang di intanqq

    Ayo bergabung bersama kami, tersedia 7 permainan dalam 1 ID:
    - Sakong (New Game)
    - Bandar Poker (New Game)
    - BandarQ (Hot Game)
    - Poker
    - Domino
    - Capsa Online
    - AduQ

    Apa kelebihan bermain di intanqq? Berikut kelebihannya:
    - BONUS TURNOVER 0.3% SETIAP HARI
    - BONUS XTRA TURNOVER SETIAP MINGGUNYA
    - BONUS REFERAL 10% +10% SEUMUR HIDUP!!
    - MIN DEPO IDR 15.000 dan Proses super cepat 1 menit.
    - Bisa dimainkan di Smartphone Versi Android dan Iphone.
    - Win rate 98%
    - No robot
    - Fair play 100% player vs player

    Tunggu apalagi? Ayo segera bergabung sebelum ketinggalan promonya :)

    bandarq
    dominoqq
    domino99 online terpercaya
    Domino Qiu Qiu
    dominoqq

    BalasHapus