Pada postingan kali ini saya akan membahas tentang ilmu kriptografi. apa itu kriptografi ? dan fungsi nya itu seperti apa ? dan jenis-jenis dari kriptogrfi apa saja ?

A. Pengertian Kriptografi
         Kriptografi adalah suatu ilmu yang mempelajari bagaimana cara menjaga agar data  atau pesan tetap aman saat dikirimkan, dari pengirim ke  penerima tanpa mengalami gangguan dari pihak  ketiga. (Cryptograpgy is the art and science of keeping messages secure). Sedang orang yang melakukan kriptografi sering dinamakan cryptographers. Suatu proses yang dilakukan untuk mengamankan sebuah pesan biasa menjadi pesan tersembunyi adalah enkripsi. Algoritma untuk menjadikan (cryptographic algorithm) pesan tersebut disebut dengan cipher. Sedang proses yang dilakukan untuk mengubah pesan tersembunyi menjadi pesan biasa adalah disebut dekripsi.

        Cryptography adalah “crypto” yaitu rahasia dan graphy adalah tulisan, berarti Kriptografi adalah suatu tulisan yang bersifat rahasia agar rahasia tersebut tetap aman dan tidak mudah dibaca. Sedangkan cryptanalysis adalah seni dan ilmu untuk memecahkan ciphertext tanpa bantuan kunci. Cryptology adalah ilmu yang mempelajari Kriptografi dancryptanalysis.

B. Kriftografi Steganographi

      Steganography (covered writing) didefinisikan sebagai ilmu dan seni untuk menyembunyikan pesan rahasia (hiding message) sedemikian sehingga keberadaan (eksistensi) pesan tidak terdeteksi oleh indera manusia[6]. Media yang digunakan umumnya merupakan suatu media yang berbeda dengan media pembawa informasi rahasia, dimana disinilah fungsi dari teknik steganography yaitu sebagai teknik penyamaran menggunakan media lain yang berbeda sehingga informasi rahasia dalam media awal tidak terlihat secara jelas.  

        Steganography biasanya sering disalahkaprahkan dengan kriptografi karenanya keduanya sama-sama bertujuan untuk melindungi informasi yang berharga. Perbedaan yang mendasar antara keduanya yaitu steganography berhubungan dengan informasi tersembunyi sehingga tampak seperti tidak ada informasi tersembunyi sama sekali.

Mungkin itu saja postingan yang bisa saya berikan semoga bermanfaat bagi anda, saya dan kita semua. Terima kasih 

Apa Itu Kriptografi ?

       Pada postingan kali ini saya akan membahas tentang teknik ghost dari hardisk ke hardisk, fungsi dari ghost ini adalah untuk menghemat waktu jika kita akan menginstal operating sistem yang sama pada banyak personal komputer , untuk lebih jelas nya kita langsung pada langkah-langkah untuk meng ghost atau meng cloning hardisk kita.


1)   Masukkan Norton Ghost Boot Flashdisk USB atau Norton Ghost Boot CD sesuai dengan preferensi.
2)    Nyalakan komputer, masuk ke BIOS dengan menekan DEL/F2/F8/F12 sesuai dengan BIOS PC Anda.
3)      Masuk ke Bagian Boot Sequence/Urutan Booting Pastikan media yang digunakan menempati urutan pertama booting.
4)       Pada menu Booting Norton Ghost, Tekan salah astu tombol pada keyboard.
5)       Pastikan Master terdapat pada SATA 1.
6)       Kemudian Enter.


   Boot Awal Ghost

   7)        Pilih menu Local -> Disk -> To Disk.

                   Menu Norton Ghost
     8)        Pertama, pilih hardisk yang partisinya ingin di kloning kemudian pilih partisinya.
      List Partition
      9)        Selanjutnya pilihlah pada hardisk tujuan, dan partisi tujuan.
    10)        Muncul pertanyaan Procced with partition copy pilih Yes.
       Process
     11)        Klik reset komputer untuk Finish.
            
      Tidak seperti Backup partisi ke Image! Backup partisi ke partisi atau Cloning partisi menyebabkan partisi tujuan akan kehilangan semua datanya. Jadi pastikan dulu bahwa partisi tujuan dalam kondisi kosong.

Itu saja yang bisa berikan dalam postingan ini semoga bermanfaat !!

Cara Menduplikasi OS (Operating System)

