Iklan

Posts from the ‘VB .Net’ Category

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

Capture Webcam Dengan Visual Basic 2008


Webcam

Ilustrasi: Webcam

Webcam merupakan salah satu device yang saat ini hadir pada laptop kita. Mungkin suatu waktu terbesit pada fikiran kita, bagaimana cara menampilkan dan menyimpan gambar sendiri?

Dengan menggunakan bantuan Visual Basic 2008, Anda dapat membuat sendiri sebuah program dasar untuk menampilkan dan menyimpan gambar menggunakan webcam, baik yang sudah menyatu dengan laptop maupun dengan webcam tambahan.

Pada dasarnya sama, antara memakai webcam yang sudah ada pada laptop dengan webcam tambahan, sehingga tidak ada kesulitan untuk menggunakan salah satunya.

Untuk menampilkan device yang terdeteksi pada laptop dapat menggunakan code berikut:

Private Sub LoadDeviceList()
Dim strName As String = Space(100)
Dim strVer As String = Space(100)
Dim bReturn As Boolean
Dim x As Integer = 0

'
' Load name of all avialable devices into the lstDevices
'

Do
'
'   Get Driver name and version
'
bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)

'
' If there was a device add device name to the list
'
If bReturn Then lstDevices.Items.Add(strName.Trim)
x += 1
Loop Until bReturn = False
End Sub

Untuk menampilkan gambar webcam:


Private Sub OpenPreviewWindow()
Dim iHeight As Integer = picCapture.Height
Dim iWidth As Integer = picCapture.Width

'
' Open Preview window in picturebox
'
hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _
480, picCapture.Handle.ToInt32, 0)

'
' Connect to device
'
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
'
'Set the preview scale
'
SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)

'
'Set the preview rate in milliseconds
'
SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)

'
'Start previewing the image from the camera
'
SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)

'
' Resize window to fit in picturebox
'
SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, _
SWP_NOMOVE Or SWP_NOZORDER)

btnSave.Enabled = True
btnStop.Enabled = True
btnStart.Enabled = False
Else
'
' Error connecting to device close window
'
DestroyWindow(hHwnd)

btnSave.Enabled = False
End If
End Sub

Untuk menutup gambar webcam:


Private Sub ClosePreviewWindow()
'
' Disconnect from device
'
SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)

'
' close window
'

DestroyWindow(hHwnd)
End Sub

Untuk menyimpan gambar:


Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim data As IDataObject
Dim bmap As Image

'
' Copy image to clipboard
'
SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

'
' Get image from clipboard and convert it to a bitmap
'
data = Clipboard.GetDataObject()
If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
picCapture.Image = bmap
ClosePreviewWindow()
btnSave.Enabled = False
btnStop.Enabled = False
btnStart.Enabled = True

If sfdImage.ShowDialog = DialogResult.OK Then
bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
End If

End If
End Sub

Hasil tampilan

Capture1

Demikian, semoga bermanfaat.

Download sourcecode.

Mendeteksi Port Serial Dengan Visual Basic 2010


Port Serial adalah salah satu kelengkapan yang sampai sekarang masih ada pada sebuah PC. Port serial biasanya digunakan untuk menghubungkan sebuah device dengan PC. Walaupun kehadiran USB semakin mendominasi standar komunikasi antar device, namun komunikasi serial masih sangat familiar.

Dengan memahami komunikasi serial, kita akang dapat melakukan banyak hal, khususnya bagi engineer atau bagi hobbiest elektronika.

Penggunaan laptop saat ini juga cenderung mendominasi baik bagi kalangan praktisi elektronika maupun mahasiswa. Sehingga kehadiran port serial pada sebuah laptop sangatlah penting. Disisi lain, laptop yang dirilis saat ini tidak ada yang menyertakan port serial sebagai sebuah device komunikasi. Untuk mengatasi ini, dipasaran banyak dijual aksesoris USB to Serial yang harganya bervariasi dan relatif terjangkau.

Dengan aksesoris USB to Serial, Anda dapat menghadirkan port serial virtual pada laptop atau PC yang sebelumnya tidak ada. Bisa juga digunakan untuk menambah kebutuhan port serial. Untuk mengetahui keberadaan port serial pada sebuah komputer, kita bisa melakukan pengecekan melalui langkah berikut:

1. Klik kanan pada My Computer, pilih Manage
manage
2.Pilih Computer Management–> System Tools–> Device Manager. Lihat pada group Ports (COM & LPT)

port

Pada contoh di atas, PC memiliki satu port serial onboard dan satu virtual serial port dengan ID chip Prolific.

Sekarang, bagaimana cara mendeteksi port serial secara otomatis menggunakan Visual Basic 2010?

Pada sesi ini diberikan contoh menggunakan VB 2010, namun saya sudah mencoba dan dapat diterapkan juga pada VB 2008.

