Mengunci Tombol Huruf dan hanya Tombol Angka yang Aktif Visual Basic 6.0

Mengunci Tombol Huruf dan hanya Tombol Angka yang Aktif Visual Basic 6.0 - wah panjang kali ya judulnya. Bingung seh mau kasih judul apa.. cara Mengunci Tombol Huruf dan hanya Tombol Angka yang Aktif Visual Basic 6.0 bisa menggunakan KeyAscii dan dimasukan pada event KeyPress. Biasanya cara ini digunakan untuk menghindari user/pemakai menekan tombol huruf. Simak Langsung Kodingnya:

Private Sub txttelp_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 And KeyAscii <> vbKeyBack Then
RangeTombol = "0123456789-"
CekTombol = InStr(RangeTombol, Chr(KeyAscii))
If CekTombol = 0 Then
KeyAscii = 0
End If
End If
End Sub

Penjelasan:
txttelp adalah sebuah nama TextBox dan textbox itu masuk dalam event KeyPress.  Aku rasa cukup penjelasannya . hehe sedikit ya..bila belum jelas silahkan tinggalkan coment. Koding diatas menggunakan Algoritma. Eh lupa semua kan pake Algoritma.- Mengunci Tombol Huruf dan hanya Tombol Angka yang Aktif Visual Basic 6.0

More about → Mengunci Tombol Huruf dan hanya Tombol Angka yang Aktif Visual Basic 6.0

Data Environment | Operasi Data

Pada pembahasan Data Environment sebelumnya membahas bagaimana membuka database menggunakan Data Enviromment dan kali ini merupakan pembahasan selanjutnya data environment yaitu Operasi Data. Kita ketahui Operasi Data sangat diperlukan dalam pembuatan sistem program seperti menambahkan data, mengedit data, dan menghapus data. Langsung aja simak pembahasan dibawah ini:

1. Menambahkan Data(addnew)
        Codingnya Umumnya > DEForm.rsSupplier.AddNew
2. Mengedit Data(Update)
        Codingnya Umumnya > DEForm.rsSupplier.Update
3. Menghapus Data(Delete)
        Codingnya Umumnya > DEForm.rsSupplier.Delete
4. Membatalkan Edit Data(CancelUpdate)
        Codingnya Umumnya > DEForm.rsSupplier.CancelUpdate
5 . Merefersh Data(Requery)
        Codingnya Umumnya > DEForm.rsSupplier.Requery

Keterangan:

• DEForm adalah nama sebuah Data Environment

• rsSupplier adalah nama tabel yang ada di Data Environent

Data Environment | Operasi Data - Membuka Database Menggunakan Data Environment

More about → Data Environment | Operasi Data

Menggunakan Data Environment Visual Basic 6.0

Menggunakan Data Environment Visual Basic 6.0 - Data Environment merupakan salah satu media yang ada di visual basic 6.0 untuk membuat jembatan antara program dengan database. dan kali ini tutorial yang membahas tentang Data Environment adalah membuka database dengan data environment. Simak ya source-nya:

DEForm.rsSupplier.MoveFirst
Set Me.GridSupplier.DataSource = DEForm.rsSupplier
If DEForm.rsQSupplier.State = 0 Then
            DEForm.rsQSupplier.Open
End If
DEForm.rsQSupplier.Requery

Penjelasan:
DEForm adalah nama Data Environment.
rsSupplier adalah nama tabel sedangkan MoveFirst adalah perintah wajib yang berarti mulai dari pertama.
GridSupplier adalah sebuah Data Grid.

Kenapa diatas dikasih ini If DEForm.rsQSupplier.State = 0 Then DEForm.rsQSupplier.Open?
karena kalau perintah ini tidak diberikan maka nanti akan terjadi error, untuk mengatasi error tersebut dengan kode itu yang berarti jika tabel supplier pada DEForm tertutup maka tabel supplier akan dibuka.

