Membuat Aplikasi Windows Sederhana DENGAN VISUAL STUDIO 2010

Tutorial Visual Basic .Net Tutorial Visual Basic .Net Membuat Aplikasi Windows Sederhana

 ADI L. HADISAPUTRA Jumat, September 19, 2014  1 Comment

18SHARES

1

Tweet

17

Like

0
inShare

Salam. Baik. Selamat datang kembali di tutorial visual basic.net dalam kanalkode.ilmuwebsite.com... 

Baiklah pada tutorial kali ini kita akan coba membahas mengenai bagaimana membuat aplikasi windows dengan form input sederhana menggunakan environment Visual Studio 2010. 

Baik aplikasi yang akan kita buat kali ini adalah input biodata diri anda...

mungkin kita langsung saja pada pembuatan aplikasi selamat mengikuti...

1. Buka Aplikasi Visual Studio 2010

2. Pilih new Project.

Tampilan awal projek vb.net

3. Berinama projectnya misalkan “ProjectLatihan”. Lalu anda pilih Windows Form Aplication lalu pilih OK

dialog new project

4. Kemudian akan masuk pada area kerja visual basic.net

workspace

5. Lalu buat lah desain Form seperti berikut ini:

Desain Form Biodata

Keterangan Desain Form Biodata

Keterangan Properties:

Objek	Properties
Form1	Text           : Input Biodata Name       : frmBiodata
Label1	Text           :  Form Biodata
Label2	Text           :  Nama Depan
Label3	Text           :  Nama Belakang
Label4	Text           :  Tempat Lahir
Label5	Text           :  Tanggal Lahir
Label6	Text           :  Jenis Kelamin
Label7	Text           :  Alamat
Textbox1	Name       :  txtNamaDepan TabIndex :  1
Textbox2	Name       :  txtNamaBelakang TabIndex :  2
Textbox3	Name       :  txtTempatLahir TabIndex :  3
Textbox4	Name       :  txtAlamat TabIndex :  7
Datepicker1	Name       :  dtpTglLahir TabIndex :  4
Radiobutton1	Text           :  Laki-Laki Name       :  rdLaki TabIndex :  5
Radiobutton2	Text           :  Perempuan Name       :  rdPerempuan TabIndex :  6
Button1	Text           :  Ok Name       :  btnOk TabIndex :  8
Button2	Text           :  Cancel Name       :  btnCancel TabIndex :  9

Berikut adalah cara mengatur properties objek pada Visual Studio 2010

Pengaturan properties objek

6. Kemudian buat form baru, berikut adalah desain formnya:

Menambah form baru apda pr

Menambah Form

Desain Form Hasil

Keterangan Properties

Objek	Properties
Form1	Text           : Biodata Name       : frmHasil
Label1	Text           :  Biodata Anda
Label2	Text           :  Nama Anda
Label3	Text           :  Anda Lahir di
Label4	Text           :  Pada Tanggal
Label5	Text           :  Tanggal Lahir
Label6	Text           :  Anda Seorang
Label7	Text           :  Anda Tinggal di
Label8	Text           :  Nama Name       :  lblNama
Label9	Text           :  Tempat Lahir Name       :  lblTempatLahir
Label10	Text           :  Tanggal Lahir Name       :  lblTanggalLahir
Label11	Text           :  Jenis Kelamin Name       :  lblJenisKelamin
Label12	Text           :  Alamat Name       :  lblAlamat

7. Selanjutnya kita berikan event pada btnOk, caranya anda klik 2x pada btnOk

Menambahkan event pada objek form

8. Lalu akan muncul perintah seperti dibawah ini:

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

End Sub

9. Lalu ketikan perintah dibawah ini diatas perintah tadi Private Sub btnOk_Click

'Dekalarasi Variabel
'Variabel namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin didefinisikan
'sebagai variabel bertype string
Dim namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin As String
'variabel tglLahir didefinisikan bertype Date
Dim tglLahir As Date

Untuk lebih jelasnya lihat kode dibawah ini

