Pernah menggunakan QR Code ? pasti pernah dunk. Jika kalian membuka whatsappweb pasti kalian scan QRCode
Kali ini kita akan Membuat QR Code di VB.Net.
Peralatan & Persiapan :
=======================
. Buka Aplikasi Visual Studio
. Buat New Project
. Buka Form dan Desain seperti screenshoot di bawah ini

. Sebelum masuk ke coding download dulu librarynya disini
. Insert Libraryna
Klik kanan pada Project => AddReferences => Browse => OK
. Setelah itu Mulai Coding
. Berikut Listing Programnya
Demikian sekilas artikel tentang Membuat QR Code di VB.Net yang sangat menarik untuk dipelajari dan dimanfaatkan.
Semoga dapat memberi manfaat
Kali ini kita akan Membuat QR Code di VB.Net.
Peralatan & Persiapan :
=======================
. Buka Aplikasi Visual Studio
. Buat New Project
. Buka Form dan Desain seperti screenshoot di bawah ini

. Sebelum masuk ke coding download dulu librarynya disini
. Insert Libraryna
Klik kanan pada Project => AddReferences => Browse => OK
. Setelah itu Mulai Coding
. Berikut Listing Programnya
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Public Class Form1 | |
Dim QR_Generate As New MessagingToolkit.QRCode.Codec.QRCodeEncoder | |
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged | |
Try | |
PictureBox1.Image = QR_Generate.Encode(TextBox1.Text) | |
Catch ex As Exception | |
MsgBox(ex.Message) | |
End Try | |
End Sub | |
Sub save() | |
Try | |
SaveFileDialog1.Filter = "PNG Image|*.png" | |
SaveFileDialog1.FileName = "QR_Code.png" | |
Dim img As New Bitmap(PictureBox1.Image) | |
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then | |
img.Save(SaveFileDialog1.FileName) | |
End If | |
Catch ex As Exception | |
MsgBox(ex.Message) | |
End Try | |
End Sub | |
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click | |
save() | |
End Sub | |
End Class |
Semoga dapat memberi manfaat
terimaksih infonya sangat bermanfaaat
ReplyDeletewww.kursuskomputer.web.id
consscanFdend_ke Real Breeze Here
ReplyDeleterepiverla