Cara Membuat File Exe dan Setup di VB.Net dan VB 2010

Cara 1 :

Cara manual ini adalah cara paling mudah untuk menyebarkan aplikasi yang telah Anda buat pada beberapa komputer, caranya yaitu kita hanya perlu mengcopy file .exe dari aplikasi yang telah dibuat. Contohnya Anda telah membuat sebuah aplikasi dengan Visual Studio 2010 dengan nama project Simulasi TA. Ketika aplikasi ini sudah siap untuk digunakan pada beberapa komputer,  Anda hanya perlu mengcopy file sisfo Simulasi.exe yang berada dalam folder “similasi TA/bin/debug/similasi TA.exe”. Lalu copy-paste saja file similasi TA.exe tadi ke komputer – komputer yang akan menggunakan aplikasi ini. File similasi TA.exe yang tadi sudah di copykan hanya perlu di double click saja dan aplikasi tersebut langsung dapat digunakan sebagaimana mestinya.

Cara ke 2 :Dengan cara kedua ini Anda harus membuat file setup.exe untuk aplikasi yang sudah Anda buat, sehingga nantinya aplikasi yang sudah Anda buat akan terinstal dalam sistem komputer seperti ketika Anda menginstal software ke dalam komputer Anda. Bedanya dengan cara pertama yaitu, pada cara pertama aplikasi yang sudah jadi hanya diletakkan dalam komputer dengan cara copy-paste sehingga aplikasi tidak masuk dalam sistem komputer.Untuk membuat file setup.exe caranya adalah:
Buka project yang sudah Anda buat. 

Pilih menu Project – <nama project Anda> Properties 

Setelah jendela properties dari project Anda terbuka kemudian pilih menu publish dari jendela tersebut

Anda tentukan dimana lokasi file hasil publish disimpan pada “Publish Location” 

Pilih Publish Now dan tunggu hingga Visual Studio selesai mempublish project Anda menjadi file setup.exe.

Cara bukanya di  < nama project anda>/bin/debug/app.publish, seperti gambar berikut ini :

Setelah Anda mempunyai file setup dari aplikasi yang Anda buat, selanjutnya Anda install pada komputer yang Anda inginkan dengan mengklik file setup yang ada.

Terima kasih & semoga bermanfaat.

sumber : http://bongkar-it.blogspot.co.id/2011/12/cara-membuat-file-exe-dan-setup-di.html

cara menampilkan grafik pada visual basic

Langkah 1 : Jalankan aplikasi Visual Basic.NET

Langkah 2 : Buat Project baru dan desain Form1 seperti gambar dibawah ini.

Langkah 3 : Atur properties control yang ada di form1 seperti table berikut.

No.            Kontrol                         Properties
1.               Label                            Name : Label1
                                                       Text : Timoresse Grafik Data
2.               Label                            Name : Label2
                                                       Text : Kupang
3.               Label                            Name : Label3
                                                       Text : SoE
4.               Label                            Name : Label4
                                                       Text : Kefamenanu
5.              Label                             Name : Label5
                                                       Text : Atambua
6.              Label                             Name : Label6
                                                       Text : Malaka
7.              TextBox                        Name : TextBox1
                                                       Text : 6500
8.             TextBox                         Name : TextBox2
                                                       Text : 5000
9.             TextBox                         Name : TextBox3
                                                       Text : 4500
10.           TextBox                         Name : TextBox4
                                                       Text : 6000
11.           TextBox                         Name : TextBox5
                                                       Text : 3000
12.           Button                            Name : Button1
                                                       Text : Buat Grafik