'Dekalarasi Variabel
'Variabel namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin didefinisikan
'sebagai variabel bertype string
Dim namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin As String
'variabel tglLahir didefinisikan bertype Date
Dim tglLahir As Date


Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

End Sub

10. Lalu masukkan perintah ini didalam didalam perintah ini Private Sub btnOk_Click

'Mengisi setiap variabel dari input form

'Mengisi variabel namaDepan dari input txtNamaDepan
namaDepan = txtNamaDepan.Text
'Mengisi variabel namaBelakang dari input txtNamaBelakang
namaBelakang = txtNamaBelakang.Text
'Mengisi variabel tempatLahir dari input txtTempatLahir
tempatLahir = txtTempatLahir.Text
'Mengisi variabel tglLahir dari input txtTglLahir
tglLahir = dtpTglLahir.Value

'Jika objek rdLaki yang di pilih
If rdLaki.Checked = True Then
    'Mengisi variabel jenisKelamin dari input rdLaki
    jenisKelamin = rdLaki.Text

    'Selain itu
Else
    'Mengisi variabel jenisKelamin dari input rdPerempuan
    jenisKelamin = rdPerempuan.Text

End If

alamat = txtAlamat.Text

'Menampilkan form lain yang bernama frmHasil
frmHasil.Show()

'Menampilkan isi dalam variabel kedalam label yang ada pada frmHasil
'Label lblNama menampilkan isi dari variabel namaDepan dan namaBelakang
frmHasil.lblNama.Text = namaDepan + " " + namaBelakang
'Label lblTempatLahir menampilkan isi dari variabel tempatLahir
frmHasil.lblTempatLahir.Text = tempatLahir
'Label lblTanggalLahir menampilkan isi dari variabel tanggal lahir
'dengan format long date (ex: 30 Januari 1989)
frmHasil.lblTanggalLahir.Text = FormatDateTime(tglLahir, DateFormat.LongDate)
'Label lblJenisKelamin menampilkan isi dari variabel jenisKelamin
frmHasil.lblJenisKelamin.Text = jenisKelamin
'Label lblAlamat menampilkan isi dari variabel alamat
frmHasil.lblAlamat.Text = alamat

--

Untuk lebih jelasnya lihat perintah dibawah ini

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

'Mengisi setiap variabel dari input form

'Mengisi variabel namaDepan dari input txtNamaDepan
namaDepan = txtNamaDepan.Text
'Mengisi variabel namaBelakang dari input txtNamaBelakang
namaBelakang = txtNamaBelakang.Text
'Mengisi variabel tempatLahir dari input txtTempatLahir
tempatLahir = txtTempatLahir.Text
'Mengisi variabel tglLahir dari input txtTglLahir
tglLahir = dtpTglLahir.Value

'Jika objek rdLaki yang di pilih
If rdLaki.Checked = True Then
    'Mengisi variabel jenisKelamin dari input rdLaki
    jenisKelamin = rdLaki.Text

    'Selain itu
Else
    'Mengisi variabel jenisKelamin dari input rdPerempuan
    jenisKelamin = rdPerempuan.Text

End If

alamat = txtAlamat.Text

'Menampilkan form lain yang bernama frmHasil
frmHasil.Show()

'Menampilkan isi dalam variabel kedalam label yang ada pada frmHasil
'Label lblNama menampilkan isi dari variabel namaDepan dan namaBelakang
frmHasil.lblNama.Text = namaDepan + " " + namaBelakang
'Label lblTempatLahir menampilkan isi dari variabel tempatLahir
frmHasil.lblTempatLahir.Text = tempatLahir
'Label lblTanggalLahir menampilkan isi dari variabel tanggal lahir
'dengan format long date (ex: 30 Januari 1989)
frmHasil.lblTanggalLahir.Text = FormatDateTime(tglLahir, DateFormat.LongDate)
'Label lblJenisKelamin menampilkan isi dari variabel jenisKelamin
frmHasil.lblJenisKelamin.Text = jenisKelamin
'Label lblAlamat menampilkan isi dari variabel alamat
frmHasil.lblAlamat.Text = alamat

End Sub

