SeeWebsters : visual basic

noreply@blogger.com (Anonymous) — Fri, 22 Nov 2013 19:51:00 +0000

SEO Tips

noreply@blogger.com (Anonymous) — Wed, 20 Mar 2013 16:37:00 +0000

Anda harus pandai perencanaan ketika mencari untuk memastikan bahwa website Anda adalah SEO dan posisi yang baik sehingga peringkat tinggi ketika datang mesin pencari. Persiapan adalah kunci ketika datang untuk melakukan hal ini. Hal ini penting bagi Anda untuk memiliki rencana setiap kali Anda mulai merancang sebuah situs web untuk Anda untuk mendapatkan lalu lintas maksimum. Mari kita lihat beberapa tips yang akan memastikan bahwa halaman web Anda memiliki peringkat yang lebih tinggi. 1.Determine Tujuan Anda Tanyakan kepada diri sendiri apa yang Anda ingin capai dengan situs Anda atau apa yang lalu lintas yang Anda cari target. Ada beberapa orang yang berpikir memiliki website yang sukses adalah turun untuk memiliki banyak lalu lintas. Anda mungkin memiliki banyak lalu lintas tetapi pada saat yang sama memiliki penjualan yang rendah. Banyak lalu lintas baik jika itu hanya sebuah situs hobi tetapi memilih dengan bijak ketika Anda mencari lalu lintas yang dimaksudkan untuk meningkatkan penjualan Anda. 2.Take waktu untuk merencanakan kata kunci dengan benar Ada banyak bebas lalu lintas yang satu dapat mengambil keuntungan dari ketika mereka membuat baik penggunaan kata kunci. Anda perlu memahami bahwa mesin pencari biasanya peringkat halaman web dan bukan website. Pertama-tama Anda perlu tahu apa tujuan Anda miliki ketika datang melakukan SEO. Anda juga perlu memikirkan niche tertentu yang Anda targetkan. Pastikan Anda juga yakin bahwa Anda membuat penggunaan yang tepat dari kata kunci ini sehingga mereka menggunakan alat SEO. Banyak orang membuat kesalahan dengan menargetkan satu kata kunci untuk website secara utuh. Cara cerdas untuk melakukannya adalah dengan menargetkan daftar kata kunci yang memiliki permintaan moderat kemudian memastikan bahwa mereka baik peringkat. Hal ini memastikan lalu lintas yang didorong lebih efektif daripada ketika Anda menggunakan satu kata kunci. 3.Well Direncanakan Pada halaman Optimasi Pastikan bahwa kata kunci yang digunakan dalam judul halaman web, meta-tag dan konten web. Jika Anda memiliki konten web yang di atas empat ratus kata, cobalah untuk memastikan bahwa kepadatan kata kunci adalah sekitar 1-3%. Anda juga dapat membuat sitemap untuk membuatnya menjadi favorit dari laba-laba mesin pencari. Hal ini juga memastikan bahwa halaman internal dapat diindeks dengan cepat. 4. Efektif Off-Page Optimization Teknik Membangun popularitas link adalah salah satu aspek yang paling penting SEO. Pastikan bahwa Anda memilih dengan bijaksana ketika datang ke situs web yang Anda pilih untuk perdagangan link dengan. Memilih pada orang-orang yang memiliki niche yang sama. Anda juga dapat menggunakan website pemerintah dan pendidikan yang cukup berharga. Anda juga dapat membeli link dari situs-situs lain asalkan Anda yakin tentang kualitas mereka. 5.Gunakan Mesin Alat Optimasi Search Awalnya, dulu sampai webmaster untuk melakukan optimasi on-halaman serta optimasi off-page dengan bertukar link dengan webmaster lainnya. Ini telah berubah karena peningkatan teknologi dan pengembangan perangkat lunak baru. Berkat alat ini, tugas-tugas yang diperlukan untuk situs web untuk peringkat lebih tinggi di search engine. Ini semua dilakukan secara otomatis. Alat ini berguna untuk webmaster karena mereka mampu menyelesaikan tugas-tugas mereka lebih cepat sambil menyimpan uang.

Kondisi, Operator dan Variabel

noreply@blogger.com (Unknown) — Fri, 14 Sep 2012 12:41:00 +0000

Kondisi

Suatu pernyataan yang digunakan untuk menganalisa suatu keadaan dan mengambil keputusan berdasarkan analisa tersebut.

Cth perintah kondisi :

Select Case

Kondisi If

•Syntax :

–If condition1 Then

[statementblock-1]

[ElseIf condition2 Then

[statementblock-2]] ...

[Else

[statementblock-n]]

[End If]

Aturan kondisi If

•Else If, Else dan End If bersifat optional apabila :

–Hanya ada 1 blok kondisi yang harus dianalisa oleh perintah If.

–“Statementblock” diketik hanya dalam satu baris disebelah “Then”. (Lihat aturan pengetikan statement slide selanjutnya)

•End If bersifat mutlak apabila :

–Ada lebih dari 1 blok kondisi yang harus dianalisa oleh perintah If. (Menggunakan Else If dan Else)

–Ada 1 blok kondisi, namun diketikkan dibawah Then.

•Else If dan Else digunakan apabila :

–Ada lebih dari 1 blok kondisi yang harus dianalisa oleh perintah If.

Kondisi Select Case

•Syntax :

