Seputar Visual Basic 6.0/Net

Tanpa basa basi lagi, karena admin ada perlu mendadak untuk pergi, untuk kali ini atau pertemuan ini, admin akan shere mengenai cara membuat menu,Toolbar atau menu editor pada suatu program penjualan dengan Visual basic 6.0 ini.

Tanpa adanyan menu editor program kita itu terasa tidak luar biasa gitu, makanya kita buat suatu menu dimana suatu menu terdiri dari submenu yang akan kita isi sesuai dengan  kebutuhan kita contoh, file, transaksi, utilty atau help atau admin dan sebagainya………. Yaitu yang berada di atas program atau aplikasi.

Jadi dengan adanya menu editor program kita itu lengkap, sempurna gitu heeheheeeee conoh gambarnya seperti ini kalau dilihat dari yang sudah jadi :

 1. pertama kita pilih Menu editor seperti gambar di bawah ini 

2. Isi Caption dan name (Ket. Caption adalah nama external dan name adalah nama internal)

    dan setiap sudah mengisi tekan Enter pada keyboard dan bisa juga menggunakan Next apda button yang 

    tersedia di program vb 6.0

3. untuk membuat sub menu maka setiap header atau judul di atas pada option di blakangnya di tambahkan

   simbol (&) dan setiap sub menu, kursor di pilihan lalu tekan tanda (->) agar seperti gambar di bawah ini,

    untuk mengakhiri tekan Ok

 4 hasilnya kurang lebih seperti di bawah ini :

                                       

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

Dengan kesibukan kerja dan kuliah admin masih menyempatkan waktu untuk berbagi informasi, atau ilmu yang admin tau untuk anda, barangkali tidak tau heeee..

BAGAI MANA SIH MEMBUAT WAKTU DI VISUAL BASIC ITU ?

Terkadang kita itu bertanya Tanya tentang pembuatan jam di form program kita, bahkan itu sempele sekali, gampang gitu tapi karena kita baru kenal namanya Visual basic kan wajar makanya search di mbah google ini, eh pas bangen pencarianya yaitu di http://vb60web.blogspot.co.id/.  Di blog ini admin tidak mempostingkan selain Visual basic 6.0 karena jelas judul dari blognya ajah seputar visual basic 6.0 ya jadi bahas mengenai Visual Basic 6.0.

Untuk langkah awal kita buat dulu desainya yang akan admin lampirkan di bawah ini : dan pada setiap gambar admin sudah tulis tuh petunjuk jadi admin enda jelasin lagi tinggal taro code langsung jalankan

Keterangan “ admin akan munculkan time ke sebuah label 1 “

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

Untuk kali ini admin akan mencoba posting dengan berjudul tema diatas, sering kita membuat suatu penjumlahan dengan hasil seperti contoh ini : 600000,80000,10000 tanpa pembatas (,), nah dalam kasus tersebut untuk tidak membingungkan suatu nominal dalam rupiah maka perlu adanya batasan yaitu symbol (,) pada suatu program yang kita buat.

Karena sering kita melihat di suatu aplikasi atau program yaitu menggunakan (Rp.) dan (,) nya saja, nah kalau admin ini akan menjelaskan cara membuat batasan koma di nominal rupiah pada visual basic.6.0

Setelah kita membuat suatu program perhitungan kita tambahkan saja code berikut :