apa kabar sobat , Cskuh apa kalian sehat ?? insya alloh harus sehat

    hari ini saya akan menjelaskan tentang cara mempercepat koneksi internet dengan menggunakana registry , mungkin sobat, Cskuh sekalian mungkin tidak asing mendengar apa yang disebut itu registry ?? registry itu semacam perintah agar sistem didalam kita agar baik dan performa nya bagus !

     oke sobat, mari kita ke inti pokok bahasan tentang mempercepat koneksi internet dengan registry 
cara pertama :

1.nyalakan dulu komputer ! pastikan kabel power nya terpasang yaa hehe :D
2.setelah menyala atau hidup, kita buka atau pilih menu "START MENU" kemudian pilih "RUN"
3.setelah muncul dialog run dan ketikan "REGEDIT"seperti ini :


4.setelah itu pilih "OK", setelah masuk pada menu registry di situ kita cari yang namanya alamat registrynya ya .. carilah alamat di registry di : HKEY_LOCAL_MACHINE\SYSTEM\Current ControlSet\Services\Tcpip\ServiceProvider 
kemudian cari atau lakukan pada langkah ke 5 sampai dengan langkah 8
5.pilih Dnspriority dan ubah nilai nya menjadi 1
6.pilih hostpriority dan ubah nilai nya menjadi 1
7.pilih localpriority dan ubah nilai nya menjadi 1
8.pilih netbtpriority dan ubah nilai nya menjadi 1
9.setalah itu close atau tutup registry editor tadi 
10. lalu restart lah komputer anda !!

insya alloh komputer anda semakin terdepan dalam ber internet !!
coba dan rasakan perbedaan nya hehe
terima kasih semoga bermanfaat !

Trik Mempercepat Komputer Atau Laptop

Ini adalah daftar 100 Software yang free dan mempunyai kegunaan yang bermanfaat bagi teman-teman, selain ada daftar 100 software ini saya menyertakan juga tentang , teknik atau cara pengkabelan untuk membuat suatu jaringan komputer.


100 software dan kegunaan dan fungsinya
1.     1.  Easy.GIF.Animator Pro : Software untuk membuat gambar-gambar bergerak/animasi berformat gif
2. Avan WebEasy Prof : Software untuk membuat website dengan mudah
3. Pinacle Studio v.12 : Software editing video
4. WinRar_Password_Remover : Software untuk membuka file rar yang dipassword
5. CleanMyPC.Registry.Cleaner : Untuk membersihkan dan merapihkan file-file yang tidak terpakai pada   
           komputer
6. xampp : Software Apache, mysql, & php for windows
7. Ulead_Gif_Animator : Software untuk pembuatan animasi gif
8. PISO4.4_pOWER ISO : Software untuk pembuatan virtual drive sehingga cd asli yang Anda miliki tidak 
          rusak
9. Norton.Removal.Tool.2009.0.5.40 : Software antivirus dari norton
10. mysqlcc-0.9.8-win32 : Software untuk database mysql
11. Html Kit 292 Setup : Software untuk membuat dan mengedit halama web/file html
12. Freeware_PrimoPDF : Software untuk membuat file pdf
13. ZwCAD Professional : Sejenis autocad untuk membuat design bangunan
14. AutoPatches_Antivirus Kaspersky : Software untuk melakukan pacth terhadap Antivirus Kaspersky
15. MorpheusInternetAccelerator : Software untuk mempercepat akses internet
16. rs_high_speed_downloader_auto_really : Software untuk download file-file rapid share
17. ashampoo_internet_accelerator : Software untuk mempercepat akses internet
18. PORTABLE ADOBE PHOTOSHOP : Software  editing gambar yang dapat dijalankan melalui   
diinstall
19. PHOTOSHOP CS2 9, PORTABLE ADOBE PHOTOSHOP CS3 10, PORTABLE ADOBE PHOTOSHOP
20. CS4 EXTENDED 11: Kompilasi Photoshop portable (tanpa diinstall)
21. Rekso Translator : Software kamus gantinnya Transtool
22. WampServer : Software Windows, Apache, MySQL, dan PHP untuk web design dengan PHP
23. USB.AntiVirus : Software Antivirus untuk flashdisk
2.       24. McAfee Avert Stinger : Software Antivirus McAfee Portable
25. Auto CAD 2012 : software AutoCAD design bangunan dan otomotif
26. PDF_Password_Remover : untuk menghilangkan password file pdf yang dikunci
27. DivX : video player yang menghasilkan gambar yang lebih bagus dibanding pemutar dvd biasanya
28. Cool_Burning_Studio :Tool burning yang sangat ringan dan irit memori komputer
29. Product.Key.Explorer : Mendeteksi serial number & kode aktivasi software yang ada dikomputer Anda
30. Sudoku! Deluxe :Game sudoku/permainan angka
31. T-43PI_Power Iso 4.3 : membuat kompresi file seperti file zip: aac,iso untuk virtual drive,dsb
32. WYSIWYG.Web.Builder.v6.0.4 : membuat website semudah drag & drop
33. daemon4303 : membuat virtual drive
34. RegistryEasy.v5 : mengendalikan registry pada komputer Anda
35. Macromedia Flash Player 8.0.22 : pemutar file flash
36. IZArc4b1 : membuat kompresi file seperti file zip: aac,iso untuk virtual drive,dsb
37. RegistryEasy.v5.1. : Tool untuk memperbaiki registry, kesalahan2 yang ada pada sistem dan 
            mempercepat komputer
