TUGAS VB net MENGGABUNGKAN SQL SERVER 2005 DENGAN VISUAL STUDIO 2010

MENGGABUNGKAN SQL SERVER 2005 DENGAN VISUAL STUDIO 2010

A. Langkah – Langkah :

1. Klik Start – All Programs – Microsoft SQL Server 2005 - SQL Server Managenent Studio

2.klik connect

3.Buat database baru

4.Beri nama pada database name dengan dbmahasiswa kemudian tekan OK

5.Double klik pada Data base kemudian double klik pada Dbmahasiswa

6.klik kanan pada table kemudian pilih new table

7.Buat Table dengan struktur sbb beri nama tbmahasiswa kemudian simpan

8.Klik kanan pada dbmahasiswa kemudian klik open table

9.Isi table dbmahasiswa sesuai dengan kebutuhan

10.Buat Project Baru di VB. Net 2010kemudianbuat form baru seperti tampilan berikut.

11.Koneksikan form dengan database dengan cara klik data, pilih Add New Data Source - Database

12.Tekan Next lalu pilih New Connection- Microsoft SQL Server-Continue

13.Lengkapi isian, kemudian tekan test connection, Jika sukses berarti koneksike database berhasil

14.Tekan ok kemudian next

15.akan muncul gambar seperti di atas lalu Tekan next

16.Tekan next kemudian beri centang pada tbmahasiswa, Finish

B. Masukan Data Dari Data Source Ke Form

 #Tampilan program sebelum diINPUT.

 #Tampilan setelah program di jalankan...

 dan berikut ini adalah skrip program di atas..

PublicClassForm2

PrivateSub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigatorSaveItem.Click

Me.Validate()

Me.TbmahasiswaBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

EndSub

PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

'TODO: This line of code loads data into the 'DbmahasiswaDataSet.tbmahasiswa' table. You can move, or remove it, as needed.

Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TbmahasiswaBindingSource.MoveNext()

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TbmahasiswaBindingSource.MovePrevious()

EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TbmahasiswaBindingSource.MoveFirst()

EndSub

PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TbmahasiswaBindingSource.MoveLast()

PrivateSub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        NIMTextBox.Text = ""

        NAMATextBox.Text = ""

        TGLLAHIRDateTimePicker.Text = ""

        ALAMATTextBox.Text = ""

        JURUSANComboBox.Text = ""

        SPPTETAPTextBox.Text = ""

EndSub

PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Me.TbmhsTableAdapter.Fill(Me.SugiantoDataSet.tbmhs)

EndSub

PrivateSub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Me.Validate()

Me.TbmhsBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.SugiantoDataSet)

EndSub

EndClass

Read More

Pemragraman visual : Macam-macam function bawaan pada visual basic

Macam-macam function bawaan pada visual basic
 
Bikin tugas vb yang ke 8 dan kali ini saatnya membahas macam-macam function bawaan pada visual basic siapa tau kalian semua ada yang membutuhkan materi ini, saya sertakan disini.

Dan Function itu sendiri adalah sekumpulan tatement yang menghasilkan nilai balik (return Value). Nilai Balik ini akan akan dikembalikan pada blok perintah yang memanggil prosedur function.

Adapun syntax penulisan function procedure :

[Private/Public] Function namafungsi(argumen-argumen) [As type]

Baris perintah

End Function

Dari sytax diatas, namafungsi bisa diisi sesuai kebutuhan , argument-argumen bisa diisi dengan parameter,optional dan argumen lain, As type adalah tipe data yang digunakan

Sebuah Function dapat dipanggil dengan menggabungkan pernyataan lain, seperti contoh berikut ini

Variabel = nama Function Procedure

Cara lain untuk memanggil sebuah fungsi dapat dilakukan seperti kalau memanggil sub prosedur yaitu :

Call NamaFunctionProcedure [Parameter]
Atau

NamaFunctionProcedure (Parameter)

Ok, mungkin gambaran function itu seperti diatas lebih jelasnya bisa didapat dan dipelajari teman blogger disini. Karena inti dari tugas ini adalah untuk membahas macam-macam function bawaan pada visual basic dan disini kita bahas satu-persatu.

~ Fungsi String

Left→mengambil karakter dari sebelah kiri

Right → mengambil karakter dari sebelah kanan

Mid → mengambil karakter dari tengah

LTrim → membuang semua semua awal spasi yang ada disebelah kiri

RTrim → membuang semua semua awal spasi yang ada disebelah kanan

