Program Penjualan Hitung Total Bayar VB6 Part2

Program Penjualan Hitung Total Bayar VB6 Part2

Imran       9 comments   

Dalam kesempatan ini lagi-lagi membahas Program Penjualan Hitung Total Bayar VB6 yang sebelumnya pernah dibahas disini part1 , sekarang adalah dengan program yang sama yakni Program Penjualan Hitung Total Bayar VB6 Part2 dimana dalam program ini yang membedakan adalah terletak pada combobox yang digunakan adalah 2 combobox pada formnya. Program ini sangat sederhana dalam menghitung total bayar dari produk yang dipilih. Sobat bisa lihat contohnya pada gambar dibawah :

Silahkan sobat kembangkan sendiri, untuk download source code-Nya silahkan klik link dibawah :

Program Penjualan Hitung Total Bayar VB6

Program Penjualan Hitung Total Bayar VB6

Imran       14 comments   

Ketemu lagi sobat dikesempatan ini adalah membagikan Program penjualan Hitung total Bayar tentunya dibuat menggunakan Visual Basic 6 . Tentunya sobat pernah masuk ke Swalayan membeli berbagai macam makanan , ketika hendak membayar pasti menemukan berbagai perangkat komputer yang dilengkapi Barcode untuk membaca berapa sih total yang harus dibayar. Supaya tidak banyak bayarnya jangan banyak belinya hehehehehe........ bercanda sobat. Dari situ kita bisa mengetahui bahwa program-program yang dipakai di tempat tersebut tak jauh beda dengan Program ini , tapi jangan dulu !!! ini hanya program sederhana saja untuk dijadikan dasar untuk membuat program besar yang seperti program atau aplikasi yang digunakan pada Mini Market atau Swalayan tadi. Coba lihat gambar dibawah sama tidak yang diswalayan, jika belum silahkan sobat kembangkan sendiri.................

Silahkan download source code-nya DISINI program lainnya DISINI....

Contoh Fungsi Percabangan If pada VB6

Contoh Fungsi Percabangan If pada VB6

Imran       Comment   

Pernah ! tidak, sobat membuat program percabangan di visual basic dengan menggunakan fungsi if (logika), jika sobat pernah membuatnya pasti sudah tau kalau percabangan memiliki banyak sub-sub cabang dibawahnya atau lebih dari satu kondisi.

Pada visual basic sudah dikenal dengan kode "then" yang dipakai untuk membuat aplikasi percabangan. Artinya : jika kodisi satu benar maka akan membarikan informasi, jika kondisi satu salah maka kondisi selanjutnya akan diproses sampai menampilkan informasi yang dibutuhkan.

Untuk lebih jelasnya silahkan perhatikan contoh dibawah :

Download source code-nya DISINI........

Program Rental Visual Basi 6 (VB6)

Program Rental Visual Basi 6 (VB6)

Imran       4 comments   

Pasti sudah tau dengan program billing yang dibuat menggunakan vb6 yang pernah dibahas disini sebelumnya klik di sini billing warnet atau billing warnet part2, tentunya sudah dilengkapi dengan source codenya dapat didownload dengan gratis.........!!! agar asal jangan disalah gunakan hehehehehe........teman-teman bisa kembangkan dengan kreasi sendiri agar lebih menarik dan lebih profesional....jangan liah buatanku yang amburadul tidak profesional ini.......jika berminat untuk dikembangkan silahkan klik link download dibawah gartis kok..!!!!

Link download Di SINI atau DI SINI...............

Semoga bermanfaat buat teman-teman..................bagaimana dengan anda!!!!!!!!

Program Menghitung Luas dan Keliling Lingkaran VB6

Program Menghitung Luas dan Keliling Lingkaran VB6

Imran       2 comments   

Semangat sobat!!!........mudah-mudahan anda menemukan apa yang sobat cari, kesempatan saat ini saya memberikan artikel berupa Program Menghitung Luas dan Keliling lingkaran yang dibuat dalam bahasa VB6. Sobat-sobat yang sudah tau menggunakan software VB6 ini pasti menarik untuk membuat program-program yang bermanfaat. Misalanya : program kalkulator, program billing dan sebagainya. Visual Basic sudah banyak yang menggunakan karena disamping penggunaannya mudah dan karena memiliki fasilitas yang sudah lengkap. Bagi sobat yang mencari-cari program dari judul artikel ini. Coba lihat contoh screenshot program dibawah :



Download Source codenya :

Kalkulator Sederhana Dengan VB6

Kalkulator Sederhana Dengan VB6

Imran       2 comments   

Kesempatan ini internet beritaku memposting lagi mengenai visual basic 6 dimana membahas tentang Program Kalkulator sederhana, karena banyaknya permintaan atau mencari mengenai program-program yang dibuat lewat visual basic. Maka saya berikan lagi contoh program kalkulator sederhana yaitu : didalamnya terdapat command pembagian, pengurangan, perkalian, pangkat dan penambahan. Program ini lumayan bagus untuk menyelesaikan tugas Matematika....kalau lagi tidak punya kalkulator pakai saja kalkulator ini hehehehe gratis kok...!!!, untuk lebih menantang ayo berkreasi sendiri membuat kalkulator silahkan lihat contohnya seperti dibawah :