38. Web_Button_Maker v.2.1 : Tool untuk membuat tombol navigasi website
39. Magic.ISO.Maker.5.5 : tool untuk membuat file iso yang digunakan untuk virtual drive
40. Portable.DesignCAD.3D.Max.19.1 : portable design cad 3ds max
41. T-43PI_Power Iso 4.3.rar : tool untuk membuat file iso yang digunakan untuk virtual drive
42. textspeech : Tool untuk mengkonversi dari teks ke suara
43. RecordMax Burning Studio : Tool untuk melakukan burn cd dan dvd yang jauh lebih ringan dr pada nero 
            burning
44. DivX.7.v10.0.2.47.Full : Tool dvd player yang menghasilkan gambar jauh lebih jernih dari power dvd
45. 258.plug-ins.for.3DS.Max.2009 : Plug in 3ds max
46. Image_Hillary.Duff.HQ.Wallpapers : koleksi image Hillary Duff bagi yang ngefans
47. Kamus_2.04 : kamus indonesia-inggris
48. i-Sound.MP3.WMA.Recorder.Pro.v6.9.2.0.WinALL : tool untuk merekam audia ke dari source  
            internal/eksternal
49. All.My.Books.v1.5.1109 : Tool untuk pembuatan katalog buku-buku pada perpustakaan (komputer 
            Anda)
50. Portable Web Page Maker V3.03 : Tool untuk pembuatan halaman web (portable)
51. obj_import_ac : Plug ins AutoCAD
52. Drive Blocker : Tool untuk memproteksi drive/removable drive, seperti flasdisk/cd
53. Internet Download Manager v.5.17 :Tool untuk mempercapat proses download
54. Anti-Malware_1.31 : Tool Untuk serangan Malware
55. Website_Analyzer_1.4.1 : Tool untuk menganalisa website Anda
56. MS FrontPage PayPal Payment Add-In 1.0 : Tool Addin untuk frontpage berkaitan dengan Paypal
57. PHP.Designer.2008.Professional : Software untuk pembuatan website dengan php
58. Portable CoffeeCup Web Calendar 4.2 : Tool untuk pembuatan kalender pada website
59. Portable CoffeeCup Web Form Builder 7.6 : Tool untuk pembuatan form pada website
60. Portable CoffeeCup Web Video Player 5.0 : Tool untuk pembuatan video player pada website
61. RS.Hack.v4.5.Immortality.Edition : Tool bagi Anda yang ingin jadi Hacker
62. Web.Cache.Illuminator.v5.3.4
       63. Microsoft.Expression.Web.2.0-ZWTiSO : Software web design dari Microsoft (Expression.Web.2)
