Membuat fungsi di Visual Basic 6.0

[kazaoo]

fungsi dapat dibuat di ms. Vb6.0, caranya ketik kode program berikut:

Code: [Select]

private function hitung(byval panjang as integer, byval lebar as integer) as string
      hitung=panjang*lebar
end function
untuk memanggilnya bisa dijalankan dengan kode program sebagai berikut:

Code: [Select]

hitung 5,6
nah untuk fungsi-fungsi lain caranya nggak jauh berbeda, tinggal dikembangkan saja. semoga membantu.

[kazaoo]

fungsi untuk refil pulsa nieh....
Public Function mkiosPush(ByVal tujuan As String, nominal As String, chip As String, ByVal pin As String, ByVal ref As String) As String
On Error GoTo handle
prg_info.Caption = "Memproses Mkios-MK1.."
prg_id.Caption = ref
Tunda 0.2
mdm_mk1.CommPort = cb_mk1.Text
'mdm_mk1.Handshaking = 2 - comRTS
mdm_mk1.DTREnable = True
mdm_mk1.Settings = br_mk1.Text
mdm_mk1.RThreshold = 1
mdm_mk1.InputLen = 0

If mdm_mk1.PortOpen = True Then
    mdm_mk1.PortOpen = False
    mdm_mk1.PortOpen = True
Else
    mdm_mk1.PortOpen = True
End If

If chip = "As" Then
   
    mdm_mk1.Output = "ATD*677*" & tujuan & "*" & nominal & "*" & pin & "#;" & Chr(13)
    Tunda 2
    mdm_mk1.Output = "AT" & Chr(13)
    Tunda 1
Else
    mdm_mk1.Output = "AT" & Chr(13)
    Tunda 1
    mdm_mk1.Output = "ATD*777*" & tujuan & "*" & nominal & "*" & pin & "#;" & Chr(13)
    Tunda 2
    mdm_mk1.Output = "AT" & Chr(13)
    Tunda 1
End If
mdm_mk1.PortOpen = False
Tunda 1
prg_info.Caption = "Dialing...mkios-mk1 done !"
prg_info.Caption = "Iddle"
prg_id.Caption = ""
report = "OK"
mkiosPush = report
Exit Function
handle:
prg_info.Caption = "Dialing...mkios-mk1 !"
Tunda 0.2
prg_info.Caption = "Dialing...mkios-mk1 failed !"
Tunda 1
prg_info.Caption = "Iddle"
prg_id.Caption = ""
report = "Error"
mkiosPush = report
Exit Function
End Function