11. Lalu kita beri event pada tombol Cancel, caranya sebagai berikut: Pilih pada bagian event objek, lalu pilih eventnya. Bingungkan! :D . Untuk lebih jelasnya lihat gambar di bawah ini:

Memilih objek lain untuk diberikan event

Atau anda dapat klik 2x pada tombol Cancel, seperti pada tombol Ok

12. Lalu masukan perintah berikut ini pada fungsi btnCancel_Click...

'Event ketika tombol cancel diklik
Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click

     Me.Close() 'Menutup form

End Sub

13. Lalu tekan F5, atau klik tombol Play pada visual studio untuk melakukan tes program.

Tombol Play atau Run Program

14. Jika benar maka hasilnya akan terlihat seperti berikut ini

Hasil AKhir Form Input Biodata

windows dengan form input sederhana menggunakan environment Visual Studio 2010. 

Baik aplikasi yang akan kita buat kali ini adalah input biodata diri anda...

mungkin kita langsung saja pada pembuatan aplikasi selamat mengikuti...

1. Buka Aplikasi Visual Studio 2010

2. Pilih new Project.

Tampilan awal projek vb.net

3. Berinama projectnya misalkan “ProjectLatihan”. Lalu anda pilih Windows Form Aplication lalu pilih OK

dialog new project

4. Kemudian akan masuk pada area kerja visual basic.net

workspace

5. Lalu buat lah desain Form seperti berikut ini:

Desain Form Biodata

Keterangan Desain Form Biodata

Keterangan Properties:

Objek	Properties
Form1	Text           : Input Biodata Name       : frmBiodata
Label1	Text           :  Form Biodata
Label2	Text           :  Nama Depan
Label3	Text           :  Nama Belakang
Label4	Text           :  Tempat Lahir
Label5	Text           :  Tanggal Lahir
Label6	Text           :  Jenis Kelamin
Label7	Text           :  Alamat
Textbox1	Name       :  txtNamaDepan TabIndex :  1
Textbox2	Name       :  txtNamaBelakang TabIndex :  2
Textbox3	Name       :  txtTempatLahir TabIndex :  3
Textbox4	Name       :  txtAlamat TabIndex :  7
Datepicker1	Name       :  dtpTglLahir TabIndex :  4
Radiobutton1	Text           :  Laki-Laki Name       :  rdLaki TabIndex :  5
Radiobutton2	Text           :  Perempuan Name       :  rdPerempuan TabIndex :  6
Button1	Text           :  Ok Name       :  btnOk TabIndex :  8
Button2	Text           :  Cancel Name       :  btnCancel TabIndex :  9

Berikut adalah cara mengatur properties objek pada Visual Studio 2010

Pengaturan properties objek

6. Kemudian buat form baru, berikut adalah desain formnya:

Menambah form baru apda pr

Menambah Form

Desain Form Hasil

Keterangan Properties

Objek	Properties
Form1	Text           : Biodata Name       : frmHasil
Label1	Text           :  Biodata Anda
Label2	Text           :  Nama Anda
Label3	Text           :  Anda Lahir di
Label4	Text           :  Pada Tanggal
Label5	Text           :  Tanggal Lahir
Label6	Text           :  Anda Seorang
Label7	Text           :  Anda Tinggal di
Label8	Text           :  Nama Name       :  lblNama
Label9	Text           :  Tempat Lahir Name       :  lblTempatLahir
Label10	Text           :  Tanggal Lahir Name       :  lblTanggalLahir
Label11	Text           :  Jenis Kelamin Name       :  lblJenisKelamin
Label12	Text           :  Alamat Name       :  lblAlamat

7. Selanjutnya kita berikan event pada btnOk, caranya anda klik 2x pada btnOk

Menambahkan event pada objek form

8. Lalu akan muncul perintah seperti dibawah ini:

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

End Sub

9. Lalu ketikan perintah dibawah ini diatas perintah tadi Private Sub btnOk_Click

'Dekalarasi Variabel
'Variabel namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin didefinisikan
'sebagai variabel bertype string
Dim namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin As String
'variabel tglLahir didefinisikan bertype Date
Dim tglLahir As Date