64. Java Runtime EnvirontmentV.6 Update12 : software java versi 6 update 12
65. Microsoft.Office.2003.With.SP3 : Microsoft.Office.2003.With.SP3
66. netscape-navigator9.64 : browser internet netscape navigator
67. ACDSee 9 Photo Manager : Software untuk pengaturan foto-foto digital
68. Address Everywhere 2.11 : Software untuk pengaturan alamat email digital
69. Adobe Reader v.8 : Software untuk membaca ebook digital berformat pdf
70. Ashampoo PhotoCommander 520_se : Software untuk pengaturan foto-foto digital namun lebih ringan dari pada ACD See
71. Audio.Edit.Magic.v7.5.8.665.WinALL-BRD : Software untuk pengaturan, pengeditan file-file Audio misalnya Mp3,pembuatan ringtone dll.
72. Autoruns 9.12 : tool pawerful untuk mengatur proses yang yang ada pada komputer Anda. misalnya pada saat startup Anda tidak ingin yahoo messenger aktif.
73. BlueVoda Website Builder : Software untuk pembuatan website semudah drag and drop, tanpa pengetahuan tentang HTML
74. ccleanersetup205 : Software untuk membersihkan file-file yang tidak berguna yang ada pada komputer, shg komputer menjadi lebih cepat kinerjanya
75. CPU-Z 1.43 : Software untuk mengetahui jenis dan tipe hardware komputer, tanpa membuka casing komputer
76. DFX for Winamp : Software untuk meningkatkan kualitas Audio Anda, dipadukan dengan Winamp
77. Download Accelerator Premium v8.0.7.0 : Software untuk meningkatkan kecepatan proses download
78. Firefox 3.0 Beta 3 : Software untuk browser internet
79. Folder Clean v1.3 : Software untuk membersihkan file-file sesuai dengan yang Anda tentukan
80. Folder Lock 5.2.6 : Software untuk mengunci folder (misalnya folder Anda berisi file-file private/rahasia)
81. HTTrack Website Copier 3.41-2 Final : Software untuk mengkopi website sehingga Anda bisa 
            membacanya scr offline
82. Internet Explorer 7.FINAL : Browser internet
83. IObit SmartDefrag 2.1 Beta 4.03 : Software untuk mendefrag komputer sehingga komputer berkinerja 
            lebih cepat
84. J2SE Runtime Environment 5.0 Update 6 : Software java
85. Kamus_1.02 : kamus digital indonesia – inggris
86. Macromedia Flash Player 8.0.22.0 : Software flash player/pemutar file-file flash
87. Nero Burning ROM v6.6.0.3 Ultra Edition : Software nero untuk Proses Burning ke cd
88. Open Office 3.0.1 : Software Office seperti Ms. Office word, excel, pawerpoint. buktikan kelebihannya
89. Quick Media Converter Beta 3.40 : Converter Audio File, hampir seluruh tipe file-file audio
90. Quick Time 7.5.5 : Software pemutar file-file Quicktime (file berlogo huruf Q)
91. Sonic Foundry Sound Force 6.0 : Software untuk pengeditan file-file audio,Software digital audio editor
92. TuneUp Utilities 2007 : Software untuk Men-tune up komputer Anda, Komputer bekerja jauh lebih 
            cepat.
93. Winamp Surround Edition Full : Winamp edisi Surround
94. Windows Essentials Codec Pack 1.0 : Player File-file Audio, jauh lebh ringan dr power DVD, dan 
             windows media player
95. Windows Live Messenger 8.1.0178 : Software live messenger
96. WinPdf : Software untuk pembuatan file pdf simple
97. WinRAR 3.0 Corporate Edition : Software pembuatan Archive _winrar
98. WinRAR Cracker Edition Suite : Software untuk meng-crack winrar
99. WinXP.Activation.English : Software untuk mengaktivasi windows Xp
100. PowerDVD V.6 : Software pemutar video lama namun lebih ringan 

i   itulah beberapa software yang sering di pake dan sering di cari banyak orang !!
untuk link download nya tar saya carikan dulu oke !! 

   selamat bertemu di sesi berikutnya !! 

                                             GAMBAR PENGKABELAN STRAIGHT TROUGHT

100 software free & Teknik Pengkabelan

Pada artikel ini saya akan membahas atau menjelaskan tentang komponen-komponen yang berada dalam motherboard, untuk lebih lengkapnya anda bisa melihat gambar dan membaca keterangan nya secara seksama.

Keterangan Gambar Motherboard.JPG
A.    Audio Ports
B. USB Ports
C. Firewire Ports
D. RJ45/Ethernet Ports
E. TV Tuner
F. PS2 Mouse and Keyboard Ports
G. Power 4 Socket
H. Cooling Tube Pipes
I. LGA CPU Socket
J. Memory (DIMM Slots)
K. Floppy Drive Controller
L. ATX 24pin Socket
M. Serial ATA Sockets
N. Northbridge Chipset
O. Southbridge Chipset
P. IDE Controller
Q. PCI-express X1
R. AGP
S. PCI
T. PCI-express X16
U. CMOS Battery
V. BIOS
W. Front Panel Connectors

