Membuat Kotak daftar atau listbox

Pada saat buat blgroll tentunya data akan bertambah banyak dengan seiring berjalannya waktu. Untuk itu bisa memakai kotak daftar, sehingga bisa mengemat tempat dan bagus dilihat. Bisa dibayangkan bila tidak memakai Kotak Daftar tentu akan sangat panjang berderet kebawah.

Kotak daftar atau listbox bisa dipakai untuk blogroll. kode dibawah adalah untuk membuat kotak daftar atau listbox langkahnya :

1. Pilih Add a Gadget
2. Pilih HTML/JavaScript
3. Copykan code dibawah di HTML /Javascript
4. Tulis link sebagai isi dari kotak daftar tersebut

<div style = "border: 1px solid rgb(153, 153, 153);
overflow: auto;
width: 225px;
height: 225px;
text-align: left; ">

<a href = "http://ingat-catatan.blogspot.com/" target = blank> Ingat Catatan</a><br />
</div>


untuk width, height dan text-align disesuaikan dengan letak isi dan ukuran listbox. link http://ingat-catatan.blogspot.com hanya sekedar contoh
Selengkapnya...

Pemakaian Koleksi pada VB6

Dalam mendevelop sebuah software tentu akan selalu melibatkan banyak data. untuk itu bisa pakai array dan bisa juga pakai koleksi.

bila kesulitan memakai array gunakan saja koleksi dengan koleksi akan mudah dalam pemanggilan kembali data. pemanggilan data dalam koleksi tidaklah begitu sulit, tinggal memasukan key yang disertakannya

Untuk contoh pemakaian koleksi, key dibuat memakai hurup pertama pada data untuk memudahkan dalam pencarian. misal: Merah Putih key MP, Siang malam key SM, Tanam Pohon key TP dan seterusnya ...

ingat Langkahnya adalah :
1. Buka VB6. Pada New File pilih StandardExe lalu klik OK
2. tambahkan textBox pada form1
3. tambahkan commandButton pada form1
4. klik kanan pada form1 pilih View code

Copykan Kode catatan dibawah ini:

'---code

Dim Kol As New Collection
Dim a

Private Sub Command1_Click()
On Error GoTo Euweuh
    a = Kol.Item(Text1.Text)
    MsgBox Text1.Text & " adalah kunci sedang " & a & " adalah Data yang dipanggil "
    Text1.Text = ""
    Exit Sub
Euweuh:
    Text1.Text = ""
    MsgBox "Data tidak ditemukan, silahkan tambah data"
End Sub

Private Sub Form_Load()
    'Pengisian data pada Koleksi
    Text1.Text = ""
    With Kol
        .Add "Merah Putih", "MP" ' "Merah Putih" adalah data, "MP" adalah key
        .Add "Siang Malam", "SM"
        .Add "Tanam Pohon", "TP"
    End With
End Sub

'--- end code

untuk menjalankannya:
1. tekan tombol F5
2. pada textbox masukan MP atau SM atau TP atau apa saja
3. tekan tombol Command1 Selengkapnya...

Option Buttons pada VB6

Option Buttons dipakai untuk memberikan pilihan pada user, pada saat option buttons di pilih oleh user, maka option buttons tersebut nilainya berubah jadi true karena nilai default untuk option button adalah false.

prilaku option buttons adalah hanya ada satu yang mempunyai nilai true berapapun jumlah option buttons  yang ada di form, kecuali bila option buttons tersebut disimpan didalam objek lain misalnya di dalam frame atau dalam pictureBox

Contoh pemakaian option Button pada VB6, langkahnya :
1. jalankan VB6
2. pilih StandardExe, tekan tombol open
3. Tambahkan commandButton pada Form1
4. tambahkan beberapa option button pada form, jumlahnya berapa saja.
5. dobel klik pada command1 yang ada di Form1 hingga muncul code :

Private Sub Command1_Click()
   'copykan disini
End Sub

lalu Copykan code dibawah di antara Private dan end sub

'---Code

Dim a As Control
For Each a In Form1.Controls
   If TypeOf a Is OptionButton Then
      If a.Value = True Then
         MsgBox "Pilihan anda adalah : " & a.Caption
         Exit For
      End If
   End If
Next

'---end code

untuk menjalankannya :
1. tekan tombol F5
2. pilih option button
3. tekan tombol command1 Selengkapnya...

Perintah Lewat Keyboard langsung pada VB6