–Select Case testexpression

[Case expressionlist1

[statementblock-1]]

[Case expressionlist2

[statementblock-2]]

[Case Else

[statementblock-n]]

End Select

Aturan Select Case

•End Select mutlak harus ada.

•Case “Expressionlist” dan Else bersifat optional

•Jika tipe data “TestExpression” berupa angka, maka variasi “Expressionlist” dapat dilakukan sbb :

–Perintah <,>,<=,>= dapat dilakukan dengan perintah Case Is.

–Cth : Select Case Jumlah

Case Is > 10

Label1.Caption = “Lebih dari 10”

End Select

•Jika tipe data “TestExpression” berupa angka, maka variasi “Expressionlist” dapat dilakukan sbb :

–Jika “Expressionlist” merupakan suatu range angka tertentu, maka dapat digunakan perintah N to M.

–N merupakan nilai awal dan M merupakan nilai akhir.

–Cth : Select Case Jumlah

Case 0 to 45.9

Label1.Caption = “E”

Case 46 to 55.5

Label1.Caption = “D”

End Select

OPERATOR

•Dibagi menjadi 3 bagian :

–Operator Aritmatika

•Digunakan untuk operasi matematis terhadap nilai data.

–Operator Perbandingan

•Digunakan untuk operasi yang membandingan nilai data.

–Operator Logika

•Digunakan untuk operasi yang membandingan suatu perbandingan.

VARIABEL

•Adalah data yang disimpan di dalam memory komputer dan bersifat sementara

(selama program dijalankan).

•Variabel pada Visual Basic bersifat Optional, artinya setiap variabel yang akan

digunakan boleh tidak dideklarasikan. Variabel yang tidak dideklarasikan akan

memiliki tipe “Variant”.

•Untuk membuat Visual Basic mengharuskan pendeklarasian variabel, gunakan

perintah “Option Explicit” dibagian atas window coding.

ATURAN PENDEKLARASIAN VARIABEL

•Public atau Global

–Perintah untuk mendeklarasikan variabel Public atau Global, yang dapat dikenal

oleh semua object dalam project jika dideklarasikan di dalam sebuah module.

–Cth : Public <NamaVariabel> As String

•Dim

–Perintah untuk mendeklarasikan variabel Lokal, yang hanya dikenal di dalam

sebuah form, sub, atau function tertentu.

–Cth : Dim <NamaVariabel> As Integer

•Static

–Sama dengan perintah Dim.

–Cth : Static <NamaVariabel> As Byte

•Const

–Perintah untuk mendeklarasikan sebuah variabel konstan.

–Cth : Const <NamaVariabel> = 3.14

TYPE DATA VARIABEL

•Variant

–Merupakan tipe data Visual Basic yang dapat menampung semua jenis karakter.

Variant merupakan tipe data “Default” jika sebuah variabel tidak dideklarasikan

terlebih dahulu.

–Bernilai 16 byte + 1 byte.

•Integer

–Tipe data yang hanya dapat menampung nilai bilangan bulat.

–Range : - 32768 s/d 32767

•Byte

–Tipe data yang hanya dapat menampung bilangan bulat

–Range : 0 s/d 255

•Decimal

–Tipe data yang dapat digunakan untuk menyimpan nilai desimal sampai dengan

ketepatan 28 angka desimal.

•Boolean

–Tipe data yang hanya memiliki 2 nilai yaitu True dan False.

•Single

–Salah satu tipe data numerik dengan range antara :

•-3042823E+38 s/d 3042823E+38

•Double

–Salah satu tipe data numerik yang memiliki range antara :

•- 179769313486232D308 s/d 179769313486232D308

•Date

–Tipe data yang khusus menyimpan data tanggal dengan range antara :

•1 Januari 100 s/d 31 Desember 9999

•String

–Merupakan tipe data yang dapat menampung

semua jenis karakter, mulai dari angka, huruf,

ataupun karakter khusus.

–Tipe data string yang berisi angka tidak

dilakukan perhitungan kecuali diberi sebuah

function “Val”.

–Perintah “Val” digunakan untuk

mengkonversikan data string yang berupa angka

menjadi data angka. Cth : Dim A, B As String

A = 1:B = 2

Label1.Caption = A + B

Label2.Caption = Val(A) + Val(B)

Label1 akan bernilai “AB”

Label2 akan bernilai “3”

•Currency

–Tipe data yang digunakan untuk

menyimpan data nilai uang. Range

Currency antara :

•-9223372036854775807 s/d

9223372036854775807

•Long

–Tipe data yang hanya dapat menampung

nilai bilangan bulat. Range tipe data

Long antara :

•- 2147483648 s/d 2147483647

VARIABEL ARRAY

•Array adalah fasilitas untuk menyimpan data secara berurutan dalam sebuah

nama variabel

•Dalam array, data disimpan menggunakan index untuk memudahkan dalam pencarian

kembali data tersebut.

•Di dalam array, dikenal 2 buah istilah :

–LBound : batas bawah sebuah array

–UBound : batas atas sebuah array

•Cth pendeklarasian array :

–Dim ArrContoh(9) As Integer

–Dim ArrContoh(1 to 10) As Integer

–Dim ArrContoh()

GroupBox, Picturebox, & Open Dialog

noreply@blogger.com (Anonymous) — Fri, 14 Sep 2012 05:28:00 +0000