A. Primary and Secondary IIDE Controllers
B. ROM/BIOS
C. ISA slots
D. CMOS Battery
E. PCI slots
F. DIN/5 Keyboard Connector
G. AT Socket
H. ATX Socket
I. DIMM Slots
J. SIMM Slots
K. Chipset
L. L2 Cache
M.CPU Socket
N. Floppy Drive Controller
O.LPT Connector
P.COM Connector

Wassalamualaikum,wr,wb.



Motherboard Komputer


Pada Artikel ini saya akan menjelaskan tentang langkah-langkah pembuatan aplikasi pegawai menggunakan bahasa pascal :

{Program penyimpanan data }

program simpandata;
uses wincrt;
 type
 record_pegawai= record
                 NIP :string[6];
                 Nama :string[25];
                 kodebagiankerja:char;
                 gajipokok:longint;
                end;
 tipe_file_pegawai=file of record_pegawai;

 var
  file_pegawai : tipe_file_pegawai;
  data_pegawai : record_pegawai;
 begin
  clrscr;
  assign(file_pegawai,'pegawai.DTA');
  rewrite (file_pegawai);
  with data_pegawai do
   begin
    NIP:= '1212005';
    Nama:= 'RISYANDI';
    kodebagiankerja:='4';
    gajipokok:=500000
   end;

 write(file_pegawai, data_pegawai);
 close(file_pegawai);

 writeln;
 gotoxy(10,4); writeln('Data yang anda siapkan sudah di masukan dan terekam !! ');
 gotoxy(10,5);writeln('Tekan Return !! Terima kasih :)');
 readln;
 writeln;
 gotoxy(10,7);writeln('=== Create By : Risyandi ===');
 end.



{Program menambahkan data }

program tambah_data;
uses wincrt;
type
 record_pegawai= record
                 NIP :string[6];
                 Nama:string[25];
                 kodebagiankerja:char;
                 gajipokok:longint;
                 end;
  tipe_file_pegawai= file of record_pegawai;
procedure pemasukan_dan_perekaman_data (var file_pegawai: tipe_file_pegawai; nmr_rec:word);

{untuk memasukan data yang berasal dari papan ketik}
var
 posx:byte;
 data_pegawai:record_pegawai;
begin
 with data_pegawai do
begin

{buat keterangan pada layar}
clrscr;
gotoxy(10,1); writeln('=====================================================================');
gotoxy(10,2); write('pemasukan data ke-',nmr_rec:3);
gotoxy(10,4); write('NIP [6 digit]     : ');
posx:=WHEREx;
gotoxy (10,5); write('nama              : ');
gotoxy (10,6); write('kode bagian kerja :     [1].personalia [2].keuangan');
gotoxy (10,7); write('                        [3].pemasaran  [4].teknik    [5].produksi');
gotoxy (10,8); write('gaji pokok        :Rp ');
gotoxy (10,9); writeln('=====================================================================');
gotoxy (10,14); writeln('=== Created By : Risyandi ===');

{pemasukan data dari papan ketik}
gotoxy (posx,4); readln(NIP);
gotoxy (posx,5); readln(nama);
gotoxy (posx,6);
repeat
 kodebagiankerja:= READKEY
 until kodebagiankerja in ['1'..'5'];
 write (kodebagiankerja);
 gotoxy (posx+4, 8); readln(gajipokok);
 end;

write(file_pegawai,data_pegawai); {rekam ke disket}
end; {akhir prosedure pemasukan_perekaman_data}
procedure menambah_data;
var
 file_pegawai :tipe_file_pegawai;
 jawaban      :char;
 nmr_record,nmr_komponen:word;
begin
 clrscr;
 assign (file_pegawai,'pegawai.DTA');
 reset(file_pegawai);
 nmr_komponen:= filesize(file_pegawai);
 seek (file_pegawai,nmr_komponen);
 nmr_record := nmr_komponen+1;
 repeat
  pemasukan_dan_perekaman_data(file_pegawai,nmr_record);
  inc(nmr_record);
  gotoxy (10,10); write('menambah data lagi (Y/N)? ');
 repeat
  jawaban:=readkey
  until jawaban in ['Y','y','N','n'];
  until upcase(jawaban)='N';
  write (upcase(jawaban))
  end;
 begin
  menambah_data
 end.