Trim → membuang semua spasi yang ada disebelah kiri dan kanan

Len → memberikan nilai balik integer sebagai panjang string

LCase → mengubah string menjadi huruf kecil semua

UCase → mengubah string menjadi huruf besar semua

Str (int) → mengubah bilangan menjadi string (konversi)

Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter

~ Fungsi Matematika
Val (Str) → konversi string menjadi integer

Asc(Char) → konversi karakter menghasilkan nilai ascii

Abs(Number) → memberikan nilai mutlak dari suatu nilai negatif

Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal

Sqr(Number) → memberikan hasil akar kuadrat dari suatu nilai

Tan()→ mengembalikan nilai tangen dari argument dalam radian

Cos()→ mengembalikan nilai cosinus dari argument dalam radian

Atn()→ mengembalikan nilai arc tangen dari argument dalam bentuk radian

Long()→ mengembalikan nilai logaritma dari argument

CInt()→ pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat

Fix()→ pemotongan suatu nilai decimal menjadi integer

Int()→ pembulatan ke bawah suatu nilai decimal

~ Fungsi Tanggal dan Waktu

Date()→ mengambil tanggal system komputer

IsDate → memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal

DateValue → konversi string menjadi date

D(Date),M(Date),Y(Date) → memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun

Time()→ mengambil waktu dari system komputer

H(Date),M(Date),S(Date) → memberikan nilai integher dari variable date untuk jm, menit dan deik

TimeValue(str) → konversi string ke variable date

Itulah, function-function bawaan yang bisa diapplikasikan dalam visual basic

Read More

Tugas VB net form MDI

FORM MDI

Langkah awal yaitu, buka Microsoft Visual Studio 2010.
Buka file pilih New Project, buka Windows Form Application.
Pilih Project, lalu klik Add Windows Form sebanyak 4 kali, dengan begitu kita memiliki 5 Windows Form, yang salah satunya akan kita ubah menjadi Form MDI. 

Untuk membuat tampilan window dengan Tile Horizontal, Tile Vertical , dan Tile Cascade, berikan perintah seperti dibawah ini.
Untuk tampilan Tile Horizontal, double klik pada setiap submenu di menustrip, seperti double klik pada menu barang lalu masukan perintah seperti di bawah ini, begitu seterusnya :

Private Sub menuteam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuteam.Click

Form2.MdiParent = Me

Form2.Show()

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Private Sub menupteam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menupteam.Click

Form3.MdiParent = Me

Form3.Show()

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Private Sub menusquad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menusquad.Click

Form4.MdiParent = Me

Form4.Show()

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Private Sub menucoach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menucoach.Click

Form5.MdiParent = Me

Form5.Show()

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Tampilan akan seperti ini : 

Tampilan Vertical, caranya sama, hanya diganti pada Me.LayoutMdi(MdiLayout.TileHorizontal) dig anti menjadi Me.LayoutMdi(MdiLayout.TileVertical)

Berikut adalah skripnya :

Private Sub menuCalender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuCalender.Click

Form2.MdiParent = Me

Form2.Show()

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub menuKlasemen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuKlasemen.Click

Form3.MdiParent = Me

Form3.Show()

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub menuTopSkor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuTopSkor.Click

Form4.MdiParent = Me

Form4.Show()

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub menuBursaTransfer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuBursaTransfer.Click

Form5.MdiParent = Me

Form5.Show()

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Berikut tampilannya : ]

Lalu untuk membuat tampilan window cascade masukan perintah :

Private Sub menuKlasemenserieA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuKlasemenserieA.Click

Form2.MdiParent = Me

Form2.Show()

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub menuTeamserieA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuTeamserieA.Click

Form3.MdiParent = Me

Form3.Show()

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub menutopskorserieA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menutopskorserieA.Click

Form4.MdiParent = Me

Form4.Show()

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub menuSponsor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuSponsor.Click

Form5.MdiParent = Me

Form5.Show()

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Tampilannya akan seperti ini :

 

Dan ini adalah tampilan tool strip yang telah di buat :

 

Untuk membuat library tambahan bias kita gunakan Treeview, pada toolbox, kemudian atur ukurannya, pada properties Dock kita ubah pada posisi left, lalu kita tambahkan node pada properties node.

Klik pada Add Root lalu untuk membuat node childnya klik Add Child, dan ubah pada properties text sesuai nama yang kita inginkan klik Ok.

 
Dan hasil akhirnya adalah sebagai berikut...

Demikian hasil pekerjaan saya... 

Read More