GroupBox

Control yang digunakan sebagai container bagi control lainnya Biasanya di peruntukkan untuk

mengkelompokkan inputan yang berupa radio button.

Picturebox

Objek yang digunakan untuk menampilkan gambar dari sebuah file gambar.

Picturebox Properties

Name

Nama dari object picturebox yang akan digunakan sebagai identitas object didalam suatu

program.

BackColor

Mengatur warna latar dari picturebox.

BorderStyle

Mengatur picturebox agar memiliki bingkai atau tidak.

Enabled

Mengatur picturebox apakah dapat digunakan atau tidak pada saat program dijalankan.

Visible

Menentukan picturebox apakah tampil atau tidak pada saat program dijalankan.

OpenFile Dialog

Objek kontrol yang berfungsi untuk membuka kotak dialog Open yang dimiliki oleh windows

Object Form, Label, Textbox, & Command Button

noreply@blogger.com (Anonymous) — Wed, 12 Sep 2012 11:30:00 +0000

Form Merupakan dasar dari sebuah program, dimana programmer membuat semua design
dari program diatas sebuah form.

Form Properties

Name
Nama dari object yang akan digunakan sebagai identitas object didalam suatu program.

Appearance : Mengatur tampilan form dalam bentuk Flat atau 3D.

BackColor : Mengatur warna latar dari sebuah form

BorderStyle : Mengatur tipe border dari sebuah form

– None : Membuat form menjadi tanpa bingkai.

– Fixed Single : Membuat form menjadi unresizeable.

– Sizeable : Membuat form menjadi resizeable.

– Fixed Dialog : Sama dengan Fixed Single, namun tidak tampil di taskbar.

– Fixed Toolwindow : Membuat window unresizeable dan tanpa icon.

– Sizeable Toolwindow : Membuat toolwindow namun bersifat resizeable

Caption : Nilai text atau tulisan yang tampil pada title bar dari form.

- Enabled : Mengatur form apakah dapat digunakan atau tidak pada saat program dijalankan.

- Font : Mengatur jenis font dari form dan object didalamnya.

- Height : Mengatur tinggi dari sebuah label.

- Icon : Mengganti icon dari form.

Left: Menentukan posisi form secara horizontal pada sebuah layar monitor atau form MDI.

- MaxButton: Mengatur aktif atau tidaknya tombol maximize pada form.

- MDIChild: Mengatur form menjadi child atau tidak dari sebuah form MDI.

- MinButton: Mengatur aktif atau tidaknya tombom minimize pada form.

- MousePointer: Mengubah pointer mouse ketika pointer mouse diarahkan diatas form.

- Moveable: Mengatur form untuk dapat digerakkan atau tidak.

- Picture: Memasukkan gambar sebagai latar dari sebuah form.

- ShowInTaskbar: Mengatur tampil atau tidaknya form di taskbar.

- StartUpPosition: Mengatur posisi form ketika program dijalankan.

- Top: Menentukan posisi form secara vertikal pada sebuah layar atau form MDI.

- Visible: Menentukan form apakah akan tampil atau tidak pada saat program dijalankan.

- Width: Mengatur lebar dari sebuah form.

- WindowState: Menentukan keadaan form ketika dijalankan, apakah minimize, maximize,
atau normal.

Label Properties

- Name
Nama dari object yang akan digunakan sebagai identitas object didalam suatu program.

- Alignment: Mengatur posisi caption dari label apakah sebelah kiri, tengah atau kanan.

- Appearance: Membuat control label berbentuk 3D atau Flat (datar).

- AutoSize : Membuat lebar label sesuai dengan lebar caption pada label.

- BackColor :Mengatur warna latar dari control label.

- BackStyle: Mengatur label berlatar transparan atau tidak.

- BorderStyle: Mengatur bingkai label menjadi bentuk 3D atau Flat (datar).

- Caption : Nilai text atau tulisan yang tampil pada label.

- Enabled : Mengatur label apakah dapat digunakan atau tidak pada saat program dijalankan.

- Font: Mengatur jenis font caption label.

- ForeColor: Mengatur warna caption dari label.

- Height: Mengatur tinggi dari sebuah label.

- Index: Menentukan angka index (array) dari label.

- Left: Menentukan posisi label secara horizontal pada sebuah form.

- MousePointer: Mengubah pointer mouse ketika pointer mouse diarahkan diatas label.

- TabIndex: Nomor urutan index perpindahan cursor ketika tombol TAB ditekan.

- ToolTipText: Pesan yang akan ditampilkan berbentuk balon ketika pointer mouse berada
diatas label.

- Top: Menentukan posisi label secara vertikal pada sebuah form.

- Visible: Menentukan label apakah tampil atau tidak pada saat program dijalankan.

- Width: Mengatur lebar dari sebuah label.

Textbox Properties

Name
Nama dari object textbox yang akan digunakan sebagai identitas object didalam suatu
program.

Alignment: Mengatur posisi text dari textbox apakah sebelah kiri, tengah atau kanan.

Appearance: Membuat control textbox berbentuk 3D atau Flat (datar).

BackColor: Mengatur warna latar dari control textbox.

BorderStyle: Mengatur bingkai textbox menjadi bentuk 3D atau Flat (datar).

Enabled: Mengatur textbox apakah dapat digunakan atau tidak pada saat program dijalankan.

