Application Programming Interface (API)

API merupakan kependekan dari Application Programming Interface.

Merupakan sebuah script code yang disediakan oleh system computer atau library program untuk mensupport sebuah program berkomunikasi dengan Operation System (OS), DBMS(Database Management System), protokol komunikasi, hardware atau program lain.

Jenis API
Kalau berbicara jenis API, jumlahnya ratusan. Tiap OS memiliki APInya sendiri, bahkan playstation dan console - console lain juga memilikinya. Tanpa API mungkin developer game Playstation tidak bakal bisa buat interface untuk user mensave data di memory card.
Beberapa jenis API :
- Win 32 API
- Java API
- OpenGL
- DirectX, dll

 Deklarasi Fungsi Api pada Visual Basic 6.

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Deklarasi konstanta. Misal untuk fungsi ExitWindowsEx, membutuhkan deklarasi konstanta berikut :

Private Const EWX_LOGOFF = 0

Private Const EWX_SHUTDOWN = 1

Private Const EWX_REBOOT = 2

Private Const EWX_FORCE = 4

Fungsi SetWindowPos membutuhkan deklarsi konstanta berikut :

Private Const HWND_TOPMOST = -1

Private Const HWND_NOTOPMOST = -2

Private Const SWP_NOSIZE = &H1

Private Const SWP_NOMOVE = &H2

Private Const SWP_NOACTIVATE = &H10

Private Const SWP_SHOWWINDOW = &H40

      Pesan yang diberikan oleh Windows kepada program anda untuk ditindak lanjuti.

Messages dari form dikirimkan ketika user mengeklik button, menggerakkan mouse keatasnya, ataupun mengetikkan sesuatu.

   Callback memiliki berbagai kegunaan. Sebagai contoh, bayangkan sebuah fungsi yang membaca file konfigurasi dan nilai-nilai asosiasi dengan pilihan. Jika pilihan diidentifikasi oleh hash , kemudian menulis fungsi sehingga membutuhkan callback membuatnya lebih fleksibel: user dapat memilih algoritma hashing apapun yang diinginkan dan fungsi akan terus bekerja, karena menggunakan callback untuk merubah nama pilihan ke hash,

Jadi, callback memungkinkan pengguna fungsi untuk fine-tune pada saat runtime. Penggunaan lainnya adalah dalam sinyal kesalahan. Sebuah Unix program, misalnya, mungkin tidak ingin untuk mengakhiri segera ketika menerima SIGTERM , untuk memastikan hal-hal mendapatkan diurus, itu akan mendaftar sebagai fungsi callback pembersihan.

    Script dibawah ini adalah sebuah deklarasi untuk memanggil Fungsi API:

Private Declue Sab mouse-event Lib nas*32" (ByYaI dwFlags As Long, ByYal tb As Long, Byvat dy As Long, ByVal cBuaons As Long, ByYsl dwExtnlalo As Long)

Kalau Script dibawah ini digunakan untuk Menyatakan Suatu kejadian :

Const MOUSEEWNTF-LEFTDOV N = &n2

Const MOUSEEWNTF-LEFTaP = &H4

Const MOASEEWNTF-M ID DLE DOW N = &H2O

Const MOUSEEWNTF_MIDDLE UP = &E40

Const MOASEEWNTF_MOW = &El

Const MOASEEWNTF_ABSOLUTE = &flE000

Const MOASEEWNTF-RIGETDOWN = l&Et

Const MOUSEEWNTF_RIGE T UP = & HI0

Private sub  Form_Active()

Do

moase-evea, MOASEEWNTF_LEFTDOWN Or MOASEEWNTF-LEFTUP, 0&, 0&, c&aa, dwEI

DoEvenls

Loop

End Sub

Jadi ketika Sebuah program  dijalankan maka akan terjadi sebuah kejadian dimana saat Mouse di gunakan.

   Membuat Form Elips

Private Declare Sub ReleaseCapture Lib "user32" ()

Private Const WM_NCLBUTTONDOWN = &HA1

Private Const HTCAPTION = 2

'sub untuk membuat lakukan diform

Private Sub buatoval(Frm As Form, Optional ByVal Kurva As Double = 50)

Dim hRgn As Long

Dim X1 As Long, Y1 As Long

X1 = Frm.Width / Screen.TwipsPerPixelX

Y1 = Frm.Height / Screen.TwipsPerPixelY

hRgn = CreateRoundRectRgn(0, 0, X1, Y1, Kurva, Kurva)

SetWindowRgn Frm.hwnd, hRgn, True

DeleteObject hRgn

End Sub

Private Sub Form_Load()

buatoval Me

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _

Y As Single)

If Button = 1 Then

Call ReleaseCapture

Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End If

End Sub

     Region = “daerah suatu form pada Windows”

Memanipulasi bentuk dalam windows api

Contoh :

Declare Function CreateRectRgn Lib "gdi32" Alias "CreateRectRgn"

(    ByVal X1 As Long,

           ByVal Y1 As Long,

           ByVal X2 As Long,

           ByVal Y2 As Long           ) As Long

     ShellExecute merupakan fungsi yang disediakan oleh windows melalui pustaka “Shell32.dll”, dan sudah ada sejak windows 9x. Kegunaan dari fungsi ini adalah untuk melakukan operasi terhadap suatu file atau direktori.

Contoh Deklarasi :

Function ShellExecute (hWnd:HWND; Operation, Filename, Parameters, Directory : Pchar ; ShowCmd: Integer) : HINST;

     BitBlt adalah API untuk melakukan bit-block transfer

Deklarasi :

Declare Function BitBlt Lib "gdi32" Alias "BitBlt"

     (    ByVal hDestDC As Long,

           ByVal x As Long,

           ByVal y As Long,

           ByVal nWidth As Long,

           ByVal nHeight As Long,

           ByVal hSrcDC As Long,

           ByVal xSrc As Long,

           ByVal ySrc As Long,

           ByVal dwRop As Long  ) As Long