DEForm.rsQSupplier.Requery >> requery berguna seperti refersh namun yang ini dikhususkan untuk memanggil ulang tabel pada databas. - Data Environment Visual Basic 6.0

More about → Menggunakan Data Environment Visual Basic 6.0

Cara menampilkan gambar menggunakan Visual basic 6.0

Cara menampilkan gambar menggunakan Visual basic 6.0

Tulis syntax ini di bagian view code,

Private Sub CommandImg _Click()

        Me.cmdialog.DialogTitle = "Cari Gambar"

        Me.cmdialog.Filter = "File JPEG|*.jpg"

        Me.cmdialog.ShowOpen

        Me.tempatgambar.Picture = LoadPicture(Me.cmdialog.FileName)

End Sub

Penjelasan dari syntax diatas ;

Me.cmdialog.DialogTitle = "Cari Gambar" ,perintah ini digunakan untuk memberi nama title bar di command dialog yaitu Cari Gambar.

Me.cmdialog.Filter = "File JPEG|*.jpg" , digunakan untuk menyaring data berdasarkan ekstentesi yang digunakan. Pada perintah tersebut yang disaring adalah file yang berekstensi  .jpg.

Me.cmdialog.ShowOpen , digunakan untuk membuka jendela command dialog.

Me.tempatgambar.Picture = LoadPicture(Me.cmdialog.FileName), syntax untuk menempatkan gambar pada picture box yang bernama tempat gambar.  LoadPicture(Me.cmdialog.FileName) ,untuk me load gambar .

More about → Cara menampilkan gambar menggunakan Visual basic 6.0

Speed Smart Fren sinyal Hybrid Cepat

t Fren sinyal Hybrid Cepat - Malem-malem gini iseng2 diwnload,wah menakjubkan kali Speed Smart Fren sinyal Hybrid Cepat banget hampir 400kb/s. Idm yang saya pakai pun juga biasa. Mungkin ini tergantung wilayah cangkupan speed downloadnya. Saya ini ada diwilayah madiun. yang ingin mencobanya silahkan kesini. Pagi,sore,malam speednya tetep bagus. Satu lagi faktor yang mungkin sangat berpengaruh, yaitu install semua driver pada komputer atau laptop anda. Kenapa kox bisa gitu?? sekarang kita bilang performa komputer. Jika performa komputer jeleg maka itupun berpengaruh pada system lain nya seperti speed download/jaringan. kalau tidak percaya lihat preview dibawah ini,ya maaf speed 300kb/s yang ke shoot print screen.

Kalau masih tidak percaya buktikanlah sendiri. IDM full atau tidak itu tidak masalah. Hanya saja perbedaannya di masa expirednya. - Speed Smart Fren sinyal Hybrid Cepat

More about → Speed Smart Fren sinyal Hybrid Cepat

Membuat WajanBolic

Membuat WajanBolic, mungkin jika anda pernah bersekolah di STM jurusan komputer maka anda pasti mengenal apa itu WajanBolic. Wajan Bolic adalah alat untuk menguatkan sinyal modem,Wireless Internet dan sinyal lainnya yang berhubungan dengan internet.

Apa sih keuntungan dari wajanBolic selain diatas?

• Untuk meningkatkan jarak jangkauan wireless LAN
diperlukan antena eksternal dengan gain yang lebih
tinggi dari antenna standard
• Antena eksternal High Gain harganya relative mahal
• Banyak barang-barang yang sering dijumpai dalam
kehidupan sehari-hari yang dapat digunakan untuk
membuat antenna High Gain dengan cara mudah dan
biaya ringan

Kenapa disebut WajanBolic?
• Wajan : penggorengan,
alat dapur buat masak
• Bolik : parabolik
• WajanBolik : Antena
parabolik yg dibuat dari
wajan
• Karena berasal dari wajan
maka kesempurnaan-nya
tidak sebanding dengan
antenna parabolik yg
sesungguhnya.

