Tuesday, 9 June 2015
Monday, 24 December 2012
TUGAS VB net MENGGABUNGKAN SQL SERVER 2005 DENGAN VISUAL STUDIO 2010
MENGGABUNGKAN SQL SERVER 2005 DENGAN VISUAL STUDIO 2010
3.Buat database baru
5.Double klik pada Data base kemudian double klik pada Dbmahasiswa
6.klik kanan pada table kemudian pilih new table
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 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
Tuesday, 18 December 2012
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
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
Monday, 10 December 2012
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 :
Tampilan Vertical, caranya sama, hanya diganti pada Me.LayoutMdi(MdiLayout.TileHorizontal) dig anti menjadi Me.LayoutMdi(MdiLayout.TileVertical)
Berikut adalah skripnya :
Tampilannya akan seperti ini :
Dan ini adalah tampilan tool strip yang telah di buat :
Dan hasil akhirnya adalah sebagai berikut...
Demikian hasil pekerjaan saya...
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...
