Internet Beritaku: Visual Basic

Tampilkan postingan dengan label Visual Basic. Tampilkan semua postingan

Kamis, 15 September 2011

Menghitung Nilai Akademik [Visual Basic 6]

Contoh Program sederhana Menghitung Nilai Akademik Mahasiswa yang dibuat pada Bahasa Pemograman Microsoft Visual Basic 6 , dimana item-item-Nya terdiri dari Nama, STB , Jurusan , Fakultas dan Mata Kuliah. Untuk pengolahan nilainya terdiri dari Nilai Tugas, Nilai Mid, Nilai Ujian Semester dan Nilai rata-rata.

Untuk contoh Form-Nya lihat gambar dibawah :

Untuk Listingnya :

Private Sub Command1_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
Combo1 = Clear
Combo2 = Clear
Combo3 = Clear
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text6.Text = (Text3.Text * 10 / 100) + (Text4.Text * 30 / 100) + (Text5 * 60 / 100) / 3
End Sub
Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "SISTEM INFORMASI"
Combo1.AddItem "PERTAMBANGAN"
Combo1.AddItem "SIPIL"
Combo1.AddItem "BAHASA INDONESIA"
Combo1.AddItem "MATEMATIKA"
Combo1.AddItem "BHASA INGGRIS"
Combo1.AddItem "FISIKA"
Combo2.AddItem "TEKNIK"
Combo2.AddItem "TEKNOLOGI INFORMASI"
Combo2.AddItem "FKIP"
Combo2.AddItem "FAPERTA"
Combo2.AddItem "HUKUM"
Combo3.AddItem "VISULA BASIC"
Combo3.AddItem "ECCOMERCE"
Combo3.AddItem "MENGGAMBAR"
End Sub

Semoga bermanfaat....tinggalkan komentar untuk krtik dan saranya.....

Kunjungi juga channel video youtube saya : KLIK DISINI

atau Klik tombol Subscribe dibawah.

I.A.H Channel

Visual Basic

Program Mata Kuliah Yang Di pilih [Visual Basic 6]

Imran 2 comments

Program sederhana yang dibuat pada Visual basic 6, program ini dibuat untuk Memilih mata kuliah yang akan diambil . Form 1 terdiri dari Nama , Alamat , Jurusan , Semester , Tipe Ujian , Daftar Mata Kuliah dan Mata Kuliah Yang Dipilih. Sedangkan Untuk Form 2 adalah Laporan dari seluruh data yang diinputkan dari Form 1. Proses kerjanya saat program dijalankan form dialog tampil yang bertuliskan " WELCOME FROM IMRAN" , Kemudian Form 1 akan tampil untuk memasukkan data sesuai dengan identitas dan mata kuliah yang akan dipilh. Setelah mamasukkan data dengan benar , tekan tombol/command SUBMIT , maka Form 2 akan tampil sebagai Laporan dari keseluruhan data yang dimasukkan tadi.

Mohon maaf kalau penjelsannya terlalu berputar-putar.......namanya juga masih newbie berkata-kata .....hehehehehehe

Contohnya dilihat pada gambar dibawah :

Form Tampilan Awal Program

Form 1 Entry Data

Form 2 Laporan Hasil

Sorce Code Program :

Private Sub Command1_Click()
If List1 = "" Then
MsgBox ("Pilih daftar mata kuliah dulu.....!!!")
List2.SetFocus
Else
List2.AddItem List1
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub Command2_Click()
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
List2.AddItem List1
Next i
List1.Clear
End Sub

Private Sub Command3_Click()
If List2 = "" Then
MsgBox ("Pilih daftar mata kuliah dulu.....!!!")
List1.SetFocus
Else
List1.AddItem List2
List2.RemoveItem List2.ListIndex
End If
End Sub

Private Sub Command4_Click()
For i = 0 To List2.ListCount - 1
List2.Selected(i) = Tru
List1.AddItem List2
Next i
List2.Clear
End Sub

Private Sub Command5_Click()
For i = 0 To List2.ListCount - 1
List2.Selected(i) = True
List1.AddItem List2
Next i
Text1.Text = Clear
Text2.Text = Clear
Combo1 = Clear
Option1 = False
Option2 = False
Check1 = False
Check2 = False
List2.Clear
Text1.SetFocus
End Sub

