$arguments = func_get_args();
$arguments = func_get_args();
$numargs = func_num_args();
for($i=1; $i < $numargs; $i++){
$arguments[$i] = &$arguments[$i];
}
Option Explicit
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, _
ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const WM_SYSCOMMAND = &H112
Public Const RGN_AND = 1 'Creates the intersection of the two combined regions.
Public Const RGN_COPY = 2 'Creates a copy of the region identified by hrgnSrc1.
Public Const RGN_DIFF = 3 'Combines the parts of hrgnSrc1 that are not part of hrgnSrc2.
Public Const RGN_OR = 4 'Creates the union of two combined regions.
Public Const RGN_XOR = 5 'Creates the union of two combined regions except for any overlapping areas.
Private Sub Form_Load()
llWidth = Me.Width / Screen.TwipsPerPixelX
llHeight = Me.Height / Screen.TwipsPerPixelY
lRet = CreateRoundRectRgn(0, 0, llWidth, llHeight, 35, 35)
lret2 = CreateRoundRectRgn(0, 0, llWidth, 150, 0, 0)
CombineRgn lret2, lRet, lret2, RGN_COPY
l = SetWindowRgn(Form1.hwnd, lret2, True)
End Sub
Konsep Dasar OOP
Polimorfisme (Polymorphism)
Definisi:
Kemampuan suatu objek untuk mempunyai lebih dari satu bentuk.
Inheritance
Definisi:
Merupakan pewarisan atribut dan method dari sebuah class lainnya.
Class yang mewarisi disebut superclass, sedangkan class yang diwarisi disebut subclass.
Subclass bisa berlaku sebagai superclass bagi class lainnya (multilevel inheritance).
Prinsip:
Persamaan-persamaan yang dimiliki oleh beberapa kelas dapat digabungkan dalam sebuah class induk sehingga setiap kelas yang diturunkannya memuat hal-hal yang spesifik untuk kelas yang bersangkutan.
Enkapsulasi (Encapsulation)
Definisi:
Pembungkusan variabel dan method dalam sebuah objek yang terlindungi serta menyediakan interface untuk mengakses variabel tersebut.
Variabel dan method yang dipunyai objek bisa ditentukan hak aksesnya.
Contoh dalam Java
Polimorfisme
class SepakBola {
public void showoff() {
System.out.println(“Menangkan pertandingan”)
}
}
class Penyerang extends SepakBola {
public void showoff() {
System.out.println(“Cetak GOL”);
}
}
class Bek extends SepakBola {
public void showoff() {
System.out.println(“Jangan sampai GOL”);
}
}
class Kiper extends SepakBola {
public void showoff() {
System.out.println(“Jaga gawang”);
}
}
public class Tendangan {
public static void main (String[] args) {
SepakBola SB = new SepakBola();
Penyerang P = new Penyerang();
Bek B = new Bek();
Kiper K = new Kiper()
SB.showoff();
SB = P;
SB.showoff();
SB = B;
SB.showoff();
SB = K;
SB.showoff();
}
}
Inheritance
Public class SmartMahasiswa extends Mahasiswa{
}
Simpan dengan nama Main.java
public class Main{
public static void main(String[] args]) {
SmartMahasiswa mhs = new SmartMahasiswa();
mhs.setNim(“09530699”);
mhs.setNama(“Fuad Yusuf P”);
mhs.printNim();
mhs.printNama();
}
}
Enkapsulasi
Objek Persegi panjang, di dalamnya terdapat variabel
panjang,lebar,fungsi set_sisi(),fungsi get_luas()
Class PERSEGI PANJANG {
int panjang;
int lebar;
public:
void set_sisi(int p, int l) {
panjang = p;
lebar = l;
}
int get_luas() { return panjang * lebar; }
};
Nama : Fuad Yusuf P
NIM : 09530699
Kelas : TI 2B
Sekian terimakasih...
Pertama, buatlah suatu gambar pada movie clip baru, misalnya gambar bintang seperti pada gambar1. Berilah sedikit animasi seperti membesar atau mengecil. Usahakan gambar yang anda buat tadi ukurannya kecil kira2 sebanding dengan mouse kita, karena ini akan berada di belakang mouse, nanti kalau ukurannya besar bukan mouse follower namanya.
Pertama, buatlah jarum untuk jam anda pada movieclip baru dengan klik tanda plus pada library, kalau librarynya belum muncul tekan CTRL+L dulu. Jarum tersebut harus menghadap ke atas dan tempatkan poros jarum pada tengah-tengah movieclip atau titik (0,0) yaitu pada tanda plus di tengah latar. Buatlah jarum seperti tadi 2 lagi namun yang berbeda-beda panjang dan warnanya, sehingga jumlahnya 3 buah karena jarum pada jam ada 3 yaitu jarum jam, menit, dan detik.
Kalau semua sudah dibuat sekarang tinggal merangkai dan memasang action scriptnya. Caranya kembali dulu ke scene anda (layar utama), lalu tariklah semua yang telah anda buat tadi dari library ke layar mulai dari background dulu terus jarum jam, jarum menit dan terakhir jarum detiknya. Berilah identifier atau nama pada setiap jarum jam yang ada di layar dengan cara klik jarumnya lalu isi nama pada bagian properties kolom instance name, misalnya "jjam" untuk jarum jam, "jmenit" untuk jarum menit, dan "jdetik" untuk jarum detiknya.
