Cara Membuat QRCode Secara Real Time di Visual Basic .Net Dengan Cepat dan Mudah

Di era digital ini QRCode sudah merupakan bagian penting dalam sebuah aplikasi, karena dapat memudahkan user untuk melakukan interkasi dengan sistem secara otomatis misalnya untuk sistem pembayaran hingga verifikasi data bahkan bisa mengarahkan otomatis ke website.

QRCode di VB.Net

Untuk itu dalam artikel kali ini kita akan membahas Cara Membuat QRCode Secara Real Time di Visual Basic .Net Dengan Cepat dan Mudah

Kenapa perlu membuat QRCode di VB.net?

1. Gratis, karena menggunakan Library open source

2. Mudah di integrasikan

4. Cocok untuk berbagai Format Barcode

5. Cocok untuk aplikasi Desktop

Kegunaan QRCode :

1. Menyipman data dalam bentuk Visual

2. Proses scan cepat

3. Mudah terintegarsi dengan sistem lain

4. Menghasil QRCode otomatis saat user mengetikan

Berikut dibawah ini adalah langkah-langkah dalam pembuatan Cara Membuat QRCode Secara Real Time di Visual Basic .Net Dengan Cepat dan Mudah.

A. Membuat Project

1. Buka Microsoft Visual Studio Anda
2. Buat Project
3. Beri nama Project QRCodeGenerator
4. Pada Form1 tanamkan 1 TextBox, 1 PictureBox dan 1 Button (Simpan)

B. Install Library di VB.Net

1. Klik Soluton Explorer 

2. Klik kanan Project 

3. Pilih Manage NuGet Packages 

QRCode vb.Net

4. Muncul Jendela NuGet, pilih Tab Browse >> Cari QRCode

QRCode vb.Net

5. Kemudia Pilih QRCode yang diinginkan dan Install (posisi tekan istall ada di sebelah ujung kanan lihat tombol merah X pada gambar diatas disitulah tombol install dengan tanda panah bawah)

6. Tunggu proses instalasi berhasil.

Catatan:

Jika ingin melihat instalasi berhasil atau belum caranya sama dengan cara mengintall tapi pilih tab Instlled pada jendela NuGet

C. Listing Code

Buka jendela kode lalu Ketikan kode dibawah ini di bagian jendela kode 

Imports System.Drawing.Imaging

Imports QRCoder

Public Class Form1

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        Try

            If String.IsNullOrWhiteSpace(TextBox1.Text) Then

                PictureBox1.Image = Nothing

                Exit Sub

            End If

            Dim generator As New QRCodeGenerator()

            Dim data = generator.CreateQrCode(TextBox1.Text, QRCodeGenerator.ECCLevel.Q)

            Dim qrCode As New PngByteQRCode(data)

            Dim qrBytes As Byte() = qrCode.GetGraphic(20)

            Using ms As New IO.MemoryStream(qrBytes)

                PictureBox1.Image = Image.FromStream(ms)

            End Using

        Catch ex As Exception

            MessageBox.Show("Error: " & ex.Message)

        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If PictureBox1.Image Is Nothing Then

            MessageBox.Show("QRCode belum dibuat.")

            Exit Sub

        End If

        Dim saveDialog As New SaveFileDialog()

        saveDialog.Filter = "PNG Image|*.png"

        saveDialog.Title = "Simpan QR Code"

        If saveDialog.ShowDialog() = DialogResult.OK Then

            PictureBox1.Image.Save(saveDialog.FileName, ImageFormat.Png)

            MessageBox.Show("QRCode berhasil disimpan!")

        End If

    End Sub

End Class

Simpan Project dan jalankan

D. Cara Pengoperasian

1 Ketik Teks pada kotak kosong yang ingin dijadikan input, misal memasukan link https://tipandtrickunikvb.blogspot.com/ maka secara otomatis ketika Anda mulai mengetik QRCode di buat

2. Tekan tombol Simpan untuk menyimpan QRCode yang dibuat

Perhatian:

Ketika hasilnya di Scane di aplikasi Scanner web maka otomatis akan diarahkan ke situs tersebut

Bila di scan dengan scane biasa maka hasilnya https://tipandtrickunikvb.blogspot.com/

Demikianlah artikel singkat pada hari ini tentang Cara Membuat QRCode Secara Real Time di Visual Basic .Net Dengan Cepat dan Mudah, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil.