1. http://herunmalilangberbangkit.blogspot.com/2013/01/koneksi-database-dengan-visual-basic.html
2. http://herunmalilangberbangkit.blogspot.com/2012/12/function-dengan-return-value-berupa.html
3. http://herunmalilangberbangkit.blogspot.com/2012/12/tugas-ke-7_3354.html
4. http://herunmalilangberbangkit.blogspot.com/2012/10/perualangan.html
5. http://herunmalilangberbangkit.blogspot.com/2012/10/analisa-dan-memperbaiki-program.html
6. http://herunmalilangberbangkit.blogspot.com/2012/10/analisa-program-praktikum-ke-2.html
7. http://herunmalilangberbangkit.blogspot.com/2012/10/tugas-pemrograman-1-aplikasi-penghitung.html
Jalan Berbangkit
Jalan berbangkit
Rabu, 16 Januari 2013
Selasa, 01 Januari 2013
Koneksi database dengan visual basic 2010
Koneksi Data Base dengan Visual Basic 2010
salam sejahtea untuk kita semua, pada kesemapatan yang baik ini, kami akan berbagi tentang koneksi data base dengan visual basic 2010.
semoga bermanfaat untuk kita semua.
salah satu yang harus diperhatikan sebelum kita membuat program ini adalah, kita sudah meyakinkan diri bahwa kita sudah menyiapkan data base yang nantinya akan dikoneksikan dengan visual basic 2010.
langsung saja, mari kita perhatikan antarmuka program yang akan kita buat, dibawah ini.
baik, dapat kita lihat bersama, bahwa pada gambar tersebut dapat dilihata bahwa antarmuka aplikasi tersebut terbangun atas beberapa tool yang ada pada visual basic 2010.
kemudian, langsung saja, mari kita lihat aplikasi apabila dijalankan.
================================================================================================================================================
listing program :
Dim urut As Integer = 1
Private Sub TbmhsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmhsBindingNavigatorSaveItem.Click
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbherunDataSet.tbmhs' table. You can move, or remove it, as needed.
Me.TbmhsTableAdapter.Fill(Me.DbherunDataSet.tbmhs)
Dim hidup As Windows.Forms.Control
For Each hidup In Me.Panel1.Controls
If (hidup.GetType.Name <> "Label") Then
hidup.Enabled = False
End If
Next
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk sementara tidak ada data yang tersedia", vbOKOnly + vbInformation, "Peringatan")
Else
Dim search As String
search = InputBox("Insert Name", "Search Name")
If (TbmhsBindingSource.Find("Nama", search)) > -1 Then
MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
Me.TbmhsBindingSource.Position =
TbmhsBindingSource.Find("Nama", search)
urut = TbmhsBindingSource.Find("Nama", search) + 1
Else
MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
End If
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim mex As Integer = TbmhsBindingSource.Count
If (mex = 0) Then
MsgBox("Untuk Sementara belum ada data yang tersedia", vbOKOnly + vbInformation, "Peringatan")
Else
If (urut = mex) Then
MsgBox("Ini adalah data yang terakhir", vbOKOnly + vbInformation, "Peringatan")
Else
TbmhsBindingSource.MoveNext()
urut += 1
End If
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
Else
If (urut = 1) Then
MsgBox("Ini adalah data yang pertama", vbOKOnly + vbInformation, "Peringatan")
Else
TbmhsBindingSource.MovePrevious()
urut -= 1
End If
End If
End Sub
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
Else
TbmhsBindingSource.MoveFirst()
urut = 1
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk sementara belum ada data yang diisikan", vbOKOnly + vbInformation, "Peringatan")
Else
TbmhsBindingSource.MoveLast()
urut = TbmhsBindingSource.Count
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hidup As Windows.Forms.Control
For Each hidup In Me.Panel1.Controls
If (hidup.GetType.Name <> "Label") Then
hidup.Enabled = True
End If
Next
TbmhsBindingSource.AddNew()
Button2.Enabled = True
Button1.Enabled = False
NIMTextBox.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If urut = TbmhsBindingSource.Count Then
urut -= 1
End If
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk Sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
Else
If (MsgBox("Apakah anda yakin akan mengahapus data tersebut ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")) = vbYes Then
TbmhsBindingSource.RemoveCurrent()
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
urut = TbmhsBindingSource.Count
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
Dim hidup As Windows.Forms.Control
For Each hidup In Me.Panel1.Controls
If (hidup.GetType.Name <> "Label") Then
hidup.Enabled = False
End If
Next
Button1.Enabled = True
Button2.Enabled = False
Catch ex As Exception
MsgBox("NIM sudah ada", vbOKOnly + vbCritical, "Peringatan")
NIMTextBox.Focus()
TbmhsBindingSource.RemoveCurrent()
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
Button1.Enabled = True
Button3.Enabled = False
urut -= 1
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If (ComboBox1.Text = "Admin") Then
Label2.Visible = True
TextBox1.Visible = True
ElseIf (ComboBox1.Text = "User Biasa") Then
Dim hidup As Windows.Forms.Control
For Each hidup In Me.Panel1.Controls
If (hidup.GetType.Name <> "Label") Then
hidup.Enabled = False
End If
Next
Label2.Visible = False
TextBox1.Visible = False
GroupBox1.Enabled = False
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If (TextBox1.Text = "herun") Then
GroupBox1.Enabled = True
Else
GroupBox1.Enabled = False
End If
End Sub
End Class
demikian semoga bermanfaat untuk kita semua.
amin...
Senin, 24 Desember 2012
Function dengan return value berupa array, overloading dan fungsi bawaan pada visual basic.
Function dengan
return value berupa array, Overloading Function
dan Fungsi bawaan pada Visual Basic 2010.
Penjelasan
Program
Private Function fstat(ByVal ParamArray args() As Object) As Single()
·
Baris
koding di atas menunjukan pendeklarasian sebuah sub program berupa function
dengan variabel fstat. Deklarasi function di atas menggunakan paramater ByVal
yang berarti melewatkan parameter secara nilai dan bertipe data Single (bulat).
·
Deklarasi
di atas hanya bisa diekanali di lokal form. Itu dapat dilihat dari penyebutan
private di awal deklarasi.
Dim
hasil(3) As Single
Dim i As Integer
·
Baris
koding diatas adalah sebuah pendeklarasian variabel dengan nama hasil. 3,
merupakan jumlah teratas pada array atau Ubound. Dan tipe data yang digunakan
adalah Single.
·
Dim
i As Integer bermaksud, pendeklarasian variabel bernama i dengan tipe data
integer.
For i = 0 To UBound(args)
·
Koding
diatas menjelaskan perulangan untuk i=0 sampai batas teratas dari Array (Ubound)
hasil(0) = hasil(0) + args(i)
·
Dapat
dijelaskan bahwa hasil(0)=hasil(0) kerena perulangan belum dimulai dan args(i)=
nilai dari indeks array ke i
If
i=0 Then
·
Artinya
jika i=0, maka lakukan perintah
hasil(1)=args(i)
·
hasil1
= nilai dari indeks ke i
hasil(2)=args(i)
·
hasil2
= nilai dari indeks ke i
End If
·
perintah
diakhiri apabila i tidak sama dengan 0
If hasil(1) > args(i) Then
hasil(1) = args(i)
·
jika
hasil 1 lebih besar dari nilai i maka hasil 1 dari indeks ke i
If hasil(2) < args(i) Then
hasil(2) = args(i)
·
jika
hasil 2 lebih kecil dari nilai i maka hasil 2 dari indeks ke i
Next i
Return hasil
·
Kembali
ke hasil
End Function
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button1.Click
·
Method
pada button1_Click
Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
·
Pendeklarasian
variabel dengan nama statistik dengan tipe data single. Dan nilai array pada
indeks ke 0=1.
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
·
Textbox
satu sampai ke tiga akan bernilai statistik dari indeks ke 0
End Sub
Saat Program dijalankan
Kode Program secara lengkap
Private Function fstat(ByVal ParamArray args() As Object) As Single()
Dim hasil(3) As Single
Dim i As Integer
For i = 0 To UBound(args)
hasil(0) = hasil(0) + args(i)
If i = 0 Then
hasil(1) = args(i)
hasil(2) = args(i)
End If
If hasil(1) > args(i) Then hasil(1) = args(i)
If hasil(2) < args(i) Then hasil(2) = args(i)
Next i
Return hasil
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
End Class
==========================================================================================================================================================================================
Overloading Function
Contoh Program :
Public Class Form2
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung = bil1 + bil2
End Function
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
hitung = bil1 + bil2 + bil3
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = hitung(1, 2)
End Sub
End Class
Penjelasan Program:
Pada contoh program di atas, ada dua sub program yang sama namun masing-masing memiliki variabel yang berbeda.
cara kerjanya adalah:
hasil yang akan diberikan di atas tergantung dari berapa variabel yang kita berikan saat memangil sub program.
pada contoh di atas, saya berikan 2. yang artinya, program akan mengksekusi function yang pertama. namun apa bila kita pesan pada pemanggilan sub progaram sejumlah 3, maka sub program yang akan di eksekusi adalah yang ke 2.
==========================================================================================================================================================================================
Macam-macam fungsi bawaan pada Visual basic 2010
1. Fungsi Numerik
Fungsi pembulatan angka.
Contoh penggunaan program :
2. Fungsi Matematika
- fungsi-fungsi yang berkaitan dengan tujuan matematis terdapat dalam class math.
- pemanggilan fungsi ini harus diawalai (prefiks) math.
Contoh fungsi matematika:
3. Fungsi string
Adalah fungsi yang digunakan untuk operasi string.
a. Fungsi String Lcase() dan Ucase()
- Lcase()
akan mengembalikan suatu string dalam tipe huruf kecil (lowercse)
- Ucase()
akan mengembalikan suatu string dalam tipe huruf besar (upercase)
- Contoh
Dim inStr As String ="Ikut Kuliah Pak Nandang"
Dim outStr As String
‘mengembalikan "ikut kuliah pak nandang"
outStr = LCase(inStr)
‘mengembalikan "IKUT KULIAH PAK NANDANG"
outStr = Ucase(inStr)
b. Fungsi String Left(), Mid() dan Right()
Ketiga fungsi ini mengembalikan substring dengan jumlah karakter yang telah ditentukan dari suatu argumen.
Pengambilan karakter ini dimulai dari sisi paling kiri (Left), dari sisi paling kanan (Right), atau dari urutan tertentu.
- Contoh
Dim inString As String = “Hai, Dunia!”
‘mengembalikan "Hai"
Left(inString, 3)
‘mengembalikan "Dunia!"
Right(inString, 6
‘mengembalikan "Hai"
Mid(inString, 1, 3)
‘mengembalikan "Dun"
Mid(inString, 6, 8)
c. Fungsi String Len()
Mengembalikan nilai integer yang merupakan panjang string
- Contoh
Dim inStr As String = "Hai, Dunia!"
'mengembalikan 11
Dim outStr As Integer = Len (inStr)
d. Fungsi String Ltrim(), Rtrim(), Trim()
- mengembalikan suatu string tanpa menyertakan spasi yang terletak sebelumnya (LTrim), spasi yang terletak setelahnya (RTrim), atau spasi yang terletak sebelum dan setelahnya (Trim).
- Contoh
Dim inStr As String = " <-Alpro-> "
Dim outStr As String
outStr = LTrim(inStr)
outStr = RTrim(inStr)
outStr = LTrim(RTrim(inStr))
outStr = Trim(inStr)
e. Fungsi string Replace()
Mengembalikan suatu string dimana suatu substring pada argumen tersebut telah digantikan oleh substring yang lain.
- Contoh
Dim inString As String = "Shopping List"
Dim outString As String = _
Replace (inString, "o", "i")
f. Fungsi string StrComp()
Mengembalikan -1,0 atau 1 berdasarkan hasil dari perbandingan dua string. Opsi metode perbandingan dapat menggunkan text (lower atau upercase dihirraukan) atau binary (lower atau upercse diperhatikan).
- Contoh
Dim inStr1 As String = "ABCD"
Dim inStr2 As String = "abcd"
Dim inStr3 As String =
outStr = StrComp (inStr1, inStr2, _ CompareMethod.Text)
outStr = StrComp (inStr1, inStr2, _ CompareMethod.Binary)
outStr = StrComp (inStr1, inStr2)
g. Fungsi String StrReverse()
Mengembalikan suatu string yang mempunyai karakter sama dengan argumen, tetapi dengan urutan yang berkebalikan.
- Contoh
Dim inStr As String = "ABCDEFG"
Dim outStr As String = StrReverse (inStr)
h. Fungsi String StrDup()
Mengembalikan suatu string yang terdiri dari karakter yang berulang. Karakter yang diulang ini merupakan karakter awal dari string yang menjadi argumen.
- Contoh
Dim inStr As String = "Hai, Dunia !"
Dim outStr As String
outStr = StrDup (9, "s")
Selasa, 11 Desember 2012
tugas ke 7
bismillah...
kali ini kita akan belajar membuat.....
kita lihat aja langsung...
ni tampilan awalnya...
jreng jreng jreng...
nah... kira-kira gimanaya buatnya,,,,
nyok kita simak bareng--------
pertama yang harus kita sadari adalah... tampilan tersebut muncul karena... adanya tambahan library..
apakah librarynya... DotNetBarSetupTrial.msi. ini bentuknya .msi jadi harus diinstal terlbih dahulu.
tapi kalo yang ekstensinya .dll si ga usah diinstal... tinggal dipasangin aja...
kalo udah sukses tu ya.. lihat ditoolboxnya.kira-kira kaya gini..
nah kan.........
oke deh.... kita langsung buat projectnya. tentunya sudah pada tahu donk gimana caranya buat project baru.
1. buat project baru dengan nama terserah kamu
2. setelah muncul form baru
3. tambahkan ribbon control yang ada pada toolbox bagian DotNetBar
udah to yo...
4. setalah udah ditari itu ribbom control.. tinggal deh diatur-atur sesuai kebutuhan.
5. udah to... sekaran untuk membuat BubbleBarnya...
udah kan...
sekarang kita akan membuat agar form tersusun vertikal, horizontal dan cescade.
namun terlabih dahulu.. di properties form pilih isMDIcontainer kemudian set menjadi true ya,
let's go.
1. membuat form menjadi veritkal
codingnya :
Me.LayoutMdi(MdiLayout.TileVertical)
2. membuat horizontal form set
Codingnya :
Me.LayoutMdi(MdiLayout.TileHorizontal)3. membuat cescade form set
codingnya :
Me.LayoutMdi(MdiLayout.TileCescade)4. selanjutnya kita buat coding untuk memanggil form-form yang kita telah buat.
saya beri contoh satu..
Form2.MdiParent = MeForm2.Show()
itu artinya form dipanggil dan akan ada di dalam Mdinya...
cukup sekian semoga bermanfaat.
Langganan:
Postingan (Atom)