Sabtu, 02 November 2013

Membuat nama menggunakan OpenGL pada C++

Ini contoh program buatan saya
 










Langsung copy aja kode nya dibawah ini:

#include <glut.h>

void userdraw()
{
     /*I*/
     glLineWidth(1);
     glBegin(GL_LINE_LOOP);
           glVertex2i(50,500);
           glVertex2i(50,400);
           glVertex2i(60,400);
           glVertex2i(60,500);
     glEnd();
     /*H*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(70,500);
           glVertex2i(70,400);
           glVertex2i(80,400);
           glVertex2i(80,440);
           glVertex2i(100,440);
           glVertex2i(100,400);
           glVertex2i(110,400);
           glVertex2i(110,500);
           glVertex2i(100,500);
           glVertex2i(100,455);
           glVertex2i(80,455);
           glVertex2i(80,500);
     glEnd();
     /*W*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(120,500);
           glVertex2i(140,400);
           glVertex2i(150,400);
           glVertex2i(160,440);
           glVertex2i(170,400);
           glVertex2i(180,400);
           glVertex2i(200,500);
           glVertex2i(190,500);
           glVertex2i(175,420);
           glVertex2i(165,455);
           glVertex2i(155,455);
           glVertex2i(145,420);
           glVertex2i(130,500);
     glEnd();
     /*A*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(190,400);
           glVertex2i(210,500);
           glVertex2i(220,500);
           glVertex2i(240,400);
           glVertex2i(230,400);
           glVertex2i(221,440);
           glVertex2i(209,440);
           glVertex2i(200,400);
     glEnd();
          
     glBegin(GL_LINE_LOOP);
           glVertex2i(212,455);
           glVertex2i(215,480);
           glVertex2i(218,455);
     glEnd();  
     /*N*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(250,400);
           glVertex2i(250,500);
           glVertex2i(260,500);
           glVertex2i(280,430);
           glVertex2i(280,500);
           glVertex2i(290,500);
           glVertex2i(290,400);
           glVertex2i(280,400);
           glVertex2i(260,470);
           glVertex2i(260,400);
     glEnd();
     /*K*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(330,500);
           glVertex2i(330,400);
           glVertex2i(340,400);
           glVertex2i(340,440);
           glVertex2i(360,400);
           glVertex2i(370,400);
           glVertex2i(346,445);
           glVertex2i(370,500);
           glVertex2i(360,500);
           glVertex2i(340,455);
           glVertex2i(340,500);
     glEnd();
     /*U*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(380,500);
           glVertex2i(380,410);
           glVertex2i(390,400);
           glVertex2i(410,400);
           glVertex2i(420,410);
           glVertex2i(420,500);
           glVertex2i(410,500);
           glVertex2i(410,415);
           glVertex2i(390,415);
           glVertex2i(390,500);
     glEnd();
     /*R*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(430,400);
           glVertex2i(430,500);
           glVertex2i(445,500);
           glVertex2i(450,495);
           glVertex2i(455,485);
           glVertex2i(455,470);
           glVertex2i(450,455);
           glVertex2i(447,450);
           glVertex2i(465,400);
           glVertex2i(455,400);
           glVertex2i(440,440);
           glVertex2i(440,400);
     glEnd();
     glBegin(GL_LINE_LOOP);
           glVertex2i(440,460);
           glVertex2i(440,480);
           glVertex2i(443,480);
           glVertex2i(445,475);
           glVertex2i(445,470);
           glVertex2i(443,460);
     glEnd();
     /*N*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(475,400);
           glVertex2i(475,500);
           glVertex2i(485,500);
           glVertex2i(505,430);
           glVertex2i(505,500);
           glVertex2i(515,500);
           glVertex2i(515,400);
           glVertex2i(505,400);
           glVertex2i(485,470);
           glVertex2i(485,400);
     glEnd();
     /*I*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(525,500);
           glVertex2i(525,400);
           glVertex2i(535,400);
           glVertex2i(535,500);
     glEnd();
     /*A*/
     glBegin(GL_LINE_LOOP);
           glVertex2i(545,400);
           glVertex2i(565,500);
           glVertex2i(575,500);
           glVertex2i(595,400);
           glVertex2i(585,400);
           glVertex2i(576,440);
           glVertex2i(564,440);
           glVertex2i(555,400);
     glEnd();
          
     glBegin(GL_LINE_LOOP);
           glVertex2i(567,455);
           glVertex2i(570,480);
           glVertex2i(573,455);
     glEnd();  
          
}

void display(void)
{
     glClear(GL_COLOR_BUFFER_BIT);
     userdraw();
     glutSwapBuffers();
}
int main(int argc, char **argv)
{
     glutInit(&argc,argv);
     glutInitDisplayMode(GLUT_DOUBLE|GLUT_RGB);
     glutInitWindowPosition(100,100);//meletakkan pada posisi (100,100) di layar komputer
     glutInitWindowSize(850,480);//membuat ukuran window (640,480)
     glutCreateWindow("Nama Saya");//pemberian judul pada window
     glClearColor(0,0,0,0);//pemberian warna pada window dengan format RGB
     gluOrtho2D(0.,640.,0.,640.);
     glutIdleFunc(display);
     glutDisplayFunc(display);
     glutMainLoop();
     return 0;
}

Ini menurut versi saya, mungkin versi anda bisa berbeda-beda
Terimakasih sudah berkunjung.

Kamis, 24 Oktober 2013

Membuat Pengunci Folder di Flasdisk Sederhana Menggunakan VB6

Untuk menambah ke amanan data pad flasdisk kita, ada baik nya kita membuat program  ini.
berikut cara membuat nya:

Langsung ke TKP 

Bahan bahan :

1 Textbox
2 Command Button

Buat satu folder dan isi semua file yang mau di sembunyikan...
contoh
saya membuat folder dengan nama Aq

lalu saya isikan semua file-file


Ok
klik view code di form vb... isikan code berikut
Private Sub Command1_Click()
If Text1.Text = "ER6" Then
SetAttr "Aq", vbNormal End
Else
MsgBox " Passwordnya salah gan ", vbCritical,">__<""
End If
End Sub
Private Sub Command2_Click()
SetAttr "Aq", vbHidden Or vbSystem
End
End Sub

Penjelasan :

[+] If Text1.Text = "ER6" Then =>> ER6 adalah password nya

[+] SetAttr "Aq", vbNormal =>> membuat folder Aq menjadi normal

[+] SetAttr "Aq", vbHidden Or vbSystem =>> membuat folder dc menjadi hidden system

Kesimpulan :

jadi, program ini cuma menghidden folder system gitu...

setelah aplikasi ini di buat, masukin folder Aq + aplikasi ke flasdisk

sekian dan terimakasih.


Semoga program ini bermanfaat bagi anda.