Untuk lebih jelasnya lihat kode dibawah ini

'Dekalarasi Variabel
'Variabel namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin didefinisikan
'sebagai variabel bertype string
Dim namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin As String
'variabel tglLahir didefinisikan bertype Date
Dim tglLahir As Date


Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

End Sub

10. Lalu masukkan perintah ini didalam didalam perintah ini Private Sub btnOk_Click

'Mengisi setiap variabel dari input form

'Mengisi variabel namaDepan dari input txtNamaDepan
namaDepan = txtNamaDepan.Text
'Mengisi variabel namaBelakang dari input txtNamaBelakang
namaBelakang = txtNamaBelakang.Text
'Mengisi variabel tempatLahir dari input txtTempatLahir
tempatLahir = txtTempatLahir.Text
'Mengisi variabel tglLahir dari input txtTglLahir
tglLahir = dtpTglLahir.Value

'Jika objek rdLaki yang di pilih
If rdLaki.Checked = True Then
    'Mengisi variabel jenisKelamin dari input rdLaki
    jenisKelamin = rdLaki.Text

    'Selain itu
Else
    'Mengisi variabel jenisKelamin dari input rdPerempuan
    jenisKelamin = rdPerempuan.Text

End If

alamat = txtAlamat.Text

'Menampilkan form lain yang bernama frmHasil
frmHasil.Show()

'Menampilkan isi dalam variabel kedalam label yang ada pada frmHasil
'Label lblNama menampilkan isi dari variabel namaDepan dan namaBelakang
frmHasil.lblNama.Text = namaDepan + " " + namaBelakang
'Label lblTempatLahir menampilkan isi dari variabel tempatLahir
frmHasil.lblTempatLahir.Text = tempatLahir
'Label lblTanggalLahir menampilkan isi dari variabel tanggal lahir
'dengan format long date (ex: 30 Januari 1989)
frmHasil.lblTanggalLahir.Text = FormatDateTime(tglLahir, DateFormat.LongDate)
'Label lblJenisKelamin menampilkan isi dari variabel jenisKelamin
frmHasil.lblJenisKelamin.Text = jenisKelamin
'Label lblAlamat menampilkan isi dari variabel alamat
frmHasil.lblAlamat.Text = alamat

--

Untuk lebih jelasnya lihat perintah dibawah ini

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

'Mengisi setiap variabel dari input form

'Mengisi variabel namaDepan dari input txtNamaDepan
namaDepan = txtNamaDepan.Text
'Mengisi variabel namaBelakang dari input txtNamaBelakang
namaBelakang = txtNamaBelakang.Text
'Mengisi variabel tempatLahir dari input txtTempatLahir
tempatLahir = txtTempatLahir.Text
'Mengisi variabel tglLahir dari input txtTglLahir
tglLahir = dtpTglLahir.Value

'Jika objek rdLaki yang di pilih
If rdLaki.Checked = True Then
    'Mengisi variabel jenisKelamin dari input rdLaki
    jenisKelamin = rdLaki.Text

    'Selain itu
Else
    'Mengisi variabel jenisKelamin dari input rdPerempuan
    jenisKelamin = rdPerempuan.Text

End If

alamat = txtAlamat.Text

'Menampilkan form lain yang bernama frmHasil
frmHasil.Show()

'Menampilkan isi dalam variabel kedalam label yang ada pada frmHasil
'Label lblNama menampilkan isi dari variabel namaDepan dan namaBelakang
frmHasil.lblNama.Text = namaDepan + " " + namaBelakang
'Label lblTempatLahir menampilkan isi dari variabel tempatLahir
frmHasil.lblTempatLahir.Text = tempatLahir
'Label lblTanggalLahir menampilkan isi dari variabel tanggal lahir
'dengan format long date (ex: 30 Januari 1989)
frmHasil.lblTanggalLahir.Text = FormatDateTime(tglLahir, DateFormat.LongDate)
'Label lblJenisKelamin menampilkan isi dari variabel jenisKelamin
frmHasil.lblJenisKelamin.Text = jenisKelamin
'Label lblAlamat menampilkan isi dari variabel alamat
frmHasil.lblAlamat.Text = alamat

