Program Penggunaan Option Explisit pada visual basic

Option Explisit digunakan untuk memerintahkan supaya seluruh variabel didefinisikan.  Berikut kode program disamping :

Option Explicit
Dim test1, test2, test3 As Integer

Private Sub Command1_Click()
Dim test1 As String
test1 = "Nusantara"
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub


Private Sub Command2_Click()
test2 = 10
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub

Private Sub Command3_Click()
Const test3 As Single = 90.55
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub
 

Read More … Program Penggunaan Option Explisit pada visual basic

Membuat Program menghitung Luas Lingkaran, Mencari jumlah dan Rata-rata suatu nilai

Private Sub Command1_Click()
Dim luas, keliling As Single
Dim r As Single
Const phi As Single = 3.14
r = Text1.Text
luas = phi * r * r
keliling = 2 * phi * r
Text2.Text = luas
Text3.Text = keliling
End Sub

Private Sub Command2_Click()
Dim nilai1 As Single
Dim nilai2 As Single
Dim nilai3 As Single
Dim jml As Single
Dim rata2 As Single

nilai1 = Text4.Text
nilai2 = Text5.Text
nilai3 = Text6.Text
jml = nilai1 + nilai2 + nilai3
rata2 = jml / 3
Text7.Text = jml
Text8.Text = rata2
End Sub

Read More … Membuat Program menghitung Luas Lingkaran, Mencari jumlah dan Rata-rata suatu nilai

Membuat Program Kalkulator Visual Basic

Kode Program :
Dim hasil As Single
Dim value1 As Single, value2 As Single

Private Sub Option1_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 + value2
Text3.Text = hasil
End Sub

Private Sub Option10_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 = value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option11_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 <> value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option12_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 And value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option13_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 Or value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option14_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = Not value1
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option2_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 - value2
Text3.Text = hasil
End Sub

Private Sub Option3_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 * value2
Text3.Text = hasil
End Sub

Private Sub Option4_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 / value2
Text3.Text = hasil
End Sub

Private Sub Option5_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 & value2
Text3.Text = hasil
End Sub

Private Sub Option6_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 > value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option7_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 < value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option8_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 >= value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option9_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 <= value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Read More … Membuat Program Kalkulator Visual Basic