Bismar Maulani: Pemograman

Hari lahir & bintang visual basic

Posted by Bismar Maulani Posted on 19.13 with No comments

Berikut ini adalah salah satu program untuk menentukan hari lahir dan bintang menggunakan visual basic.

Option Explicit
Dim KodeHari As Byte
Dim Hari As String
Dim Tg, Bl As Byte
Dim Btg As String

Private Sub Form_Load()
Command1.Enabled = False
End Sub

Private Sub Text1_Change()
If IsDate(Text1) Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub

Private Sub Command1_Click()
KodeHari = Weekday(Text1)
Tg = Day(Text1)
Bl = Month(Text1)
Select Case KodeHari
Case 1
Hari = "Minggu"
Case 2
Hari = "Senin"
Case 3
Hari = "Selasa"
Case 4
Hari = "Rabu"
Case 5
Hari = "Kamis"
Case 6
Hari = "Jum'at"
Case 7
Hari = "Sabtu"
End Select
If (Tg >= 21 And Bl = 3) Or (Tg <= 20 And Bl = 4) Then
Btg = "ARIES"
ElseIf (Tg >= 21 And Bl = 4) Or (Tg <= 21 And Bl = 5) Then
Btg = "TAURUS"
ElseIf (Tg >= 22 And Bl = 5) Or (Tg <= 21 And Bl = 6) Then
Btg = "GEMINI"
ElseIf (Tg >= 22 And Bl = 6) Or (Tg <= 22 And Bl = 7) Then
Btg = "CANCER"
ElseIf (Tg >= 23 And Bl = 7) Or (Tg <= 22 And Bl = 8) Then
Btg = "LEO"
ElseIf (Tg >= 23 And Bl = 8) Or (Tg <= 22 And Bl = 9) Then
Btg = "VIRGO"
ElseIf (Tg >= 23 And Bl = 9) Or (Tg <= 22 And Bl = 10) Then
Btg = "LIBRA"
ElseIf (Tg >= 23 And Bl = 10) Or (Tg <= 21 And Bl = 11) Then
Btg = "SCORPIO"
ElseIf (Tg >= 22 And Bl = 11) Or (Tg <= 21 And Bl = 12) Then
Btg = "SAGITARIUS"
ElseIf (Tg >= 22 And Bl = 12) Or (Tg <= 20 And Bl = 1) Then
Btg = "CAPRICORN"
ElseIf (Tg >= 21 And Bl = 1) Or (Tg <= 19 And Bl = 2) Then
Btg = "AQUARIUS"
ElseIf (Tg >= 20 And Bl = 2) Or (Tg <= 20 And Bl = 3) Then
Btg = "PISCES"
End If
Text2 = Hari
Text3 = Btg
End Sub

Lampu lalu lintas visual basic

Posted by Bismar Maulani Posted on 09.27 with No comments

Berikut ini adalah salah satu program untuk lampu lalu lintas menggunakan visual basic.

Option Explicit
Dim M As Integer

Private Sub Form_Load()
  Timer1.Interval = 1000
  Timer1.Enabled = True
  M = 10
End Sub

Private Sub Timer1_Timer()
  M = M - 1
  If M > 4 And M < 10 Then
  Shape1.FillColor = vbRed
  Shape2.FillColor = vbBlack
  Shape3.FillColor = vbBlack
  Label1.Caption = M - 4
   ElseIf M > 1 And M < 5 Then
  Shape3.FillColor = vbGreen
  Shape2.FillColor = vbBlack
  Shape1.FillColor = vbBlack
  Label1.Caption = M - 1
  ElseIf M = 1 Then
  Shape2.FillColor = vbYellow
  Shape3.FillColor = vbBlack
  Shape1.FillColor = vbBlack
  Label1.Caption = ""
  M = 10
End If
End sub

Mengurutkan angka visual basic

Posted by Bismar Maulani Posted on 20.50 with 7 comments

Berikut ini adalah salah satu program untuk mengurutkan angka dari kecil ke besar menggunakan visual basic.

Option Explicit
Dim N As Integer, Banyak As Integer
Dim i As Integer, j As Integer
Dim temp As Integer, Data(1000) As Integer

Private Sub Command1_Click()
N = N + 1
Data(N) = Text2
Banyak = CInt(Text1)
If N <= Banyak Then
List1.AddItem "Masukan ke -" & " " & N & " =" & " " & Text2
ElseIf N > Banyak Then
Text2 = ""
N = Banyak
MsgBox "Data yang Anda masukkan sudah pada batasnya"
End If
Text2 = ""
Text2.SetFocus
End Sub

Private Sub Command2_Click()
For i = 1 To N
For j = i + 1 To N
If Data(i) > Data(j) Then
temp = Data(i)
Data(i) = Data(j)
Data(j) = temp
End If
Next j
Next i
List1.AddItem "================"
List1.AddItem "Hasil Urutan dari kecil ke besar"
For i = 1 To N
List1.AddItem Data(i)
Next i
List1.AddItem "================"
End Sub

Private Sub Command3_Click()
List1.Clear
N = 0
Text2 = ""
Text1 = ""
Text1.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

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

Bismar Maulani