{Program Membaca semua data yang telah di masukan dan telah tersimpan}
program bacasemuadata;
uses wincrt;
type
 record_pegawai= record
                 NIP :string[6];
                 Nama:string[25];
                 kodebagiankerja:char;
                 gajipokok:longint;
                 end;
 tipe_file_pegawai = file of record_pegawai;

 procedure menampilkansemuadata;
 var
  file_pegawai : file of record_pegawai;
  bagiankerja : string [10];
  data_pegawai : record_pegawai;
 begin
  clrscr;
  assign (file_pegawai,'pegawai.DTA');
  reset(file_pegawai);
  writeln('   NIP             NAMA            BAGIAN KERJA             GAJI');
  writeln('====================================================================');
  while not eof (file_pegawai) do
   with data_pegawai do
    begin
     read (file_pegawai, data_pegawai);
      case kodebagiankerja of
       '1':bagiankerja:='personalia';
       '2':bagiankerja:='keuangan';
       '3':bagiankerja:='pemasaran';
       '4':bagiankerja:='Teknik';
       '5':bagiankerja:='Produksi';
       end;
      writeln (NIP:6,      Nama:20,      bagiankerja:16,'           Rp',gajipokok:8);
      end;
  writeln('====================================================================');
  end;

     begin
      menampilkansemuadata;
      write('Tekan Return'); readln;
      end.




{Program Menghapus Bagian Data yang ingin di hapus}

program hapusdata;
uses wincrt;
type
 record_pegawai = record
                  NIP                   :string[6];
                  nama                  :string[25];
                  kodebagiankerja       :char;
                  gajipokok             :longint;
                  end;
 tipe_file_pegawai = file of record_pegawai;
 var
  file_pegawai:tipe_file_pegawai;
  data_pegawai:record_pegawai;

 procedure tampilkan_komponen(var data_pegawai: record_pegawai);
 begin
  with data_pegawai do
   begin
    gotoxy(10,4); write('NIP    :',NIP);
    gotoxy(10,5); write('nama   :',nama);
    gotoxy(10,6); write('bagian kerja :');
    case kodebagiankerja of
    '1': write ('Personalia');
    '2': write ('Keuangan');
    '3': write ('pemasaran');
    '4': write ('Teknik');
    '5': write ('Produksi');
   end;
   gotoxy(10,7); write ('gaji pokok :Rp ',gajipokok);
   end;
   end;

 procedure menghapusdata;
 const
  posisi_awal_file=0;
 var
  file_pegawai:tipe_file_pegawai;
  ketemu, adapenghapusan:boolean;
  jawaban:char;
  nip_dicari:string[6];

 procedure proses_penghapusan (var file_pegawai : tipe_file_pegawai);
 const
  namafilesementara='temporer.DTA';
 var
  fileproses:tipe_file_pegawai;
  data_pegawai:record_pegawai;
  nmrrecord:word;
 begin
  clrscr;
  writeln('tunggu .. sedang melakukan proses penghapusan');
  assign(fileproses,'temporer.DTA');
  rewrite(fileproses);
  seek (file_pegawai, posisi_awal_file);
  for nmrrecord := 1 to filesize (file_pegawai) do
   begin
    read (file_pegawai, data_pegawai);
    if data_pegawai.nip<>'*' then
     write (fileproses, data_pegawai)
    else
     write('komponen nomor', filepos(file_pegawai)-1,'dihapus.');
   end;

 close(file_pegawai);
 close(fileproses);
 erase(file_pegawai);
 assign(fileproses, namafilesementara);
 rename(fileproses,'pegawai.DTA');
 writeln('pengahapusan selesai.');
 end;

 begin
  assign(file_pegawai,'pegawai.DTA');
  reset(file_pegawai);
  adapenghapusan:=false;
  repeat
   clrscr;
   gotoxy(10,4); write ('NIP dari data yang akan di hapus : ');
   readln(Nip_dicari);
   gotoxy(10,14); writeln('=== Created By : Risyandi ===');

 seek (file_pegawai, posisi_awal_file);
 ketemu:=false;
 while (not eof(file_pegawai)) and (not ketemu) do
  begin
   read(file_pegawai, data_pegawai);
   if data_pegawai.NIP=Nip_dicari then
   ketemu:=true;
   end;

 if ketemu then
  begin
   clrscr;
   tampilkan_komponen(data_pegawai);
   gotoxy(10,9); write('data ini di hapus (Y/T) ?');
   repeat
    jawaban:=readkey 
   until jawaban in ['Y','y','T','t'];
   if upcase(jawaban)= 'Y' then
    begin
     data_pegawai.NIP:='*';
     seek(file_pegawai, filepos(file_pegawai)-1);
     write(file_pegawai, data_pegawai);
     adapenghapusan:=true;
     end;
     end
     else
      begin
      gotoxy(10,6);
      writeln('Data Tidak Ditemukan !!!');
      end;
  gotoxy (10,9); clreol;
  write('Mau menghapus lagi (Y/T) ?');
  repeat
   jawaban:=readkey;
   until jawaban in ['Y','y','T','t'];
   until upcase (jawaban)= 'T';

  if adapenghapusan then
   proses_penghapusan (file_pegawai)
  else
   close(file_pegawai);
  end;
  begin
  menghapusdata
  end.



