Array

Private Sub Command1_Click()                                        
  Dim NamaBulan(12) As String

  NamaBulan(1) = "Januari"
  NamaBulan(2) = "Februari"
  NamaBulan(3) = "Maret"
  NamaBulan(4) = "April"
  NamaBulan(5) = "Mei"
  NamaBulan(6) = "Juni"
  NamaBulan(7) = "Juli"
  NamaBulan(8) = "Agustus"
  NamaBulan(9) = "September"
  NamaBulan(10) = "Oktober"
  NamaBulan(11) = "November"
  NamaBulan(12) = "Desember"

  x = Text1.Text
  Text2.Text = NamaBulan(x)

End Sub


Download Kode di sini

0 komentar:

Poskan Komentar

Starcraft Pointer
 
Web Design by : Givo-Alfajri ..!! ®