Font: Mengatur jenis font text pada textbox.

ForeColor: Mengatur warna text dari textbox.

Textbox Properties

Height : Mengatur tinggi dari sebuah textbox.

Index : Menentukan angka index (array) dari textbox.

Left : Menentukan posisi textbox secara horizontal pada sebuah form.

Locked : Membuat textbox terkunci atau tidak dapat diketik, namun kursor tetap dapat
berpindah ke textbox yang terkunci.

MaxLength : Menentukan batas maksimal pengetikan karakter di dalam sebuah textbox.

MousePointer : Mengubah pointer mouse ketika pointer mouse diarahkan diatas textbox.

MultiLine : Membuat textbox dapat diketik lebih dari satu baris.

PasswordChar : Membuat setiap karakter yang diketikkan di dalam textbox terenkripsi
menjadi karakter yang dideklarasikan.

ScrollBars : Menampilkan scrollbar mendatar, vertikal, atau keduanya ketika textbox diset
sebagai multiline.

TabIndex : Nomor urutan index perpindahan cursor ketika tombol TAB ditekan.

Text : Nilai text atau tulisan yang tampil pada textbox.

ToolTipText : Pesan yang akan ditampilkan berbentuk balon ketika pointer mouse berada
diatas textbox.

Top : Menentukan posisi textbox secara vertikal di dalam sebuah form.

Visible : Menentukan textbox apakah tampil atau tidak pada saat program dijalankan.

Width : Mengatur lebar dari sebuah textbox.

Command Button Properties

Name
Nama dari object command button yang akan digunakan sebagai identitas object didalam
suatu program.

Appearance : Membuat control command button berbentuk 3D atau Flat (datar).

BackColor : Mengubah warna latar command button, dengan catatan bahwa properties style
pada command button di set sebagai Graphical.

Caption : Nilai text atau tulisan yang tampil pada command button.

DisabledPicture : Menentukan gambar yang akan tampil ketika property enabled command
button bernilai False. Gambar hanya akan tampil bila property style command button diset
menjadi Graphical.

DownPicture : Menentukan gambar yang akan tampil ketika tombol ditekan, namun gambar
hanya akan tampil bila property style command button diset menjadi Graphical.

Enabled : Mengatur command button apakah dapat digunakan atau tidak pada saat program
dijalankan.

Font : Mengatur jenis font caption pada command button.

Height : Mengatur tinggi dari sebuah command button.

Index : Menentukan angka index (array) dari command button.

Left : Menentukan posisi command button secara horizontal pada sebuah form.

MousePointer : Mengubah pointer mouse ketika pointer mouse diarahkan diatas command
button.

Picture : Menempatkan gambar pada objek command button, namun gambar hanya akan
tampil bila property style diset menjadi Graphical.

Style : Memungkinkan command button memuat berbagai jenis gambar pada propertiesnya.

TabIndex : Nomor urutan index perpindahan cursor ketika tombol TAB ditekan.

ToolTipText : Pesan yang akan ditampilkan berbentuk balon ketika pointer mouse berada
diatas command button.

Top : Menentukan posisi command button secara vertikal di dalam sebuah form.

Visible : Menentukan command button apakah tampil atau tidak pada saat program
dijalankan.

Width : Mengatur lebar dari sebuah command button.

MESSAGE BOX, INPUT BOX, DATETIME PICKER

noreply@blogger.com (Anonymous) — Tue, 11 Sep 2012 04:33:00 +0000

MESSAGE BOX
MsgBox membuat jendela dialog dengan dengan pesan agar pengguna memberikan tanggapan dengan mengklik salah satu tombol yang ada.

Format penulisan :
MsgBox(isi prompt[, Kode_Tombol]][, isi judul])

INPUT BOX
InputBox membuat jendela dialog input data yang meminta untuk memasukkan data string.
Format penulisan :
InputBox(isi prompt[, title][, default])

DATE TIME PICKER
DateTimePicker : Objek kontrol yang digunakan untuk Menampilkan/Menset Tanggal pada suatu Form dengan menu DropDown menurut sistem komputer anda.

›Pengenalan Visual Studio 2008

noreply@blogger.com (Anonymous) — Sat, 08 Sep 2012 07:56:00 +0000

›Pemrograman Berorientasi Objek I

›Pendahuluan

›Pemrograman Visual (Visual Basic) merupakan salah satu bahasa pemrograman yang memanfaatkan suatu lingkungan/ tampilan secara visual sebagai antarmuka dengan usernya.

›Pembuatan suatu program basis visual salah satunya atau lebih umumnya sering menggunakan software Microsoft Visual Studio.

›

›Mulai tahun 2003 Microsoft telah mengeluarkan seri Visual Studio 2003 yang kemudian disusul dengan Visual Studio 2005. Pada perkembangan selanjutnya diluncurkanlah versi Visual Studio 2008 dengan penambahan fitur-fitur yang belum ada sebelumnya.

›Keunggulan dari Visual Studio adalah pada interface designnya yang menggunakan IDE (Integrated Development Environment), maksudnya lingkungan pengembangan program yang sudah terintegrasi.

›Memulai Visual Studio 2008 (VB.net)

›Recent Projects