Langkah 4 : Masukan Script kode berikut ini ke halaman code program dari form tersebut.

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim graphDrawingArea As Graphics
    Dim bmpDrawingArea As Bitmap
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bmpDrawingArea = New Bitmap(Width, Height)
        graphDrawingArea = Graphics.FromImage(bmpDrawingArea)
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawImage(bmpDrawingArea, 0, 0)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim monday As Integer = CInt(Me.TextBox1.Text) / 100
        Dim tuesday As Integer = CInt(Me.TextBox2.Text) / 100
        Dim wednesday As Integer = CInt(Me.TextBox3.Text) / 100
        Dim thursday As Integer = CInt(Me.TextBox4.Text) / 100
        Dim friday As Integer = CInt(Me.TextBox5.Text) / 100

        graphDrawingArea.Clear(Me.BackColor)

        graphDrawingArea.FillRectangle(New SolidBrush(Color.Red), Me.TextBox1.Left + 5, 280 - monday, 40, monday)
        graphDrawingArea.DrawRectangle(New Pen(Color.Black), Me.TextBox1.Left + 5, 280 - monday, 40, monday)
        graphDrawingArea.FillRectangle(New SolidBrush(Color.Blue), Me.TextBox2.Left + 5, 280 - tuesday, 40, tuesday)
        graphDrawingArea.DrawRectangle(New Pen(Color.Black), Me.TextBox2.Left + 5, 280 - tuesday, 40, tuesday)
        graphDrawingArea.FillRectangle(New SolidBrush(Color.Fuchsia), Me.TextBox3.Left + 5, 280 - wednesday, 40, wednesday)
        graphDrawingArea.DrawRectangle(New Pen(Color.Black), Me.TextBox3.Left + 5, 280 - wednesday, 40, wednesday)
        graphDrawingArea.FillRectangle(New SolidBrush(Color.Brown), Me.TextBox4.Left + 5, 280 - thursday, 40, thursday)
        graphDrawingArea.DrawRectangle(New Pen(Color.Black), Me.TextBox4.Left + 5, 280 - thursday, 40, thursday)
        graphDrawingArea.FillRectangle(New SolidBrush(Color.Turquoise), Me.TextBox5.Left + 5, 280 - friday, 40, friday)
        graphDrawingArea.DrawRectangle(New Pen(Color.Black), Me.TextBox5.Left + 5, 280 - friday, 40, friday)

        graphDrawingArea.DrawRectangle(New Pen(Color.Black), 10, 280, Width - 30, 1)
        Invalidate()
    End Sub
End Class

Langkah 5 : Tekan F5 untuk running dan testing program. Tekan tombol Buat Grafik maka akan tampil grafik seperti gambar dibawah.

 

Terima kasih & semoga bermanfaat.


sumber : http://timoresse.blogspot.com/2014/08/menampilkan-data-dalam-bentuk-grafik.html

cara membuat sms gratis dengan visual basic

Buat folder aplikasi kita, misal D:\SMSKU\

 Buka VB 2008

 Klik  Project lalu klik Add Preference lalu kil browse adan arahkan pada file ATSMS.dll yang sudah kita simpan di C:\Windows\system32\  lalu klik OK

 Buat  aplikasi dengan komponen seperti di bawah ini

Komponen Text Fungsi
Label1         Port Label “Port”
Label2         No HP Label “ No HP”
Label3         Isi SMS Label “ Isi SMS”
Textbox1 Pengisian Port Com (USB)
Textbox2 No HP Pengirim
Textbox3 Isi SMS yang diterima
Buttton1 Koneksi  HP Modem


 Isi listing program dengan source code di bawah ini :

Imports ATSMS

Public Class FUtama
    Private WithEvents oGsmModem As New GSMModem
    Dim TextTerima As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        oGsmModem.Port = “Com” & TextBox1.Text
        oGsmModem.BaudRate = 115200
        oGsmModem.DataBits = 8
        oGsmModem.StopBits = Common.EnumStopBits.One
        oGsmModem.FlowControl = Common.EnumFlowControl.None
        Try
            oGsmModem.Connect()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
            Button1.Text = “CONNECT”
            Return
        End Try

        Try
            oGsmModem.NewMessageIndication = True
        Catch ex As Exception

        End Try
        MsgBox(“HP / Modem Anda Sudah terkoneksi !”, MsgBoxStyle.Information)
        Button1.Text = “DISCONNECT”
    End Sub
    Private Sub oGsmModem_NewMessageReceived(ByVal e As ATSMS.NewMessageReceivedEventArgs) Handles oGsmModem.NewMessageReceived
        TextBox2.Text = e.MSISDN
        TextBox3.Text = e.TextMessage
    End Sub
