Kursus Programmer Online 
Skip Navigation Links
Home
Kursus online
Toko online
Layanan
Forum
Social programmer
E-book
Peta situs
Tentang saya
Donasi
Halo " !" | Login

Skip Navigation Links.
Expand Artikel Visual BasicArtikel Visual Basic
Expand Basis Data - DatabaseBasis Data - Database
Expand Pemrograman GrafisPemrograman Grafis
Expand E-Book TutorialE-Book Tutorial
Expand Video Kursus - TutorialVideo Kursus - Tutorial
Expand Software - Open Source codeSoftware - Open Source code
Expand W E B ProgrammingW E B Programming
Expand Windows SystemWindows System
Expand XBasicFrameworkXBasicFramework
Expand Berbagi PengalamanBerbagi Pengalaman
Expand Quick BasicQuick Basic

Belajar Program dgn Saya 
HyperLink Siapa bilang belajar program  SULIT!!  Otodidak juga bisa.  ANDA bisa Jadi PROGRAMMER handal.  Baca E-Book  Saya di sini...!

E-Book Trik Dasar PHP

Jika ANDA telah membeli E-book Saya belum juga bisa membuat program... Saya yang akan "Turun Tangan Langsung" mengajarkannya kepada ANDA                   
















Software Gratis 
Software gratis! Open Source Code

Banner 

HyperLink

HyperLink


Chat dengan Saya 

Chat dengan Saya

HyperLink


Hit Counter 


Skip Navigation LinksMENU>Artikel Visual Basic>Visual Basic 6.0>Procedure - Function



Procedure  dan Function


 
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




'-------------------------------------
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



'-------------------------------------

Untuk memperoleh penjelasan lebih detail anda bisa baca E-Book saya yang berjudul  TRIK DASAR BELAJAR VISUAL BASIC 6.0  

 







  (C)XBasicPro 2012 | Kursus Programmer Online | Software Gratis | Open Source Code | Sewa Toko Online