Langsung saja bagaimana memulai membuat WajanBolic ini
Pertama kita siapkan Bahan Utama yaitu

1. Wajan dengan diameter minimal 40cm (harga sekitar Rp. 40.000,-)
2. USB Wireless LAN (harga sekitar Rp.200.000,-)
3. Pralon 3” panjang sekitar 23 cm.
4. Tutup Pralon 3” 2 buah (harga sekitar 2 x Rp. 4.000,-)
5. Aluminium Foil secukupnya.
6. Busa/Styrofoam bekas kemasan barang elektronik secukupnya.
7. Kabel USB (harga sekitar Rp.20.000,-)
8. Kabel UTP 12m (harga sekitar Rp.3.000,-/m)

Antena Wajanbolic terdiri dari 3 bagian utama :
1. Reflektor berbentuk Parabola menggunakan Wajan
2. Bagian Sensitif antena berbentuk Tabung berisi USB WLAN
3. Kabel penghubung antena ke komputer

Prinsip kerja antena Wajanbolic seperti antena parabola lainnya, yaitu menempatkan
bagian sensitif antena pada titik fokus parabola (wajan) sehingga semua gelombang
elektromagnet yang mengenai wajan akan terkumpul dan diterima oleh bagian sensitif
tersebut. Berikut ini kita bahas satu persatu.

1. Reflektor berbentuk Parabol menggunakan Wajan
Gunakan wajan dengan diameter minimal 40cm. Ukuran wajan lebih besar makin
baik karena akan lebih banyak gelombang radio yang diterima.
Hal terpenting pada bagian ini, adalah penentuan titik fokus wajan. Untuk itu gunakan
rumus dibawah ini :

Catat posisi titik fokus tersebut. Nantinya mulut Tabung Sensitif antena harus berada
pada titik fokus tersebut.
Pasang Tutup Pralon 3” dengan mur/baut tepat ditengah wajan sebagai pemegang
Tabung bagian sensitif (lihat Gambar 1 A).
2. Tabung Sensitif Antena
Bentuk jadi Tabung sensitif dapat dilihat di Gambar 1B, berupa pipa pralon yang di
bagian dalamnya ditempatkan USB WLAN (Gambar 1C).
Sebagai Tabung dapat digunakan Pipa Pralon 3” sepanjang 23cm dan bungkus 16cm
dari panjangnya dengan Aluminium foil (Ingat ! Pipa Pralon 3” berdiameter 90cm),
Tutup salah satu ujung pipa yang terbungkus Aluminium dengan Tutup Pralon 3”.
Bagian dalam Tutup Pralon tersebut harus juga dilapisi Aluminium (Gambar 1D).
Buat lobang pada Pipa untuk menempatkan USB WLAN di dalam Pipa. Tentukan
Posisi USB WLAN 5cm dari Tutup Pralon. Jika digunakan Tabung ukuran lain, posisi
USB bisa ditentukan sebagai berikut :

Diameter Tabung D (mm)         L (mm)
76                                          96.177
77                                          86.819
78                                          79.989
79                                          74.738
80                                          70.551
81                                          67.117
82                                          64.243
83                                          61.794
84                                          59.679
85                                          57.832
86                                          56.202
87                                          54.752
88                                          53.453
89                                          52.281
90                                          51.219
91                                          50.25
92                                          49.364
93                                          48.549
94                                          47.797
95                                          47.101
96                                          46.455
97                                          45.853
98                                          45.292
99                                          44.767

Pasang USB LAN di dalam Tabung dan untuk memperkuat posisinya jepit dengan
Busa/Styrofoam (Gambar 1E).
Setelah Tabung Sensitif selesai pasang ke Wajan, bila perlu gunakan lem atau sekrup
(Lihat Gambar 1F)

Lanjutkan baca disini.

More about → Membuat WajanBolic