Jendela ini memuat proyek-proyek yang pernah dibuat dan disimpan, baik yang sudah selesai atau yang masih dalam tahap pengembangan. Untuk membuka proyek yang sudah ada, klik link Open Project atau klik saja nama proyeknya bila masih ada di daftar yang terlihat. Jika ingin membuat proyek baru, klik link Create Project.

›

›Getting Started

Jendela ini memuat semacam tutorial untuk penggunaan Visual Studio 2008. Para programmer pemula bisa menggunakan fasilitas tersebut untuk mempelajari Visual Studio 2008.

›Visual Studio Developer News

Jendela ini memperlihatkan judul-judul berita tentang bahasa pemrograman di dalam software Visual Studio 2008 dari pengembangnya.

›

›Solution Explorer

Jendela ini baru akan aktif sewaktu ada proyek yang dibuka, entah proyek lama ataupun proyek baru. Solution adalah semacam kumpulan file dari proyek yang dibuat (biasanya berupa sebuah direktori yang sesuai dengan nama proyek).

›

›Memulai Project VB.net :

Klik menu FILE a NEW PROJECT

›

›Akan muncul window seperti berikut ini :

›Pada Project types, pilih Visual Basic – Windows form›

›Pada Name, silahkan masukkan nama project Anda.

›Pada Location, silahkan tentukan lokasi penyimpanan project yang akan dibuat (gunakan Browse untuk mengubah drive).

›Pastikan checkbox Create directory for solution tidak tercentang, lalu klik OK.

›

›Toolbox

Jendela kecil yang biasanya terletak di sebelah kiri ini berisi semua kontrol yang hendak

digunakan dalam pengembangan aplikasi berbasiskan windows form. Pada toolbox terdapat

beberapa kelompok kontrol yang disusun berdasarkan kegunaannya. Jendela ini dapat

diperluas (expand +) atau diperkecil (collapse -).

›

›Design Window

Jendela ini terletak di tengah IDE dan menjadi pusat kegiatan perancangan. Pada jendela

inilah terdapat windows form yang akan kita gunakan untuk menampung semua kontrol yang

berguna dalam pengembangan program. File Visual Basic 2008 berekstensi .vb

›

›Solution Explorer

Jendela ini berfungsi menampilkan semua file yang terdapat dalam proyek.

›Properties

Jendela ini berguna untuk menampilkan properti-properti sebuah kontrol yang digunakan dan

untuk melakukan beberapa penyesuaian guna pengembangan program aplikasi.

›Klik tanda (+) di samping kiri di tiap-tiap menu untuk menampilkan apa yang ada di

dalamnya.

Nama dan icon pada form ini dapat diganti pada jendela properties

›Beberapa Tool pada Common Controls:

›Button

›Label

›Picture Box

›Textbox

›

About

noreply@blogger.com (Anonymous) — Sat, 08 Sep 2012 07:40:00 +0000

Welcome to seewebsters

Sesuai dengan titel blog ini yaitu visual basic adalah blog yang berisi segala sesuatu yang berhubungan dengan dunia programming. Termasuk di dalamnya adalah tutorial, tips, trik, dan contoh aplikasi vb yang bisa anda download. Penulis bermaksud untuk berbagi ilmu dan pengalaman pribadi seputar dunia programming vb.

walaupun blog saya tergolong blog yang sangat baru, tapi saya tetap semangat untuk berbagi ilmu pengetahuan yang saya peroleh dari Sekolah Tinggi Manajemen Informatika dan Komputer untuk berbagi dan sharing dengan sahabat-sahabat blogger yang mencari artikel menggenai visual basic.
Karena anggapan penulis “Sebuah blog bisa dijadikan mesin uang”, maka di samping penulis masih belajar juga akan berbagi ilmu dan pengalaman seputar dunia bisnis online termasuk bisnis iklan (adsense) dan afiliasi (affiliate). Intinya penulis masih merasa perlu untuk selalu belajar untuk menjadi yang lebih baik ke depannya.

Belajar dan berbagi ilmu, ilmu yang tidak dibagikan kepada orang lain berarti orang itu pelit akan pengetahuan yang ia punya, Dunia internet luas, banyak sekali ilmu-ilmu baru yang bisa kita dapatkan di sana. Bukan hanya dari satu sumber tapi banyak sumber. Jadi salah jika anda tidak mau berbagi ilmu pengetahuan kepada orang lain.

checkbox and Radio Button

noreply@blogger.com (Unknown) — Fri, 07 Sep 2012 08:41:00 +0000

Checkbox

nControl yang digunakan untuk melakukan pemilihan dari sekumpulan pilihan dimana pengguna dapat memilih lebih dari satu buah pilihan.

Checkbox Properties

nName

nNama dari object checkbox yang akan digunakan sebagai identitas object didalam suatu program.

nAppearance

nMengatur bentuk tampilan checkbox apakah berbentuk Normal atau Button.

nBackColor

nMengatur warna latar dari checkbox.

nEnabled

nMengatur checkbox apakah dapat digunakan atau tidak pada saat program dijalankan.

nFont

nMengatur jenis font caption pada checkbox.

nForeColor

nMengatur warna text dari checkbox.

nTabIndex

nNomor urutan index perpindahan cursor ketika tombol TAB ditekan.

nVisible

nMenentukan checkbox apakah tampil atau tidak pada saat program dijalankan.

Radio Button

nControl yang digunakan untuk melakukan pemilihan dari sekumpulan pilihan dimana