End Class


 Pasang modem HP, periksa port modem dengan cara membuka device manager,

 Jalankan Aplikasi SMSKU

Isi alamat port seperti yang tertera pada comport serial (USB) pada device manager, misal pada port Com 9 (tulis 9 saja)

Klik tombol CONNECT

 Jika terdapat pesan “Modem Anda Sudah terkoneksi !”, maka coba anda kirim SMS pada nomor HP modem anda melalui HP lain

Jika sudah tampil No HP pengirim dan isi pesan SMS, maka aplikasi yang anda buat sudah benar.


Terima kasih & semoga bermanfaat.



sumber : https://kangobing.wordpress.com/2012/10/15/aplikasi-sms-dengan-vb-net-vb-2008/

Membuiat Animasi Text Berjalan di VB.NET

Nah pertama seperti biasa buat project baru :

Objeck      Propertis                 Value
Label          Text                      Hallo….Hallo…..
Timer1       Enabel                   True            Interval :10
Timer2       Enable                   False          Interval : 10

lalu masukin listingnya :

Sesudah jalankan :

Bila berhasil maka Label1( Hello…Hello….) akan bergerak kekiri dan kekanan.

Terima kasih & semoga bermanfaat.

sumber : https://atmajaaditya.wordpress.com/2012/04/16/membuiat-animasi-text-berjalan-di-vb-net/

Membuat Kamus Sederhana Menggunakan VB2010

Pada bagian ini kita akan membuat kamus sederhana. Kamus ini akan menampilkan kata-kata bahasa inggris dan memberikan definisi dari kata tersebut dengan bahasa inggris.

Tambahkan 2 buah label, 2 textbox, 1 button dan 1 listbox ke dalam form. Ubah text label1 menjadi word, label2 menjadi definiton dan text button menjadi Search. Ubah properties textbox2 menjadi multiline.

Selanjutnya kita kan menambahkan coding ke dalam program. Langkah pertama, klik 2 kali form1 dan masukkan coding berikut:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("aardvark")
        ListBox1.Items.Add("aardwolf")
        ListBox1.Items.Add("aaron")
        ListBox1.Items.Add("aback")
        ListBox1.Items.Add("abacus")
        ListBox1.Items.Add("abaft")
        ListBox1.Items.Add("abalone")
        ListBox1.Items.Add("abandon")
        ListBox1.Items.Add("abandoned")
        ListBox1.Items.Add("abandonment")
        ListBox1.Items.Add("abandons")
        ListBox1.Items.Add("abase")
        ListBox1.Items.Add("abased")
        ListBox1.Items.Add("abasement")
        ListBox1.Items.Add("abash")
        ListBox1.Items.Add("abashed")
        ListBox1.Items.Add("abate")
        ListBox1.Items.Add("abated")
        ListBox1.Items.Add("abatement")
        ListBox1.Sorted = True
    End Sub

Klik 2 kali textbox1 dan masukkan coding berikut:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim Item As String = TextBox1.Text.ToString()
        Dim index As Integer = ListBox1.FindString(Item)
        If index = -1 Then
            ListBox1.SelectedIndex = ListBox1.SelectedIndex
        Else
            ListBox1.SetSelected(index, True)
        End If
    End Sub

Klik 2 kali button1 dan masukkan coding berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "abacus" Then
            TextBox2.Text = "A manual computing device consisting of a frame holding parallel rods strung with movable counters."
        ElseIf TextBox1.Text = "abash" Then
            TextBox2.Text = "To make ashamed or uneasy; disconcert."
        Else
            'A message box will show up if the entered word is not found
            MsgBox("No mathcing results where found")
        End If
    End Sub

Selanjutnya kita akan menambah fungsi dari button1 (search), dimana fungsi dari button1 tersebut juga dapat dilakukan dengan menekan Enter. Klik form1, pada properties ubah AcceptButton menjadi Button1.

