Membuat Program Perhitungan Sederhana via Visual basic
jika sebelumnya saya membahas tentang membuat program perhitungan sederhana via devC++, saat ini saya akan membuat hal yang sama via visual basic. tentunya bahasanya beda dimana sebelumnya saya menggunakan bahasa C++ dan sekarang saya akan menggunakan bahasa basic.Baiklah saya akan langsung memulainya saja.\
Pertama-tama bukalah program visual basic anda atur tampilan seperti gambar dibawah :
gunakan 2 'label' ;1 'button' ; 1'combobox' ;2 'textbox'. jika telah selesai isikan item pada combobox yaitu:
Tambah
Kurang
Kali
Bagi
usahakan bentuk tampilan akhir menjadi seperti berikut
dan klik dua kali button1 jika mau anda dapat mengubah namanya dan isiikan program berikut :
If ComboBox1.SelectedItem = "Tambah" Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
ElseIf ComboBox1.SelectedItem = "Kurang" Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
ElseIf ComboBox1.SelectedItem = "Kali" Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
ElseIf ComboBox1.SelectedItem = "Bagi" Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
end if
yang ingin download VB nya bisa disini
go.microsoft.com/?linkid=9709969
OK, jika telah selesai maka run program. Sederhanakan? malah lebih mudah dipahami dari C++ sebelumnya, . ok sekian dari saya YA-HA
Pertama-tama bukalah program visual basic anda atur tampilan seperti gambar dibawah :
gunakan 2 'label' ;1 'button' ; 1'combobox' ;2 'textbox'. jika telah selesai isikan item pada combobox yaitu:
Tambah
Kurang
Kali
Bagi
usahakan bentuk tampilan akhir menjadi seperti berikut
dan klik dua kali button1 jika mau anda dapat mengubah namanya dan isiikan program berikut :
If ComboBox1.SelectedItem = "Tambah" Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
ElseIf ComboBox1.SelectedItem = "Kurang" Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
ElseIf ComboBox1.SelectedItem = "Kali" Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
ElseIf ComboBox1.SelectedItem = "Bagi" Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
end if
yang ingin download VB nya bisa disini
go.microsoft.com/?linkid=9709969
OK, jika telah selesai maka run program. Sederhanakan? malah lebih mudah dipahami dari C++ sebelumnya, . ok sekian dari saya YA-HA
0 komentar:
Posting Komentar