Selasa, 04 Oktober 2011

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.

Minggu, 03 Juli 2011

INPUT DATA DOSEN DAN INPUT DATA MAHASISWA

uses crt;
type  Dosen = record
            kode  : byte ;
            nama  : string ;
            pen   : string ;
            kea   : string ;
          end;

Mahasiswa = record
       NPM       : string [8] ;
       NAMA      : string [25] ;
       jen,jur   : string [15] ;
       thn       : string ;
       end ;
var
            rdos   : array [1..20] of dosen ;
           rmah   : array [1..15] of mahasiswa ;
           i,j    : byte ;
           pil,lg : char ;

procedure inputdosen ;
procedure formdosen ;
     begin
          clrscr ;
                 gotoxy (13,3) ; write (‘INPUT DATA DOSEN’);
                 gotoxy (5,4)  ; write (‘_________________________’) ;
                 gotoxy (5,6)  ; write (‘kode dosen:’) ;
                 gotoxy (5,7)  ; write (‘nama      :’) ;
                 gotoxy (5,8)  ; write (‘pendidikan :’) ;
                 gotoxy (5,9)  ; write (‘keahlian   :’) ;
gotoxy (5,10) ; write (‘_________________________’);
gotoxy (5,11) ; write (‘isikan datalagi [Y/T]:’);
end ;
begin
    repeat
   formdosen ;
   with rdos [i]do
   begin
            gotoxy (21,6) ; readln (kode) ;
gotoxy (21,7) ; readln (nama) ;
gotoxy (21,8) ; readln (pen)  ;
gotoxy (21,9) ; readln (kea)  ;
gotoxy (28,12); readln(lg)    ;
inc(i) ;
   end ;
Until Upcase (lg)=’T';
end ;
procedure inputmahasiswa ;
procedure formmahasiswa ;
begin
clrscr ;
gotoxy (13,3) ; write (‘INPUT DATAMAHASISWA’) ;
gotoxy (5,4)  ; write (‘_________________________’) ;
gotoxy (5,5)  ; write (‘NPM             :’) ;
gotoxy (5,6)  ; write (‘NAMA            :’) ;
gotoxy (5,7)  ; write (‘JENJANG         :’) ;
            gotoxy (5,8)  ; write (‘JURUSAN         :’) ;
gotoxy (5,9)  ; write (‘TAHUN          :’) ;
gotoxy (5,10) ; write (‘________________________’) ;
gotoxy (5,11) ; write (‘isikan datalagi [Y/T]:’);
end ;
begin
     repeat
     formmahasiswa ;
     with rmah [i] do
begin
gotoxy (21,6) ; readln (NPM) ;
gotoxy (21,7) ; readln (NAMA) ;
gotoxy (21,8) ; readln (JEN)  ;
gotoxy (21,9) ; readln (JUR)  ;
gotoxy (21,10) ; readln (THN) ;
gotoxy (28,12) ; readln (lg) ;
inc(i) ;
            end ;
     until upcase (lg) = ‘T’;
end;
procedure outputdosen ;
procedure tabeldosen ;
begin
      clrscr;
gotoxy (10,4); write (‘INPUT DATA DOSEN’) ;
gotoxy (4,5) ; write (‘_____________________________________’);
gotoxy (4,6) ; write (‘ No      Kode       Nama              Pendidikan                Keahlian’);
gotoxy (4,7) ; write (‘______________________________________________’);
end;
procedure HitNilai(totn : real ; var NH:   char ;  Ket: string) ;
 begin
end ;
begin
Tabeldosen ;
for j:=1 to I-1 do
begin
with Rdos [j] do
begin
gotoxy (5,7+j) ; write (j:1,’   ‘,kode:8,’   ‘,NAMA) ;
GOTOXY (30,7+J) ; WRITE (PEN) ;
GOTOXY (43,7+J) ;WRITE (KEA) ;
end ;
end;
  gotoxy (3,9+j) ; write (‘____________________________________________________’);
  repeat until keypressed ;
end;
procedure outputmahasiswa ;
procedure tabelmahasiswa ;
begin
   clrscr ;