Pada saat memberikan perintah pada keyboard langsung, maka program akan langsung menjalankan perintah tersebut. Itu semua bisa dilakukan dengan merubah nilai property KeyPreview di form.

Form bisa menerima event dengan merubah property KeyPreview menjadi true, nilai defaultnya adalah false

Dipakai bila ingin memberikan perintah lewat keyboard langsung, tanpa memakai mouse dan tombol

langkahnya:

1. Buka vb6 pilih StandarExe klik tombol Open
2. double click commandbutton pada Toolbox sebelah kiri
3. klik kanan pada form1, pilih View Code

Copykan Code dibawah ini

'---code
Private Sub Form_Load()
    'Perintah dibawah ini yang membuat Form bisa menerima perintah
    Me.KeyPreview = True
End Sub

Private Sub Command1_Click()
    MsgBox "dilakukan lewat command1" , vbInformation
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     If KeyCode = vbKeyF4 Then
         MsgBox "Perintah lewat keyboard" , vbInformation
     End If
End Sub
'---end code

Jalankan dengan tekan tombol F5. setelah form keluar, kemudian tekan tombol F4

bagi yang perlu software kunjungi http://www.talagasoft.com Selengkapnya...

Penggunaan msgbox YesNo pada VB6

Bila kita develop program adakalanya user diharuskan untuk memilih, untuk hal tersebut kita bisa memberikan pilihan pada user. misalnya data untuk simpanan wajib pada program koperasi.

Contoh : Simpanan wajib untuk Koperasi karyawan harus di Update setiap awal bulan, sehingga setiap awal bulan gaji karyawan dipotong untuk simpanan wajib koperasi. Dari contoh ini, kita bisa memakai fungsi MsgBox.

Langkahnya adalah :

1. Buka VB6. Pada New File pilih StandardExe lalu klik OK
2. Double Clik commandButton pada toolBox yang berada disebelah kiri, sehingga pada form1 akan muncul Command1.
3. Double Click Command1 yang ada di Form1 hingga muncul code :

Private Sub Command1_Click()
    'copykan disini
End Sub

lalu Copykan code dibawah di antara Private dan end sub

'--- code
Dim Msg, Style, Title, Response
Msg = "Tambahkan Simpanan Wajib bulan ini?"
Style = vbYesNo + vbDefaultButton2
Title = " Simpanan Wajib "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then 
   'letakan Kode disini bila di Update . . .
   MsgBox "Simpanan Wajib telah ditambahkan"
Else  
   'letakan Kode disini bila tidak jadi . . .
   MsgBox "Dibatalkan"
End If
'--- end code

setelah selesai, running dengan tekan tombol F5, lalu tekan tombol command1, mesagebox langsung keluar Selengkapnya...

Menambahkan Add Url untuk blog baru

 Software Laundry mudah dan simpel

Bila kita membuat blog baru tentunya kita ingin blog kita terindeks di mesin pencari. Untuk itu kita harus menambahkan Add Url untuk blog baru.

Kita bisa menambahkan Add Url ke beberapa mesin pencari dalam satu halaman, sehingga memudahkan dalam menambahkan Add Url.

Dalam halaman tersebut ada untuk google, bing, freewebsubmission dan lain lain.

Nama halamannya adalah http://add-url.net/ 

Bagi yang memerlukan software kunjungi www.talagasoft.com Selengkapnya...

Nama samaran pada Yahoo Messenger

Bila kita perhatikan orang yang sedang chatting namanya atau nicknamenya aneh-aneh. Bagaimana untuk membuat nickname itu? apakah kita harus buat email baru setiap kita menginginkan nama baru.
Ternyata itu tidak perlu, kita bisa membuat beberapa nickname dalam satu email.

Untuk membuat beberapa nickname di yahoo meseenger adalah

• masuk ke yahoo messenger seperti biasa, klik pada menu Massenger pojok kanan atas.

• lalu pilih My Account Info. di Browser anda login kembali ke yahoo

• setelah masuk cari Account setting lalu klik Menage Your Yahoo! aliases

• lalu klik Add an alias, di kotak yang muncul tinggal masukan nama yang di inginkan. dalam penulisan nama biasanya tidak diperbolehkan ada spasi. lalu save. 
• Bila muncul peringatan berarti nama tersebut tidak bisa dipakai, ulangi lagi menekan Add an alias
• Setelah selesai tekan tombol Close dan Sign Out 

selamat mencoba dan semoga bermanfaat

Mencari Software? kunjungi www.talagasoft.com Selengkapnya...