Visual Basic - Program Aplikasi Penghitung Nilai Ujian Akhir Semester

Salam hangat pengunjung terhormat,
    Pembahasan kali ini kita akan membahas mengenai Visual Basic dan disini adalah syntak pembuatan program aplikasi PENGHITUNG NILAI UJIAN AKHIR SEMESTER

'syintax dibawah merupakan syintak untuk membersihkan text
Private Sub cmdbersih_Click()
'ket: dari txtnm s/d txtakhir berilah tanda 0 jika berupa angka atau tanda kutip saja "" sbg ket kosong
txtnm.Text = ""
txtabsen = 0
txttugas = 0
txtuts = 0
txtuas = 0
txtakhir = 0
'ket: untuk membuat kursor mouse terfokus di textbox tertentu ketika menekan tombol bersih, ketiklah namatext.setfocus contoh: txtnama.setfocus
txtnm.SetFocus
'ket: syntak dibawah dari cmdporses s/d txtakhir merupakan syntak untuk menonaktifkan tombol ketika menekan tombol bersih
'contoh : namatombol.enabled=false (untuk menonaktifkan gunakan "False" dan enabled)
cmdproses.Enabled = False
cmdkeluar.Enabled = False
cmdbersih.Enabled = False
txtakhir.Enabled = False
End Sub
'ket : syntak dibawah untuk keluar dari program, caranya dengan menggunakan logika IF
Private Sub cmdkeluar_Click()
'ket: "c" disana sebagai variable (bebas menggunakan abjad apapun)
'Msgbox = merupakan format untuk membuat jendela dialog ketika kita menekan tombol keluar,
'contoh untuk membuat rumus msgbox : c=MsgBox("Gunakan kalimat yang ingin anda tampilkan disini", vbOKCANCEL + vbQuestion, "keterangan")
'ket: vbOKCANCEL sebagai opsi pilihan tombol OK dan CANCEL di Massage Box, jika OK maka Keluar, jika CANCEL maka tetap
'ket: vbQuestion sebagai opsi pertanyaan (simbol tandatanya di Massage Box atau bisa menggunakan vbINFORMATION sebagai opsi Perhatian di MsgBox
c = MsgBox("Apakah Anda yakin ingin keluar?", vbOKCancel + vbQuestion, "Perhatian!")
'gunakanlah rumus if setelah mengetikan MsgBox
If c = vbOK Then 'jika c memilih OK maka program akan berakhir (end) lalu (end if)
End
End If
End Sub

Private Sub cmdproses_Click()
txtakhir = Val((txtabsen.Text) * 0.1) + Val((txtuts.Text) * 0.3) + Val((txttugas.Text) * 0.2) + Val((txtuas.Text) * 0.4)
txtakhir.Enabled = True 'syntax untuk mengaktifkan textbox nilai akhir ketika klik tombol proses
End Sub

Private Sub Form_Load() 'ket : form load yaitu saat form dijalankan maka tombol cmdproses s/d txtakhir dalam keadaan tidak aktif dengan menggunakan "false"
cmdproses.Enabled = False
cmdkeluar.Enabled = False
cmdbersih.Enabled = False
txtakhir.Enabled = False
End Sub


Private Sub txtnm_Change()
txtnm.SetFocus
End Sub

Private Sub txtuas_Change() 'ket : ketika mengetik di text box uas maka tombol cmdproses s/d cmdbersih dalam keadaan aktf "True"
cmdproses.Enabled = True
cmdkeluar.Enabled = True
cmdbersih.Enabled = True
End Sub

Tampilan dibawah setelah dirun


Terima kasih semoga berhasil

Visual Basic - Program Aplikasi Penghitung Nilai Ujian Akhir Semester 9 Out Of 10 Based On 10 Ratings. 9 User Reviews.

Share 'Visual Basic - Program Aplikasi Penghitung Nilai Ujian Akhir Semester' On ...

Artikel yang baru saja Anda baca berkategori Pemrograman dengan judul Visual Basic - Program Aplikasi Penghitung Nilai Ujian Akhir Semester. Anda bisa bookmark halaman ini dengan URL http://aksesdataseru.blogspot.com/2013/09/visual-basic-program-aplikasi.html. Terima kasih!

Ditulis oleh: Alfy Maghfira - Monday 30 September 2013