YUK! belajar pemograman visual basic dot net mesran.net

Public Class Form1 Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load no.Items.Add("1") no.Items.Add("2") no.Items.Add("3") Lv.Columns.Add("NO", 50, HorizontalAlignment.Center) Lv.Columns.Add("NIK", 50, HorizontalAlignment.Left) Lv.Columns.Add("nama pegawai", 80, HorizontalAlignment.Center) Lv.Columns.Add("golongan", 130, HorizontalAlignment.Center) Lv.Columns.Add("gaji pokok", 80, HorizontalAlignment.Center) Lv.Columns.Add("pajak", 80, HorizontalAlignment.Center) Lv.Columns.Add("Gaji bersih", 80, HorizontalAlignment.Center) Lv.View = View.Details Lv.GridLines = True Lv.FullRowSelect = True End Sub Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click pajak.Text = 0.05 * Gajipokok.Text gajibersih.Text = Val(Gajipokok.Text - pajak.Text) Dim lst As New ListViewItem lst.Text = no.Text lst.SubItems.Add(nik.Text) lst.SubItems.Add(namapegawai.Text) lst.SubItems.Add(Golongan.Text) lst.SubItems.Add(Gajipokok.Text) lst.SubItems.Add(pajak.Text) lst.SubItems.Add(gajibersih.Text) Lv.Items.Add(lst) End Sub Private Sub no_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles no.SelectedIndexChanged Select Case no.Text Case "1" nik.Text = 1 Gajipokok.Text = 1500000 namapegawai.Text = "Hendro" Golongan.Text = 1 Case "2" nik.Text = 2 Gajipokok.Text = 2500000 namapegawai.Text = "Dian" Golongan.Text = 2 Case "3" nik.Text = 3 Gajipokok.Text = 1500000 namapegawai.Text = "Jhoni" Golongan.Text = 3 End Select End Sub End Class hasil awal:

hasil akhir

https://www.blogger.com/blogger.g?blogID=1534118602390619835#editor/target=post;postID=1237101087759508405

aku tak akan berhenti

Rumus Microsoft Excel Lengkap Dengan Contoh dan Gambar

Rumus Microsoft Excel Lengkap Dengan Contoh dan Gambar

Ilustrasi Mikir Rumus Excel

Jika Anda sering menggunakan aplikasi Microsoft Excel baik yang 2003, 2007 maupun yang versi terbaru, maka pasti Anda sudah tidak asing lagi menggunakan rumus-rumus Microsoft Excel yang ada dalam aplikasi tersebut. Nah sekarang pertanyaannya adalah bagaimana jika Saya seorang pemula?, bagaimana jika Saya masih belum pernah Belajar Komputer?, bagaimana jika Saya masih belum tau sama sekali membuka aplikasi pengolahan data Microsoft Excel seperti yang akan dijelaskan sekarang ini.? Tidak perlu khawatir kawan, sekarang Anda juga akan bisa mengaplikasikan rumus-rumus dalam Microsoft Excel karena panduan Belajar Microsoft Excel ini disertai dengan contoh dan gambar yang akan memudahkan Anda untuk mempraktekkannya. Baiklah tanpa harus panjang lebar, sekarang langsung Kita masuk ke materi pembahasan mengenai rumus Microsoft Excel, simak dengan baik ya kawan.

Microsoft Office Excel memang dikenal dengan penggunaan rumus-rumus atau formula dalam lembar kerjanya. Penggunaan rumus yang efektif akan memudahkan Anda dalam membuat laporan pekerjaan dengan menggunakan MS Excel. Formula atau rumus MS Excel adalah keunggulan tersendiri untuk aplikasi ini, dengan kemampuannya dalam mengolah data melalui perhitungan matematis yang sangat beragam fungsinya.

Setiap rumus di dalam MS Excel memilik fungsi tersendiri. Oleh karena itu Anda harus benar-benar memahami masing-masing fungsi dasarnya agar penggunaan rumus dalam MS Excel bisa lebih maksimal dan efisien. Jika telah paham fungsi dasarnya, Saya rasa Anda bisa berkreasi dalam meracik rumus yang sesuai dengan kebutuhan data Anda.

Cara Menulis Rumus Excel

Sebelum mengenal  rumus-rumus excel 2007, hal pertama yang perlu Anda ketahui adalah bagaimana menuliskan rumus excel agar bisa benar. 

Cara 1: Menulis rumus dengan mengetikkan angka langsung

1. Letakkan penunjuk sel pada sel tempat hasil rumus akan ditampilkan 
2. Pada formula bar, ketikkan = 5000000+3500000, lalu tekan tombol enter.

Note : Menulis rumus dengan cara ini cukup mudah kalau rumusnya sederhana dan pendek serta angkanya tetap.

Cara 2: Menulis rumus dengan menggunakan alamat sel

1. Letakkan penunjuk sel pada sel tempat hasil rumus ditampilkan 
2. Pada formula bar, ketikkan = C4+C5, lalu tekan tombol enter.

Note : Menulis rumus dengan cara ini sangat bermanfaat jika datanya sering berubah.