gotoxy (10,4) ; write (‘INPUT DATA MAHASISWA’) ;
GOTOXY (3,5)  ; write (‘_________________________________________________’);
gotoxy (3,6)  ; write(‘no        npm        nama        jenjang        jurusan     tahun     nilai’);
gotoxy (3,7)  ; write(‘____________________________________________________’);
end ;
procedure hitnilai (totn : real;  var  NH:   char; ket: string) ;
begin
end;
begin
tabelmahasiswa ;
for j :=1 to I-1 do
begin
with rmah [j] do
begin
       gotoxy (3,5+j) ; write (j:1,’   ‘,npm:8,’    ‘,nama) ;
       gotoxy (43,7+j); write (jen) ;
       gotoxy (51,7+j); write (jur) ;
       gotoxy (58,7+j); write (thn) ;
end;
end;
       gotoxy(3,9+j); write(‘__________________________________________________’) ;
       repeat until keypressed ;
end;
procedure menu ;
begin
    clrscr;
gotoxy (20,2) ;write (‘MENU UTAMA’) ;
GOTOXY (10,3) ;WRITE (‘____________________________________’);
gotoxy (10,4) ;write (‘[1]. input data mahasiswa’) ;
gotoxy (10,5) ;write (‘[2]. input data dosen’);
gotoxy (10,6) ;write (‘[3]. output datadosen’);
gotoxy (10,7) ;write (‘[4]. outout datamahasiswa’);
gotoxy (10,8) ;write (‘[5]. keluar program’) ;
gotoxy (10,9) ;write (‘__________________________________’) ;
gotoxy (10,10);write (‘pilihan   :’);
end ;
begin {program utama}
i:=1; pil:=’1′ ;
while pil <>’5′ do
begin
menu ;
pil := readkey ;
case pil of
’1′ : InputMahasiswa ;
’2′ : InputDosen ;
’3′ : OutputDosen ;
’4′ : OutputMahasiswa ;
end ;
end ;
end.

GAJI PEGAWAI,,


uses crt;
var
kdj       : byte;
nama      : string[25];
NIK       : string[8];
gaji      : longint;
tjn,tjnk  : real;
ttl       : real;
lg        : char;
stat      : string;
begin
      repeat
     clrscr;
gotoxy(10,1); write(‘kode jabatan  :’); readln(kdj);
gotoxy(10,2); write(‘nama          :’); readln(nama);
gotoxy(10,3); write(‘NIK           :’); readln(NIK);
gotoxy(10,4); write(‘status        :’); readln(stat);
gotoxy(10,5); write(‘———————————-’);
gotoxy(10,6); write(‘input lagi[Y/T] :’); readln(lg);
until upcase(lg)=’T';
if kdj=1 then
begin
gaji:=2500000;
tjn :=0.35*gaji;
end
else if kdj=2 then
begin
gaji:=2000000;
tjn :=0.10*gaji;
end
else if kdj=3 then
begin
gaji:=1500000;
tjn :=0.05*gaji;
end;
begin
if stat=’menikah’ then tjnk:=0.15*gaji;
end;
ttl:= gaji+tjn+tjnk;
gotoxy(15,9); writeln     (‘kode               :’,kdj);
gotoxy(15,10); writeln  (‘nama              :’,nama);
gotoxy(15,11); writeln  (‘NIK                  :’,NIK);
gotoxy(15,12); writeln  (‘status             :’,stat);
gotoxy(15,13); writeln  (‘gaji                 :Rp.’,gaji);
gotoxy(15,14);writeln(‘tunjangan       :’,tjn:1:0);
gotoxy(15,15);writeln(‘tunjangan keluarga :’,tjnk:1:0);
gotoxy(15,16);writeln(‘total gaji         :Rp.’,ttl:3:0);
readln;
end.

perkuliahan kU

Nama saya RIGA FIKA DELI
     Saat ini saya kuliah pakultas Komputer di STMIK BUDIDARMA Medan, jln Sisinga mangaraja jurusan Manajemen Informatika. Sya memilih kuliah komputer karna saya suka smua pemblajaran atau ilmu yang mencakup tentang komputer. Knapa saya memilih kuliah di stmik budidarma karena yg pertama itu karna the Green KampuS dan saya suka warna hijau, trus karna lokasinya mudah di jangau( lebih dekat), dan orang tua saya mendukung kalu saya untuk berkuliah di STMIK BUDIDARMA.

Dan teman2 satu kelas degan saya orangnya baik-baik, lucu-lucu, smuanya kompak,slalu mau berbagi,dan mautolong menolong satu sama lain.

Skrang ini saya ada di smester II dan insya allah di tahun ini saya akan masuk ke smester III, smoga nilai saya nantinya akan menjadi lebih baik lagi,dan ilmu saya bisa bertambah lebih banyak lagi.....

Pembelajaran ku slama ini...

Di semester II ini ada 9 mata kuliah yang saya jalani
dan sebenarnya pelajaran yang saya senangi Internet dan Web design, Agama & Bahasa Pemrograman,
Walaupun saya tidak seberapa paham (mengerti) dlam belajar pascal yang selalu membingungkan saya,,,
tapi saya gak mau putus asa, saya tetap mau blajar lebih giat lagi
dan brusaha walaupun skarang  blum bisa jgak, heheehee..
 Tapi saya yakin kalau saya belajar & terus blajar lebih giat lagi, pasti saya bisa,,,
dan saya berharap semoga pak mesran bisa lebih sabar dan giat lagi untuk memberikan bimbingan (Plajaran) kepada kami Siswa: MI P001 PAGI..

2.KHIDUPAN KU,,,

HEMM,,,
Aku lahir di Kota Aceh Barat
Aku ter lahi di kluarga yang sederhana kmi tgl di Aceh Brat, slama ini kami sekluarga hidup bahagia,,

   Aku sangat menyayangi ayah & ibukU,dan aku cinta kota kelahiran kU & smua tmN2 ku di sini.
Ttpi pada suatu hari ayah ku ditugaskan untuk b'krja di kota kalimantan, dan akhirnya kami pun pindah tnggal di kota MEDAN tepatnya dirumah orang tua dari ayah yaitu nenek ku. smua berjalan ggan baik, stelah 5 thn berlalu smuanya brubah tpatnya pada saat aku tamat SD, Ayahku plang dari perantauan taklama stelah itu ia pergui lagi entah kemana tanpa memberi tahu ibukU.
    Sampai saat ini dia tdak pernah memberikan kabar/menayakan kabar kamipun tdak, bahkan dia tidak pernah memberi nafka selama 9thn. Slama 9thn itulah IbukU bekerja membanting tulang(bekerja)untk menafkahi kami anak2nya, tanpa peduli siang, malam, panas, hujan ia tetap bekerja menjadi juru masak di asrama Gizi, dan berjualan kue walau gaji tak seberapa smua dia lakukan untk kami,,, Aku benci ayahku, krena dia ibuku harus tersiksa, batin( sakit hati) yg dirasaskannya slama 9 thn lamanya, slama itulah aku membencinya. apa lagi skarang ini aku tahu kalau ayahku sudah menikah lg, slama ini ibuku menyembunyikan nya dari smua orang.
   
  
      Tapi skarang ini kami suda mempunyai kehidupan yg baru Ibuku skarangpun telah menikah lagi, dan skarang aku punya adik laki2 yang lucu. skarang aku tdk mau lagi mengingat masalalu lagi. Dan aku yakin di balik smua cobaan yang Allah berikan pasti akan ada kebaikannya. Skarang aku men coba ikhlas dan memaafkan smua kesalahan ayahkU, walau mungkin saat dia kembali nanti smuanya sudah brubah dan aku tdk bisa meyayanginya sperti dulu lagi...
   
    Untuk Ibuku, trimakasih untuk smuanya, aku sangat menyayangimu ibU
                                         (*I love yoU mom*)

quiz no 2...

KEINGINAN KU

Saat ini akU sangat berharap skarang atau nanti aku bisa mendapatkan pekerjaan yang baik(halal)agar suatu saat nanti aku bisa menjadi orang sukses yang bisa membahagiakan orang tua ku (ibU). Alu ingi bisa membelikan rumah Y layak utk ibuku walaupun sederhan yang penting hasil jeripayahku sendiri,,
Untuk ibukU ter cinta I love yoU Mom.....

Minggu, 01 Mei 2011

Prosedure

USES CRT ;
VAR PIL : BYTE;
PROCEDURE INPUT ;
BEGIN
WRITELN('BAGIAN INPUT');
END;
PROCEDURE OUTPUT;
BEGIN
WRITELN('BAGIAN OUTPUT');
END;
BEGIN
CLRSCR;
PIL :=3;
REPEAT ;
WRITELN('MENU');
WRITELN('1 INPUT DATA');
WRITELN('2 OUTPUT DATA');
WRITELN('KEMENU');
WRITELN('PILIH');
READLN(PIL);
CASE PIL OF
1: INPUT;
2: OUTPUT;
END;
READLN;
UNTIL (PIL =3)
END.