End Sub

11. Lalu kita beri event pada tombol Cancel, caranya sebagai berikut: Pilih pada bagian event objek, lalu pilih eventnya. Bingungkan! :D . Untuk lebih jelasnya lihat gambar di bawah ini:

Memilih objek lain untuk diberikan event

Atau anda dapat klik 2x pada tombol Cancel, seperti pada tombol Ok

12. Lalu masukan perintah berikut ini pada fungsi btnCancel_Click...

'Event ketika tombol cancel diklik
Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click

     Me.Close() 'Menutup form

End Sub

13. Lalu tekan F5, atau klik tombol Play pada visual studio untuk melakukan tes program.

Tombol Play atau Run Program

14. Jika benar maka hasilnya akan terlihat seperti berikut ini

Hasil AKhir Form Input Biodata

Lanjutkan Membaca

Membuat Aplikasi Alarm dengan Visual Basic 2010 (VB.NET)

          Kali ini ane lagi coba iseng-iseng buat bikin program di visual basic. Yang gw share kali ini adalah membuat aplikasi reminder (alarm). Awalnya kalian harus install dulu tools yang namanya visual studio 2010. Terserah deh mau express, ultimate, ataupun professional. Mula-mula anda masuk dulu ke tools tersebut, kayak gambar ini nih.

Trus klik aja tuh File -> New -> Project. Lalu kalian pilih Visual basic windows lalu klik Windows Form Application. Kemudian namain projectnya terserah kalian.

Nah karena kita buat aplikasi alarm maka harus ada suara kannnnn. Berarti kita harus buat sebuah kelas yang menjalankan suara tersebut agar bisa diakses. Caranya klik kanan di project trus add -> class. Kalo gw sih gw namain kelasnya mulaisuara.vb. Tampilannya nanti bakal kayak gini. 

Nah abis itu masukin deh file suara yang bakal buat bunyi alarm kalian. Filenya .wav. Kalo gw sih pake suara ayam hehe namanya Rooster.wav.

Setelah itu buka kelas mulaisuara.vb trus ketik code ini :

Imports System.IO

Imports System.Reflection

Imports System.Runtime.InteropServices

Public Class mulaisuara

    Private Declare Auto Function PlaySound Lib "winmm.dll" ( _

    ByVal pszSound As IntPtr, _

    ByVal hModule As IntPtr, _

    ByVal dwFlags As Int32 _

    ) As Boolean

    Private Const SND_ASYNC As Int32 = &H1

    Private Const SND_MEMORY As Int32 = &H4

    Private Const SND_LOOP As Int32 = &H8

    Private Const SND_PURGE As Int32 = &H40

    Private Shared m_hgData As IntPtr

    Public Shared Sub Play(ByVal Name As String, ByVal [Loop] As Boolean)

        If Not m_hgData.Equals(IntPtr.Zero) Then

            StopPlaying()

        End If

        ' get the namespace

        Dim strNameSpace As String = System.Reflection.Assembly.GetExecutingAssembly().GetName().Name.ToString()

        ' get the resource into a stream

        Dim st As Stream = _

        System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream(strNameSpace + "." + Name)

        If st Is Nothing Then Exit Sub

        Dim intLength As Integer = CInt(st.Length)

        Dim abyt(intLength - 1) As Byte

        st.Read(abyt, 0, intLength)

        st.Close()

        m_hgData = Marshal.AllocHGlobal(intLength)                                   

        Marshal.Copy(abyt, 0, m_hgData, intLength)

        Dim Flags As Int32 = SND_MEMORY Or SND_ASYNC

        If [Loop] Then

            Flags = Flags Or SND_LOOP

        End If

        PlaySound( _

        m_hgData, _

        IntPtr.Zero, _

        Flags _

        )

    End Sub

    Public Shared Sub [Stop]()

        If Not m_hgData.Equals(IntPtr.Zero) Then

            StopPlaying()

        End If

    End Sub

    Private Shared Sub StopPlaying()

        PlaySound(IntPtr.Zero, IntPtr.Zero, SND_PURGE)

        Marshal.FreeHGlobal(m_hgData)

        m_hgData = IntPtr.Zero

    End Sub

