Iklan

Posts tagged ‘visual basic’

VB .NET – Menghubungkan Visual Basic 2008 dengan MYSQL local server


Untuk dapat membuat koneksi antara Visual Basic 2008 dengan database MYSQL pada local server kita, maka kita harus menambahkan konektor SQL. Bagaimana caranya? Ikuti langkah-langkah berikut:

  1. Anda dapat mendownload MYSQL Connector disini.  Setelah berhasil mendownload, install sampai selesai.
  2. Dari Menu Project pilih Add Reference. Kemudian pilih Browse dan cari lokasi file MySql.Data.dll. Biasanya pada directory: C:\Program Files (x86)\MySQL\MySQL Connector Net 8.0.13\Assemblies\v4.5.2
  3. Selanjutnya tinggal membuat coding sebagai berikut:

Buat sebuah file class:

Imports MySql.Data.MySqlClient
Public Class connection
    Private strCon As String = "server=localhost;user id=root;database=cipd"
    Private da As New MySqlDataAdapter
    Private cmd As New MySqlCommand
    Private dt As New DataTable
    Private Function myCon() As MySqlConnection
        Return New MySqlConnection(strCon)
    End Function
    Private conn As MySqlConnection = myCon()
    Property con() As MySqlConnection
        Get
            Return conn
        End Get
        Set(ByVal value As MySqlConnection)
            conn = value
        End Set
    End Property
    Public Sub reload(ByVal sql As String, ByVal dtg As Object)
        With cmd
            .Connection = con
            .CommandText = sql
        End With
        da = New MySqlDataAdapter(sql, con)
        da.Fill(dt)
        dtg.DataSource = dt
    End Sub
End Class

Selanjutnya pada form, coding seperti berikut:

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim Mycon As connection = New connection
    Dim stud As student = New student
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Mycon.con.Open()
            If Mycon.con.State = ConnectionState.Open Then
                MsgBox("connected")
                Mycon.reload("SELECT * FROM tani", DataGridView1)
            Else
                MsgBox("not connected")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Mycon.con.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

 

Referensi:

http://www.uwidigital.com/2016/05/cara-menghubungkan-koneksi-vb-net-dengan-mysql-database/

http://ekasolusi.blogspot.com/2015/06/mengkoneksikan-vbnet-2008-dengan.html

File digunakan:

MySql.Data.dll

Download File

Iklan

Program Database Siswa Dengan VB


Databases siswa adalah salahs atu komponen penunjang sistem administrasi yang selayaknya setiap sekolah memiliki untuk menunjang proses administrasi. Database sekolah, dapat dikembangkan lebih lanjut untuk layanan berbasis IT untuk kemajuan sistem informasi pada sebuah sekolah. Untuk sebuah sekolah yang memiliki jumlah siswa yang banyak, maka kebutuhan akan adanya database siswa adalah sebuah keharusan. Dengan menggunakan program aplikasi yang sudah familiar, Visual Basic 6 dapat dibuat sendiri program aplikasi Database Siswa.

Pada bagian Ini kita dapat membuat sebuah database siswa secara sederhana. Database ini hanya terdiri dari:

db siswa acces

  • NIS = sebagai Primary Key

  • Nama Siswa

  • Jenis Kelamin

  • Nomer HP

selain data di atas, nantinya pembaca dapat menambahkan sesuai dengan kebutuhan. Disini dibuat sederhana agar lebih mudah dimengerti dan lebih mudah dimodifikasi sendiri.

  1. Menambahkan Data

add data

  • Isikan data secara lengkap

  • Klik tombol Tambah

  1. Mencari Data

cari data

  • Isikan nomor NIS

  • Tekan Enter

  1. Mengedit Data
  • Cari data

  • Klik tombol Edit

edit

  • Edit data seperlunya, kecuali NIS

  • Klik tombol Update

update

  1. Menghapus Data
  • Cari Data

  • Klik tombol Hapus

hapus

Demikian program sederhana Database Absensi Dengan Visual Basic 6.

Download Source Code (Menyusul).

Mencari Posisi Sebuah Karakter/String Dengan VB


Untuk mengetahui posisi sebuah karakter pada sebuah string, menggunakan Visual Basic 6, kita dapat menggunakan syntax:

Public Shared Function InStr(_
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As CompareMethod _
) As Integer
' -or-
Public Shared Function InStr(_
   ByVal Start As Integer, _
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As Microsoft.VisualBasic.CompareMethod _
) As Integer

Parameter:

– Start= nilai posisi awal pencarian, jika tidak diberikan maka akan dimulai dari awal string. optional

– String1= String dimana karakter yang akan dicari. harus ada.

– String2= String/karakter yang akan dicari. harus ada.

– Compare= metode yang digunakan. Binary atau Text.

Contoh:

'String tujuan pencarian.
Dim SearchString As String = "XXpXXpXXPXXP"
'karakter yang akan dicari "p".
Dim SearchChar As String = "P"

Dim TestPos As Integer
' Pencarian dengan metode Text, dimulai dari posisi 4. akan didapatkan 6
TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)

' Pencarian dengan metode binary, dimulai dari posisi 1. didapatkan 9.
TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)

' Jika opsi pencarian tidak ditentukan, akan didapatkan 9.
' Jika metode pencarian ditentukan Text, akan didapatkan 3
TestPos = InStr(SearchString, SearchChar)' Didapatkan 0
TestPos = InStr(1, SearchString, "W")

