Tugas kali ini menghubungkan visual basic dengan sql dan ditambah tombol navigasi mulai dari simpan, edit, hapus, next dan lainya secara manual. Untuk itu kita lakukan langkah langkah berikut ini :

• Buat data di sql server terdiri dari NIM, NAMA, ALAMAT, TANGGAL LAHIR, SPP TETAP
• Buka visual basic dan buat form baru
• Pilih pada menu toolbar : 
        Data >> Add New Data Souce >> Database >> Dataset >> add new conection
• isi dingan nama server kita, kemudian klik next sambil menunggu database muncul lalu klik finis
• Selanjutnnya masukan data tabel ke form.
• Hapus tombol navigasi otomatis
• Buat tombol navigasi dengan menggunakan button
• masukan perintah program ke dalam masing masing tombol
• jalankan program.

 Memperbaiki program

Program disamping ternyata ada beberapa kekurangan yaitu hasil nilai terbesar dan kecil terbalik. maka perlu kita perbaiki sehingga hasilnya seperti ini :

if hasil(1)>args(i) Then hasil(1) = args(i)
if hasil(1)<args(i) Then hasil(2) = args(i)
menjadi
if hasil(1)<args(i) Then hasil(1) = args(i)
if hasil(1)>args(i) Then hasil(2) = args(i)

atau bisa juga seperti ini

Textbox1.text = statistik (0)
Textbox1.text = statistik (1)
Textbox1.text = statistik (2)
menjadi
Textbox1.text = statistik (0)
Textbox1.text = statistik (1)

MACAM MACAM FUNCTION BAWAAN

Fungsi-fungsi konversi ke integer.

Ada tiga macam fungsi yang melakukan konversi ke tipe data integer yaitu seperti terlihat pada     tabel .
CInt () ===> Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
Fix () ===> Pemotongan suatu nilai desimal menjadi integer
Int () ===> Pembuatan ke bawah suatu nilai desimal
Untuk bilangan positif, fungsi Fix() dan Int() memberikan perlakuan yang sama.
Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama
ans1 = Int (14.5) mengembalikan 14
ans2 = Fix (14.5) mengembalikan 14

Namun fungsi Fix() dan Int() memberikan perlakuan berbeda pada bilangan negatif. Kedua pernyataan berikut memberikan pengembalian yang berbeda.
ans1 = Int (-14.5) mengembalikan -15
ans2 = Fix (-14.5) mengembalikan 14

Sedangkan fungsi CInt() mengembalikan pembulatan angka yang terdekat. Berikut ni contoh penggunaan CInt() :
ans1 = CInt (14.1) mengembalikan 14
ans2 = CInt (14.5) mengembalikan 14
ans3 = CInt (14.6) mengembalikan 14
ans2 = CInt (-14.5) mengembalikan -14

Fungsi ’f1’endash Fungsi konversi tipe data
CCur () mengkonversi argumen menjadi tipe data currency
CDbl () mengkonversi argumen menjadi tipe data double (presisi ganda)
CLng () mengkonversi argumen menjadi tipe data long integer
CSng () mengkonversi argumen menjadi tipe data single
CStr () mengkonversi argumen menjadi tipe data string
Ivar () mengkonversi argumen menjadi tipe data variant

Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7)
lblNilai = (1 / 7) ditampilkan .1428571
lblNilai = CDbl (1 / 7) ditampilkan .142857142857143

Fungsi-fungsi matematika
Fungsi-fungsi yang bekaitan dengan matematika seperti terlihat pada
Abs () mengembalikan nilai absolut dari argumen
Atn () mengembalikan nilai arc tangen dari argumen dalam bentuk radian
Cos () mengembalikan nilai cosinus dari argumen radian
Exp () mengembalikan nilai exponensial dari argumen
Log () mengembalikan nilai logaritma dari argumen
Sin () mengembalikan nilai sinus dari argumen dalam radian
Sqr () mengembalikan nilai akar dari argumen
Tan () mengembalikan nilai tangen dari argumen dalam radian

Fungsi-fungsi String
Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti berikut
LCase$ () mengembalikan argumen string sebagai tipe data string huruf
Ucase () mengembalikan argumen string sebagai tipe data variant huruf besar
Ucase$ () mengembalikan argumen string sebagai tipe data string huruf besar
Val () mengembalikan nilai number dari argumen string
Len () mengembalikan nilai sumber yang menunjukan panjang string

Substring merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat digunakan 3 fungsi berikut :
- Left$(StringVal, length)
  Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter .
- Right$(StringVal, length)
  Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .
- Mid$(StringVal, startVal, length)
   Fungsi ini mengembalikan nilai string dari startVal sebanyak length karakter .

Contoh :
HurufKecil = LCase (“Rickie”) ’HurufKecil = “rickie”
HurufBesar = Ucase (“Faizin”) ’HurufBesar = “FAIZIN”
Title = “Apa Kabar”
lTitle = Left$ (Title, 4) ’lTitle = “Halo”
RTitle = Right$ (Title, 5) ’RTitle = “Dunia”
MTitle = Left$ (Title, 2, 6) ’MTitle = “alo Du”
Panjang = Len (“Biru dan hijau”) ’length = 14

Fungsi-fungsi Tanggal dan Waktu
Jika dalam suatu aplikasi diperlukan pengambilan tanggal atau waktu dari sistem, Visual Basic menyediakan fungsi ’endash fungsi Now(), Date(), dan Time().
Fungsi-fungsi Tanggal dan Waktu
Now () mengembalikan tanggal dan waktu sistem
Date () mengembalikan tanggal dari sistem
Time () mengembalikan waktu dari sistem

Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu format() yang berkaitan dengan fungsi-fungsi Tanggal dan waktu
Format (Expresi [, format[, firstdayofweek[, firstweekofyear]]])
Fungsi ini mengembalikan nilai variant atau string sesuai dengan format yang ditentukan.

Fungsi Date and Time pada VB
Time : mencari tahu waktu saat ini atau menetapkan waktu, tergantung format
pemakaiannya ( lihat contoh di bawah ini)
A$ = Time ’lquote hasil 18:16:35 AM
MyTime = #4:35:17 PM# ’lquote assign a time
Time = MyTime ’lquote set system time to MyTime
Now : merekam tanggal dan waktu sekarang

Dapet tugas visual basic lagi nih. Tugas Kali ini gampang gampang susah.

• Membuat MDI Form minimal mempunyai form anak 4
• Membuat menu untuk tampilan tile vertical,tile horizontal,dan tile cascade
• Mengatur tata leteak menu menu sesuai selera anda 

1.  OKe langsung saja, pertama kita buat Form MDI caranya

•  Buka program Microsoft Visual Studio 2010, pilih New Project, pilih Windows Form Application
•  pada Solution Explorer dimana form tadi disimpan sebagai contoh saya menyimpan dengan nama WindowsApplication1 setelah klik kanan pilih Add
• Lakukan sampai tercipta 5 buah form MDI

• Kemudian pada form1 masukan code berikut untuk membuat MDI Form :

Form2.MdiParent = Me
Form3.MdiParent = Me
Form4.MdiParent = Me
Form5.MdiParent = Me

Form2.Show()
Form3.Show()
Form4.Show()
Form5.Show()

Maka tampilannya saat dijalankan sebagai berikut :

MDI Form

2. Membuat menu Tile Vertical, Tile Horisontal dan Tile Cascade

Untuk membuat menu Tile Vertical, Tile Horisontal dan Tile Cascade tidak terlalu susah. Pertama buat toolbar yang akan digunakan menampilkan form yang dipanggil sesuai selera kita, Buat 3 ikon untuk tampilan vertical horizontal, dan cascade

Pada form1 ketikan code berikut

namaform.mdiparent=me
namaform.show

Selanjutnya kira masukan kode berikut di masing masing ikon


Ikon Horizontal

Me.LayoutMdi(MdiLayout.TileHorizontal)

Ikon Vertikal

Me.LayoutMdi(MdiLayout.TileVertical)

Ikon Cascade

Me.LayoutMdi(MdiLayout.Cascade)

Dan coba jalan kan form. Maka tampilannya sebagai berikut :

A. Cascade B. Vertical & C. Horizontal

Yang terakhir kita coba mengatur letak toolbar sesuka kita silakan mau di letakan dimana terserah anda. Berikut tampilan yang saya buat. Terimakasih.

Tampilan dengan menu ikon di bawah ^^

Okeh langsung saja dari pada kelamaan kali ini saya coba menganalisa masalah yang terjadi pada program 1.  Pertama buat 2 buah  form terlebih dahulu  kemudian masukan kode dibawah ini pada form 1

Langah berikutnya kita jalankan program dan ternyata ada keganjilan yang terjadi dari program tersebut yaitu  saat ditekan tombol nama1 dan nama1 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 yang ditampilkan pada textbox alamat sama kenapa bisa begitu??

hal ini terjadi karena Pada tombol nama 1 dideklarasikan yaitu dengan dim as nama string yang berisi "nandang" sedangkan pada tombol nama 2 deklarasi menggambil dari deklarasi global yang terdapat pada modul program.

Pada tambah umur 1 selalu keluar angka satu karena pendeklarasiannya menggunakan DIM yang artinya tidak menyimpan nilai, maka nilai akan selalu keluar 1.  untuk itu DIM seharusnya diganti dengan STATIC agar nilainya tidak hilang saat program dijalankan.




selanjutnya beri poperti dan masukan kode berikut :

selanjutnya jalankan progam. maka progam berjalan dengan lancar tapi sebenarnya ada kekurangan dari program tersebut. antara lain

• Tombol clear tidak menghapus semua textbox untuk itu kita tambahkan perintah untuk menghapus textbox yang masih isi dengan perintah namatxtbox.clear() 
• Item barang tas tidak memilliki nilai untuk mengatasinya kita harus memberikan nilai tas pada select case agar nantinya nilai dapat diketahui

Bingung mau bikin aplikasi apa nih menggunakan aplikasi visual basic 2010, setelah beberapa hari berpikir ingin buat program kasir tapi sepertinya ribet apalagi belum terbiasa dengan Visual Studio 2010. Akhirnya aku putuskan buat program menghitung luas, keliling, dan diagonal sebuah persegi. Untuk penampakan gambar akhirnya seperti ini.

Hasil Akhir setelah program di jalankan

Sangat sederhana sekali yah, dan tampilannya juga masih jelek. Tapi tidak masalah yang penting kan keakuratan hasilnya sudah pasti dan jelas. Oke langsung saja berikut langkah langkah membuat program untuk menghitung luas keliling dan diagonal persegi.

1. Buka Visual Studio 2010 kemudian pilih buat new project >> Pilih Windows Aplication Form. langsung Simpan di derektori yang anda inginkan.
2. Buat 2 buah textbox, 8 buah label dan 2 buah button atur seperti gambar dibawah ini.

3. Proses menghitung dilakukan saat tombol hitung di klik, pada button hitung diletakan script untuk membuat label yang enable=false berubah menjadi true agar dapat tampil saat di klik.
4. label6 menghasilkan keliling
5. label7 menghasilkan panjang diagonal
6. label8 menghasilkan luas
7. Tombol reset mreset semua nilai di textbox dan mengubah label menjadi enable=false sehingga label tidak nampak.

demikian cara membuat aplikasi hitung luas persegi panjang yang sederhana. semoga bermanfaat.