Format$(60000,”####,####,##0.00”)

Akan logout sebagai berikut :

60,000,00

Contoh  gambar :

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

Variable atau konstanta dalam sebuah visual basic 6.0 terdapat tipe data yang berguna untuk mendeklarasikan suatu variable dalam tipe data tertentu.

Disataan anda mendeklarasikan suatu variabl,  anda memberikan suatu tipe data pada variable tersebut pada kondisi default, jadi dalam variable itu kita bisa mendeklarasikan tipe kita dengan kemauan kita, agar mempersingkat nama dalam penulisan.

Diantaranya tipe data yang ada di visual basic yaitu terdiri dari :

Untuk penulisan dalam variable divisual basic 6.0 sebagai berikut :

Dim Nb as string

Dim kd as string

Nb = Nama_barang

Kd=kode

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

Salam, pagi sebelumnya saya sudah posting mengenai, bagaimana menggunakan ComboBox di vb.6.0, untuk kali ini admin akan posting bagaimana membuat tampilan pesan, dimana kita membuat login, dan jika salah atau benar maka akan muncul pesan “anda berhasil” atau “password anda salah”.

Karena anda sudah mengenal dasar – dasar dalam visual basic maka akan saya coba untuk kasus seperti ini, yaitu membuat pesan dimana pesan tersebut akan tampil. Ok langsung saja kita buat sebuah form login seperti di bawah ini :

Yaitu dengan perintah sebagai berikut :

// perintah untuk menampilkan pesan

Msgbox “ keterangan anda”,vbCristal,”judul textbox tampilan”

Contoh penulisan

Msgbox”andabenar”,vbcritical,”warning”

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

Salam Pagi, Udah semuanya syarapan heee…. Kali ini admin akan memposting bagaimana menggunakan Combox di VB.6.0, dimana Combox itu adalah sebuah pilihan yang sering kita gunakan untuk memilih pilihan karakter, atau nama yang ketika di klik akan tampil kebawah dalam bentuk pilihan.

Untuk bagi para pemula dalam belajar Vicual Basic.6.0, pas banget baca artikel ini karena ini adalah bagian dasar dimana kita akan mencoba mengerti tentang coding dalam Visual basic 6.0.

Ok langsung saja kita buat desainya dulu seperti gambar di bawah ini, owh ya untuk kasus kali ini bagaimana kita pilih combox dan mengkliknya sebuah pilihan akan muncul langsung di textbox tanpa menggunakan enter apalagi botton pada visual basic.6.0.

{Perintah di ComboBox dengan keterangan mengginakan Click perhatikan dibawah ini}

Private Sub Combo1_Click()

If Combo1 = "KOMPUTER" Then  {Ket: jika combo1 = KOMPUTER maka isi dari Textbox yang dinamakan text1 akan tampil “computer}

Text1 = "komputer"

ElseIf Combo1 = "MOUSE" Then

Text1 = "mouse"

End If

End Sub

{Perintah di Form}

Private Sub Form_Load()

Combo1.AddItem "KOMPUTER"

Combo1.AddItem "MOUSE"

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

Sekarang saya akan posting lagi, mengenai Vicual Basic.6.0, I Love Vicual Basic heheheh……

Untuk kesederhanaan karena, kita harus  mengerti dasar – dasar, jadi posting pertama dan setrusnya mengenai kesederhanaan, nah kalau sudah mahir dalam Vicual basic ya kita mulai menggunakan databasenya heee

Ok langsung saja kita buat desainya seperti ini :

Untuk perintahnya sebagai berikut :

{Perintah di BIRU}

Private Sub biru_Click()

outwarna.BackColor = vbBlue

keterangan = "BIRU"

End Sub

{Perintah di HIJAU}

Private Sub hijau_Click()

outwarna.BackColor = vbGreen

keterangan = "HIJAU"

End Sub

{Perintah di KUNING}

Private Sub kuning_Click()

outwarna.BackColor = vbYellow

keterangan = "KUNING"

End Sub

{Perintah di MERAH}

Private Sub merah_Click()

outwarna.BackColor = vbRed

keterangan = "MERAH"

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

Kali ini saya akan membuat Login sederhana di Visual Basic6.0 dengan sangat sederhana, masih belum ke topic data base, masih dalam form, nah alasanya saya membuat kesederhanaan ini agar pembaca mengerti, ya bagi pemula, kalau sudah master sih gak perlu kunjung kesini heeee….

Setelah saya mempostingkan tentang membuat program perhitungan nilai mahasiswa, kali ini saya akan membuat seperti sudah saya jelaskan diatas.

Ok langsung saja untuk persiapkan biasa yaitu terlebih dahulu menginstall vb 6.0 di pc atau laptop anda. Dan buat desain seperti di bawah ini :

Untuk perintahnya sebagai berikut :

{Perintah di Botton MASUK}

Private Sub Command1_Click()

If Text1 = "admin" And Text2 = "123" Then

MsgBox "anda berhasil masuk", vbCritical, "Keterangan"

Text1 = ""

Text2 = ""

Else

MsgBox "anda gagal masuk", vbCriscal, "Keterangan"

Text1 = ""

Text2 = ""

End If

End Sub

{Perintah di Form untuk menamakan textbox saat di Run}

Private Sub Form_Load()

Text1 = "name"

Text2 = "****"

End Sub

{Perintah Untuk BATAL}

Private Sub Command2_Click()

End

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

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 :

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