Demikian, semoga bermanfaat.

Sumber: http://msdn.microsoft.com/en-us/library/8460tsh1%28v=vs.80%29.aspx

Progressbar Dengan Visual Basic


bar 1

Progressbar biasanya dibutuhkan untuk memvisualisasikan sebuah data dengan range yang sudah diketahui. Progressbar dapat dengan mudah dijumpai pada beberapa aplikasi. Di windows sendiri bisa dijumpai saat kita memindah file dari sebuah directory ke directory lainnya.

Salah satu kegunaan progressbar adalah memberikan aspek psikologis kepada user tentang suatu proses yang sedang berlangsung. Dengan adanya progress bar, user bisa mengetahui berapa lama suatu proses telah berlangsung dan berapa waktu yang dibutuhkan selanjutnya.

bar 2

Selain itu, progressbar juga dapat digunakan untuk menampilkan suatu data pengukuran. Misalnya disini dicontohkan untuk menampilkan suatu nilai RPM. Dengan ditampilkan pada sebuah progressbar, user dengan mudah akan dapat mengetahui berapa persen (%) nilai aktual dibandingkan nilai maksimum yang ada.

Progressbar ini dapat dibuat dengan memanfaatkan komponen sebuah Shape yang nilai properties Width dapat dibuat sebagai variabelnya.

[sourcecode]

Function ShapeBar(ProgressBarValue As Integer, ProgressBarName As Shape)
ProgressBarName.Width = ProgressBarValue * 10 ' Write here the value for one percent
If ProgressBarName.Width > 9975 Then
ProgressBarName.Width = 9975
End If
End Function

[/sourcecode]Kemudian untuk membuat sebuah simulasi, ditambahkan komponen HScroll1 dengan nilai maksimum ditentukan sesuai keinginan. Kemudian pada fungsi Private Sub HScroll1_Change() ditambahkan code:


Private Sub HScroll1_Change()
MyFunctionProgressBar = ShapeBar(HScroll1.Value * 10, BarRPM)
End Sub

Berikut adalah beberapa contoh hasilnya.

bar 3

bar 2

bar 4

bar 5

bar 6

Source code.

Demikian, semoga bermanfaat.

Membuat Grafik Dinamik Pada Visual Basic 6


grafik

Pada artikel sebelumnya telah dibahas tentang bagaimanakah membuat grafik pada visual basic, maka pada posting ini adalah membahas lebih lanjut bagaimana membuat sebuah grafik.

Perbedaan yang akan disampaikan pada tulisan ini diantaranya adalah: bagaimana membuat sebuah grafik dapat menampilkan data secara kontinyu. Data dapat ditampilkan terus menerus, ketika grafik telah menyentuh titik maksimum sumbu Y maka secara otomatis grafik akan ditampilkan mulai dari sumbu Y=0.

Hal ini sangat membantu ketika data yang ditampilkan sangat banyak dan membutuhkan waktu yang relatif lama. Jika pada posting sebelumnya grafik ketika sudah mencapai sumbu Y maksimum, grafik akan berhenti.

[baca selengkapnya disini]

Menulis Source Code Pada Wordpress


Jika pada posting saya sebelumnya masih ada tampilan yang kurang enak dilihat, yaitu pada bagian source code maka insya Alloh pada posting berikutnya itu tidak akan ada lagi. Ini karena sebelumnya saya belum mengetahui bagaimana cara untuk menuliskan source code pada wordpress.

Tulisan ini saya buat dengan merujuk pada beberapa posting blogger dan khususnya pada sumber utamanya yaitu wordpress.

Kesulitan untuk menuliskan source secara langsung karena memang wordpress tidak mengijinkannya. Namun disisi lain, wordpress memberikan fasilitas untuk menuliskan source code pada sebuah posting.

Untuk menuliskan source code kita bisa mengikuti bentuk seperti berikut:

[ sourcecode language=”java” ]
Tuliskan source code disini
[ /sourcecode ]

sebagai contoh adalah:


CD.ShowOpen
 Me.Caption = CD.FileName
 Picture1.Picture = LoadPicture(CD.FileName)

Sesuai rujukan yang ada pada wordpress, fitur diatas mendukung untuk berbagai syntax bahasa pemrograman, yaitu:

  • ctionscript3
  • bash
  • clojure
  • coldfusion
  • cpp
  • csharp
  • css
  • delphi
  • erlang
  • fsharp
  • diff
  • groovy
  • html
  • javascript
  • java
  • javafx
  • matlab (keywords only)
  • objc
  • perl
  • php
  • text
  • powershell
  • python
  • r
  • ruby
  • scala
  • sql
  • vb
  • xml

Demikian, semoga bermanfaat.

Rohmadi

Sumber: http://en.support.wordpress.com/code/posting-source-code/

Source code Tabungan Sekolah


Karena banyaknya permintaan source code tabungan, berbagi maka pada sesi ini saya upload source code tabungan yang telah saya tampilkan pada posting sebelumnya.

Bagi pengunjung yang memiliki masukan dan saran, kami sangat terbuka untuk menampungnya.

Demikian, semogar bermanfaat.

Rohmadi

Source code.

%d blogger menyukai ini: