Kamis, 07 Juli 2011

Cerita aku dikampus

Nama  aku hertati sihole,kegiatan aku tiap  hari kekampus,dikampus aku  ikut organisasi  KMK(Kumpulan Mahasiswa Kristen),aku ikut sebagai panitia  natal  dan pashka.
aku  senang ikut organisasi seperti itu,aku bisa menambah sahabat,pengalaman dll.
diorganisasi itu aku mendapat  banyak pelajara tentang sopan terhadap Dosen.,maupun kakak  semester!!!

Minggu, 03 Juli 2011

Tugas 3

#include"iostream.h"
#include"conio.h"
#include"stdio.h"
#include"string.h"

struct pegawai
 {
    char nik[9];
    char nama[20];
    char kd[5];
    char jabatan;
 } peg[20];
void main()
{
    char lg='Y';
    int hasil,i,n=0;
    float gaji=0;
    long tunjangan;
    long tgaji=0;

while(lg=='Y'||lg=='y')
{
     clrscr();
        cout<<"Input Data Pegawai\n";
        cout<<"-----------------------------------\n";
        n++;
        cout<<"NIK    :";
            gets(peg[i].nik);
        cout<<"Nama :";
            gets(peg[i].nama);
        cout<<"kd[1,2,3] :";
             gets(peg[i].kd);
        cout<<"Input Lagi[Y/T] :";
            lg=getche();
        }

        clrscr();
        gotoxy(5,3);cout<<"LAPORAN GAJI PEGAWAI                                    \n";
        gotoxy(5,4);cout<<"----------------------------------------------------\n";
        gotoxy(5,5);cout<<"Kode    NIK    Nama    Jabatan    Gaji    Tunjangan    TGaji   \n";


        gotoxy(5,6);cout<<"--------------------------------------------------- \n";

        for(i=1;i<=n;i++)
        {
            gotoxy(6,6+i);cout<<i;
            gotoxy(9,6+i);cout<<peg[i].nik;
            gotoxy(17,6+i);cout<<peg[i].nama;
            gotoxy(35,6+i);cout<<peg[i].kd;

            hasil=strcmp(peg[i].kd,"1");
            if(hasil==0)
            jabatan="Persediaan";
            gaji=2500000;

            hasil=strcmp(peg[i].kd,"2");
            if(hasil==0)
            jabatan="Administrasi";
            gaji=2000000;

            hasil=strcmp(peg[i].kd,"3");
            if(hasil==0)
            jabatan="Keuangan";
            gaji=1500000;


            gotoxy(45,6+i);cout<<gaji;
            gotoxy(48,6+i);cout<<jabatan;

            hasil=strcmp(peg[i].kd,"1");
            if(hasil==0)
            tunjangan=0.35*gaji;

            hasil=strcmp(peg[i].kd,"2");
            if(hasil==0)
            tunjangan=0.10*gaji;

            hasil=strcmp(peg[i].kd,"3");
            if(hasil==0)
            tunjangan=0.05*gaji;

            gotoxy(45,6+i);cout<<tunjangan;


            tgaji= gaji + tunjangan;
            gotoxy(50,6+i);cout<<tgaji;
        }
            gotoxy(5,7+i);cout<<"--------------------------------------------";
            getch();
    }

Tugas 4

 # include <iostream.h>
 # include <stdio.h>
 # include <math.h>
 # include <conio.h>
 # include <string.h>

 struct data {
    char kode[15];
    char nama[30];
    char pendidikan[15];
    char keahlian[30];

    } pgw[50];

 void menu();
 void isi();
 void tambah();
 void baca();

 void main()
 {
    char pil='0';
    while (pil!='4')
    {
    menu();
    pil=getche();
    switch(pil)
    {
        case'1':
            isi();break;
        case'2':
            tambah();break;
        case'3':
            baca();break;
        case'4':
            break;
    }
  }
 }

 void menu()
 {
    clrscr();
    gotoxy(25,5);cout<<"MENU DATA BUDIDARMA";
    gotoxy(25,6);cout<<"-------------------------------------";
    gotoxy(25,7);cout<<"[1]Input data dosen";
    gotoxy(25,8);cout<<"[2]Input data mahasiswa";
    gotoxy(25,9);cout<<"[3]Membaca Data dosen";
    gotoxy(25,10);cout<<"[4]Membaca data mahasiswa";
    gotoxy(25,11);cout<<"[5]Keluar program";
    gotoxy(25,12);cout<<"------------------------------------";
    gotoxy(25,13);cout<<"PILIHAN :";
 }

 void isi()
 {
    FILE *coba;
    char gj[10];
    float atof();
    int i,n=0;
    while(1)
    {
      clrscr();
      gotoxy(35,5);cout<<"MEMASUKKAN DATA DOSEN";
      gotoxy(35,6);cout<<"------------------------------------------";
      gotoxy(35,7);cout<<"Kode Dosen   :";
        gets(pgw[n].kode);
      if(strlen(pgw[n].kode)==0)
        break;
      gotoxy(35,8);cout<<"Nama  :";
        gets(pgw[n].nama);
      gotoxy(35,9);cout<<"Pendidikan  :";
        cin>>pgw[n].pendidikan;
      gotoxy(35,10);cout<<"keahlian    :";
        cin>>pgw[n].keahlian;
      gotoxy(35,6);cout<<"--------------------------------------------";
      n++;
    }
    coba=fopen("c:\\Pegawai.Dat","wb");

    for(i=0;i<n;++i)
    {
      fwrite(&pgw[i],sizeof(pgw[i]),1,coba);
    }
    fclose(coba);
 }

 void tambah()
 {
    FILE *coba;
    char gj[10];

    float atof();
    int i,n=0;
    while(1)
    {
      clrscr();
      gotoxy(35,5);cout<<"MENAMBAH DATA Dosen";
      gotoxy(35,6);cout<<"------------------------------------";
      gotoxy(35,7);cout<<"Kode dosen   :";
        gets(pgw[n].kode);
      if(strlen(pgw[n].kode)==0)
        break;
      gotoxy(35,8);cout<<"Nama  :";
        gets(pgw[n].nama);
      gotoxy(35,9);cout<<"Pendidikan  :";
        cin>>pgw[n].pendidikan;
      gotoxy(35,10);cout<<"Keahlian    :";
        cin>>pgw[n].keahlian;
      gotoxy(35,6);cout<<"---------------------------------------";
      n++;
    }
    coba=fopen("c:\\Pegawai.Dat","ab");

    for(i=0;i<n;++i)
    {
      fwrite(&pgw[i],sizeof(pgw[i]),1,coba);
    }
    fclose(coba);
 }

 void baca()
 {
    FILE *coba;
    int i=0,n=0;

    clrscr();
    coba=fopen("c:\\Pegawai.Dat","rb");
    if(coba==NULL)
    {
        gotoxy(20,10);cout<<"File PEGAWAI.Dat belum ada";
        gotoxy(20,12);cout<<"Tekan sembarang Tombol";
        getch();
        return;
    }
    gotoxy(5,1);cout<<"LAPORAN DATA PEGAWAI STMIK BUDIDARMA";
    gotoxy(5,2);cout<<"----------------------------------------";
    gotoxy(5,3);cout<<"NO   KODE   NAMA  PENDIDIKAN    KEAHLIAN ";
    gotoxy(5,4);cout<<"----------------------------------------";
    while((fread(&pgw[n],sizeof(pgw[n]),1,coba))==1)
    {
        i++;
        gotoxy(6,4+i);cout<<i;
        gotoxy(10,4+i);cout<<pgw[n].kode;
        gotoxy(19,4+i);cout<<pgw[n].nama;
        gotoxy(50,4+i);cout<<pgw[n].pendidikan;
        gotoxy(60,4+i);cout<<pgw[n].keahlian;
    }
    gotoxy(5,5+i);cout<<"--------------------------------------Design By: Ardian Syhaputra";
    getch();
    fclose(coba);
 }

Visual Basic

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM), Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat, Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.[1] Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.[1] Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas.[1]Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.

Perkembangan Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD, Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.[3] Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :[1] Perjalanan dari Visual Basic (VB1 to VB 10):[4]

1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada COMDEX/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System.
4. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau access) 1.x
6. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.
8. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008

1. Visual Basic .NET, dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
2. Visual Basic .NET 2003, dirilis dengan menggunakan NET framework versi 1.1.
3. Visual Basic 2005, merupakan itegrasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya : Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET. pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan Perbaikan pada Konversi dari VB ke VB NET12 Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET Kerangka kerja versi 1.1. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If=Not X Is Y menjadi If X IsNot Y
4. Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Microsoft Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
5. Visual Basic “Orcas”, dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya : True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF, LINQ Support, Ekspresi Lambda, XML Literals, Nullable types, Type Inference
6. Visual Basic ‘VBx’, Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian da 15. an dari SilverLight 1.1

Pemrograman Berorientasi Objek (OOP)
Visual Basic merupakan bahasa yang mendukung Pemrograman berorientasi objek , namun tidak sepenuhnya, Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module, Polymorphism secara terbatas bisa dilakukan dengan mendeklarasikan class module yang memiliki Interface tertentu. Visual Basic (VB) tidak bersifat case sensitif.

Desain Visual dan Komponen
Visual Basic menjadi populer karena kemudahan desain form secara visual dan adanya kemampuan untuk menggunakan komponen-komponen ActiveX yang dibuat oleh pihak lain.[4] Namun komponen ActiveX memiliki masalahnya tersendiri yang dikenal sebagai DLL hell,Pada Visual Basic .NET, Microsoft mencoba mengatasi masalah DLL hell dengan mengubah cara penggunaan komponen (menjadi independen terhadap registry).

Puisi

JERAWAT
Jerawat - oooh jerawat
Kau tumbuh subur menutupi Jidat
Kau buat mukaku terasa pekat
Jika kupijat mukaku langsung pucat

Jerawat - oooh jerawat
Karena kau hari-hariku terasa berat
Karena kau mukaku seperti tak terawat
Jika ku berkaca ingin rasanya cermin ku sikat

Jerawat - oooh jerawat
Kau terus bertambah seolah menjerat
Kau bisa menyebabkan aku berbuat nekat
Jika kubiarkan mukaku pasti sekarat

Jerawat - oooh jerawat
Kini tampangku semakin berkarat
Kupencet satu timbul empat
Kupencet di jidat timbul di pantat

Dasar jerawat!!

Sabtu, 02 Juli 2011

Turbo Pascal

Turbo Pascal
Turbo Pascal 4.0 (1987) startup screen.
Layar pembuka Turbo Pascal 4.0 (1987).








Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas  dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman  untuk sistem operasi yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.
Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.

HTML

HTML (Hyper Text Markup Language) adalah sebuah bahasa markup yang digunakan untuk membuat sebuah halaman web dan menampilkan berbagai informasi di dalam sebuah browser Internet. Bermula dari sebuah bahasa yang sebelumnya banyak digunakan di dunia penerbitan dan percetakan yang disebut dengan SGML (Standard Generalized Markup Language), HTML adalah sebuah standar yang digunakan secara luas untuk menampilkan halaman web. HTML saat ini merupakan standar Internet yang didefinisikan dan dikendalikan penggunaannya oleh World Wide Web Consortium (W3C).
HTML berupa kode-kode tag yang menginstruksikan browser untuk menghasilkan tampilan sesuai dengan yang diinginkan. Sebuah file yang merupakan file HTML dapat dibuka dengan menggunakan browser web seperti Mozilla Firefox atau Microsoft Internet Explorer. HTML juga dapat dikenali oleh aplikasi pembuka email ataupun dari PDA dan program lain yang memiliki kemampuan browser.
HTML dokumen tersebut mirip dengan dokumen teks biasa, hanya dalam dokumen ini sebuah teks bisa memuat instruksi yang ditandai dengan kode atau lebih dikenal dengan TAG tertentu. Sebagai contoh jika ingin membuat teks ditampilkan menjadi tebal seperti: TAMPIL TEBAL, maka penulisannya dilakukan dengan cara: TAMPIL TEBAL. Tanda digunakan untuk mengaktifkan instruksi cetak tebal, diikuti oleh teks yang ingin ditebalkan, dan diakhiri dengan tanda untuk menonaktifkan cetak tebal tersebut.