Buat project seperti berikut:

1. Pilih New Project

New Project

2. Buat form berikut

form

3.Isikan coding berikut:

– Tambahkan komponen Serial Port dari group Components

add serialport

– Pada Button1 (button Close)


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim Ingin As MsgBoxResult
 Ingin = MsgBox("Apakah Anda akan keluar?", MsgBoxStyle.YesNo, "Keluar")
 If Ingin = MsgBoxResult.Yes Then
 Me.Close()
 ElseIf Ingin = MsgBoxResult.No Then
 Exit Sub
 End If
 End Sub

– Pada button Disconnect


Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click
 'tutup koneksi Serial port, jika berhasil tampilkan indikator
 Try
 SerialPort1.Close()
 btnConnect.Enabled = True
 btnDisconnect.Enabled = False
 Catch ex As Exception
 MsgBox(ex.ToString)
 End Try
 End Sub

– Pada button Connect


Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
 'cek, jika status serial port open, tutp koneksi serial port
 If SerialPort1.IsOpen Then
 SerialPort1.Close()
 End If

'atur properti serial port
 Try
 With SerialPort1
 .PortName = cbbCOMPorts.Text
 .BaudRate = 115200
 .ReadBufferSize = 500
 .Parity = IO.Ports.Parity.None
 .DataBits = 8
 .StopBits = IO.Ports.StopBits.One
 .Handshake = IO.Ports.Handshake.None
 End With
 'open koneksi serial port
 SerialPort1.Open()

btnConnect.Enabled = False
 btnDisconnect.Enabled = True
 Catch ex As Exception
 MsgBox(ex.ToString)
 End Try
 End Sub

– Pada Form1_load


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 'cek available serial port pada komputer
 'termasuk serial modem
 For i As Integer = 0 To _
 My.Computer.Ports.SerialPortNames.Count - 1
 'tambahkan ke dalam list combo serial port
 cbbCOMPorts.Items.Add( _
 My.Computer.Ports.SerialPortNames(i))
 Next
 'disable button disconnect
 btnDisconnect.Enabled = False
 End Sub

Berikut adalah hasil programnya.

result

Demikian, semoga bermanfaat.

Mengirim SMS dengan Visual Basic .NET


Pada kesempatan ini, Anda akan mempelajari bagaimana mengirim pesan singkat melalui Visual Basic .NET menggunakan Modem GSM Wavecom. Modem Wavecom memiliki beberapa perintah AT Command yang berhubungan dengan SMS, diantara untuk mengirim, menghapus, membaca, dan lainnya. Komunikasi antara modem GSM dengan VB .NET melalui port serial. Sehingga Anda akan mudah melakukannya karena pada VB .NET sudah tersedia tool untuk komunikasi melalui port serial.

Mengirim SMS

 

 

 

 

Untuk mengirim SMS melalui modem, lakukan langkah-langkah berikut ini:

  1. AT

balasan “OK” jika modem berfungsi

  1. AT+CMGF=1

mengatur mode Teks

  1. AT+CSCA= ”+XXXX”

nomer SMS Center, tergantung SIM Card yang digunakan

Untuk mengirim pesan:

  1. AT+CMGS= ”+NNNN” <Enter>

nomer handphone yang akan dituju

  1. Pesan_yang_akan_kita_kirim <Ctrl+Z>

Kemudian, bagaimanakah jika menggunakan VB .NET?

Langkah-langkahnya sama dengan diatas.

  1. SerialPort1.WriteLine(“AT”)

mengirim perintah AT ke port serial
2. SerialPort1.WriteLine(“AT+CMGF=1” & vbCrLf)

mengirim perintah AT+CMGF=1 dan Enter, yaitu kita mengatur modem agar bekerja dalam mode teks.

  1. SerialPort1.WriteLine(“AT+CSCA=” & Chr(34) & txtCenter.Text & Chr(34) & vbCrLf)

mengirim perintah AT+CSCA diikuti nomer SMS Center dan Enter. Nomer SMS Center di sini tergantung dari operator SIM card yang dipakai, sehingga bisa disesuaikan

  1. SerialPort1.WriteLine(“AT+CMGS=” & Chr(34) & txtNotujuan.Text & Chr(34) & vbCrLf)

mengirim perintah AT+CMGS diikuti nomer tujuan SMS dan enter. Nomer tujuan bisa semua operator.

  1. SerialPort1.WriteLine(txtPesan.Text & Chr(26)) ‘SMS sending

mengirim isi pesan diikuti Ctrl+z


dengan demikian isi SMS akan terkirim sukses.

Untuk lebih jelasnya, silakan pelajari pada code VB .NET yang disertakan. Semoga bermanfaat.

%d blogger menyukai ini: