♥ ♥ LELAKI PANTANG MENYERAH ♥ ♥ Saya adalah Lelaki yang pantang Menyerah biar pun banyak cobaan hidup yang saya alami tapi itu bukan satu hambatan untuk mencapai keberhasilan saya. . . .
Kamis, 24 Juni 2010
Kata Kata Mutiara Persahabatan dan Cinta
Apa arti setetes embun dibandingkan lautan yg luas...
I've just know the pain of needing something i don't have by having something i don't need
Masa lalu untuk dikenang
Masa kini untuk dihadapi
Dan masa depan untuk dinanti
Musuh itu untuk disyukuri
Tapi teman untuk dilawan
Apa kau ingin bahagia???
Tanyalah pada penderitaan
Yang terburuk dari smua tipuan
Adalah menipu diri sendiri
Jenius adalah 1 % inspirasi dan 99 % keringat. Tidak ada yang dapat menggantikan kerja keras. Keberuntungan adalah sesuatu yang terjadi ketika kesempatan bertemu dengan kesiapan.
Tahun pertama pernikahan : hadirin yang berbahagia yang mendengar kata2 janji terucap sepasang pengantin
Tahun kedua pernikahan : Suami yang berbicara , Istri yang mendengar
Tahun ketiga perkawinan :Istri yang berbicara, Suami yang mendengar
Tahun keempat pernikahan dan tahun2 berikut nya : Suami Istri sama2 berbicara, tetangga yang mendengar.
'Living is like licking honey off a thorn.'
segaLa sesuatu itu mungkin karna aku adaLah segaLanya
dan tuhan sebagai media penyeimbang terhadap Langkahku.
Kepercayaan ... Sesuatu yang sulit kita dapat akan tetapi lebih sulit lagi untuk menjaganya !
Pernikahan ... Ladang amal paling besar yang Tuhan sediakan tetapi tanpa kita sadari !
Kematian ... Hal yang menakutkan walau sebetulnya indah untuk dihadapi !
Hidup adalah sekolah.....dan tentu saja...
bila kau semakin arif...
semakin banyak kelas yg akan kau hadapi....
dan ingat.... tanpa ujian.
ketika kau ada menemaniku
aku kehilangan sebuah diriku
Ada tanah bagi yang hidup
Ada tanah bagi yang mati
Dan cinta adalah jembatannya
Katakanlah cinta mu terhadap orang yang kau cinta
Hingga engkau sadar bahwa cinta mu memang untuk berbagi
Banggalah dengan smua pilihanmu
Karna mungkin kau tak tahu, bahwa itu adalah yg terbaik
Jika kita hanya melihat yang disinari cahaya dan mendengar segala yang bersuara maka kita belum melihat dan mendengar apa-apa
Hanya mereka yang mampu mengalahkan pekatnya gelap malam yang akan menyambut pagi
Orang-orang dapat selalu berharap, karena kematian tak dapat diramalkan
Sebelum menjadi guru, jadilah guru bagi dirimu sendiri,Dan biarlah kau mengajar dengan contoh tindakan sebelum mengajar dengan kata-kata, karena hanya mereka yang mengajar dirinya sendiri dan meralat kesalahannya sendiri lebih dihormati dan lebih bisa menjadi pegangan dibanding mereka yang mengajar orang lain dan dibetulkan kesalahannya oleh orang lain
Jangan bermimpi menyentuh langit dengan anak panah jika merentangkan busurnya saja tidak sanggup
Hati manusia seperti kendi tidak ada yang bisa melihat isinya sehingga kejernihannya hanya dapat dilihat dari apa yang dikeluarkannya
Memberikan kesenangan pada sebuah hati dengan sebuah tindakan lebih baik daripada seribu kepala yang menunduk berdoa
Cinta adalah halimun tipis yang membutakan mata kita dari pahitnya suka dan manisnya duka
Tertawa dan menangis itu terletak di bibir manusia yang paling permukanan, keduanya bisa dijadikan piranti untuk menipu, keduanya merupakan bagian manusia yang paling picisan
Kalau aku tidak memegang pedang, aku tidak dapat melindungimu. Kalau aku memegang pedang, aku tidak dapat memelukmu
Jika engkau mencintai dan menyayangi seseorang dengan sangat....
Maka lepaskanlah dia,
bila itu yang terbaik untuknya....
Dan jika dia kembali lagi,
maka dia akan menjadi milikmu untuk selamanya....
hal paling berat didunia adalah memegang amanah
hal paling ringan didunia adalah meninggalkan sholat
hal paling jauh didunia adalah masa lalu
hal paling dekat didunia adalah mati
hal paling besar didunia adalah hawa nafsu
hal paling tajam didunia adalah lidah manusia
Kita tak pernah kalah
karena mencintai seseorang
Tapi kita selalu kalah
karena tidak berterus terang
bahwa kita memang mencintainya
Kegagalan bukanlah hal yang paling buruk...
yang paling buruk adalah Tidak Mencoba ...
cinta berawal dari mata
mengalir seperti air
berakhir dengan air mata
jangan terlalu membenci musuhmu, kelak nanti ia bisa jadi sekutumu
jangan terlalu menyayangi sekutumu, nanti ia bisa jadi musuhmu
cinta yang sebenarnya adalah ketika kamu menitikkan air mata dan masih peduli terhadapnya....
cinta yang sebenarnya adalah ketika dia tidak mempedulikanmu dan kamu masih tetap menunggunya dengan setia....
cinta yang sebenarnya adalah ketika dia mulai mencintai orang lain dan kamu masih bisa tersenyum dan berkata "aku turut berbahagia untukmu"
laut yang tenang tidak akan melahirkan nahkoda yang tangguh
ketika badai mulai mendatangimu, bersiaplah dan hadapi, karena itu lah yang akan membuatmu semakin tangguh.
"Bukan titik yang menyebabkan tinta, tetapi tinta yang menyebabkan titik...
...Bukan cantik yang menyebabkan cinta, tetapi cinta yang menyebabkan cantik."
Belajar Mewarnai Foto dengan Gradient Map Belajar Mewarnai Foto dengan Gradient Map
Belajar Mewarnai Foto dengan Gradient Map
Posted by Sigit eko on Jun 23rd, 2010 in Belajar Photoshop, Photoshop Dasar | 8 comments
Mewarnai atau mengganti warna dari sebuah foto emang asik.. dan banyak sekali teknik yang digunakan untuk mewarnai sebuah foto.. salah satu nya dengan gradient map..
Buka file foto yang mau diedit.. saya pake foto cewek yang mirip sama istri saya yang lagi pose di deket rumah yang mirip rumah adat Jepang.. hehehe.. (ngikutin trend mirip – padahal itu emang istri saya beneran. :p)
Klik new fill or adjustment layer > pilih Black and White untuk merubah foto jadi hitam putih..
kenapa hitam putih doang kok pake tool add new fill ? itu nanti buat perbandingan hasil nya.. baiknya pake efek hitam putih apa enggak.. nanti deh diliat yah..
Klik lagi add new fill or adjustment layer lalu pilih Gradient Map
Klik gradient picker .. nanti muncul windows baru berjudul gradient editor..
Untuk mengubah warna gradient .. klik color stop sebelah kiri.. grus ganti warna nya.. – petunjuk ada di gambar
Ganti warna untuk color stop sebelah kanan..caranya sama dengan diatas..
Sekarang buat gradient stop yang baru di tengah-tengah..
klik bagian bawah gradient slider nya..trus warnain seperti cara di atas..
hasil gradient mapping
Klik Ok..
Ubah Layer effect menjadi Soft Light
Hasilnya :
Sekarang matiin layer black and white nya.. kita coba tanpa black and white..
dan hasilnya :
terserah mau pilih yang mana.. yang jelas keduanya memiliki warna yang berbeda dengan gambar asli nya..
selamat mencoba .. have fun!
Rabu, 16 Juni 2010
Membuat ID pada Form Visual Basic 6.0
Bagi anda yg gemar menggunakan Visual Basic 6.0 berikut langkah membuat id sehingga ketika user login akan terus tersunting di form anda login sebagai siapa, pada sebuah form yg dijadikan halaman utama atau index form.
Langkah pertama tentunya kita membuat form utama.boleh menggunakan midi form dan tentunya form login..pada form utama beri komponen label dengan property name ID dan caption semisal : Anda tidak loginBagi anda yg gemar menggunakan Visual Basic 6.0 berikut langkah membuat id sehingga ketika user login akan terus tersunting di form anda login sebagai siapa, pada sebuah form yg dijadikan halaman utama atau index form.
Langkah pertama tentunya kita membuat form utama.boleh menggunakan midi form dan tentunya form login..pada form utama beri komponen label dengan property name ID dan caption semisal : Anda tidak login
lihat gambar beriku ini
Pada menu utama set Tombol Logout dengan tag berikut
private sub SmLogout_click()
smLogin.Enabled = True
smLogout.Enabled = False
{definiskan form yg di set disabled karena pada status logout}
ID.Caption = (“Status :Anda Tidak Login”)
End Sub
langkah selanjutnya definisikan status untuk membuat ID pada form login.Pada dasarnya ID di Dapatkan setelah kita melakukan proses login.Jadi setelah login kita baru dapat menentukan user login sebagai siapa dan mengubah Label pada Form Utama dengan text yg didapat pada saat login misal dari username…setelah sebelumnya ad pengecekan ke database tentang verifikasi username dan password.berikut script setelah pengecekan login selesai dilakukan…
buat variable golobal dan non global pada modul yg kita buat sebagai koneksi ke database.sebagai contoh untuk globalnya kita membuat variable umum sebagai koneksi pengecekan ke table dimana login dapat diakses :
Public Rs_cekuser As ADODB.Recordset
Set Rs_cekuser = New ADODB.Recordset
Rs_cekuser.Open “Select * FROM Master”, _
DbKoneksi, adOpenDynamic, adLockBatchOptimistic
End Sub
dan variable Yg di set public yaitu
Public PenggunaID As String
Public PenggunaNm As String
kembali pada form login
{ Bagian ini merupakan bagian segala pengecekan tentang username dan password jika sukses maka berikan informasi bahwa user sukses melakukan login bisa menggunakan procedure vbinformation semisal :
Konfirmasi = MsgBox(“Anda berhasil Login ke sistem!”, _
vbOKCancel + vbInformation, “informasi”)
dan setelah itu perhatikan script dibawah ini
If Konfirmasi = vbOK Then
With fmUtama{nama form utama}
.Show {menu yg dienable kan setelah login semisal form dengan sub menu dibawah ini} .smLogin.Enabled = False
.smLogout.Enabled = True
.MuPenugasan.Enabled = True
.MuPencarian.Enabled = True
.MuLaporan.Enabled = True
.MuMaster.Enabled = True
PenggunaID = _
Rs_cekuser!UserName
PenggunaNm = TxtUser.Text
.ID.Caption = ” Status Login Sebagai : ” _
& UCase(TxtUser.Text)
Unload Me
End With
bagian Yg dicetak tebal diatas merupakan proses pengantian label ID di menu utama dengan text yg dicek oelh RS_cek user sebagai username.sehinga ketika user sukses masuk ke dalam sistem maka pada menu utama label id akan berubah mejadi –> Status login sebagai username)
semoga bermanfaat..
Membuat Form Login
Maret 18, 2008 oleh Nawan
Hello2…. lama juga ga posting, kangen juga neh…. kali ini walau informasinya agak Jadul tapi tetep saya posting. oke, kali ini saya membahas form untuk login, tentunya dengan menggunakan Visual Basic 6.0 yang merupakan paket program dari Visual Basic Studio. Oke…. login?.. apa itu?.. (Tapi sepertinya kalian tidak mungkin bertanya tentang itu).
Form login adalah bagian dimana program mencocokkan input yang user masukkan dengan database yang ada pada dirinya(server maksudnya). Dan agar kalian mengerti tentang login-melogin. Ini ada simple program untu kalian semua. Oke… mari kita berkreasi.
• Siapkan Microsoft Visual Basic 6.0
• Buka Standard.EXE
• Dalam membuat Form, terserah kalian tampilannya akan bagaimana karena itu hak asasi anda. Oke akan saya beri propertiesnya. Properties sebagai berikut:
o Untuk obyek Form pengaturanya: Name = Flogin, Caption = Form Login,
o Untuk obyek label1 pengaturannya: Name = Label1, Caption = User
o Untuk obyek label2 pengaturannya: Name = label2, Caption = Password
o Untuk obyek Command1 pengaturannya: Name = CmdOK, Caption = OK
o Untuk obyek Command2 pengaturannya: Name = CmdKeluar, Caption = Keluar
Oke…. sekarang halaman untuk login anda telah selesai, kini tinggal mengisinya saja, agar bisa berjalan sebagaimana mestinya. oke.. langkah berikutnya adalah pemberian script:
• Untuk obyek Command1 kalian doble klik lalu isikan script seperti dibawah ini:
If TUser.Text = ” ” Then
MsgBox “Nama user harus diisi”, 0 + 64
Exit Sub
ElseIf TPasswd = ” ” Then
MsgBox “Password harus diisi”, 0 + 64
Exit Sub
End If
If TUser.Text = “halo” And TPasswd = “halo” Then
MsgBox “SELAMAT ANDA LAYAK DAPAT BINTANG”, 0 + 64
Else
MsgBox “AKSES DITOLAK “, vbOKOnly + vbCritical,
“Konfirmasi”
End If
Membuat Tabel Konversi Suhu
April 16, 2008 oleh Nawan
Kalian pasti tidak jarang mendengar kata-kata Celcius, Reamur,Fahrenhiet dan Kelvin?. Yup bener banget itu memang nama-nama satuan suhu dalam standar internasional. Nah… karena kemaren baru tak ada kerjaan, dan pengen buat apa gtu… jadi kepikiran deh buat bikin tabel konversi suhu. walaupun prinsipnya sama aja kaya kalkulator sih. Tapi tak apa-apalah yang penting tiap hari terus berkarya. ya kagak?…. pengen tahu cara pembuatannya?… gampang kok.
• Siapin Microsoft Visual Basic 6.0
• Buka Standard.EXE
• lalu letakkan obyek seperti:
Karena saya sudah menganggap anda bisa, maka saya tidak akan memberikan nilai Obyek dan propertiesnya. Oke setelah anda membuat obyek-obyeknya. Kini tinggal source codenya saja. Tenang saja saya tidak mengbubah Name dari properti tiap Object, jadi anda dengan mudah dapat meletakkan Source codenya ditempat yang tepat. Source Codenya :
Private Sub Command1_Click()
Text4.Text = 4 / 5 * Text1.Text
Text3.Text = 32 + (9 / 5 * Text1.Text)
Text2.Text = Text1.Text + 273
End Sub
——————————————–
Private Sub Command2_Click()
Text6.Text = Text5.Text – 273
Text7.Text = 32 + (9 / 5 * (Text5.Text – 273))
Text8.Text = (Text5.Text – 273) * 4 / 5
End Sub
—————————————————-
Private Sub Command3_Click()
Text10.Text = 5 / 9 * (Text9.Text – 32)
Text11.Text = (5 / 9 * (Text9.Text – 32)) + 273
Text12.Text = (Text9.Text – 32) * 4 / 9
End Sub
———————————————————
Private Sub Command4_Click()
Text14.Text = Text13.Text * 5 / 4
Text15.Text = (5 / 4 * Text13.Text) + 273
Text16.Text = (9 / 4 * Text13.Text) + 32
End Sub
———————————————————–
Private Sub Command5_Click()
End
End Sub
———————————————————
Private Sub Command6_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Text6.Text = Clear
Text7.Text = Clear
Text8.Text = Clear
Text9.Text = Clear
Text10.Text = Clear
Text11.Text = Clear
Text12.Text = Clear
Text13.Text = Clear
Text14.Text = Clear
Text15.Text = Clear
Text16.Text = Clear
End Sub
Membuat Form Pencarian (Lookup) Menggunakan Visual Basic 6 + ADO (Source Code)
Written by admin on 20/11/2009 — Leave a Comment
Form pencarian ini saya gunakan di banyak aplikasi Visual Basic 6 yang saya buat. Form pencarian ini bisa digunakan beberapa kali, di banyak tempat sesuai dengan kebutuhan. Sama sekali tidak menggunakan component pihak ketiga.
Pada form ini terdapat beberapa property tambahan yang digunakan untuk setting form pencarian. Form pencarian ini saya gunakan di aplikasi Point Of Sales.
Property tersebut adalah :
frmCari.sql = “SELECT * FROM karyawan ORDER BY nama”
frmCari.ColumnSize = “500:1000″
frmCari.ColumnHeader = “Kode:Nama”
frmCari.ReturnValueColumn = 0
Set frmCari.Koneksi = conn
frmCari.Caption = “Cari Karyawan”
frmCari.TextColumn = “0″
frmCari.DefaultCol = 1
Penjelasan property :
sql = SQL Statement untuk menampilkan data yang akan ditampilkan di grid form pencarian
ColumnSize = ukuran kolom, untuk tiap kolom dipisah dengan tanda : (titik dua )
ColumnHeader = Header tiap kolom
ReturnValueColumn = Nilai yang dikembalikan diambil dari kolom yang mana
Koneksi = koneksi ADO ke database
Caption = Judul Form
TextColumn = Kolom yang disable
DefaultCol = default kolom pencarian
Untuk lebih jelasnya berikut screen capture dari pemakain form pencarian :
Jika tombol … ditekan, maka muncul form pencarian seperti dibawah
pada kolom nama, terdapat textbox, ketik lalu enter, maka textbox aktif menuju ke nama dengan huruf awal yang anda ketikkan. Contoh anda ketik ‘vo’ lalu enter, maka textbox aktif di nama ‘Vonny’. Tekan tombol OK atau F12 untuk memilih.
Hasil pencarian akan tampak seperti form diatas.
/*
Source Code ini merupakan modifikasi
dari template SDL Code::Blocks dan
Source Code ini adalah bahan/materi
untuk blog:
http://membuatgamedengancpp.blogspot.com/
*/
#ifdef __cplusplus
#include
#else
#include
#endif
#ifdef __APPLE__
#include
#else
#include
#endif
#include
const int lebar_layar = 640;
const int tinggi_layar = 480;
/*membuat fungsi untuk memeriksa terjadinya tabrakan (collision)
antara kotak pertama (A) dengan kotak kedua (B)
*/
bool f_PeriksaTabrakan(SDL_Rect A, SDL_Rect B)
{
int kiriA, kiriB;
int kananA, kananB;
int atasA, atasB;
int bawahA, bawahB;
kiriA = A.x;
kananA = A.x + A.w;
atasA = A.y;
bawahA = A.y + A.h;
kiriB = B.x;
kananB = B.x + B.w;
atasB = B.y;
bawahB = B.y + B.h;
if (bawahA <= atasB) return false; if (atasA >= bawahB) return false;
if (kananA <=kiriB) return false; if (kiriA >=kananB) return false;
return true;
}
//clsKotak = class Kotak
class clsKotak
{
SDL_Rect kotak;
int red,green,blue;
int kecX, kecY;
public:
clsKotak(int,int,int,int,int);
SDL_Rect getKotak();
void bergerak(int,SDL_Rect O_[]);
void tampil(SDL_Surface *_O);
};
//konstruktor kelas kotak
clsKotak::clsKotak(int _red, int _green, int _blue, int _X, int _Y)
{
//variabel red, green, blue (rgb) untuk
//membedakan warna dengan kotak yang lain
red = _red;
//diperiksa nilainya jika ada kesalahan
if( red < red =" 0;"> 255) red = 255;
green = _green;
if( green < green =" 0;"> 255) green = 255;
blue = _blue;
if( blue < blue =" 0;"> 255) blue = 255;
kecX = 5+_X%3;
kecY = 5+_Y%3;
kotak.x = _X;
kotak.y = _Y;
kotak.w = 20;
kotak.h = 20;
}
SDL_Rect clsKotak::getKotak()
{
return kotak;
}
void clsKotak::bergerak(int banyakKotak, SDL_Rect kotakLainnya[])
{
//menggerakan kotak dengan sumbu x
kotak.x += kecX;
//memeriksa apakah sih kotak masih ada dilayar
//atau sudah keluar dari layar
if( kotak.x < x =" 0;" kecx =" -kecX;"> lebar_layar){
kotak.x = lebar_layar - kotak.w;
kecX = -kecX;
}
//pemeriksaan terhadap kotak lainnya
for(int c=0;c< y =" 0;" kecy =" -kecY;"> tinggi_layar){
kotak.y = tinggi_layar - kotak.h;
kecY = -kecY;
}
//pemeriksaan terhadap kotak lainnya
for(int c=0;c220) red = 0;
green+=rand()%7;
if( green>220) green = 0;
blue+=rand()%9;
if( blue>220) blue = 0;
//warna diisi sesuai dengan variabel red, green, blue
SDL_FillRect( _screen, &kotak, SDL_MapRGB( _screen->format, red, green, blue));
}
int main ( int argc, char** argv )
{
srand((unsigned)time(NULL));
// initialize SDL video
if ( SDL_Init( SDL_INIT_VIDEO ) < screen =" SDL_SetVideoMode(lebar_layar," bykkotak =" banyak" bykkotak =" 50;" c="0;cformat,255,255,255));
for( int b=0;bgetKotak();
}
else{
_ktkLain[c].x=0;
_ktkLain[c].y=0;
_ktkLain[c].w=0;
_ktkLain[c].h=0;
}
}
kotakKu[b]->bergerak(bykKotak,_ktkLain);
}
for( int c=0;ctampil(screen);
}
// DRAWING ENDS HERE
// finally, update the screen :)
SDL_Flip(screen);
//perhitungan frame rate
int getDetik = SDL_GetTicks() - fps;
if( getDetik<(1000/frame_per_second)){ SDL_Delay((1000/frame_per_second) - getDetik); } } // end main loop for( int c=0;c
Fungsi ubah wrna diatas bisa diganti mnjadi sebuah prosedur..
cnth’a..
void setcolor(unsigned short color)
{
HANDLE hCon = GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hCon,color);
}
panggil prsdr trsbut dngn..
setcolor(10);
angka 10 fngsi’a sama dngn angka 14 pada pnjelasan diatas..!!
untk mngset ulng ke mode stndar ketikan code..
setcolor(7);
7 adlh warna putih biasa.., bukan white bright….!!
Berikut fungsi untuk mngubah warna text sekaligus mngbh warna background..
code’a..
system(“Color 0A”);
dngn library.. #include
0A = adlh dua angka Hexadecimal… 0-F..
digit pertama buat ngatur warna background, sdngkan digit kedua buat ngatur warna text..
jadi klo kalian udh ngeset tmplan ke wrna lain.., untk mngubh ke default warna’a pake code…
system(“Color 07″);
0 , digunakn untuk backround..(hitam)
7 , digunakn untuk text..(putih)
brikut adalah code Hexadecimal buat ngubah warna..
0 = Black
1 = Blue
2 = Green
3 = Aqua
4 = Red
5 = Purple
6 = Yellow
7 = White
8 = Gray
9 = Light Blue
A = Light Green
B = Light Aqua
C = Light Red
D = Light Purple
E = Light Yellow
F = Light White
NB: fungsi system(“color ..”);
hanya dpt mngubh SEMUA warna text!!!
Script Project dengan TImage
#include
#pragma hdrstop
#include “Unit1.h”
#pragma package(smart_init)
#pragma resource “*.dfm”
TForm1 *Form1;
int Tergambar;
//———————————————————–
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Tergambar=false;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
}
//———————————————————–
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (ColorDialog1->Execute ())
Image1->Canvas->Pen->Color=ColorDialog1->Color;
}
//———————————————————–
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
//———————————————————–
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Tergambar=false;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
}
//———————————————————–
void __fastcall TForm1::OpenPictureDialog1CanClose(TObject *Sender,
bool &CanClose)
{
if (OpenPictureDialog1->Execute())
{
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
}
//———————————————————–
void __fastcall TForm1::SavePictureDialog1CanClose(TObject *Sender,
bool &CanClose)
{
if (SavePictureDialog1->Execute())
{
Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
}
}
//———————————————————–
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Tergambar=true;
Image1->Canvas->MoveTo(X,Y);
}
//———————————————————–
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Edit1->Text=IntToStr(X);
Edit2->Text=IntToStr(Y);
if (Tergambar)
{
Image1->Canvas->LineTo(X,Y);
}
}
//———————————————————–
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Tergambar=false;
}
//———————————————————
#else
#include
#endif
#ifdef __APPLE__
#include
#else
#include
#endif
#include
const int lebar_layar = 640;
const int tinggi_layar = 480;
/*membuat fungsi untuk memeriksa terjadinya tabrakan (collision)
antara kotak pertama (A) dengan kotak kedua (B)
*/
bool f_PeriksaTabrakan(SDL_Rect A, SDL_Rect B)
{
int kiriA, kiriB;
int kananA, kananB;
int atasA, atasB;
int bawahA, bawahB;
kiriA = A.x;
kananA = A.x + A.w;
atasA = A.y;
bawahA = A.y + A.h;
kiriB = B.x;
kananB = B.x + B.w;
atasB = B.y;
bawahB = B.y + B.h;
if (bawahA <= atasB) return false; if (atasA >= bawahB) return false;
if (kananA <=kiriB) return false; if (kiriA >=kananB) return false;
return true;
}
//clsKotak = class Kotak
class clsKotak
{
SDL_Rect kotak;
int red,green,blue;
int kecX, kecY;
public:
clsKotak(int,int,int,int,int);
SDL_Rect getKotak();
void bergerak(int,SDL_Rect O_[]);
void tampil(SDL_Surface *_O);
};
//konstruktor kelas kotak
clsKotak::clsKotak(int _red, int _green, int _blue, int _X, int _Y)
{
//variabel red, green, blue (rgb) untuk
//membedakan warna dengan kotak yang lain
red = _red;
//diperiksa nilainya jika ada kesalahan
if( red < red =" 0;"> 255) red = 255;
green = _green;
if( green < green =" 0;"> 255) green = 255;
blue = _blue;
if( blue < blue =" 0;"> 255) blue = 255;
kecX = 5+_X%3;
kecY = 5+_Y%3;
kotak.x = _X;
kotak.y = _Y;
kotak.w = 20;
kotak.h = 20;
}
SDL_Rect clsKotak::getKotak()
{
return kotak;
}
void clsKotak::bergerak(int banyakKotak, SDL_Rect kotakLainnya[])
{
//menggerakan kotak dengan sumbu x
kotak.x += kecX;
//memeriksa apakah sih kotak masih ada dilayar
//atau sudah keluar dari layar
if( kotak.x < x =" 0;" kecx =" -kecX;"> lebar_layar){
kotak.x = lebar_layar - kotak.w;
kecX = -kecX;
}
//pemeriksaan terhadap kotak lainnya
for(int c=0;c
kotak.y = tinggi_layar - kotak.h;
kecY = -kecY;
}
//pemeriksaan terhadap kotak lainnya
for(int c=0;c
green+=rand()%7;
if( green>220) green = 0;
blue+=rand()%9;
if( blue>220) blue = 0;
//warna diisi sesuai dengan variabel red, green, blue
SDL_FillRect( _screen, &kotak, SDL_MapRGB( _screen->format, red, green, blue));
}
int main ( int argc, char** argv )
{
srand((unsigned)time(NULL));
// initialize SDL video
if ( SDL_Init( SDL_INIT_VIDEO ) < screen =" SDL_SetVideoMode(lebar_layar," bykkotak =" banyak" bykkotak =" 50;" c="0;c
for( int b=0;b
}
else{
_ktkLain[c].x=0;
_ktkLain[c].y=0;
_ktkLain[c].w=0;
_ktkLain[c].h=0;
}
}
kotakKu[b]->bergerak(bykKotak,_ktkLain);
}
for( int c=0;c
}
// DRAWING ENDS HERE
// finally, update the screen :)
SDL_Flip(screen);
//perhitungan frame rate
int getDetik = SDL_GetTicks() - fps;
if( getDetik<(1000/frame_per_second)){ SDL_Delay((1000/frame_per_second) - getDetik); } } // end main loop for( int c=0;c
Fungsi ubah wrna diatas bisa diganti mnjadi sebuah prosedur..
cnth’a..
void setcolor(unsigned short color)
{
HANDLE hCon = GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hCon,color);
}
panggil prsdr trsbut dngn..
setcolor(10);
angka 10 fngsi’a sama dngn angka 14 pada pnjelasan diatas..!!
untk mngset ulng ke mode stndar ketikan code..
setcolor(7);
7 adlh warna putih biasa.., bukan white bright….!!
Berikut fungsi untuk mngubah warna text sekaligus mngbh warna background..
code’a..
system(“Color 0A”);
dngn library.. #include
0A = adlh dua angka Hexadecimal… 0-F..
digit pertama buat ngatur warna background, sdngkan digit kedua buat ngatur warna text..
jadi klo kalian udh ngeset tmplan ke wrna lain.., untk mngubh ke default warna’a pake code…
system(“Color 07″);
0 , digunakn untuk backround..(hitam)
7 , digunakn untuk text..(putih)
brikut adalah code Hexadecimal buat ngubah warna..
0 = Black
1 = Blue
2 = Green
3 = Aqua
4 = Red
5 = Purple
6 = Yellow
7 = White
8 = Gray
9 = Light Blue
A = Light Green
B = Light Aqua
C = Light Red
D = Light Purple
E = Light Yellow
F = Light White
NB: fungsi system(“color ..”);
hanya dpt mngubh SEMUA warna text!!!
Script Project dengan TImage
#include
#pragma hdrstop
#include “Unit1.h”
#pragma package(smart_init)
#pragma resource “*.dfm”
TForm1 *Form1;
int Tergambar;
//———————————————————–
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Tergambar=false;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
}
//———————————————————–
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (ColorDialog1->Execute ())
Image1->Canvas->Pen->Color=ColorDialog1->Color;
}
//———————————————————–
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
//———————————————————–
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Tergambar=false;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
}
//———————————————————–
void __fastcall TForm1::OpenPictureDialog1CanClose(TObject *Sender,
bool &CanClose)
{
if (OpenPictureDialog1->Execute())
{
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
}
//———————————————————–
void __fastcall TForm1::SavePictureDialog1CanClose(TObject *Sender,
bool &CanClose)
{
if (SavePictureDialog1->Execute())
{
Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
}
}
//———————————————————–
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Tergambar=true;
Image1->Canvas->MoveTo(X,Y);
}
//———————————————————–
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Edit1->Text=IntToStr(X);
Edit2->Text=IntToStr(Y);
if (Tergambar)
{
Image1->Canvas->LineTo(X,Y);
}
}
//———————————————————–
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Tergambar=false;
}
//———————————————————
♥ ♥ LELAKI PANTANG MENYERAH ♥ ♥
Mungkin salahku
Telah Memasuki kehidupanmu
Yang telah berdua
...Namun semua ini takkan membuatku
Menyerah begitu saja
Meski harus kupertaruhkan semua
Meski cinta harus membunuh hatiku
Jangan kau sebut aku lelak
Bila Tak mampu dapatkan kamu
Aku trlahir di dunia ini
Bukan jadi tuk seorang pecundang
Aku trlahir sbagai pemenang
Kan kurebut hatimu Darinya
Aku lelaki yang pantang menyerah
Sabtu, 01 Mei 2010
Langganan:
Komentar (Atom)