End Class

Lalu kalian buka form1.vb yang merupakan tampilan aplikasi anda. Terus kalian buat tampilannya kayak gini.

Spesifikasi toolboxnya kayak gini nih :

Label1                                  : Text= Set Alarm

Label2                                    Text= Pesan

Button1                                 : Name=stopp

                                               Text=STOP!

Button2                                 : Name=OKbut

                                               Text=OK

DateTimePicker                     :Name=dtpAlarm

                                               Format=Time

TextBox                                 :Name=pesantb

Timer                                     :Name=Timeralarm

Nah misalkan udah , kalian klik kanan tuh Form1.vb trus klik deh View Code. Disinilah kita bersenang-senang (ngoding) :D.

Ketik aja nih codenya :

Public Class Form1

    'property yang digunakan untuk mengambil nilai dari datetimepicker

    Public Property waktu_alarm As DateTime

        Get

            Return dtpAlarm.Value

        End Get

        Set(ByVal value As DateTime)

            dtpAlarm.Value = value

        End Set

    End Property

    ''' <summary>

    ''' '''''''''''''''''''''''cekkkk

    ''' </summary>

    ''' <remarks></remarks>

  

    Private Sub RollTime()

        If DateTime.Now.TimeOfDay.CompareTo(waktu_alarm.TimeOfDay) > 0 Then

            waktu_alarm = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day + 1, _

            waktu_alarm.Hour, waktu_alarm.Minute, waktu_alarm.Second)

        Else

            waktu_alarm = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day, _

            waktu_alarm.Hour, waktu_alarm.Minute, waktu_alarm.Second)

        End If

    End Sub

    ''' <summary>

    ''' ''''''''''''''''''''''''''''''''''''''''''''''

    ''' </summary>

 

    Dim pesannya As String

    Private Sub Timeralarm_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesTimeralarm.Tick

        If DateTime.Now.CompareTo(waktu_alarm) >= 0 Then

            'memastikan apakah alarm berlaku untuk hari ini atau besok

            RollTime()

            'pesan yang ditampilkan pada balloon tip

            'AlarmNotifyIcon.BalloonTipText = IIf(txtMessage.Text.Length > 0, txtMessage.Text, "Attention!")

            mulaisuara.Play("Rooster.wav", 2)

            stopp.Enabled = True

            wait.Text = "Alarm Selesai"

            MessageBox.Show(pesannya, "Pesan")

        End If

    End Sub

    ''' <summary>

    ''' '''''''''''''

    ''' </summary>

    ''' <param name="sender"></param>

    ''' <param name="e"></param>

    ''' <remarks></remarks>

    Private Sub OKbut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKbut.Click

        If (pesantb.Text = "") Then

            MessageBox.Show("Pesan wajib dimasukan !!!!")

        Else

            Timeralarm.Enabled = True

            MessageBox.Show("Alarm Berhasil Dibuat")

            pesannya = pesantb.Text

            pesantb.Text = ""

            wait.Visible = True

            'wait.Text = waktua

            wait.Text = "Alarm Telah Dibuat"

        End If

       

    End Sub

    Dim msg As MsgBoxResult

    Private Sub stopp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopp.Click

        mulaisuara.Stop()

        stopp.Enabled = False

        MessageBox.Show("Terima Kasih", "Nice Program :D")

        'msg = MessageBox("a", vbYesNo)

        Application.Exit()

        '        Timeralarm.Stop()

        '      .Timeralarm.Enabled = False

    End Sub

End Class

Kalo udah silahkan di run deh aplikasinya. Oh iya catatan, aplikasi ini ga run di background jadi aplikasi harus aktif biar bisa berjalan sesuai keinginan.Semoga bermanfaat :D, selamat coding !!! .

Kalo yang mau langsung download source codenya langsung aja klik DOWNLOAD.

Lanjutkan Membaca