PROGRAM SEDERHANA MENGHITUNG NILAI MAHASISWA DI VB.6.0
BY Unknown ON 6:47 PM
1 Comment
MEMBUAT PROGRAM SEDERHANA DENGAN VB.6.0
Kali
ini saya akan membuat suatu program sederhana dari Visual Basic 6.0, tentang
cara menghitung Nilai suatu mahasiswa, dari mulai, Nilai Kehadiran, Nilai
Tugas, Nilai UTS dan Nilai UAS, yaitu menggunakan Visual Basic 6.0.
Untuk
langkah pertama, terlebih dahulu kita install Visual Basic 6.0 ke Pc kita atau
Laptop kita, setelah terinstal yang paling penting lagi kita sudah tau tentang
dasar – dasar dalam Fitur yang ada di Visual Basic 6.0 dari mulai : Textbox,
label, Combox, botton dan lainnya, dan kita juga harus tau dasar dasar dari
perintah yang ada di visual basic 6.0 ini karena kalau kita sudah mengetahui
dasar – dasar Visual Basic 6.0, otomatis kita mampu untuk menangkap apa saja
kasus yang ada dalam program yang kita buat yaitu dengan menggunakan Visual
Basic 6.0.
Dibuat
saja anda sudah mengerti masalah – masalah dasar di Visual basic 6.0 ini kita
langsung saja buat desain seperti ini dibawah ini :
|
General
|
Option
|
Name
|
|
Label 1
|
Label 1
|
Label 1
|
|
Label 2
|
Label 2
|
Label 2
|
|
Label 3
|
Label 3
|
Label 3
|
|
Label 4
|
Label 4
|
Label 4
|
|
Label 5
|
Label 5
|
Label 5
|
|
Label 6
|
Label 6
|
Label 6
|
|
Label 7
|
Label 7
|
Label 7
|
|
Label 8
|
Label 8
|
Label 8
|
|
Label 9
|
Label 9
|
Label 9
|
|
Label 10
|
Label 10
|
Label 10
|
|
Label 11
|
Label 11
|
Label 11
|
|
Botton1
|
|
Command1
|
|
Botton2
|
|
Command1
|
|
Botton3
|
|
Command1
|
|
Textbox
|
Text1
|
Text1
|
|
Textbox
|
Text2
|
Text2
|
|
Textbox
|
Text3
|
Text3
|
|
Textbox
|
Text4
|
Text4
|
|
Textbox
|
Text5
|
Text5
|
|
Textbox
|
Text6
|
Text6
|
|
Textbox
|
Text7
|
Text7
|
|
Textbox
|
Text8
|
Text8
|
|
Textbox
|
Text9
|
Text9
|
|
Textbox
|
Text10
|
Text10
|
|
Textbox
|
Text11
|
Text11
|
Untuk
perintahnya sebagai berikut :
{Perintah untuk di Hitung}
Private
Sub Command1_Click()
Text9
= Val(Text2.Text) + Val(Text4.Text) + Val(Text6.Text) + Val(Text8.Text)
If
Text9 <= 40 Then
Text10
= "D"
Text11
= "Kurang baik"
ElseIf
Text9 >= 41 And Text9 <= 70 Then
Text10
= "C"
Text11
= "Cukup Baik"
ElseIf
Text9 >= 71 And Text9 <= 80 Then
Text10
= "B"
Text11
= "Baik"
ElseIf
Text9 >= 81 And Text9 <= 100 Then
Text10
= "A"
Text11
= "Sangat Baik"
Else
MsgBox
"tidak ada data", vbCritical, "Warning"
End
If
End
Sub
{Perintah keyboard enter, ket. Dilihat
ada keypress beda dengan yang diatas}
Private
Sub Command1_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then
Command2.SetFocus
End
If
End
Sub
{perintah untuk Lagi}
Private
Sub Command2_Click()
Text1
= ""
Text3
= ""
Text5
= ""
Text7
= ""
Text9
= ""
Text10
= ""
Text11
= ""
End
Sub
{Perintah keyboard enter (Lagi),
ket. Dilihat ada keypress beda dengan yang diatas}
Private
Sub Command2_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then
Command2.SetFocus
End
If
End
Sub
{Perintah EXIT}
Private
Sub Command3_Click()
End
End
Sub
{Perintah untuk mengasih angka 0
pada textbox saat di Run, yaitu di double clik form}
Private
Sub Form_Load()
Text2.Text
= 0
Text4.Text
= 0
Text6.Text
= 0
Text8.Text
= 0
Text9
= 0
Text10
= "..."
Text11
= "..."
End
Sub
{Perintah Perhitungan * 10%,
ditempatkan di text box yang sudah saya lingkarkan}
Private
Sub Text1_Change()
Text2
= Val(Text1.Text) * 0.1
End
Sub
{Perintah Perintah Keyboard enter
agar tidak menggunakan kursor untuk menginputkan}
Private
Sub Text1_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then
Text3.SetFocus
End
If
End
Sub
{Perintah Perhitungan * 20%,
ditempatkan di text box yang sudah saya lingkarkan}
Private
Sub Text3_Change()
Text4
= Val(Text3.Text) * 0.2
End
Sub
{Perintah Perintah Keyboard enter
agar tidak menggunakan kursor untuk menginputkan}
Private
Sub Text3_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then
Text5.SetFocus
End
If
End
Sub
{Perintah Perhitungan * 30%,
ditempatkan di text box yang sudah saya lingkarkan}
Private
Sub Text5_Change()
Text6
= Val(Text5.Text) * 0.3
End
Sub
{Perintah Perintah Keyboard enter
agar tidak menggunakan kursor untuk menginputkan}
Private
Sub Text5_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then
Text7.SetFocus
End
If
End
Sub
{Perintah Perhitungan * 40%,
ditempatkan di text box yang sudah saya lingkarkan}
Private
Sub Text7_Change()
Text8
= Val(Text7.Text) * 0.4
End
Sub
{Perintah Perintah Keyboard enter
agar tidak menggunakan kursor untuk menginputkan}
Private
Sub Text7_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then
Command1.SetFocus
End
If
End
Sub
Mungkin
itu saja yang bisa sampaikan atau ajarkan, jika anda sudah memahami sintak dari
code tersebut anda bisa mengembangkan diri sesuka anda.
Jika
anda suka dengan postingan saya mohon gabung dan tinggalkan comentar “SUKA”
agar admin dapat terus mencoba menyampaikan tentang seputar Visual Basic ini.
Terima
kasih dan sampai jumpa wasalam ….
Tag :
Artikel
