Matur Nuwun Sampun Mampir Mugi-Mugi Saget Dados Ilmu Ingkang Manfaat Fiddunya Wal Akherat

Jumat, 20 Agustus 2010

Rumah Berputar

Seperti pada pembahasan sebelumnya, Apakah sulit belajar grafika komputer?
Insyaalloh tidak ada yang sulit didunia ini asalkan kita ada niat untuk berusaha bisa, berikut adalah contoh membuat rumah berputar menggunakan visual c++

#include
#include
#include
#include

typedef struct {
float x,y;
}point2D_t;

typedef struct {
float r,g,b;
}color_t;


void userdraw(void);

void drawLine(float x1, float y1, float x2, float y2){
glBegin(GL_LINES);
glVertex2f(x1,y1);
glVertex2f(x2,y2);
glEnd();
}

void drawLines(point2D_t pnt[],int n)
{
int i;
glBegin(GL_LINES);
for(i=0;i glVertex2f(pnt[i].x, pnt[i].y);
}
glEnd();
}

void drawPolygon(point2D_t pnt[],int n)
{
int i;
glBegin(GL_LINE_LOOP);
for(i=0;i glVertex2f(pnt[i].x, pnt[i].y);
}
glEnd();
}

void setColor(float red,float green,float blue)
{
glColor3f(red, green, blue);
}

void setColor(color_t col)
{
glColor3f(col.r, col.g, col.b);
}


void gradatePolygon(point2D_t a[],color_t w[],int n)
{
int i;
glBegin(GL_POLYGON);
for(i=0;i {
glColor3f(w[i].r,w[i].g,w[i].b);
glVertex2f(a[i].x,a[i].y);
}
glEnd();
}

void fillPolygon(point2D_t pnt[],int n,color_t color)
{
int i;
setColor(color);
glBegin(GL_POLYGON);
for (i=0;i glVertex2f(pnt[i].x, pnt[i].y);
}
glEnd();
}

void gradasi(point2D_t pnt[],int n,color_t color[])
{
int i;
glBegin(GL_POLYGON);
for (i=0;i glVertex2f(pnt[i].x, pnt[i].y);
setColor(color[i]);
}
glEnd();
}

void userdraw(void){
static float tick=0;
int a;

color_t abu={0.5,0.5,0.5};
color_t merah={1,0,0};
color_t kuning={1,1,0};
color_t merahh={1,0,0};


point2D_t atap[4]={{70,70},{220,70},{205,130},{35,130}};
point2D_t atapp[4];

point2D_t pintu[4]={{40,0},{40,50},{65,50},{65,0}};
point2D_t pintuu[4];


point2D_t dpn[5]={{0,0},{0,70},{35,130},{70,70},{70,0}};
point2D_t dpan[5];

point2D_t grs[2]={{0,70},{70,70}};
point2D_t gris[2];

point2D_t smpg[4]={{70,0},{70,70},{210,70},{210,0}};
point2D_t smping[4];

point2D_t jen1[4]={{5,20},{5,50},{20,50},{20,20}};
point2D_t jen2[4]={{22,20},{22,50},{37,50},{37,20}};
point2D_t jen3[4]={{80,20},{80,50},{95,50},{95,20}};
point2D_t jen4[4]={{97,20},{97,50},{112,50},{112,20}};
point2D_t jen5[4]={{124,20},{124,50},{139,50},{139,20}};
point2D_t jen6[4]={{141,20},{141,50},{156,50},{156,20}};
point2D_t jen7[4]={{168,20},{168,50},{183,50},{183,20}};
point2D_t jen8[4]={{185,20},{185,50},{200,50},{200,20}};

point2D_t jend1[4];point2D_t jend2[4]; point2D_t jend3[4];point2D_t jend4[4]; point2D_t jend5[4]; point2D_t jend6[4]; point2D_t jend7[4]; point2D_t jend8[4];

point2D_t lbng1[4]={{5,53},{5,59},{37,59},{37,53}};
point2D_t lbng2[4]={{40,53},{40,59},{65,59},{65,53}};
point2D_t lbng3[4]={{80,53},{80,59},{112,59},{112,53}};
point2D_t lbng4[4]={{124,53},{124,59},{156,59},{156,53}};
point2D_t lbng5[4]={{168,53},{168,59},{200,59},{200,53}};

point2D_t lbang1[4];
point2D_t lbang2[4];
point2D_t lbang3[4];
point2D_t lbang4[4];
point2D_t lbang5[4];


point2D_t dlm1[4]={{7,54},{7,57},{35,57},{35,54}};
point2D_t dlm2[4]={{42,54},{42,57},{63,57},{63,54}};
point2D_t dlm3[4]={{82,54},{82,57},{110,57},{110,54}};
point2D_t dlm4[4]={{126,54},{126,57},{154,57},{154,54}};
point2D_t dlm5[4]={{170,54},{170,57},{198,57},{198,54}};

point2D_t dlam1[4];
point2D_t dlam2[4];
point2D_t dlam3[4];
point2D_t dlam4[4];
point2D_t dlam5[4];

point2D_t crbg[4]={{20,105},{20,135},{30,135},{30,120}};
point2D_t crbong[4];

point2D_t jln[4]={{20,-48},{50,0},{60,0},{80,-48}};
point2D_t jlan[4];

for(a=0;a<4;a++){
atapp[a].x=atap[a].x*cos(tick/30)-atap[a].y*sin(tick/30);
atapp[a].y=atap[a].x*sin(tick/30)+atap[a].y*cos(tick/30);}

for(a=0;a<4;a++){
pintuu[a].x=pintu[a].x*cos(tick/30)-pintu[a].y*sin(tick/30);
pintuu[a].y=pintu[a].x*sin(tick/30)+pintu[a].y*cos(tick/30);}

for(a=0;a<5;a++){
dpan[a].x=dpn[a].x*cos(tick/30)-dpn[a].y*sin(tick/30);
dpan[a].y=dpn[a].x*sin(tick/30)+dpn[a].y*cos(tick/30);}

for(a=0;a<2;a++){
gris[a].x=grs[a].x*cos(tick/30)-grs[a].y*sin(tick/30);
gris[a].y=grs[a].x*sin(tick/30)+grs[a].y*cos(tick/30);}

for(a=0;a<4;a++){
smping[a].x=smpg[a].x*cos(tick/30)-smpg[a].y*sin(tick/30);
smping[a].y=smpg[a].x*sin(tick/30)+smpg[a].y*cos(tick/30);
}

for(a=0;a<4;a++){
jend1[a].x=jen1[a].x*cos(tick/30)-jen1[a].y*sin(tick/30);
jend1[a].y=jen1[a].x*sin(tick/30)+jen1[a].y*cos(tick/30);

jend2[a].x=jen2[a].x*cos(tick/30)-jen2[a].y*sin(tick/30);
jend2[a].y=jen2[a].x*sin(tick/30)+jen2[a].y*cos(tick/30);

jend3[a].x=jen3[a].x*cos(tick/30)-jen3[a].y*sin(tick/30);
jend3[a].y=jen3[a].x*sin(tick/30)+jen3[a].y*cos(tick/30);

jend4[a].x=jen4[a].x*cos(tick/30)-jen4[a].y*sin(tick/30);
jend4[a].y=jen4[a].x*sin(tick/30)+jen4[a].y*cos(tick/30);

jend5[a].x=jen5[a].x*cos(tick/30)-jen5[a].y*sin(tick/30);
jend5[a].y=jen5[a].x*sin(tick/30)+jen5[a].y*cos(tick/30);

jend6[a].x=jen6[a].x*cos(tick/30)-jen6[a].y*sin(tick/30);
jend6[a].y=jen6[a].x*sin(tick/30)+jen6[a].y*cos(tick/30);

jend7[a].x=jen7[a].x*cos(tick/30)-jen7[a].y*sin(tick/30);
jend7[a].y=jen7[a].x*sin(tick/30)+jen7[a].y*cos(tick/30);

jend8[a].x=jen8[a].x*cos(tick/30)-jen8[a].y*sin(tick/30);
jend8[a].y=jen8[a].x*sin(tick/30)+jen8[a].y*cos(tick/30);

lbang1[a].x=lbng1[a].x*cos(tick/30)-lbng1[a].y*sin(tick/30);
lbang1[a].y=lbng1[a].x*sin(tick/30)+lbng1[a].y*cos(tick/30);

lbang2[a].x=lbng2[a].x*cos(tick/30)-lbng2[a].y*sin(tick/30);
lbang2[a].y=lbng2[a].x*sin(tick/30)+lbng2[a].y*cos(tick/30);

lbang3[a].x=lbng3[a].x*cos(tick/30)-lbng3[a].y*sin(tick/30);
lbang3[a].y=lbng3[a].x*sin(tick/30)+lbng3[a].y*cos(tick/30);

lbang4[a].x=lbng4[a].x*cos(tick/30)-lbng4[a].y*sin(tick/30);
lbang4[a].y=lbng4[a].x*sin(tick/30)+lbng4[a].y*cos(tick/30);

lbang5[a].x=lbng5[a].x*cos(tick/30)-lbng5[a].y*sin(tick/30);
lbang5[a].y=lbng5[a].x*sin(tick/30)+lbng5[a].y*cos(tick/30);

dlam1[a].x=dlm1[a].x*cos(tick/30)-dlm1[a].y*sin(tick/30);
dlam1[a].y=dlm1[a].x*sin(tick/30)+dlm1[a].y*cos(tick/30);

dlam2[a].x=dlm2[a].x*cos(tick/30)-dlm2[a].y*sin(tick/30);
dlam2[a].y=dlm2[a].x*sin(tick/30)+dlm2[a].y*cos(tick/30);

dlam3[a].x=dlm3[a].x*cos(tick/30)-dlm3[a].y*sin(tick/30);
dlam3[a].y=dlm3[a].x*sin(tick/30)+dlm3[a].y*cos(tick/30);

dlam4[a].x=dlm4[a].x*cos(tick/30)-dlm4[a].y*sin(tick/30);
dlam4[a].y=dlm4[a].x*sin(tick/30)+dlm4[a].y*cos(tick/30);

dlam5[a].x=dlm5[a].x*cos(tick/30)-dlm5[a].y*sin(tick/30);
dlam5[a].y=dlm5[a].x*sin(tick/30)+dlm5[a].y*cos(tick/30);

crbong[a].x=crbg[a].x*cos(tick/30)-crbg[a].y*sin(tick/30);
crbong[a].y=crbg[a].x*sin(tick/30)+crbg[a].y*cos(tick/30);

jlan[a].x=jln[a].x*cos(tick/30)-jln[a].y*sin(tick/30);
jlan[a].y=jln[a].x*sin(tick/30)+jln[a].y*cos(tick/30);
}


fillPolygon(atapp,4,abu);
fillPolygon(pintuu,4,merah);
setColor(0.,0.,0.);
drawPolygon(dpan,5);
drawLines(gris,2);
drawPolygon(smping,4);

fillPolygon(jend1,4,kuning);
fillPolygon(jend2,4,kuning);
fillPolygon(jend3,4,kuning);
fillPolygon(jend4,4,kuning);
fillPolygon(jend5,4,kuning);
fillPolygon(jend6,4,kuning);
fillPolygon(jend7,4,kuning);
fillPolygon(jend8,4,kuning);

setColor(0.,0.,0.);
drawPolygon(lbang1,4);
drawPolygon(lbang2,4);
drawPolygon(lbang3,4);
drawPolygon(lbang4,4);
drawPolygon(lbang5,4);

fillPolygon(dlam1,4,merah);
fillPolygon(dlam2,4,merah);
fillPolygon(dlam3,4,merah);
fillPolygon(dlam4,4,merah);
fillPolygon(dlam5,4,merah);

setColor(0,0,1);
drawPolygon(crbong,4);
setColor(0,1,0);
drawLines(jlan,4);


tick=tick-0.1;


}

void display(void)
{
glClear(GL_COLOR_BUFFER_BIT);
userdraw();
glFlush();
}

int main(int argc, char **argv)
{
glutInit(&argc,argv);
glutInitDisplayMode(GLUT_SINGLE|GLUT_RGB);
glutInitWindowPosition(100,150);
glutInitWindowSize(640,480);
glutCreateWindow("Rumah munyer by yudha ");
glClearColor(0,0.6,1,0.0);
gluOrtho2D(-320., 320., -240.0, 240.0);
glutIdleFunc(display);
glutDisplayFunc(display);
glutMainLoop();
return 0;
}

Setitik ilmu akan menjadikan bulatan yang sempurna suatu saat. Semoga bermanfaat ^_^

Selasa, 17 Agustus 2010

Nikmatnya Kemerdekaan Di bulan Ramadhan


Benarkah kita sudah bersyukur akan kemerdekaan?

Indonesia tanah airku, tanah tumpah darahku. begitulah dalam lagu kebangsaan yang dulu pernah ada di jiwa para pahlawan kita.

Banyak bangsa yang menginginkan Indonesia karena kekayaan yang terdapat di dalam Negri kita tercinta. Betapa besar bangsaku Indah karunia yang di berikan oleh-Nya. Gunung, sawah, dan lautan yang terbentang luas di Indonesia.

Indonesiaku nan dulu begitu banyak orang menggebu - gebu untuk menyambutmu dengan slogan Merdeka atau Mati.

Jangan lupakan jati dirimu, jangan biarkan orang merebutmu, tetaplah jadikan satu untuk indonesiaku.

Alhamdulillah hari kemerdekaan kita dirayakan bertepatan dengan bulan suci ramadhan, karena bulan ini adalah bulan yang dapat mengingatkan kita pada



para pahlawan dengan strategi dan kesabarannya dalam melawan para penjajah....... MERDEKA!!! MERDEKA!!! MERDEKA !!!





Semoga kita semua termasuk orang yang merdeka, karena kemerdekaan yang sesungguhnya adalah dari kesabaran kita dalam menghadapi sesuatu yang ada di dunia ini. Mari kita titipkan dan percayakan negri Indonesia ini kepada para pemimpin yang terpilih dan melanjutkan perjuangan para pahlawan kita terdahulu. Lanjutkan...

Selamat wahai para pemimpin jadikanlah rakyat ini terjamin...


DIRGAHAYU NEGRIKU DIRGAHAYU BANGSAKU... Ke - 65


Minggu, 08 Agustus 2010

Marhaban Ya Ramadhan


Ahlan wa sahlan ya ramadhan

Selamat datang wahai bulan ramadhan......
Sebagai seorang muslim inilah bulan yang sangat ditunggu - tunggu Bulan penuh berkah, Bulan dimana nafas menjadi tasbih, tidur kita ibadah, dan doa kita diijabah.

Maafkan segala khilaf yang telah saya perbuat baik sengaja maupun tidak, mulai berbenah untuk menyambut bulan suci, siapkan diri, siapkan hati untuk jalani hidup setiap hari


Selamat menunaikan ibadah puasa 1431H

Mohon Maaf Lahir dan Batin
Zawa Hello Ramadhan

Selasa, 03 Agustus 2010

Sukses Online Dengan Modal 0

Hi Kawan Semua,

Pernahkah kita berniat ingin terjun ke bisnis online tapi bingung darimana mualainya? Kalaupun ada panduan, metode cara dan tool-nya meski bayar dan meskipun harganya cuma Rp. 50.000,- karena kita awam bisnis online, harga tersebut sangat mahal sekali.

Jangan putus asa dulu, kita akan mendapatkannya secara gratis. Silahkan klik link di bawah.

www.Saungbisnis.com

Pada website tersebut kita akan mendapatkan produk affiliasi bisnis online secara gratis yang akan membawa anda terjun ke dunia bisnis online sekaligus mempraktekkan affiliasi marketing, karena sehebat apapun kita kalau tidak pernah praktek, itu percuma.

Dengan bergabung di www.Saungbisnis.com, Kita akan mendapatkan :
1. Pembelajaran Bisnis Online dari MrActionClub seharga 6jt secara GRATIS!!!.
2. Panduan 3 Langkah mudah mencari uang di Internet dengan metode Sistem Mesin Uang Otomatis ( SMUO ) seharga 4.5jt secara GRATIS!!!
3. Mendapat panduan belajar Wordpress lengkap dengan SEO dan Tools yang bisa dipakai langsung dari Cafebisnis secara GRATIS!!!
4. Mendapatkan Script Passive Income yang dipakai para Pakar Internet Marketing
5. Mendapatkan Panduan Detail SEO
6. Mendapatkan Panduan Bagaimana Kaya Dari Facebook Marketing

Semuanya bisa kita dapatkan secara GRATIS!!! dan Kita bisa terjun ke dunia bisnis online. Yang kita perlukan adalah PRAKTEK dan BELAJAR dari apa yang kita dapatkan di atas.

Semoga Sukses Selalu menyertai langkah kita semua


PS : Berusaha dan selalu berdoa, jangan lupa senantiasa menyisihkan sebagian dari pendapatan kita untuk orang yang membutuhkannya. Semoga bermanfaat ^_^

Senin, 02 Agustus 2010

AWARD PERTAMA DARI SAHABAT BLOGGER

Alhamdulillah Terima kasih untuk sahabatku auastyle yang telah memberiku award ini. Karena ini award pertama yang saya dapat. Dan sesuai dengan aturan main para blogger, award ini saya bagikan buat sahabat blog saya berikut ini.
Semoga bersedia menerimanya..... dan bagi teman-teman yang belum dapat, tunggu award berikutnya....

Awards ini saya beri untuk sahabat bloger adalah sebagai berikut:

1. oRiD widget
2. Patriot-Dexwa Weblog
3. Rocker Da'z Jadi
4. Imankikuk
5. Caray
6. Syahida
7. Munir Ardi
8. Belajar ilmu Komputer
9. Grecek
10.AJE

Aturan Main Para Blogger sebagai berikut : Bagi sobat yang menerima Award ini diharuskan untuk membagikan kembali Award ini kepada sepuluh orang temannya. Selanjutnya, sobat penerima Award harus meletakkan link-link berikut ini :

  1. ashtho software easy
  2. PIK Remaja "Al-Hikmah"
  3. MARI-BERKAWAND
  4. Great Love with Milk Chocolate
  5. Nataliuszone
  6. Ubay Nizar
  7. manqidies blog
  8. Blog Music Indo
  9. Coretan Keyboard
  10. Unyil Blog
Sebelum sobat-sobat meletakkan link-link di atas, hapus terlebih dahulu peserta nomor 1 dari daftar. Sehingga semua peserta naik 1 level. Peserta nomor 2 menjadi nomor 1, nomor 3 jadi 2, dst. Kemudian masukkan link sobat sendiri di bagian paling bawah (nomor 10). Tapi ingat...!!!, kalian semua harus adil dalam menjalankannya. Jika tiap penerima award mampu memberikan award ini kepada 5 orang saja dan mereka semua mengerjakannya , maka jumlah backlink yang akan didapat adalah:
Ketika posisi kamu 10, jumlah backlink = 1
Posisi 9, jumlah backlink = 5
Posisi 8, jumlah backlink = 25
Posisi 7, jumlah backlink = 125
Posisi 6, jumlah backlink = 625
Posisi 5, jumlah backlink = 3,125
Posisi 4, jumlah backlink = 15,625
Posisi 3, jumlah backlink = 78,125
Posisi 2, jumlah backlink = 390,625
Posisi 1, jumlah backlink = 1,953,125

Dan semuanya menggunakan kata kunci yang sobat inginkan. Dari sisi SEO (Search Engine Optimation) sobat sudah mendapatkan 1,953,125 backlink dan keuntungannya, blog sobat akan mendapatkan traffic tambahan, apalagi jika ada yang meng-klik link ke blog sobat. Semoga bermanfaat... ^_^

Minggu, 01 Agustus 2010

Tutorial VB

Tips Mempercantik Form

2.1, 2.2, 2.3, 2.5, 2.6, 2.7, 2.8, 2.10, 2.11, 2.12, 2.14, 2.15, 2.16, 2.17, 2.18

Mempercantik Tampilan Backgroun Pada Form

3.1, 3.2, 3.3, 3.4, 3.5, 3.6, 3.7, 3.8, 3.9, 3.10, 3.11, 3.12

Tips Penggunaan Text Box

4.1, 4.2, 4.3, 4.4, 4.5, 4.6, 4.8, 4.10, 4.11, 4.12


Source Code
MENGENALARRAYvb.rar
mengurutkandata.zip

Tinggalkan Pesan

Get cash from your website. Sign up as affiliate.Join 4Shared Now! affiliate program

EARN CASH FROM YOUR SITE

Turn your valuable site visitors into income. Work online and join our free money making partner program. We offer the most commission rate to help maximize your income stream.

Join our money making program absolutely no charge and 100% risk free.

Sign Up...

Mountain a constant stream of money

Our money making system helps you to establish a constant stream of cash, 24 hours a day, 7 days a week, 365 days a year. Allowing you more time to focus on the things you love. You'll even receive money while you sleep!

Start receiving steady affiliate revenue

This money earn program really can make you profit on the same day. Start collecting serious partner income with almost no effort at all. This is a serious revenue opportunity, the first step for you to build a steady, reliable, long-time profitable business.

A constant money generator

Imagine running of a something that never failed to provide you with income-flow. A earning money program so amazingly profitable that you never had to work for a boss ever again!

Lotta Rewards Lotta Rewards