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

Untuk instalasi ini ada 2 cara, cara pertama yaitu cara manual dan cara kedua adalah dengan membuat file setup.exe untuk menginstal aplikasi yang telah dibuat tadi.

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 tersebutAnda 

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 membuat form utama pada vb.net

Langsung saja kita bahas cara untuk membuatnya adalah sebagai berikut:

Buka aplikasi vb. net anda
Klik New Project
Buat sebuah WindowsApplication
Buat dua buah Form dan MenuStrip pada Form1
Ubah Properties From1 : IsMdiContainer = True

Buat 1 buah item pada MenuStrip dan beri nama yang anda inginkan, dan dibagian bawah item yang anda buat tadi buat satu buah item lagi dengan nama Form2 karena kita akan memanggil Form2

Klik 2 kali pada MenuStrip Form2 yang kita buat tadi dan ketikkan script berikut:

Form2.Show()
Form2.MdiParent = Me

Penjelasan Code:
From2.Show() : Memberikan perintah untuk menampilkan Form2
Form2.MdiParent = Me : Menyatakan bahwa Form2 sebagai MDIChild, dan Form1 adalah MDIParent



Terima kasih & semoga bermanfaat


sumber : http://oceancod.blogspot.co.id/2015/03/buat-mdi-parent-form-menu-pada-vb-net.html

Cara Membuat Translator Dengan VB.NET

Buka http://localhost/phpmyadmin kemudian buat database

Disini saya membuat database dengan nama translator, kemudian membuat tiga table yang akan menampung data dari kalimat, frasa, dan kata. masing - masing table memuat tiga kolom yaitu sebagai berikut.

Name	Property
id	int, primary, auto_increments
ind	varchar(255)
jawa	varchar(255) Setelah membuat tiga table dengan instruksi diatas, sekarang isi masing - masing table sesuai dengan jenisnya, kalimat isi dengan kalimat. contoh ind = "aku cinta kamu" : jawa = "aku tresno karo awakmu" begitupun dengan frasa dan kata, usahakan isi dengan sebanyak banyaknya. gunanya adalah, contoh ketika kita ingin mentranslate "aku cinta kamu dan aku anak nakal" maka aku cinta kamu akan diterjemahkan dengan menggunakan table kalimat karena kita sudah memasukkan kata kunci "aku cinta kamu" dengan terjemahan "aku tresno karo awakmu" sedangkan "aku anak nakal" tidak ada di table kalimat maka akan diterjemahkan perkata yang diambil dari table kata. bingung ? bagus berarti anda mulai berfikir ;) proses selanjutnya adalah mulai membuat aplikasinya dari visual studio. Buat project baru di visual studio dengan type Windows Form Application dengan nama "Translator Bahasa Jawa" Kemudian tambahkan 2 label, 2 textbox dengan properti "Multi Line:true" dan satu button. kemdian tambah reference dengan cara menu bar ->Project->Add Reference.. Pilih MySql.Data ketik code dibawah ini ke dalam module database Imports MySql.Data.MySqlClient Module database     Public cnn As MySqlConnection     Public dr As MySqlDataReader     Public cmd As MySqlCommand     Public Sub konek()         cnn = New MySqlConnection("server=localhost;user id=root;password=;database=translator;")         Try             cnn.Open()         Catch ex As Exception             MsgBox(ex.Message)         End Try     End Sub End Module kemudian pada form1 silahkan ketik code dibawah ini Imports MySql.Data.MySqlClient Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         konek()     End Sub     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         TextBox2.Text = TextBox1.Text & " "         On Error Resume Next         cmd = New MySqlCommand("select * from kalimat", cnn)         dr = cmd.ExecuteReader         While dr.Read             If TextBox2.Text.Contains(dr.Item(1).ToString & " ") Then                 TextBox2.Text = TextBox2.Text.Replace(dr.Item(1).ToString & " ", dr.Item(2).ToString & " ")             End If         End While         dr.Close()         frasa()     End Sub     Sub frasa()         cmd = New MySqlCommand("select * from frasa", cnn)         dr = cmd.ExecuteReader         While dr.Read             If TextBox2.Text.Contains(dr.Item(1).ToString & " ") Then                 TextBox2.Text = TextBox2.Text.Replace(dr.Item(1).ToString & " ", dr.Item(2).ToString & " ")             End If         End While         dr.Close()         kata()     End Sub     Sub kata()         cmd = New MySqlCommand("select * from kata", cnn)         dr = cmd.ExecuteReader         While dr.Read             If TextBox2.Text.Contains(dr.Item(1).ToString & " ") Then                 TextBox2.Text = TextBox2.Text.Replace(dr.Item(1).ToString & " ", dr.Item(2).ToString & " ")             End If         End While         dr.Close()     End Sub End Class Kemudian jalankan aplikasi dengan cara tekan F5, sukses !!! Terima kasih & semoga bermanfaat sumber : http://coder-wa.blogspot.co.id/2014/08/membuat-translator-dengan-vbnet-tutorial.html

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/