Bismar Maulani

Bilangan terbesar visual basic

Posted by Bismar Maulani Posted on 20.34 with 1 comment

Berikut ini adalah salah satu program untuk menentukan bilangan terbesar menggunakan visual basic.

Option Explicit
Dim a As Single, b As Single, c As String

Private Sub Command1_Click()
a = CSng(Text1)
b = CSng(Text2)
If a > b Then
c = a
ElseIf b > a Then
c = b
Else
c = "sama saja"
End If
Text3 = c
End Sub
End Sub

Private Sub Command2_Click()
End
End Sub

Bilangan ganjil genap visual basic

Posted by Bismar Maulani Posted on 20.24 with No comments

Berikut ini adalah salah satu program untuk menentukan bilangan ganjil atau genap menggunakan visual basic.

Option Explicit
Dim a As Single, b As String

Private Sub Command1_Click()
a = CSng(Text1)
If a Mod 2 = 0 Then
b = "genap"
Else
b = "ganjil"
End If
Text2 = b
End Sub

Private Sub Command2_Click()
End
End Sub

Nilai angka ke huruf visual basic

Posted by Bismar Maulani Posted on 20.11 with 1 comment

Berikut ini adalah salah satu program untuk konversi nilai angka ke huruf menggunakan visual basic.

Option Explicit
Dim a As Single, b As String

Private Sub Command1_Click()
a = CSng(Text1.Text)
If a >= 90 And a <= 100 Then
b = "A"
ElseIf a >= 80 And a <= 89 Then
b = "B"
ElseIf a >= 70 And a <= 79 Then
b = "C"
ElseIf a >= 60 And a <= 69 Then
b = "D"
ElseIf a >= 0 And a <= 59 Then
b = "E"
Else
b = "HARUS 1-100"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Konversi suhu visual basic

Posted by Bismar Maulani Posted on 09.47 with No comments

Berikut ini adalah salah satu program untuk merubah suhu dari celcius ke reamur dan farenheit menggunakan visual basic.

Option Explicit
Dim c As Single, r As Single, f As Single

Private Sub Command1_Click()
c = CSng(Text1)
r = 4 / 5 * c
f = 9 / 5 * c + 32
Text2 = CCur(r)
Text3 = CCur(f)
End Sub

Private Sub Command2_Click()
End
End Sub

Sisi miring visual basic

Posted by Bismar Maulani Posted on 09.41 with No comments

Berikut ini adalah salah satu program untuk menghitung sisi miring segitiga siku-siku menggunakan visual basic.

Option Explicit
Dim a As Single, b As Single, c As Single

Private Sub Command1_Click()
a = CSng(Text1)
b = CSng(Text2)
c = Sqr((a ^ 2) + (b ^ 2))
Text3 = CCur(c)
End Sub

Private Sub Command2_Click()
End
End Sub

Luas & kel lingkaran visual basic

Posted by Bismar Maulani Posted on 09.37 with No comments

Berikut ini adalah salah satu program untuk menghitung luas dan keliling lingkaran menggunakan visual basic.

Option Explicit
Dim r As Single, l As Single, k As Single

Private Sub Command1_Click()
r = CSng(Text1)
l = 3.14 * (r ^ 2)
k = 2 * 3.14 * r
Text2 = CCur(l)
Text3 = CCur(k)
End Sub

Private Sub Command2_Click()\
End
End Sub

Kalkulator sederhana visual basic

Posted by Bismar Maulani Posted on 22.02 with 2 comments

Berikut ini adalah salah satu program untuk membuat kalkulator sederhana menggunakan visual basic.

Option Explicit
Dim a As Single, b As Single
Dim c As Integer, x As Single

Private Sub Command1_Click()
   a = CSng(Text1)
   b = CSng(Text2)
   c = CInt(Text3)
   Select Case c
      Case 1
         x = a + b
Case 2
   x = a - b
      Case 3
     x = a * b
      Case 4
     x = a / b
      Case Else
     MsgBox "pilahan hanya 1-4"
   End Select
   Text4 = CCur(x)
End Sub

Private Sub Command2_Click()
   End
End Sub