KODE :ARRAY[1..10] OF STRING[3] ;
JUMLAH :ARRAY[1..10] OF BYTE ;
HARGA :LONGINT ;
NAMA :STRING[20] ;
TOTAL :LONGINT ;
I :BYTE ;
BEGIN
FOR I :=1 TO 10 DO
BEGIN
CLRSCR ;
GOTOXY(30,5); WRITE('KODE :');READLN(KODE[I]) ;
GOTOXY(30,6); WRITE('JUMLAH :');READLN(JUMLAH[I]);
END ;
CLRSCR;
GOTOXY(10,3); WRITE('------------------------------------------');
GOTOXY(10,4); WRITE('NO KODE NAMA HARGA JUMLAH TOTAL');
GOTOXY(10,5); WRITE('------------------------------------------');
FOR I :=1 TO 10 DO
BEGIN
IF KODE[I]='001' THEN
BEGIN
NAMA:='TV';HARGA:=1000000 ;
END
ELSE IF KODE[I]='002' THEN
BEGIN
NAMA:='DVD'; HARGA:=550000 ;
END ;
GOTOXY(10,5+I); WRITE(I=2,KODE[I]);
GOTOXY(10,5+I); WRITE(NAMA);
GOTOXY(10,5+I); WRITE(HARGA:9, JUMLAH[I]:3);
TOTAL:=HARGA*JUMLAH[I] ;
GOTOXY(45,5+I); WRITE(TOTAL:8);
END;
GOTOXY(10,6+I); WRITE('---------------------------------------');
READLN ;
END.

Kamis, 07 April 2011

bahasa pemograman

1. Python adalah bahasa pemrograman dinamis yang mendukung pemrograman berorientasi obyek. Python dapat digunakan untuk berbagai keperluan pengembangan perangkat lunak dan dapat berjalan di berbagai platform sistem operasi. Seperti halnya bahasa pemrograman dinamis, python seringkali digunakan sebagai bahasa skrip dengan interpreter yang teintergrasi dalam sistem operasi. Saat ini kode python dapat dijalankan pada sistem berbasis:
Linux/Unix
Windows
Mac OS X
Java Virtual Machine
OS/2
Amiga
Palm
Symbian (untuk produk-produk Nokia)
Python didistribusikan dengan beberapa lisensi yang berbeda dari beberapa versi. Lihat sejarahnya di Python Copyright. Namun pada prinsipnya Python dapat diperoleh dan dipergunakan secara bebas, bahkan untuk kepentingan komersial. Lisensi Python tidak bertentangan baik menurut definisi Open Source maupun General Public License (GPL)

2.Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Kelebihan dari bahasa pemrograman Pascal adalah:
Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string,
User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.
Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang.
Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.
Bahasa PASCAL juga merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi tim nasional Olimpiade Komputer Indonesia (TOKI). Selain itu, Bahasa PASCAL masih digunakan dalam IOI (International Olympiad in Informatics).


3.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.[1]


4. Visual FoxPro adalah bahasa pemrograman berorientasi objek dan prosedural dari Microsoft. Awalnya bahasa pemrograman ini dikenal dengan nama FoxBASE yang diluncurkan oleh Fox Software pada awal 1984. Fox Technologies kemudian bergabung dengan Microsoft pada 1992 sehingga di depan nama FoxBASE ditambahkan awalan "Visual".
Versi terakhir FoxPro (9.0) dapat berjalan pada sistem operasi Mac OS, DOS, Windows, dan Unix. Visual FoxPro 3.0, versi "Visual" pertama, akhirnya tersingkir karena hanya mendukung Mac OS dan Windows, dan versi berikutnya hanya mendukung Windows saja. Versi terkini Visual FoxPro adalah berdasarkan teknologi COM dan Microsoft telah menyatakan bahawa mereka tidak berniat untuk mencipta versi Microsoft .NET.


5.Bahasa Pemrograman CSS
Cascading Style Sheets (CSS) adalah suatu bahasa stylesheet yang digunakan untuk mengatur tampilan suatu dokumen yang ditulis dalam bahasa markup.
Penggunaan yang paling umum dari CSS adalah untuk memformat halaman web yang ditulis dengan HTML dan XHTML.
Walaupun demikian, bahasanya sendiri dapat dipergunakan untuk semua jenis dokumen XML termasuk SVG dan XUL.
Spesifikasi CSS diatur oleh World Wide Web Consortium (W3C).