Selanjutnya kita akan menambahkan fitur pada listbox1, dimana user dapat meng-klik 2 kali pada listbox1 dan hasilnya akan muncul pada textbox2 (fungsi yang sama jika kita menggunakan button1). Langkah yang harus dilakukan yaitu, klik menu view code kemudian pada kotak General pilih listbox1 dan pada kotak Declarations pilih DoubleClick.

Kemudian masukkan coding berikut:

Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        TextBox1.Text = ListBox1.SelectedItem
        Button1.PerformClick()
    End Sub

Tekan Start Debugging (F5) untuk menjalankan program.



Terima kasih & semoga bermanfaat.



sumber : http://carakitamembuat.blogspot.co.id/2012/07/membuat-kamus-ms-vb-2010.html

Cara Membuat Report Dengan Crystal Report Di VB.net Dengan Database MySQL

Langkah - Langkah yang harus anda lakukan untuk membuat report dengan crystal report 

1. Membuat Datasource.
2. Membuat Report.
3. Menampilkan Report.

1. Membuat Datasource

Pada Artikel ini kalian akan membuat dataset dengan vb.net sebagai datasourcenya lalu menyimpannya dalam format XML.

Kalian harus bisa menghubungkan vb.net dengan sumber data mysql untuk mengerjakan project ini.

Berikut Code/Syntaxnya :

Imports CrystalDecisions.CrystalReports.Engine

Imports System.Data

Imports MySql.Data.MySqlClient

Public Class Form2

    Private myData As New DataSet

    Private conn As New MySqlConnection

    Private cmd As New MySqlCommand

    Private myAdapter As New MySqlDataAdapter

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

        conn.ConnectionString = "server=localhost;uid=root;pwd=123456;database=db_siswa"

        conn.Open()

        cmd.CommandText = "SELECT * from tb_agama"

        cmd.Connection = conn

        myAdapter.SelectCommand = cmd

        myAdapter.Fill(myData)

        myData.WriteXml(Application.StartupPath & "\dataset1.xml", XmlWriteMode.WriteSchema)

    End Sub

End Class

2. Membuat Report 

Hal yang harus diperhatikan dalam membuat reportnya adalah kalian harus mengarahkan sumber data ke ADO.NET (XML)

3. Menampilkan Report 

Berikut ini adalah code/syntax untuk menampilkan reportnya :

    Private Sub FlatButton21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton21.Click

        Form3.Show()

        Form3.CrystalReportViewer1.RefreshReport()

    End Sub

Ini Hasil Dari Reportnya :

Terima kasih & semoga bermanfaat.

sumber : http://oto-ti.blogspot.co.id/2015/03/cara-membuat-report-dengan-crystal.html

Cara Membuat Jam Digital Dengan Visual Basic 6.0

Langkah 1 : Buka Program Visual Basic nya yang sudah terinstal di komputer / laptop kalian.......
Langkah 2 : Pilih Standard EXE seperti pada gambar dibawah ini..!!

Langkah 3 : Setelah dipillih standard exe maka akan muncul form1 ... tambahkan label (no 1) + timer (no 2) ... lihat contoh di bawah ini ...!

Langkah 4 : Nah selanjutnya, Klik pada kotak form1 ganti "caption" dari form1 menjadi "Jam Digital" 
Langkah 5 : Klik Label1 kemudian di properties kosongkan tulisan "label1" yang ada di caption
Langkah 6 : Klik Tanda gambar jam (timer) ,,, di properties, ganti interval dari "0" menjadi "1000"

Langkah 7 : Double klik timer dan masukan kode listing sebagai berikut...!!!

Langkah 8 : Klik tombol start seperti pada gambar dibawah ini .... atau bisa juga pencet F5 pada keyboard kalian ......!!!

Dan Hasilnya .......... :

Terima kasih & semoga bermanfaat.


sumber : http://dika86.blogspot.co.id/2013/08/cara-membuat-jam-digital-dengan-visual.html

Membuat Aplikasi Mengubah Citra Warna Foto menjadi RGB dengan Visual Basic 2010

Langkah 1 : 

1. Buka Aplikasi Visual Basic 2010
2. Buat New Project -> Windows Forms Application
3. Buat Design Aplikasi, Setidaknya seperti berikut :

Isi Form dengan tool berikut :

Toolbox	Properties
PictureBox1	Size Mode : StretchImage BackColor : ControlDark
PictureBox2	Size Mode : StretchImage BackColor : ControlLight
Button1	Text : Open File
Button2	Text : Save
Button3	Text : Merah
Button4	Text : Hijau
Button5	Text : Biru
ProgressBar1	-
OpenFileDialog1	-
SaveFileDialog1	-

Langkah 2 :

• Double Klik Button1 (Open File), Masukan Skrip Berikut 

OpenFileDialog1.Filter = "Images|*.bmp;*.jpg;*.png"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
      PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
      PictureBox1.Width = Convert.ToInt32(PictureBox1.Height * PictureBox1.Image.Width / PictureBox1.Image.Height)
      Me.Text = OpenFileDialog1.FileName & "_" & PictureBox1.Image.Width & " X " & PictureBox1.Image.Height
      ProgressBar1.Minimum = 0 
      ProgressBar1.Maximum = PictureBox1.Image.Width 
End If

• Double Klik Button2 (Save File), Masukan Skrip Berikut 

SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
     PictureBox2.Image.Save(SaveFileDialog1.FileName + ".jpg")
End If

• Double Klik Button3 (Merah), Masukan Skrip Berikut :

ProgressBar1.Value = 0 
Dim gambar As New Bitmap(PictureBox1.Image) 'Deklarasi Variabel bertipe bitmap'
PictureBox2.Image = gambar 'Meletakkan hasil pengolahan citra'
Dim baris, kolom As Integer 'Variabel Perulangan/looping'
Dim Merah As Integer 'Menampung intensitas warna R'
For baris = 1 To gambar.Width - 1
       For kolom = 1 To gambar.Height - 1
              Merah = gambar.GetPixel(baris, kolom).R
              gambar.SetPixel(baris, kolom, Color.FromArgb(Merah, 0, 0))
      Next
      ProgressBar1.Increment(1) 
Next
PictureBox2.Refresh()

• Double Klik Button4 (Hijau), Masukan Skrip Berikut :

ProgressBar1.Value = 0 
Dim gambar As New Bitmap(PictureBox1.Image) 'Deklarasi Variabel bertipe bitmap'
PictureBox2.Image = gambar 'Meletakkan hasil pengolahan citra'
Dim baris, kolom As Integer 'Variabel Perulangan/looping'
Dim Hijau As Integer 'Menampung intensitas warna G'
For baris = 1 To gambar.Width - 1
       For kolom = 1 To gambar.Height - 1
              Hijau = gambar.GetPixel(baris, kolom).G
              gambar.SetPixel(baris, kolom, Color.FromArgb(0, Hijau, 0))
      Next
      ProgressBar1.Increment(1) 
Next
PictureBox2.Refresh()

• Double Klik Button5 (Biru), Masukan Skrip Berikut :

ProgressBar1.Value = 0 
Dim gambar As New Bitmap(PictureBox1.Image) 'Deklarasi Variabel bertipe bitmap'
PictureBox2.Image = gambar 'Meletakkan hasil pengolahan citra'
Dim baris, kolom As Integer 'Variabel Perulangan/looping'
Dim Biru As Integer 'Menampung intensitas warna B'
For baris = 1 To gambar.Width - 1
       For kolom = 1 To gambar.Height - 1
              Biru = gambar.GetPixel(baris, kolom).B
              gambar.SetPixel(baris, kolom, Color.FromArgb(0, 0, Biru))
      Next
      ProgressBar1.Increment(1) 
Next
PictureBox2.Refresh()

Terima kasih & semoga bermanfaat.

sumber : http://www.amuja.com/2015/01/membuat-aplikasi-mengubah-citra-warna.html