Cara 3: Menulis rumus dengan bantuan mouse

1. Letakkan penunjuk sel pada sel tempat hasil rumus akan ditampilkan
2. Ketikkan = , kemudian pilih dan klik sel C4
3. Ketik +, kemudian pilih dan klik sel C5
4. Tekan tombol enter

Note : Menulis rumus dengan cara ini sangat dianjurkan karena memperkecil kemungkinan salah ketik alamat sel.

Nah... bagaimana mudah bukan cara menuliskan rumus excel, jika Anda sudah mahir dalam menuliskannya sekarang mari Kita lanjutkan pembahasannya. 

Operator Matematika yang Sering Digunakan (Rumus Dasar)

Rumus merupakan bagian terpenting dari Program Excel ini, karena setiap tabel dan dokumen yang Kita ketik akan selalu berhubungan dengan rumus dan fungsi. MS Excel memang sangat diunggulkan dalam menampung data-data yang bersifat numerik. Maka dari itu, di dalam MS Excel pun terdapat Operator dasar Matematika dan ini biasanya disebut sebagai rumus standar. Operator matematika yang akan sering digunakan dalam Rumus Microsoft Excel adalah sebagai berikut:

No	Operator	Fungsi	Contoh Penggunaan
1	+ (ikon plus)	Penjumlahan	=A1+A2
2	- (ikon minus)	Pengurangan	=A3-A4
3	* (ikon bintang)	Perkalian	=A5*A6
4	/ (ikon garis miring)	Pembagian	=A7/A8
5	^ (ikon caret)	Pangkat	=A9^2 (angka berapapun yang berada di cell A9 akan dipangkat 2
6	% (ikon persen)	Prosentase	=A1*10% (gunakan sesuai dengan kebutuhan)

Tabel Operator Matematika (Rumus Dasar Excel)

Tidak usah bingung, sekarang perhatikan gambar tabel yang ada dibawah ini.

Penjelasan Gambar Tabel Diatas :

1. Mengisi Kolom Diskon
Untuk mengisi kolom diskon berikut adalah langkah-langkah yang harus dilakukan. 
• Klik pada kolom yang akan diisikan Diskon Rp. (pada contoh ini sel yang akan digunakan adalah G6, silahkan aktifkan kolom G6)
• Awali dengan menuliskan "=" (setiap rumus excel harus diawali menggunakan operator = tanpa tanda kutip agar dikenali sebagai fungsi)
• Kalikan kolom E6 dengan F6 untuk mengetahui hasil persennya, bentuk penulisannya adalah =E6*F6 
• Kemudian tekan enter untuk mengetahui hasilnya, maka akan didapat angka 30,000 pada kolom G6 tadi (30,000 adalah 20% dari 150,000)
• Untuk menghitung rumus Diskon Rp. selanjutnya, silahkan copy format dengan cara drag pada rumus yang sudah selesai dikerjakan kemudian tarik hingga kolom G15.

Tips : Anda bisa langsung klik kolom yang akan dikalikan tanpa harus susah payah mengetik kolom yang akan dihitung satu persatu.

2. Mengisi Total Bayar
Nah setelah selesai mengisi kolom Diskon Rp. sekarang lanjutkan dengan mengisi kolom Total Biaya.
• Klik pada kolom yang akan diisikan Total Bayar (pada contoh ini sel yang akan digunakan adalah H6, silahkan aktifkan kolom H6)
• Awali dengan menuliskan "=" (setiap rumus excel harus diawali menggunakan operator = tanpa tanda kutip agar dikenali sebagai fungsi)
• Pada kolom H6 Kurangkan kolom Biaya (E6) dengan kolom Diskon Rp. (G6)  untuk mengetahui hasil pengurangannya, bentuk penulisannya adalah =E6-G6 
• Kemudian tekan enter untuk mengetahui hasilnya, maka akan didapat hasil 120,000 pada kolom Total Bayar yang pertama.
• Untuk menghitung rumus Total Bayar selanjutnya, silahkan copy format dengan cara drag pada rumus yang sudah selesai dikerjakan kemudian tarik hingga kolom H15.

Tips : Untuk melanjutkan mengisi kolom jumlah di bawahnya (kolom H7 dst), kita cukup memblok cell yang telah berisi rumus operator perkalian, arahkan kursor ke pojok kanan bawah cell/kolom. Tunggu hingga kursor berubah menjadi ikon (+). Setelah itu, click dan tahan lalu drag/geser ke bawah. Dengan demikian, kita telah meng-copy rumus tadi dan telah disesuaikan perubahannya untuk kolom yang akan dikalikan lagi.

Mengenal Fungsi atau Rumus Microsoft Excel

Setelah mengenal Tipe Data Microsoft Excel, dan bisa memulai menggunakan aplikasi excel sekarang Kita coba bahas rumus excel yang sering digunakan dalam dunia kerja atau administrasi perkantoran.

1. Fungsi Average

Fungsi ini digunakan untuk mencari nilai rata-rata dari sekumpulan data (range). Bentuk umum penulisannya adalah ;

=AVERAGE(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data yang akan dicari nilai rata-ratanya. Misalnya untuk mengisi nilai rata-rata dari range data E8 sampai G8, maka rumusnya adalah =AVERAGE(E8:G8) kemudian tekan tombol Enter.

2. Fungsi Sum

Fungsi SUM digunakan untuk menjumlahkan sekumpulan data pada suatu range. Bentuk umum penulisan fungsi ini adalah =SUM(number1, number2,…). Dimana number1, number2 dan seterusnya adalah range data yang akan dijumlahkan. Misalnya untuk menjumlahkan range data E8 sampai G8, maka rumusnya adalah =SUM(E8:G8) kemudian tekan tombol Enter.

3. Fungsi Max

Fungsi ini digunakan untuk mencari nilai tertinggi dari sekumpulan data (range). Bentuk umum penulisannya adalah ;

=MAX(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data (numerik) yang akan dicari nilai tertingginya. Misalnya untuk mencari nilai maksimal dari range data E8 sampai G8, maka rumusnya adalah =MAX(E8:G8) kemudian tekan tombol Enter.

4. Fungsi Min

Fungsi Min adalah kebalikan dari fungsi Max, jika fungsi Max untuk mencari nilai tertinggi atau maksimal maka Min adalah untuk mencari nilai terkecil atau minimum dari sekumpulan data numerik. Bentuk umum penulisannya adalah ; 

=MIN(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data (numerik) yang akan dicari nilai tertingginya. Sebagai contoh untuk mencari nilai terendah dari range data E8 sampai G8, maka rumusnya adalah =MIN(E8:G8) kemudian tekan tombol Enter.

5. Fungsi Count

Fungsi Count digunakan untuk menghitung jumlah data dari suatu range yang kita pilih. Bentuk umum penulisannya adalah ; 

=COUNT(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data (numerik) yang akan dihitung jumlah datanya. Sebagai contoh untuk menghitung jmlah data dari range data E8 sampai G8, maka rumusnya adalah =COUNT(E8:G8) kemudian tekan tombol Enter.

6. Fungsi Logika IF

Fungsi ini digunakan jika data yang dimasukkan mempunyai kondisi tertentu. Misalnya, jika nilai sel A1=1, maka hasilnya 2, jika tidak, maka akan bernilai 0. Biasanya fungsi ini dibantu oleh operator relasi (pembanding) seperti berikut:

Lambang Fungsi

= Sama dengan

< Lebih kecil dari

> Lebih besar dari

<= Lebih kecil atau sama dengan

>= Lebih besar atau sama dengan

<> Tidak sama dengan

Bentuk umum penulisan fungsi ini adalah ;

=IF(logical_test,value_if_true,value_if_false), artinya kalau ekspresi logika (logical_test) bernilai benar, maka perintah pada value_if_true akan dilaksanakan, jika salah, maka perintah pada value_if_false yang akan dilaksanakan. Perhatikan contoh berikut:

Contoh logika IF

Kolom keterangan diisi dengan ketentuan, jika kolom TANDA sama dengan K, maka keterangannya KAWIN, jika tidak, maka keterangan berisi TIDAK KAWIN. Ini dapat diselesaikan dengan rumus =IF(C3=”K”, “KAWIN”,”TIDAK KAWIN”). Pada rumus diatas Kita lihat bahwa jika datanya bertipe Teks/alpha numerik harus diapit oleh tanda kutip dua, lain halnya dengan tipe data numerik, tidak boleh menggunakan tanda kutip. Nah sekarang bagaimana jika ada beberapa kondisi/bertingkat (IF Bertingkat) seperti pada kasus nilai mahasiswa. Tidak perlu khawatir, langsung saja perhatikan gambar diatas pada tabel sebelah kanan. =IF(H3>=81,"A",IF(H3>=66,"B",IF(H3>=56,"C",IF(H3>40,"D","E")))), hal yang sama juga bisa dilakukan untuk mengisi kolom keterangan, dengan ketentuan, Jika nilai hurufnya sama dengan “A” maka keterangan “SANGAT MEMUASKAN, jika “B” maka “MEMUASKAN”, jika “C”, maka “CUKUP”, dan jika “D” maka bernilai “KURANG”, selain dari itu, maka bernilai “GAGAL”. Nah sekarang sudah paham kan bagaimana cara menggunakan fungsi IF, sekarang langsung dipraktekkan deh supaya tidak lupa. Semoga Tutorial Belajar Microsoft Excel kali ini bisa membantu rekan-rekan sekalian, jika ada yang perlu ditanyakan silahkan hubungi Saya melalui Email, Google+, Facebook dll.

Hal Dasar yang Harus Diketahui Ketika Belajar Visual Basic 2008

  19 November 2014     Tutorial Visual Basic     seputarpemrograman
Ketika memulai belajar visual basic tepatnya disini versi 2008 atau yang sering disebut VB 9, banyak pemula bingung darimana harus memulainya. Itu terjadi tidak hanya ketika belajar visual basic saja tetapi belajar hal lain atau bahasa pemrogramman yang lain pula. Pada kali ini saya akan sharing hal yang sangat mendasar yaitu :

1. Cara Membuat Project Baru pada VB 2008
2. Cara Menjalankan Project pada VB 2008
3. Cara Menyimpan Project pada VB 2008
4. Dan Mencoba membuat Form sederhana pada VB 2008

1. Cara Membuat Project Baru
Menu : File -> New Project.. (CTRL + N)
Atau lihat gambar dibawah ini.
 
Selanjutnya akan muncul kotak dialog sebagai berikut :
 
Isi sesuai data diatas lalu OK
Setelah itu akan tampil berikut dan inilah hasil dari pembuatan project visual basic 2008


2.  Cara Menjalankan Project pada VB 2008
 Klik Start Debugging (Pada gambar dibawah ini yang kotak merah)
 
 Dan ini hasil dari menjalankan program diatas
 

3. Cara Menyimpan Project pada VB 2008
Menu : File -> Save All (CTRL + Shift + S)
Atau lihat gambar dibawah ini :

Akan Muncul Kotak dialog

Lalu Klik Save

4. Mencoba membuat Form sederhana pada VB 2008
Buatlah Tampilan sebagai berikut :
 
Keterangan :
1.Label = (name “nama”)
2.Label = Alamat (name “alamat”)
3.TextBox = ( name “txtnama” )
4.TextBox = (name “txtalamat”)
5.Button (Text = “Tampil” , name “tblTampil”)
6.Label (Texxt = “-” , name “hasilnama”)
7.Label (Text = “-” , name “hasilalamat”)
Klik pada Button tampil lalu tambahkan code berikut :

1 2 3

hasilnama.Text = txtnama.Text   hasilalamat.Text = txtalamat.Text

Berikut hasil Program diatas

Memasang Link Di Dalam Struktur Template

Untuk melakukan ini maka anda haruslah cukup berpengalaman dalam mengedit template. Jika tidak sebaiknya anda melakukan back up template, agar ada alternatif untuk pemulihan jika anda melakukan kesalahan fatal....

Yang perlu anda lakukan di sini adalah mengubah tanggal kutip ganda pada HTML menjadi tanda kutip tunggal.

<a href='http://www.example.com/'>Situs Ujicoba</a>

Setelah itu buka menu TEMPLATE dan klik tombol EDIT HTML. Letakkan kode HTML yang sudah diedit tadi pada tempat yang anda inginkan di dalam bagian <body>...

Membuat Pengaturan Tampilan Untuk Link Dengan CSS

Jika pada template anda tidak ada pengaturan CSS untuk link, maka link akan ditampilkan menurut standar pengaturan browser yang digunakan oleh pengunjung. Tapi jika anda tertarik untuk membuat pengaturan tampilan untuk link anda, maka aturlah pada bagian CSS....

Kode CSS dasar dari link

Pertama-tama harus diperjelas dulu apa platform dari website anda..., karena ada beberapa metode memasang CSS di dalam situs anda. Tapi apapun metodenya CSS itu harus ditaruh di dalam bagian <head> dari template anda....

Perlu dicatat bahwa operator untuk menentukan nilai sebuah link adalah a. Jadi bentuk dasar dari CSS sebuah link adalah

a {
properti nilai pengatur link
}

Sebagai contoh anda mau membuat linknya berwarna merah, maka masukkan nilai seperti berikut:

a {
color:#ff0000;
}

Ada banyak sekali properti yang bisa anda suntikkan ke dalam tanda kurung {....} yang mengapit pengaturan a di atas.... beberapa di antaranya seperti dicantumkan di bawah ini....

Properti pengatur tampilan link

Pada dasarnya link adalah teks juga, jadi untuk membuat pengaturan kita bisa memakai semua CSS pengaturan teks.... Perhatikan beberapa properti di bawah ini:

• font-family (Mengatur Jenis huruf contohnya:Arial, Times New Roman, dll)
• font-size (Mengatur besar dari huruf)
• font-weight (Mengatur ketebalan huruf)
• color (Mengatur Warna Huruf dengan menggunakan kode warna)
• text-decoration (Mengatur variasi text, misalnya ...menentukan apa memakai garis bawah atau tidak)
• letter-spacing (Mengatur jarak antar huruf)
• text-shadow (Mengatur bayangan pada huruf)

Perhatikan bahwa nama properti selalu diakhiri titik dua (:) dan nilai properti diakhiri titik koma (;)

Praktek Membuat Pengaturan Link

Sekarang saya akan coba membuat tampilan link dengan kode CSS di bawah ini:

a {
font-family: Times New Roman;
font-size: 24px;
font-weight: bold;
color: red;
text-decoration: underline;
letter-spacing: 2px;
text-shadow: 0px 0px 5px yellow;
} 

Hasilnya akan terlihat seperti di bawah ini:
Cara Membuat Link Di Blog

Membuat Pseudo-Class pada Link

Mungkin banyak teman-teman yang bingung kenapa ada link saat belum dikunjungi berwarna merah, saat disorot berwarna biru; saat dikunjungi berwarna abu-abu; dan setelah dikunjungi berwarna hitam; atau variasi warna lainnya....

Semua itu bisa terjadi karena variasi pseudo-class yang kita berikan. Ada 4 pseudo-class yang bisa anda pakai untuk membuat 4 variasi yang berbeda, yaitu:

• a:link
• a:hover
• a:active
• a:visited

Yang perlu anda lakukan hanya memasukkan properti yang anda inginkan berubah dari bentuk link dasar setelah link dikenakan perlakukan tertentu.... Link dasar dalam hal ini dinyatakan dengan pseudo-class a:link....

Lihat contoh berikut:

a:link {
font-family: Times New Roman;
font-size: 24px;
font-weight: bold;
color: red;
text-decoration: underline;
letter-spacing: 2px;
text-shadow: 0px 0px 5px yellow;
}
a:hover {
color: blue;
}
a:active {
color: grey;
}
a:visited {
color:black;
}

Dari contoh di atas teman-teman bisa melihat bahwa saya hanya ingin variasi dalam hal warna. Jika saya ingin ada variasi dalam hal ukuran, warna bayangan,garis bawah, dan lain-lain, maka saya tinggal menambahkan saja perubahan apa yang saya inginkan....

Mengatur tampilan link hanya pada area tertentu dalam halaman

Hal ini bisa anda lakukan jika area tersebut dibatasi oleh sebuah class atau id, dan anda harus mengetahui apa class/id dari area tersebut.... Sebagai contoh:

<div class="sidebarkanan">
......
......
</div> 

Dari kode di atas kita bisa melihat bahwa area tersebut dibatasi dengan class sidebarkanan. Oleh karena class diberi tanda titik dalam css, maka operatornya adalah .sidebarkanan

Jadi contoh kodenya sekarang adalah:

.sidebarkanan a:link {
font-family: Times New Roman;
font-size: 24px;
font-weight: bold;
color: red;
text-decoration: underline;
letter-spacing: 2px;
text-shadow: 0px 0px 5px yellow;
}
.sidebarkanan a:hover {
color: blue;
}
.sidebarkanan a:active {
color: grey;
}
.sidebarkanan a:visited {
color:black;
}

Dengan seperti ini, maka hanya link-link yang berada di dalam div ber-class sidebarkanan saja yang akan terkena pengaruhnya....

Meletakkan Kode CSS pengaturan yang baru

Setelah anda selesai membuat kode CSS ini, di mana anda bisa meletakkannya? Bagi pengguna blogspot, anda hanya perlu membuka menu TEMPLATE > EDIT HTML dan cari kode </b:skin>. Taruh kode tadi tepat di atas </b:skin> maka pengaturan link yang sebelumnya akan ditimpa. Klik SIMPAN TEMPLATE untuk melihat hasil.....

Sedangkan untuk web umumnya, anda bisa menarunya di atas kode </style> atau di dalam external CSS file yang mengatur tampilan dari halaman tersebut....

Koneksi Database Access 2007 VB .Net 2008

Tutarni Aliya

Add Comment

Belajar Visual Basic 2008

Tuesday, December 30, 2014

Cara Koneksi Database Access 2007 / 2010 / 2013 Dengan VB .Net 2008
Pembelajaran dibawah bisa anda gunakan untuk Koneksi database Access 2007 atau Access 2010 atau Access 2013

Berikut langkahnya :
1. Membuat Project Baru VB 2008 dan Menyimpannya
2. Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
    Bin / Debug akan muncul ketika anda telah membuat Project VB 2008
3. Design Form, Masukan Koding dan Jalankan Program

(1) - Membuat Project Baru VB 2008 dan Menyimpannya
Pastikan anda sudah Install Visual Basic 2008 pada komputer anda,
Klik Start pada Windows
All Programs

Klik Microsoft Visual Studio 2008
Klik File - New - Project

Maka akan Muncul :

Masukan Name, Location
Klik OK

Maka akan keluar Form1 (Seperti Gambar diatas )

#2 - Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
Buatlah sebuah database dengan nama : DBBelajarvb.accdb
Buatlah sebuah Tabel dengan Nama : Barang
Berikut Design Tabel Barang :

Jangan lupa, sebagai contoh masukan data ditabel Barang agar nantinya bisa terlihat :)

Setelah selesai, simpan pada folder Bin / Debug

(3) -  Design Form, Masukan Koding dan Jalankan Program
Buatlah sebuah Form seperti gambar dibawah

Design form diatas hanya ditambahkan DataGridView1

Masukan Koding dibawah ini :
Imports System.Data.OleDb
Public Class Form1
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBBelajarvb.accdb"
Conn = New OleDbConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
da = New OleDbDataAdapter("Select * from barang", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "Barang")
DataGridView1.DataSource = (ds.Tables("Barang"))
End Sub

Pertemuan 1

1.                   MENGENAL VISUAL BASIC 6.0

Visual Basic 6.0 merupakan salah satu bahasa pemrograman yang bekerja dalam Ms. Word. Karena merupakan bahasa pemograman maka di dalam nya berisi perintah-perintah atau intruksi yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu.

Beberapa kemampuan dari Visual Basic :
1.    Membuat program aplikasi berbasis Windows.
2.   Membuat obyek-obyek pembantu program. Misalnya file Help, kontrol ActiveX dan                       sebagainya.
3.   Menguji program dan menghasilkan program akhir berekstensi EXE yang langsung dapat                  dijalankan

1.                   Menjalankan Visual Basic
    Langkah untuk menjalankan VB:

a.       Klik tombol Start, kemudian arahkan pada pilihan All Programs.

b.        Arahkan mouse pada group Microsoft Visual Basic 6.0, kemudian klik pilihan Microsoft Visual Basic  6.0. Di layar akan terlihat kotak dilaog berikut:

                   Gambar 1.1 Kotak Dialog New Project

c.       

Control Menu

Pada kotak dialog tersebut diatas, klik pilohan Standart EXE, kemudian klik tombol OPEN. Di layar akan terlihat lembar kerja Project dari Ms. VB 6.0

Tool box

Menu Bar

Project Explore

Properti Windows

             Form Windows     

Gambar 1.2. Tampilan Ms. VB

2.        Mengenal Elemen Visual Basic

    2.1  Menu Bar
                Menu Bar pada VB ini terdiri dari beberapa pilihan yang berfungsi untuk melakukan tugas   dan kegiatan tertentu. Menu Bar tersebut terdiri dari File, Edit, View, Project, Format, Debug, Run, Query, Diagram, Tools, Add-Ins, Windows dan Help.
  
   2.2  Control Menu
                Control menu merupakan salah satu bagian dalam barisan judul (Title Bar) yang digunakan untuk memanipulasi jendela Visual Basic. Menu ini berada di pojok kiri atas jendela VB. Apabila anda klik pilih terlihat bebrapa pilihan, yaitu:

®  Restore           : digunakan untuk mengembalikan ukuran jendela ke dalam ukuran sebelumnya.
®  Move               : digunakan untuk memindahkan jendela sesuai dengan keinginan.
®  Size                   : digunakan untuk merubah ukuran jendela.
®  Minimize        : digunakan untuk mengecilkan ukuran jendela, sehingga aplikasi akan terparkir.
®  Maximize       : digunakan untuk memperbesar ukuran jendela dalam satu layar penuh.
®  Close                                : digunakan untuk mengakhiri/menutup jendela.

    2.3  Toolbar
                 Toolbar merupakan cara cepat di dalam menjalankan suatu perintah, karena tombol-tombol  yang berada dalam toolbar tersebut mewakili suatu perintah tertentu. Perintah yang digunakan untuk mengaktifkan atau menyembunyikan toolbar tersebut adalah dengan memilih menu View → Toolbars, kemudian klik salah satu toolbar yang diinginkan.

   2.4 Toolbox
                Toolbox merupakan salah satu fasilitas pada VB yang berisi beberapa obyek atau kontrol yang dibutuhkan dalam aplikasi yang di buat dan diletakkan dalam suatu form.

                                Gambar 1.3 Toolbox

    2.5. Jendela Form
                Jendela Form (Form Windows) merupakan jendela utama dalam bekerja dengan VB. Karena pada form inilah kita akam memubuat beberapa obyek, misalnya label atau text, gambar atau tombol-tombol perintah dan sebagainya. Semua obyek yang di tempatkan pada form akan dijalan kan atau di tampilakan pada layar window.

                                                Gambar  1.4  Tampilan awal Form

2.6.  Project Explorer

                          Project explorer merupakan salah satu jendela pada Visual Basic yang berisi semua file dalam aplikasi yang kita buat merupakan suatu Project yang akan berisi beberapa file, misal nya form, modul, class, dan sebagainya.

2.7. Jendela Properties

                          Properties berisi semua informasi tentang sifat dari sebuah obyek. Anda dapat menentukan propeties ini sesuai obyek. Properties tersebut antara lain, nam obyek, warna, ukuran, posisi dan lain sebagainya.

2.8. Form Layout

                          Form lauout adalah jendela yang menggambarkan posisi form dalam layar monitor. Dengan tampilan tersebut anda akan melihat posisi aplikasi yang anda buat saat dijalankan dalam layar monitor.

3 .           Menyimpan Project

      Langkah-langkah menyimpan aplikasi yang dibuat dengan VB sebagai berikut:

1.       Klik File→Save Project

2.       Tentukan folder dan nama file pada kotak dialog Save File As dari form yang disimpan, kemudian klik tombol Save.

1.       Tipe Data

Tipe

Keterangan

Integer

Tipe data numeric yang berupa bilangan bulat

Long

Tipe data numeric yang berupa bilangan bulat dengan range yang lebih besar

Single

Merupakan jenis data numerik

Double

Jenis data numeric dengan range nilai yang sangat besar

Currency

Jenis data yang digunakan untuk mrnyimpan data dalam bentuk nilai mata uang suatu negara

String

Tipe data yang memiliki nilai alfanumerik (angka,huruf, dan karakter khusus)

Byte

Tipe data berupa nilai bulat positif

Boolean

Tipe data dengan dua buah nilai yaitu True dan False.

Date

Jenis data yang digumakan untuk menyimpan tanggal dan jam.

Object

Jenis data untuk menyimpan obyek, misalnya form, control dll.

Variant

Jenis data yang berisi segala macam jenis data yang berbeda.

2.       Variabel

Variabel adalah suatu tempat dalam memori computer yang telah di beri nama dan berdifat sementara.

a.       Diawali dengan statemen Dim

Dim kependekan dari dimension yang merupakan pernyataan dari Visual Basic dalam pendeklarasian varisbel. Penulisan Dim dapat diletakkan dimana saja. Pada umumnya diletakkan di atas control form, yaitu pada bagian General.

b.      Nama Variabel

·         Diawali dengan karakter alphabet, tidak diawali dengan symbol atau angka

·         Maksimim 255 karakter, tetapi hanya 40 karakter pertama yang dianggap sebagai nama variable.

·         Tidak mengandung titik atau karakter khusus lainnya.

c.       Menentukan Jenis Variabel
Jenis variable haruslah sesuai dengan dengan data yang akan digunakan dalam program yang akan dibuat.

d.      Penulisan Pendeklarasian Variabel
Bentuk umum pendeklarasian variable dapat ditulis sebagai berikut:
Dim namavariabel As tipevariabel

Keterangan:

·         Dim                        : pernyataan untuk mendeklarasikan variable.

·         Namavariabel    : nama yang digunakan untuk menyimpan nilai.

·         Tipevariabel       : jenis variable yang tergantung kepada jenid data yang akan disimpan dalam variable tersebut.

Apabila variable bertipe Variant yaitu variable dengan jenis data bebas, maka penulisan pendeklarasian variable adalah:

Dim namavariabel As variant atau Dim nama variant

3.       Operator

Untuk melakukan perubahan dan manipulasi data, maka diperlukan operator-operator yang telah tersedia dalam Visual Basic. Operator-operator tersebut adalah:

a.       Operator penugasan (Assignment)

Operator ini dilambangkan dengan sama dengan (=) dan berfungsi untuk emasukkan data ke dalam suatu variable. Penulisan operator ini:

                                Variable = ekspresi

Contoh:

Jumlah=4

Harga=500

Tbayar=jumlah*Harga

No=No+1

b.      Operator Aritmatika

Operator ini digunakan untuk melakukan operasi aritmatika. Operator ini mempunyai hirarki paling tinggi dibandingkan dengan operator lain, misalnya operator perbandingan dan operator logika.

Operator

Keterangan

^

Pangkat

*atau /

Perkalian atau pembagian

+ atau -

Penjumlahan atau Pengurangan

& atau +

Penggabungan String

EVENT
Pada Form yang anda buat dapat dilengkapi dengan Event atau kejadian pada saat form tersebut

Ok yang pertama adalah kode program PENJUMLAHAN

PENJUMLAHAN

Private Sub Label2_Click()
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdTambah_Click()
Dim a, b, c As Byte
a = Val(TxtA.Text)
b = Val(TxtB.Text)
c = a + b
TxtC.Text = Str(c)
End Sub

ketikkan kode program seperti gambar diatas yaaa...

lalu jalankan program dengan menekan tombol F5 pada Keyboard

 

Mengubah nama form dengan command button

Private Sub Cmddouble_Click()

Form1.Caption = "Jl.Iskandar Muda"

End Sub

 

 Pengurangan

Private Sub Label2_Click()

End Sub

Private Sub CmdKeluar_Click()

End

End Sub

Private Sub CmdTambah_Click()

Dim a, b, c As Byte

a = Val(TxtA.Text)

b = Val(TxtB.Text)

c = a + b

TxtC.Text = Str(c)

End Sub

 

 

Latihan Membuat Kalkulator

Private Sub Command1_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Text3.Text = Str(c)
End Sub
Private Sub Command3_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Text3.Text = Str(c)
End Sub
Private Sub Command4_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a \ b
Text3.Text = Str(c)
End Sub
Private Sub Command5_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = Str(c)
End Sub
Private Sub Command6_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a ^ b
Text3.Text = Str(c)
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Command8_Click()
End Sub

 

Belajar Tentang Variabel

Private Sub Label2_Click()

End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdTambah_Click()
Dim a, b, c As Byte
a = Val(TxtA.Text)
b = Val(TxtB.Text)
c = a + b
TxtC.Text = Str(c)
End Sub

 

Membuat Grafik

Dim r As Single
Private Sub Form_Load()
r = 100
End Sub
Private Sub Form_Paint()
Circle (1500, 1500), 1500
Circle (2500, 3500), 1500
Circle (3500, 1500), 1500
Circle (4500, 3500), 1500
Circle (5500, 1500), 1500
Circle (10000, 1500), 1000
Circle (10000, 3500), 1000
Circle (12000, 1500), 1000
Circle (12000, 3500), 1000
Circle (11000, 2500), 1000
End Sub
Private Sub pct1_paint()
pct1.Line (0, 0)-(3000, 3000)
pct1.Line (-10, 10)-(3000, 3000)
End Sub
Private Sub Timer1_Timer()
pct1.Circle (pct1.ScaleWidth / 2, pct1.ScaleHeight / 2), r
r = r + 50
If r > 1000 Then
r = 100
pct1.Cls
End If
End Sub
Private Sub Timer2_Timer()
pct1.Top = pct1.Top + 50
If pct1.Top > FrmGrafik.Height Then
pct1.Top = -pct1.Height
End If
End Sub
Private Sub Timer3_Timer()
pct1.Left = pct1.Left + 50
If pct1.Left > FrmGrafik.Height Then
pct1.Left = -pct1.Height
End If
End Sub

Belajar Membuat Print tulisan di FORM

Private Sub Cmddouble_Click()
Form1.Caption = "Jl.Iskandar Muda"
End Sub
Private Sub Form_Load()
End Sub

MEMBUAT GAME

Private Sub CmdAtas_Click()
Timer1.Enabled = True
CmdAtas.Enabled = False
CmdKiri.Enabled = True

End Sub
Private Sub CmdBawah_Click()
PctGambar.Top = PctGambar.Top + 30
End Sub
Private Sub CmdKanan_Click()
PctGambar.Left = PctGambar.Left + 30
End Sub
Private Sub CmdKiri_Click()
Timer1.Enabled = False
CmdAtas.Enabled = True
CmdKiri.Enabled = False
Timer2.Enabled = True

End Sub

Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
PctGambar.Top = PctGambar.Top - 30
End Sub
Private Sub Timer2_Timer()
PctGambar.Left = PctGambar.Left - 50
End Sub

MEMBUAT PENENTUAN BEASISWA

Private Sub Label2_Click()
End Sub
Private Sub Cmdbeasiswa_Click()
Dim ip As Single
ip = Val(TxtIP.Text)
TxtKet.Text = "Tidak Dapat Beasiswa"
If (ip > 3) Then
TxtKet.Text = "Dapat Beasiswa"
End If
End Sub

Private Sub Cmdexit_Click()
End
End Sub
Private Sub TxtIP_Change()
Dim ip As Single
ip = Val(TxtIP.Text)
If (ip > 3) Then
TxtKet.Text = "Dapat Beasiswa"
End If
End Sub

MEMBUAT ZODIAK

Dim tanggal As Date
Dim tglLhr, blnLhr  As Integer
Dim panggil As String
Private Sub cmdbersih_Click()
Text1.Text = " "
lblZodiak.Caption = " "
End Sub
Private Sub cmdEnter_Click()
    tanggal = Me.DTPicker1.Value
    tglLhr = Day(tanggal)
    blnLhr = Month(tanggal)
   
    If (tglLhr >= 22 And blnLhr = 12) Or (tglLhr <= 20 And blnLhr = 1) Then
        zodiak = "Capricorn"
    ElseIf (tglLhr >= 21 And blnLhr = 1) Or (tglLhr <= 19 And blnLhr = 2) Then
        zodiak = "Aquarius"
    ElseIf (tglLhr >= 20 And blnLhr = 2) Or (tglLhr <= 20 And blnLhr = 3) Then
        zodiak = "Pisces"
    ElseIf (tglLhr >= 21 And blnLhr = 3) Or (tglLhr <= 19 And blnLhr = 4) Then
        zodiak = "Aries"
    ElseIf (tglLhr >= 20 And blnLhr = 4) Or (tglLhr <= 20 And blnLhr = 5) Then
        zodiak = "Taurus"
    ElseIf (tglLhr >= 21 And blnLhr = 5) Or (tglLhr <= 21 And blnLhr = 6) Then
        zodiak = "Gemini"
    ElseIf (tglLhr >= 22 And blnLhr = 6) Or (tglLhr <= 22 And blnLhr = 7) Then
        zodiak = "Cancer"
    ElseIf (tglLhr >= 23 And blnLhr = 7) Or (tglLhr <= 23 And blnLhr = 8) Then
        zodiak = "Leo"
    ElseIf (tglLhr >= 24 And blnLhr = 8) Or (tglLhr <= 22 And blnLhr = 9) Then
        zodiak = "Virgo"
    ElseIf (tglLhr >= 23 And blnLhr = 9) Or (tglLhr <= 23 And blnLhr = 10) Then
        zodiak = "Libra"
    ElseIf (tglLhr >= 24 And blnLhr = 10) Or (tglLhr <= 22 And blnLhr = 11) Then
        zodiak = "Scorpio"
    ElseIf (tglLhr >= 23 And blnLhr = 11) Or (tglLhr <= 21 And blnLhr = 12) Then
        zodiak = "Sagitarius"
    End If
    Me.lblZodiak.Caption = zodiak
   
End Sub
Private Sub Cmdkeluar_Click()
MsgBox ("Yakin anda ingin keluar? Jika anda yakin, tekan OK")
MsgBox (" OK la kalo begitu...")
End
End Sub