pengguna hanya dapat memilih satu buah pilihan.

Radio Button Properties

nName

nNama dari object radio button yang akan digunakan sebagai identitas object didalam suatu program.

nAppearance

nMengatur bentuk tampilan radio button apakah berbentuk Normal atau Button.

nBackColor

nMengatur warna latar dari radio button.

nEnabled

nMengatur radio button apakah dapat digunakan atau tidak pada saat program dijalankan.

nFont

nMengatur jenis font caption radio button.

nForeColor

nMengatur warna caption dari radiobutton.

nTabIndex

nNomor urutan index perpindahan cursor ketika tombol TAB ditekan.

nVisible

nMenentukan radio button apakah tampil atau tidak pada saat program dijalankan.

PBO : Listview

noreply@blogger.com (Unknown) — Fri, 07 Sep 2012 08:03:00 +0000

Listview properties

Sebuah kontrol yang berfungsi untuk menampilkan daftar data menggunakan icon-icon.

Listview Properties
Name
Nama dari object listview yang akan digunakan sebagai identitas object didalam suatu program.
BackColor
Mengatur warna latar dari listview.
Columns
Mengatur penamaan dan ukuran kolom pada listview pada bentuk detail
Enabled
Mengatur listview apakah dapat digunakan atau tidak pada saat program dijalankan.

•Font

–Mengatur jenis font caption pada listview.

•ForeColor

–Mengatur warna text dari listview.

•FullRowSelect

–Untuk memilih record pada listview.

•HeaderStyle

–Bentuk Header kolom pada listview.

•Scrollable

–Jika bernilai true, ada scrollbar jika tampilan lebih kecil dari daftar data

•Sorting

–Pengurutan daftar data pada listview.

•

•TabIndex

–Nomor urutan index perpindahan cursor ketika tombol TAB ditekan.

•Visible

–Menentukan listviuew apakah tampil atau tidak pada saat program dijalankan.

VB 2008 : Coding Form Aplikasi Penggajian

noreply@blogger.com (Unknown) — Sat, 25 Aug 2012 09:12:00 +0000

From Penggajian

Public Class FormPenggajian
Dim jenis As String

Private Sub rdLaki_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdLaki.CheckedChanged
jenis = "Laki-Laki"
End Sub

Private Sub rdPerempuan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdPerempuan.CheckedChanged
jenis = "Perempuan"
End Sub

Private Sub FormDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmbJabatan.Items.Clear()
cmbJabatan.Items.Add("Manager")
cmbJabatan.Items.Add("Supervisor")
cmbJabatan.Items.Add("Staff Karyawan")
End Sub

Public Sub nol()
txtNik.Text = ""
txtNama.Text = ""
RDlaki.Checked = False
RDPerempuan.Checked = False
txtalamat.Text = ""
txttelepon.Text = ""
DTtanggal.Text = Today
txtjamkerja.Text = ""
txtJamLembur.Text = ""
txtgajiPokok.Text = ""
txtUmkn.Text = ""
txtUlembur.Text = ""
txtUtransport.Text = ""
lblTotalGaji.Text = "--"
lblHslGajiPokok.Text = "--"
Label5.Text = "--"
txtgajiPokok.Focus()
End Sub

Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
GajiKaryawan.BukaDatabase()
'insert into tblKaryawan values ('NIP','Nama','JenisKelamin','alamat','telepon','tempatlahir','statuskaryawan','jabatan','tanggalmasuk')

GajiKaryawan.perintahSQL.CommandText = "insert into tblGajikaryawan values ('" & txtNik.Text & "','" & txtNama.Text & "','" & jenis & "','" & txtAlamat.Text & "','" & txtTelepon.Text & "','" & cmbJabatan.Text & "','" & Format(DTtanggal.Value, "MM/dd/yyyy") & "','" & lblTotalGaji.Text & "')"
GajiKaryawan.perintahSQL.ExecuteNonQuery()
GajiKaryawan.tutupdatabase()
MsgBox("Data Telah Disimpan!!!", MsgBoxStyle.Information, "INFO")
nol()
End Sub

Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
Dim f = MsgBox("Apakah anda yakin ingin keluar?", vbYesNo, "KONFIRMASI")
If f = vbYes Then
MsgBox("Terimakasih telah menggunakan program ini.", MsgBoxStyle.DefaultButton1, "KONFIRMASI")
Me.Close()
ElseIf f = vbNo Then
Exit Sub
End If
End Sub

Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
txtUtransport.Text = txtgajiPokok.Text * 0.075
lblTotalGaji.Text = (Val(txtgajiPokok.Text) + Val(txtUmkn.Text) + Val(txtUlembur.Text) + Val(txtUtransport.Text))
End Sub

Private Sub txtjamkerja_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjamkerja.TextChanged
If txtjamkerja.Text <> "" Then
Select Case txtjamkerja.Text
Case Is >= 192
txtJamLembur.Text = txtjamkerja.Text - 192
txtUlembur.Text = txtJamLembur.Text * 10000
Case Else
txtJamLembur.Text = txtjamkerja.Text * 0
txtUlembur.Text = txtJamLembur.Text * 0
End Select
End If
End Sub

Private Sub rdGol1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdGol1.CheckedChanged
lblHslGajiPokok.Text = 950000
txtgajiPokok.Text = 950000
txtUtransport.Text = 120000
End Sub

