PERTEMUAN 2 : 16 ~ FEBRUARI ~ 2015 : CARA MEMBUAT KALKULATOR DI VB 2010

8:49 PM
CARA MEMBUAT KALKULATOR DI VB 2010





Assalamualaikum.Wr.Wb



    Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat Kalkulator di 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 button seperti gambar di bawah ini



7. Kemudian copy script di bawah ini


Public Class Form2
    Dim bil1, bil2, hasil As Single

    Private Sub Form2_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
        bil1 = TextBox1.Text
        bil2 = TextBox2.Text

        hasil = bil1 + bil2
        TextBox3.Text = hasil

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        bil1 = TextBox1.Text
        bil2 = TextBox2.Text

        hasil = bil1 - bil2
        TextBox3.Text = hasil
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        bil1 = TextBox1.Text
        bil2 = TextBox2.Text

        hasil = bil1 * bil2
        TextBox3.Text = hasil
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        bil1 = TextBox1.Text
        bil2 = TextBox2.Text

        hasil = bil1 / bil2
        TextBox3.Text = hasil
    End Sub
End Class

8. Maka hasil akhirnya seperti di bawah ini

Selamat mencoba ... (^_^)

幸運を...
(^_^)

Artikel Terkait

Previous
Next Post »

Formulir Kontak

Name

Email *

Message *