{Program mengganti bagian data}
program gantidata;
uses wincrt;
 type
  record_pegawai= record
                  NIP   :string[6];
                  nama  :string[25];
                  kodebagiankerja :char;
                  gajipokok :longint;
                  end;
  tipe_file_pegawai = file of record_pegawai;

 procedure tampilkan_komponen(var data_pegawai: record_pegawai);
 begin
  with data_pegawai do
   begin
    gotoxy(10,4); write('NIP    :',NIP);
    gotoxy(10,5); write('nama   :',nama);
    gotoxy(10,6); write('bagian kerja :');
    case kodebagiankerja of
    '1': write ('Personalia');
    '2': write ('Keuangan');
    '3': write ('pemasaran');
    '4': write ('Teknik');
    '5': write ('Produksi');
   end;
   gotoxy(10,7); write ('gaji pokok :Rp ',gajipokok);
   end;
   end;

 procedure menggantidata;
 const
 posisi_awal_file=0;
  var
   file_pegawai : tipe_file_pegawai;
   data_pegawai : record_pegawai;
   jawaban : char;
   posx    : byte;
   Nip_dicari     : string[6];
   ketemu         :boolean;
  begin
   assign (file_pegawai,'Pegawai.DTA');
   reset(file_pegawai);
   repeat
    clrscr;
    gotoxy(10,4); write('NIP dari data yang akan di ganti : ');
    readln(Nip_dicari);

    seek(file_pegawai, posisi_awal_file);
    ketemu:=false;
    while (not eof(file_pegawai)) and (not ketemu) do
     begin
      read (file_pegawai, data_pegawai);
      if data_pegawai.NIP = Nip_dicari then
       ketemu:= true;
     end;
    if ketemu then
     begin
      clrscr;
      tampilkan_komponen(data_pegawai);
      gotoxy(10,9); write('data baru : ');
      gotoxy(10,11); write('kode bagian kerja : ');
      posx:=wherex;
      gotoxy(posx+3,11); write ('[1] Personalia [2] Keuangan');
      gotoxy(posx+3,12); write ('[3]Pemasaran   [4] Teknik     [5] prouksi');
      gotoxy(10,13); write ('gaji pokok :Rp ');

   gotoxy (posx,11);
   repeat
    data_pegawai.kodebagiankerja := readkey;
    until data_pegawai.kodebagiankerja in ['1'..'5'];
    write (data_pegawai.kodebagiankerja);
    gotoxy (posx+4, 13);
    readln(data_pegawai.gajipokok);

    seek (file_pegawai, filepos(file_pegawai)-1);
    write(file_pegawai,data_pegawai);
    end
    else
     begin
      gotoxy(10,6);
      write('data tersebut tidak bisa di temukan !! ');
      end;

      gotoxy(10,15); write('Mau mengubah lagi ? (Y/T)');
      repeat
       jawaban:= readkey
       until jawaban in ['Y','y','T','t'];
       write(upcase(jawaban));
       until upcase(jawaban)='T';
      end;

      begin
       menggantidata;
       end.


terima kasih itulah sebagian coding untuk membuat program data pegawai terstruktur !!
wassalam.wr.wb



Aplikasi Penggajian Pegawai Dengan Bahasa Pascal

Langganan: Postingan ( Atom )