Private Sub rdGol2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdGol2.CheckedChanged
lblHslGajiPokok.Text = 1300000
txtgajiPokok.Text = 1300000
txtUtransport.Text = 160000
End Sub

Private Sub rdGol3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdGol3.CheckedChanged
lblHslGajiPokok.Text = 1600000
txtgajiPokok.Text = 1600000
txtUtransport.Text = 200000
End Sub

Private Sub rdManager_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdManager.CheckedChanged
lblHslGajiPokok.Text = 0.1 * Val(txtgajiPokok.Text)
txtUmkn.Text = 0.3 * Val(txtgajiPokok.Text)
End Sub

Private Sub rdSpvisor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdSpvisor.CheckedChanged
lblHslGajiPokok.Text = 0.05 * Val(txtgajiPokok.Text)
txtUmkn.Text = 0.2 * Val(txtgajiPokok.Text)
End Sub

Private Sub rdStaff_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdStaff.CheckedChanged
lblHslGajiPokok.Text = 0.025 * Val(txtgajiPokok.Text)
txtUmkn.Text = 0.1 * Val(txtgajiPokok.Text)
End Sub

Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
txtNik.Text = ""
txtNama.Text = ""
rdLaki.Checked = False
rdPerempuan.Checked = False
txtAlamat.Text = ""
txtTelepon.Text = ""
DTtanggal.Text = Today
txtjamkerja.Text = ""
txtJamLembur.Text = ""
txtgajiPokok.Text = ""
txtUmkn.Text = ""
txtUlembur.Text = ""
txtUtransport.Text = ""
lblTotalGaji.Text = "--"
lblHslGajiPokok.Text = "--"
Label5.Text = "--"
txtgajiPokok.Focus()
End Sub
End Class

Form Lihat Data

Public Class FormLihatData

Public Sub tampildata()
GajiKaryawan.ds.Clear()
GajiKaryawan.BukaDatabase()
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan"
GajiKaryawan.da.SelectCommand = GajiKaryawan.perintahSQL
GajiKaryawan.da.Fill(GajiKaryawan.ds, "TblGajiKaryawan")

DGVdatagaji.DataSource = GajiKaryawan.ds
DGVdatagaji.DataMember = "TblGajiKaryawan"
DGVdatagaji.ReadOnly = True
GajiKaryawan.tutupdatabase()
End Sub

Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click
If cmbparameter.SelectedIndex = -1 Or txtnilaiparameter.Text = "" Then
MsgBox("harus dipilih", MsgBoxStyle.Information, "INFO")
Else
GajiKaryawan.ds.Clear()
GajiKaryawan.BukaDatabase()
GajiKaryawan.perintahSQL.CommandType = CommandType.Text

'combo box yang ke -0:NIP
If cmbparameter.SelectedIndex = 0 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where NIK like'%" & txtnilaiparameter.Text & "%'"
'combo box yang ke -1:nama
ElseIf cmbparameter.SelectedIndex = 1 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where nama like'%" & txtnilaiparameter.Text & "%'"
'combo box yang ke - 2:alamat
ElseIf cmbparameter.SelectedIndex = 2 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where alamat like'%" & txtnilaiparameter.Text & "%'"
'combo box yang ke -3:telepon
ElseIf cmbparameter.SelectedIndex = 3 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where telepon like'%" & txtnilaiparameter.Text & "%'"
'combo box yang ke -4:jabatan
ElseIf cmbparameter.SelectedIndex = 4 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where jabatan like'%" & txtnilaiparameter.Text & "%'"
ElseIf cmbparameter.SelectedIndex = 5 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where TotalGaji like'%" & txtnilaiparameter.Text & "%'"
End If

GajiKaryawan.da.SelectCommand = GajiKaryawan.perintahSQL
GajiKaryawan.da.Fill(GajiKaryawan.ds, "TblGajiKaryawan")

DGVdatagaji.DataSource = GajiKaryawan.ds
DGVdatagaji.DataMember = "TblGajiKaryawan"
DGVdatagaji.ReadOnly = True
GajiKaryawan.tutupdatabase()
End If
End Sub

Private Sub FormLihatData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tampildata()
End Sub
End Class

Class GajiKaryawan.vb

Public Class GajiKaryawan
'membuat file koneksi
Public Shared koneksi As New SqlClient.SqlConnection
Public Shared perintahSQL As New SqlClient.SqlCommand

'data adapter : untunk mengambil data dari database dan menampungnya pada dataset
Public Shared da As New SqlClient.SqlDataAdapter

'data set : untuk menampilkan tabel yang pada database
Public Shared ds As New DataSet

'data reader : untuk membaca dan menampilkan data lebih cepat dan efisien
Public Shared ketemu As SqlClient.SqlDataReader

Public Shared Sub BukaDatabase()
Try
koneksi.ConnectionString = "Data Source=DOSEN\SQLEXPRESS;Initial Catalog=dbGaji;Integrated Security=True"
koneksi.Open()
perintahSQL.Connection = koneksi
Catch ex As Exception
MsgBox("koneksi database gagal!!!", MsgBoxStyle.Information, "error")
End Try
End Sub

Public Shared Sub tutupdatabase()
koneksi.Close()
koneksi.ConnectionString = Nothing
End Sub
End Class

