Dasar Membaut Aplikasi Jam dengan Menggunakan VB.Net

Pada Form tambahkan beberapa Control ini :

• tambahkan 3 Label
• tambahkan Tool Timer ( ada dimenu : toolbox )

Ubah propertise masing-masing control.

Control	Name	Text
Label1	lblHour	H
Label2	lblMinute	M
Label3	lblSecond	S

 

 gambar diatas adalah tampilan dari form saya,agan bisa mengkreasikan sendiri.

double klik pada control timer,masukan code berikut :

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim Jam As Date
        Jam = DateTime.Now
        lblHour.Text = Jam.Hour.ToString()
        lblMinute.Text = Jam.Minute.ToString()
        lblSecond.Text = Jam.Second.ToString()
        lblDate.Text = Jam.Date.ToString()
    End Sub

selanjutnya pada event Form_load tambahkan code dibawah ini :

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

        Timer1.Start()
    End Sub

kl lengkapnya kayak gini gan :

Public Class Form1

    '###############################################################

    '#                     Aplikasi Jam Digital                    #

    '#------------------------------------------------------------ #

    '#               Code by GaaR4 & Jatim community               #

    '#                                           27 februari 2011  #

    '###############################################################

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

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim Jam As Date

        Jam = DateTime.Now

        lblHour.Text = Jam.Hour.ToString()

        lblMinute.Text = Jam.Minute.ToString()

        lblSecond.Text = Jam.Second.ToString()

        lblDate.Text = Jam.Date.ToString()

    End Sub

End Class

 sekarang agan Run aplikasi agan,jika tidak terjadi eror maka. SELAMAT AGAN BERHASIL.
selanjutnya tinggal Save All.
 Source : http://doctorcode.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Cata Membuat Aplikasi Split Kata "VB.NET"

1.buka aplikasi vb.net anda
2.kita buat project baru : menu file => new project (ctrl+N)
3.kita tambahkan 2 button, 1 textbox, 1 listbox,dan 1 label kedalam form

4.melalui window propertise kita ubah Name dan Text masing-masing control. sesuaikan dengan tabel dibawah ini :

Control	Name	Text
Form	formSplit	Aplikasi split kata
Label	lblSplit	Masukin Kata Disini
TextBox	txtKalimat
ListBox	listSplit
Button1	cmdSplit	Split
Button2	cmdExit	Exit

5.Double klik pada button1 : Split, ketikan code berikut kedalam code editor.

        '###############################################################

        '#                     Aplikasi Split Kata                     #

        '#------------------------------------------------------------ #

        '#               Code by GaaR4 & Jatim community               #

        '#                                           18 februari 2011  #

        '###############################################################

        Dim kalimat As String

        Dim jcomers() As Char = {" "c}

        Dim kata() As String

        kalimat = txtKalimat.Text

        'Pisahkan kata perkata

        kata = kalimat.Split(jcomers)

        'tampilkan kata di listbox

        Dim kata2 As String

        For Each kata2 In kata

            listSplit.Items.Add(kata2)

        Next

    End Sub

jika tidak ada eror pada Eror List,maka bisa dipastikan aplikasi buatan anda siap dijalankan.

silahkan masukkan kalimat yang akan di split.

nah sekarang kita ketikan code pada button2 : Exit yang fungsinya untuk menutup aplikasi,berikut kode nya.( double klik button exit )

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click

        End

    End Sub

oke..aplikasi yang kita buat sudah selesai,sekarang kita save all. ( CTRL+SHIFT+S )

Source:  http://doctorcode.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Aplikasi VB Berjalan Tanpa MSVBVM60.DLL

Sebenarnya judulnya kurang cocok, karena tutor ini hanya merubah nama dari MSVBVM60.DLL menjadi sesuka anda dengan jumlah karakter yang sama.

Program tambahan yang di perlukan

-HEX Editor(Saya pake HEX Workshop)

Caranya

Pertama compile aplikasi anda contoh “Project1.exe”

 

Setelah di compile copy file MSVBVM60.DLL ke direktori file aplikasi anda

 

Buka file MSVBVM60.DLL dengan Hex Editor.

Tekan kombinasi tombol keyboard “Ctrl + F”

Pilih text string untuk tipenya dan tulis valunya “msvbvm”

 

Klik ok, maka anda akan ada text yg di blok hitam. Ganti text MSVBVM60.DLL Sesuka anda. Contoh “HERMANVM.DLL”

Lakukan terus sampai tidak ada lagi tulisan MSVBVM60.DLL

Lakukan Hal yang sama ke program aplikasi anda. (Project1.exe yg tdi)

Dan aplikasi anda dapat berjalan tanpa file MSVBVM60.DLL tapi harus ada file HERMANVM.DLL yg tadi.

Dengan cara ini aplikasi anda dapat berjalan tanpa file msvbvm60.dll

Perbandingan setelah file msvbvm60.dll di hapus dan aplikasi belum di edit

 Seleteah diedit

 

 

Source:  http://herman-march.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Program atau Aplikasi untuk Menghitung Volume Balok

Buatlah form seperti gambar dibawah ini

• Tambahkan tool- tool sebagai berikut :

      Label 5 buah

1. label1 propertiesnya Text = RUMUS VOLUME BALOK
2. label2 propertiesnya Text = Panjang ( P )
3. label3 propertiesnya Text = Lebar (l)
4. label4 propertiesnya Text = Tinggi ( t )
5. label5 propertiesnya Text = Rumus V = p x l x t

     Textbox 4 buah

1. textbox1 propertiesnya: Text = 0,sebagai Panjang
2. textbox2 propertiesnya: Text = 0,sebagai lebar
3. textbox3 propertiesnya: Text = 0,sebagai tinggi
4. textbox4 propertiesnya: Text = 0, untuk menampilkan hasil volume

     Button1 buah

      Button1 propertiesnya: text : Volume = (tombol untuk melakukan perhitungan volume balok)

• Selanjutnya adalah memasukan kode pemprogramannya
• Doubel klik pada button1/Volume =  kemudian copy code dibawah ini

        Dim p As Decimal = TextBox1.Text
        Dim l As Decimal = TextBox2.Text
        Dim t As Decimal = TextBox3.Text
        TextBox4.Text = p * l * t
 

Penjelasan kode pemprogramanya :

Setiap ada variabel kita dahulukan dengan kata dim artinya dimensi kita gunakan AS/sebagai decimal untuk perhitungannya

1. variabel dari panjang disingkat jadi p
2. variabel dari lebar disingkat jadi l
3. variabel dari tinggi disingkat jadi t

Rumus untuk menghitung volum adalah p x l x t
TextBox4.Text = p * l * t

 Source: http://www.tipsh4re.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Cara Membuat Aplikasi Penjualan Alat Tulis Sederhana VB.NET

Membuat Aplikasi Penjualan Alat Tulis Sederhana
Buatlah form seperti gambar dibawah ini

• Tambahkan Tool-toolnya sbb :

Label 7 buah

label1 properties Text = Penjualan alat tulis
label2 properties Text = Alat tulis
label3 properties Text = Harga Satuan
label4 properties Text = JML
label5 properties Text = Buku
label6 properties Text = Pensil
label7 properties Text = Penghapus

Textbox 8 buah

textbox1 propertiesnya: Text = 3000 (harga buku 3000), TextAlign= right (rata kanan)
textbox2 propertiesnya: Text = 2500 (harga pensil 2500), TextAlign= right (rata kanan)
textbox3 propertiesnya: Text = 2000 (harga pensil 2000), TextAlign= right (rata kanan)
textbox4 propertiesnya: Text = 0 , TextAlign= right(rata kanan) untuk menampilkan hasil penjumlahan/total harga
textbox5 propertiesnya: Text = 0, (JML buku)
textbox6 propertiesnya: Text = 0, (JML pensil)
textbox7 propertiesnya: Text = 0, (JML penghapus)
textbox8 propertiesnya: Text = 0, (untuk menampilkan hasil jumlah barang)

Button 1 buah

Button1 propertiesnya : text = total harga (tombol untuk melakukan perhitungan)

• Selanjutnya adalah memasukan kode pemprogramannya
• Doubel klik pada button1/total harga kemudian copy code dibawah ini alangkah baiknya diketik ulang unuk mengetahui bahwa vb.net 2008 bisa mencari kata kunci coding secara otomatis

        Dim bk As Decimal = TextBox1.Text

        Dim ps As Decimal = TextBox2.Text
        Dim ph As Decimal = TextBox3.Text
        Dim JMLbk As Decimal = TextBox5.Text
        Dim JMLps As Decimal = TextBox6.Text
        Dim JMLph As Decimal = TextBox7.Text
        TextBox8.Text = JMLbk + JMLps + JMLph
        TextBox4.Text = (bk * JMLbk) + (ps * JMLps) + (ph * JMLph)

Penjelasan kode pemprogramanya :

Setiap ada variabel kita dahulukan dengan kata Dim artinya dimensi kita gunakan As/sebagai decimal karena perhitungan angka.

• variabel dari buku disingkat jadi bk
• variabel dari pensil disingkat jadi ps
• variabel dari penghapus disingkat jadi ph
• variabel dari Jumlah buku disingkat jadi JMLbk
• dst

Rumus perhitungan

TextBox8.Text = JMLbk + JMLps + JMLph

TextBox8.Text untuk menampilkan jml seluruh barang
menghitung jumlah seluruh barang uang dijual merupakan penjumlahan dari juml buku + jumlah pensil + jumlah penghapus


TextBox4.Text = (bk * JMLbk) + (ps * JMLps) + (ph * JMLph)
TextBox4.Text Menampilkan total harga merupakan penjumlahan dari harga barng x dengan jml barang

Source:  http://www.tipsh4re.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Aplikasi Sederhana Acak Angka (Random) dengan Visual Basic

1.  Buatlah New Project pada software VB anda kemudian tambahkan lima kontrol label, satu kontrol timer dan tiga kontrol commandbutton pada form. Atur desain form seperti pada gambar berikut : 

 Gambar Aplikasi Acak angka 