Private Sub Command6_Click()
Form2.Show
Form2.List1.AddItem (Text1)
Form2.List1.AddItem (Text2)
Form2.List1.AddItem (Combo1)
If Option1 = True Then
Form2.List1.AddItem (Option1.Caption)
End If
If Option2 = True Then
Form2.List1.AddItem (Option2.Caption)
End If
If Check1 Then
Form2.List1.AddItem (Check1.Caption)
End If
If Check2 Then
Form2.List1.AddItem (Check2.Caption)
End If
If List2.ListIndex Then
Form2.List1.AddItem (List2)
End If
For i = 0 To Form1.List2.ListCount - 1
Form1.List2.Selected(i) = True
Form2.List1.AddItem Form1.List2
Next i
End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Form_Load()
MsgBox ("WELCOME FROM IMRAN")
Combo1.AddItem "SISTEM INFORMASI"
Combo1.AddItem "TEKNIK SIPIL"
Combo1.AddItem "TEKNIK PERTAMBANGAN"
Combo1.AddItem "ADMINISTRASI"
List1.AddItem "LOGIKA"
List1.AddItem "APLIKASI PERKANTORAN"
List1.AddItem "MANAJEMEN BISNIS"
List1.AddItem "MANAJEMEN STRATEGI"
List1.AddItem "BAHASA INGGRIS"
List1.AddItem "KEWARGANEGARAAN"
End Sub

Tinggalkan komentarnya...untuk kritik dan sarannya...atau berbagi pengalaman mengenai program ini................!!!!!!!!

Kamis, 01 September 2011

Visual Basic

Property LET DAN GET

Imran Comment

Menu Utama Form Property LET DAN GET :

Listing Program :

1) Pertama-tama deklarasikan variable dan konstanta di General Procedur, sebagai berikut :

Dim CurrentColor As String

Const BLACK = &H80000012, RED = &HFF&

Const GREEN = &HFF00&, BLUE = &HFF0000

2) Tulis Daftar warna pada combo prosedur Form_Load

Private Sub Form_Load()

Cbo_Color.AddItem "Black"

Cbo_Color.AddItem "Red"

Cbo_Color.AddItem "Green"

Cbo_Color.AddItem "Blue"

End Sub

3) Lakukan dobel klik pada tombol LET dan ketik listing program:

Private Sub Cmd_LET_Click()

PenColor = Cbo_Color.Text

Form1.BackColor = CurrentColor

End Sub

4) Lakukan dobel klik pada tombol GET dan ketik listing Program:

Private Sub Cmd_GET_Click()

Form1.Caption = "BackColor is" & PenColor

End Sub

5) Lakukan dobel klik pada EXIT dan ketik listing Program :

Private Sub Cmd_EXIT_Click()

End

End Sub

6) Buat property "LET" dan "GET" seperti Listing berikut ini :

ü Property Let PenColor(ColorName As String)

Select Case ColorName

Case "Red"

CurrentColor = RED

Case "Green"

CurrentColor = GREEN

Case "Blue"

CurrentColor = BLUE

Case Else

CurrentColor = BLACK

End Select

End Property

ü Property Get PenColor() As String

Select Case CurrentColor

Case RED

PenColor = "Red"

Case GREEN

PenColor = "Green"

Case BLUE

PenColor = "Blue"

Case Else

PenColor = "Black"

End Select

End Property

Kemudian jalankan program (F5) dan pilih salah satu warna pada combo warna.

Tampilan Pada saat Command LET di Klik

Tampilan pada saat Command GET di klik

Semoga bermanfaat.................................

Senin, 15 Agustus 2011

Download Visual Basic

Menghitung Total Gaji Karyawan [Visual Basic 6]

Imran 11 comments

Membuat program Menghitung total gaji karyawan mengunnakan Visual Basic 6 ... lihat contoh gambar dibawah :

Form :

Listing Program :

Link download gratis untuk lihat selengkapnya :
PASSWORD : www.ilmu27.blogspot.com

Minggu, 14 Agustus 2011

Download Visual Basic

Fungsi-Fungsi Tool pada Visual basic dan Program Sederhana

Imran Comment

Mungkin sobat masih ada yang belum tau fungsi-fungsi tool pada visual basic 6........berikut contohnya :

Program Sederhana :

Link download lihat selengkapnya :

Selasa, 10 Mei 2011

Visual Basic

Membuat pilihan Warna Tulisan dengan OptionButton VB 6

Imran Comment

-----------------------------------------------------------------------------------------------
Private Sub Command1_Click()
End
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option1_Click(Index As Integer)
Label1.ForeColor = vbRed
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option2_Click()
Label1.ForeColor = vbYellow
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option3_Click()
Label1.ForeColor = vbGreen
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option4_Click()
Label1.ForeColor = vbWhite
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option5_Click()
Label1.ForeColor = vbBlue
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option6_Click()
Label1.ForeColor = vbBlack
End Sub
----------------------------------------------------------------------------------------------