bagian yang di warnai dengan warna kuning, ganti dengan database Sql masing"...
bagi sobat yang belum mengerti cara mengganti database-nya...comment di posting ini..

bagi sobat seewebsters yang gak mau repot buat Form nya, sobat seewebsters bisa download DISINI

bagi sobat seewebsters yang Copas posting ini jangan lupa menyertakan sumbernya seewebsters.blogspot.com
bagi sobat seewebsters yang telah membaca postingan ini hendaknya meninggalkan commend pada blog ini.

Saya Yakin, Anda Adalah Golongan Pembaca Yang Baik.
Yang Selalu Meninggalkan Komentar Di Artikel Ini.

Tukar Link

noreply@blogger.com (Unknown) — Sat, 25 Aug 2012 04:56:00 +0000

Tukar Link

Berikut aturan yang berlaku untuk bertukar link :

1.Silahkan Tautkan atau Pasang Link url SEEWEBSTERS terlebih dahulu di blog anda :
Title Blog : SeeWebsters : visual basic
Url : http://seewebsters.blogspot.com/ (Untuk Meminimalisir kesalahan dalam penulisan lebih baik di Copas URLnya)
2.Selanjutnya Silahkan kirim pemberitahuan dengan memberikan komentar di postingan ini
Setelah pemberitauan diterima saya akan melakukan pengecekan ke blog anda.
3.setelah dipastikan Link seewebsters telah terpasang di blog anda, secepatnya Link blog anda akan saya add.
Aturan yang berlaku apa bila link SEEWEBSTERS Tidak Terpasang atau hilang dari blog
anda maka link anda juga akan hilang di Blog saya

banyak para blogger yang curang, mereka yang meminta untuk bertukaran link, kemudian setelah ditanggapi dan link mereka dipasang kemudian selang beberpa hari Link SEEWEBSTERS tidak tampil lagi di blog mereka sehingga dengan terpaksa saya juga harus menghapus Link mereka dari blog saya karena mereka yang hanya ingin menjadi parasit tidak seharusnya di kasih hati.

Salam,
admin seewebsters

STRUKTUR PERULANGAN DAN ARRAY

noreply@blogger.com (Unknown) — Fri, 24 Aug 2012 06:52:00 +0000

kali ini saya akan berbagi form dan coding vb 2008 struktur Perulangan dan Array.
bagi temen-teman yang udah cari coding-nya di mbah google tapi gak ketemu-ketemu,
temen-temen bisa download Coding Struktur Perulangan dan array-nya DISINI

VB 2008 : Form Login dan Form Progressbar

noreply@blogger.com (Unknown) — Thu, 23 Aug 2012 05:38:00 +0000

Salam sejahtera buat penggunjung blog seewebsters.blogspot.com yang senantiasa selalu membaca isi blog ini, pada hari ini saya akan menjelaskan bagaimana proses pembuatan Form login dan Form Progressbar pada VB2008.

langkah 1: Pilih Project > Add windows Form > Form Login
langkah 2: buat 2 textbox dan 2 button
langkah 3: Copy Paste Source Coding berikut ini di button login

Public Class LoginForm1
Dim counter As Integer

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UCase(UsernameTextBox.Text) = "SI" And UCase(PasswordTextBox.Text) = "41" Then
Form1.Show()
Form1.Timer1.Enabled = True
Form1.Show()
Me.Hide()
Exit Sub
Else
counter = counter + 1
If counter = 3 Then
MessageBox.Show("anda sudah 3 kali salah")
End
End If
MessageBox.Show("login salah" + Chr(13) + "anda mempunyai " & 3 - counter & " kali untuk mencoba" + Chr(13) + "login ulang", "perhatian", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Me.Close()
End Sub

langkah 4: buat Form baru dengan cara yang sama, Pilih Project > Add windows Form > windows Form

langkah 5: buat 2 button [progressbar dan start], 1 progressbar dan timer

langkah 6: dobble klik pada button progressbar dan masukan coding berikut ini:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True 'aktifkan timer
Button2.Text = "sedang proses"
Timer1.Interval = 100 'set interval menjadi 100
ProgressBar1.Value = 0 'kembalikan nilai progressbar menjadi 0

End Sub

langkah 7: dobble klik pada timer dan masukan coding berikut ini:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static tiktok As Integer
tiktok = tiktok + 1
ProgressBar1.Value = tiktok
Button1.Text = tiktok & " % "
Button2.Text = "sedang proses"
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Enabled = False 'non aktifkan timer1 saat nilai statis=nilai max progressbar1
tiktok = 0 'kembalikan nilai status menjadi 0
Button2.Text = "terima kasih"
Me.Hide()
End If
End Sub

Pembuatan Login dan Progressbar telah selesai, tinggal coba untuk di jalankan dengan menekan tombol F5 pada keyboard.

untuk lebih jelas silakan download aplikasi-nya DISINI

Visual Basic 2008 : Coding Exit [Messages Box]

noreply@blogger.com (Unknown) — Wed, 22 Aug 2012 13:27:00 +0000

If MsgBox("do you want to quit?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "exit") = MsgBoxResult.Yes Then
MsgBox("thank you!!", MsgBoxStyle.Information, "end")
End
ElseIf MsgBoxResult.No Then
MsgBox("try again", MsgBoxStyle.Critical, "retry")
End If
End Sub