2.   Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

3.   Klik ganda kontrol Timer, kemudian ketik program berikut :

Private Sub Timer1_Timer()

'label akan menampilkan bilangan acak 0-9'

Label1.Caption = Int(Rnd * 10)

Label2.Caption = Int(Rnd * 10)

Label3.Caption = Int(Rnd * 10)

Label4.Caption = Int(Rnd * 10)

End Sub

Rnd *10 atau Random akan menghasilkan bilangan acak desimal antara

0.12457-9.21654. Sedangkan int(integer) berfungsi untuk membulatkan

bilangan yang dihasilkan dari Rnd *10 dan hasil yang nantinya ditampilkan

adalah bilangan bulat antara 0-9.

Jadi perintah diatas adalah untuk menampilkan bilangan acak angka 0-9 pada

label1, label2, label3 dan label4.

4.  Klik ganda command1 (tombol start), kemudian ketikkan kode/script/listing berikut :

Private Sub Command1_Click()

'time diaktifkan'

Timer1.Enabled = True

'mengosongkan masing-masing label'

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

End Sub

Apabila tombol start diklik maka timer1 akan difungsikan untuk menampilkan bilangan acak pada masing-masing label.

5.  Klik ganda command2 (tombol stop), kemudian ketikkan kode/script/listing berikut :

Private Sub Command2_Click()

'time tidak diaktifkan'

Timer1.Enabled = False

'label 5 akan menampilkan hasil bilangan acak'

Label5.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption

End Sub

Apabila tombol stop diklik, maka proses acak bilangan pada label1, label2, label3 dan label4 akan dihentikan dan hasilnya akan ditampilkan pada label5.

6.  Klik ganda command3(tombol Keluar),kemudian ketikkan kode/script/listing berikut :

Private Sub Command3_Click()

End

End Sub

7.  Jalankan program (F5) dan klik tombol start untuk mulai mengacak angka    lalu tekan tombol stop untuk menghentikannya.

8.  Hasilnya seperti gambar berikut :

 Gambar Hasil Aplikasi Acak Angka 

 Source : http://meriwardana.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Mengirim Email dalam Visual Basic

Contoh Aplikasi Send Mail

Adapun source code untuk vb.net-nya :

01	Public Class frmMain

02

'

03	'This will contain the actual message data to send.

04	Dim message As System.Net.Mail.MailMessage

05

'

06	'The Simple Mail Tranfer Protocol client with the Host and Port number to use. You will

07	'want to change these settings to what you need to use. The host, smtp.gmail.com and port

08	'will work if you have a gmail account.

09	Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)

10

'

11	'Will contain the attachment info to send with the message.

12	Dim attach As System.Net.Mail.Attachment

13

'

14

'

15	Private Sub btnAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAttach.Click

16

'

17	'Create a openDialog object to be able to select a attachment to the mail message.

18	Dim openDLG As New OpenFileDialog

19

20	openDLG.AddExtension = True

21	openDLG.ReadOnlyChecked = True

22	openDLG.Title = "Select the file you want added to the message..."

23

24	If openDLG.ShowDialog = Windows.Forms.DialogResult.OK Then

25

26	txtAttachment.Text = openDLG.FileName

27

28	attach = New System.Net.Mail.Attachment(openDLG.FileName)

29

30

End If

31

32

End Sub

33

34	Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click

35

'

36	'Setup the mail message with the info in the textboxes...

37	message = New System.Net.Mail.MailMessage(txtFrom.Text, txtTo.Text, _

38	txtSubject.Text, txtMessage.Text)

39

'

40	'Need to make sure the attachment exists before adding it to the message.

41	If My.Computer.FileSystem.FileExists(txtAttachment.Text) Then _

42	message.Attachments.Add(attach)

43

'

44	'Use Secure Socket Layer to Encrypt the connection for sending the mail. This needs

45	'be set to "True" if you plan on using GMail as your host.

46	smtp.EnableSsl = True

47

'

48	'Setup your account information for authorization...

49	smtp.Credentials = New System.Net.NetworkCredential(txtUserName.Text, _

50	txtPass.Text)

51

52

Try

53

'

54	'Send the mail message that was setup.

55	smtp.Send(message)

56

'

57	'Usually it was successful in sending the message if it makes it to here :)

58	'Otherwise it should throw a error message from the Catch exception below.

59	MessageBox.Show("Well, the mail message appears to have been a success!", _

60	"  Successful?", MessageBoxButtons.OK, MessageBoxIcon.Information)

61

62	Catch exc As Net.Mail.SmtpException

63

64	MessageBox.Show(exc.StatusCode.ToString, "  Something Happened?", _

65	MessageBoxButtons.OK, MessageBoxIcon.Error)

66

67

End Try

68

69

End Sub

70

71

End Class

Semoga bisa diterapkan diaplikasi vb.net teman-teman. Sekali lg program aplikasi ini menggunakan GMAIL credentials!

Source:  http://herosetyanofario.wordpress.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.