Membuat Tombol Donasi Paypal Dengan VB

Bagaimanakah membuat tombol donasi paypal pada visual basic 6? Pernahkah anda mempunyai pemikiran yang sama dengan saya untuk membuat tombol donasi paypal dengan menggunakan visual basic.
Ini sangat berguna jika kita ingin membuat sebuah aplikasi dan dalam aplikasi tersebut di bubuhi sebuah tombol untuk donasi.

Tentunya disini kita harus punya akun paypal terlebih dahulu, untuk uji coba kita tidak perlu sebuah akun paypal, akunnya di isi sembarangan saja yang penting tombol donasinya. Jika sudah jalan jika anda menginginkan akun paypal silahkan melakukan registrasi di website resmi paypal.

Untuk Membuat Tombol Donasi Paypal Dengan VB buatlah sebuah form seperti berikut ini

Jika sudah selesai membuat formnya lanjut ke koding, ketikan koding berikut ini pada bagian General Declaration

Option Explicit
Private Code$(): Const c_Cur = "AUD;Australian Dollars,BRL;Brazilian Real,GBP;British Pounds,CAD;Canadian Dollars,CZK;Czech Koruny,DKK;Danish Kroner,EUR;Euros,HKD;Hong Kong Dollars,HUF;Hungarian Forints,ILS;Israeli New Shekels,JPY;Japanese Yen,MYR;Malaysian Ringgits,MXN;Mexican Pesos,NZD;New Zealand Dollars,NOK;Norwegian Kroner,PHP;Philippine Pesos,PLN;Polish Zlotych,SGD;Singapore Dollars,SEK;Swedish Kronor,CHF;Swiss Francs,TWD;Taiwan New Dollars,USD;US Dollars,THB;Thai Baht"
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Kemudian ketikan dua procedure berikut ini

Private Sub PayPalDonate(Business$, Optional ItemName$, Optional ItemNumber$, Optional CurrencyCode$, Optional Amount$, Optional ReturnURL$, Optional CancelURL$)
    ExecuteShell "https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=" & Business$ & _
      "&item_name=" & ItemName$ & "&item_number=" & ItemNumber$ & "&currency_code=" & CurrencyCode$ & _
      "&amount=" & Replace(Val(Amount$), ",", ".") & "&RETURNURL=" & ReturnURL$ & "&CANCELURL=" & CancelURL$
End Sub

Private Sub ExecuteShell(CmdString$, Optional hWnd&)
    ShellExecute hWnd&, "Open", CmdString$, vbNullString, "C:\", 1
End Sub

Kemudian pada form load ketikan koding berikut

Private Sub Form_Load()
Dim s$(), v$(), X%, Y%: s$() = Split(c_Cur, ",")
    Caption = "Demo code PayPal Donate"
    txt(1).Text = "Demo code PayPal Donate"
    Y% = UBound(s$()): ReDim Code$(Y%)
    For X% = 0 To Y%
        v$() = Split(s$(X%), ";"): Code$(X%) = v$(0)
        cmb.AddItem v$(1) & " (" & v$(0) & ")"
    Next
    Erase s$(): Erase v$(): cmb.ListIndex = 21 'USD as default
End Sub

Kemudian keetikan koding berikut ini  di text box (NB: pada textbox tersebut saya memakai array)

Private Sub txt_GotFocus(Index As Integer)
    txt(Index).SelStart = 0: txt(Index).SelLength = Len(txt(Index))
End Sub

Lalu pada bagian commandbutton ketikan koding berikut ini

Private Sub cmd_Click()
    PayPalDonate txt(0), txt(1), txt(2), Code$(cmb.ListIndex), txt(5), txt(3), txt(4)
End Sub

jika sudah silahkan jalankan programnya semoga berhasil. Demikian tutorial yang singkat ini semoga dapat memecahkan permasalahan yang anda hadapi. Silahkan download source codenya di link di akhir tulisan ini.

• LINK 1 DOWNLOAD
• LINK 2 DOWNLOAD

Keywords:
Membuat Tombol Donasi Paypal Dengan VB,Tutorial Membuat Tombol Donasi Paypal Dengan VB, Cara Membuat Tombol Donasi Paypal Dengan VB, Rahasia Membuat Tombol Donasi Paypal Dengan VB,