 | MENU |
|
|
| | Visual Basic 6.0 |
|
|
| | Microsoft SQL Server |
|
|
| | Visual Basic 6.0 Database |
|
|
| | Upgrade VB 6.0 ke VB.NET |
|
|
| | Visual Basic .NET Dasar |
|
|
| | Visual Basic .NET Database |
|
|
| | Active Server Page (ASP) |
|
|
| | | Program Ramalan |
|
|
| | ASP.NET Database |
|
|
| | Quick Basic |
|
|
|
Procedure
|
Option Explicit
Public sNamaBulan As String
'-------------------
Public Sub NamaBulan(i)
If i = 1 Then
sNamaBulan = "januari"
ElseIf i = 2 Then
sNamaBulan = "Februari"
ElseIf i = 3 Then
sNamaBulan = "Maret"
ElseIf i = 4 Then
sNamaBulan = "April"
ElseIf i = 5 Then
sNamaBulan = "Mei"
ElseIf i = 6 Then
sNamaBulan = "Juni"
ElseIf i = 7 Then
sNamaBulan = "Juli"
ElseIf i = 8 Then
sNamaBulan = "Agustus"
ElseIf i = 9 Then
sNamaBulan = "September"
ElseIf i = 10 Then
sNamaBulan = "Oktober"
ElseIf i = 11 Then
sNamaBulan = "November"
ElseIf i = 12 Then
sNamaBulan = "Desember"
Else
sNamaBulan = "index salah"
End If
End Sub
Contoh pemanggilan Procedure:
Private Sub Command1_Click()
NamaBulan Text1.Text
Text2.Text = sNamaBulan
End Sub
Download kode di sini
'-------------------------------------
Function
Public Function NamaHari(i) As String
If i = 1 Then
NamaHari = "Minggu"
ElseIf i = 2 Then
NamaHari = "Senin"
ElseIf i = 3 Then
NamaHari = "Selasa"
ElseIf i = 4 Then
NamaHari = "Rabu"
ElseIf i = 5 Then
NamaHari = "Kamis"
ElseIf i = 6 Then
NamaHari = "Jum'at"
ElseIf i = 7 Then
NamaHari = "Sabtu"
Else
NamaHari = "index salah"
End If
End Function
Contoh pemanggilan function:
Private Sub Command1_Click()
Text2.Text = NamaHari(Text1.Text)
End Sub
download kode di sini
'-------------------------------------
Untuk memperoleh penjelasan lebih detail anda
bisa baca E-Book saya yang berjudul TRIK DASAR
BELAJAR VISUAL BASIC 6.0
klik di sini
|
|
|
|
|
|
Share
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Mau punya penghasilan? ikuti program-program di bawah ini:
|
|
|
|
|
counter sejak 5 april 2010
|
|