APLIKASI HITUNG JUMLAH TIKET DI VISUAL STUDIO 2010
Assalamualaikum.Wr.Wb
Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat aplikasi hitung jumlah tiket dengan vb 2010 . Untuk script nya sih sama saja dengan vb yang sebelum sebelumnya. Untuk lebih jelasnya berikut ini adalah langkah-langkahnya :
1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
2. Kemudian klik " New project " Seperti gambar di bawah ini
3. Setelah di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "
4. Kemudian akan muncul form kosong seperti gambar di bawah ini
5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih " Button " , " TextBox ", " Label " seperti gambar di bawah ini
6. Setelah itu akan muncul sebuah gambar seperti gambar di bawah ini
7. Kemudian copy script di bawah ini
Public Class Form4
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox10.Text = Val(TextBox1.Text) * 500000
TextBox9.Text = Val(TextBox2.Text) * 250000
TextBox8.Text = Val(TextBox3.Text) * 150000
TextBox7.Text = Val(TextBox4.Text) * 100000
TextBox6.Text = Val(TextBox10.Text) + Val(TextBox9.Text) + Val(TextBox8.Text) + Val(TextBox7.Text)
TextBox5.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
8. Maka hasil akhirnya seperti gambar di bawah ini
Selamat mencoba ... (^_^)
幸運を... (^_^)
EmoticonEmoticon