Download Source Code-Nya pada link dibawah 100% gratis:

Program Counter Pulsa (VB6)

Program Counter Pulsa (VB6)

Imran       5 comments   

Teman-teman yang kuliah di Jurusan Sistem Informasi atau jurusan perancangan sistem pasti sudah kenal yang namanya Visual Basic 6.0, saya ingat sewaktu ambil jurusan Sistem Informasi di daerah saya, Dosen menyuruh untuk membuat program sederhana, seperti billing warnet , kalkulator dan program counter pulsa. Sebagai pemula seperti saya bingung buatnya bagaiman sulit sekali, alasanya sebab bahasanya adalah hanya bisa di proses oleh mesin komputer kata lainnya ialah bahasa mesin komputer yang dipakai didalamnya. Yang namanya tugas sebagai seorang mahasiswa pasti harus diselesaikan agar nilai bagus..., hehehehehehe ini pengalaman saya teman-teman.

Langsung saja ke TKP.......lihat contoh Program Counter pulsa dibawah :






Download Source Codenya :

Billing Warnet Part 2 (VB6)

Billing Warnet Part 2 (VB6)

Imran       1 comment   

Sudah sekian lama tidak memposting tentang program Billing Warnet dengan VB6, akhirnya saya bisa memposting billing warnet part2 lagi dalam kesempatan ini . Pasti sobat sudah tau billing , cobat perhatikan pada saat sobat ke warnet dimana disana terlihat waktu yang terpakai oleh pengunjung dan terkahir adalah tarif yang harus dibayar.

Sobat pastinya sudah tau kan tentang billing seperti bagaimana???, tidak usah lagi dibahasan panjang lebar mengenai billing. Bagaimana kalau sobat sendiri yang buat billing warnet menggunakan bahasa pemograman visual basic, tentunya akan menarik dengan kreasi kita sendiri betul tidak!

Contohnya dengan program billing buatan aku sendiri kelihatannya tidak profesional, tapi tidak apalah sebagai bahan pembelajaran saja buat sobat-sobatku................







Download source code billing warnet diatas :

Program Sederhana Penggunaan CheckBox dan OptionBox [VB6]

Program Sederhana Penggunaan CheckBox dan OptionBox [VB6]

Imran       Comment   

Visual Basic dilengkapi dengan beberapa tombol pilihan untuk memudahkan seorang pemograman dalam membuat program , sebagai contoh adalah CheckBox dan OptionBox dimana masing-masing fungsinya berbeda. Seorang pemograman hanya dengan menyesuaikan saja dengan program yang dibuatnya. Mislanya dengan program dibawah ini adalah checkbox digunakan untuk memberikan efek huruf tebal dan miring, sedangkan untuk optionbox adalah untuk memberikan efek warna pada huruf.

Contoh :

Sorce Code Programnnya :

Label3.FontItalic = Check1.Value

Label4.FontItalic = Check1.Value

End Sub

Private Sub Check2_Click()

Label3.FontBold = Check2.Value

Label4.FontBold = Check2.Value

End Sub

Private Sub Command1_Click()

Label3.Caption = Text1.Text

Label4.Caption = Combo1

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem "SISTEM INFORMASI"

Combo1.AddItem "PERTAMBANGAN"

End Sub

Private Sub Option1_Click()

Label3.ForeColor = vbRed

Label4.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Label3.ForeColor = vbBlue

Label4.ForeColor = vbBlue

End Sub

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

Kunjungi juga channel video youtube saya : KLIK DISINI

atau Klik tombol Subscribe dibawah.

I.A.H Channel

Subscribe

Menghitung Nilai Akademik [Visual Basic 6]

Menghitung Nilai Akademik [Visual Basic 6]

Imran       6 comments   

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

Subscribe

Program Mata Kuliah Yang Di pilih [Visual Basic 6]

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................!!!!!!!!

Property LET DAN GET

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.................................

Menghitung Total Gaji Karyawan [Visual Basic 6]

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

Fungsi-Fungsi Tool pada Visual basic dan Program Sederhana

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 :

Membuat pilihan Warna Tulisan dengan OptionButton VB 6

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
----------------------------------------------------------------------------------------------

Billing Warnet dengan VB 6

Billing Warnet dengan VB 6

Imran       15 comments   

Bagi teman-teman ingin melihat program jadinya silahkan Download DI SINI.......



Salam Illank .......

Visual Basic 6.0 ( Aplikasi menampilkan image dengan checkbox )

Visual Basic 6.0 ( Aplikasi menampilkan image dengan checkbox )

Imran       2 comments   

1. Form

2. Listing

Kunjungi juga channel video youtube saya : KLIK DISINI

atau Klik tombol Subscribe dibawah.

I.A.H Channel

Subscribe

Visual Basic 6.0 (Option pilihan warna berbeda)

Visual Basic 6.0 (Option pilihan warna berbeda)

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