Kartu Facebook dari Telkomsel

Kartu Facebook dari Telkomsel

         Wah-wah asyik banget ni ada kartu khusus facebook dari Telkomsel.Mesti temen-temen pada bingung ni apa si kartu facebook itu.Nah sekarang saya akan menjawab rasa penasaran kalian.Kartu Facebook yaitu kartu yang khusus diprioritaskan untuk facebook .Tapi juga bisa buat smsn low walaupun namanya kartu facebook.Selain itu Kartu Facebook dari Telkomsel adalah satu-satunya kartu prepaid GSM di Indonesia yang bekerja sama resmi dengan Facebook.Hebat bukan kartu ini..???

Untuk review kartunya adalah seperti ini :

              Bangus kan tampilanya?Tapi bukan hanya tampilannya yang bagus tapi juga kelebihanya yaitu Gratis selamanya facebook .Untuk para penggila facebook kartu ini pas banget dech dipasang dikartu kamu.Ayo dech buruan coba.Aku dah coba dan siap mendapatkan Gratis Facebook selamanya.

Untuk melihat detailnya silahkan klik disini.

     

Terima Kasih ,

Read More

Belajar Membuat Program Menghitung Nilai IPK dengan Delphi

Belajar Membuat Program Menghitung Nilai IPK dengan Delphi

             Sebelumnya saya telah memposting mengenai tugas kuliah  tentang pembuatan program kuadran .Pada kali saya juga akan menulis lagi tentang tugas pembuatan program IPK dalam mata kuliah pemrograman dasar.Langsung saja akan memberi tahu tahap pembuatan programnya :

1. Pastinya buat componenya dulu donk seperti dibawah ini :

2. Setelah selasai buat tampilan tinggal buat programnya.Dalam program kali ini saya menggunakan If -then.
3. Klik botton hasil dan tulis sintax seperti dibawah ini :


procedure TForm1.Button1Click(Sender: TObject); var nilai:integer; begin nilai:=StrToint(edit1.Text) ; if (nilai>=81) and (nilai<=100) then label3.Caption:='NILAI ANDA "A" = SANGAT BAIK ' else if (nilai>=61) and (nilai<=80) then label3.Caption:='NILAI ANDA "B" = BAIK ' else if (nilai>=41) and (nilai<60) then label3.Caption:='NILAI ANDA "C" = KURANG BAIK' else if (nilai>=16) and (nilai<=40) then label3.Caption:='NILAI ANDA "D" = BURUK ' else label3.Caption:='NILAI ANDA "E" = SANGAT BURUK '; end;
4. Bila sudah buat juga sintax pada botton hapus dan keluar yang sudah saya jelaskan pada postingan sebelumnya.
5. Bila sudah semua klik save dan coba jalankan programnya.
6. Bila anda ingin mencoba program saya silahkan klik link dibawah ini:

pass:widykecil

Terima Kasih,

Read More

Belajar Program Kuadran dengan Delphi

Belajar Program Kuadran dengan Delphi

        Saya jadi inget dulu pernah dikasih tugas tentang bagaimana membuat program Kuadran dengan Delphi.Namun baru kali ini saya bisa post dan berbagi dengan kalian tentang tugas saya ini.Sebenarnya program ini hanya menampilkan dimana posisi kuadran ketika kita menginputkan nilai x dan y.

Langkah Pembuatan Program :

1. Tentunya seperti biasa kita buat dulu componen-componen yang dipakai.
2. Pada progam saya kali ini saya hanya memakai componen image,botton,label dan edit yang diletakan dalam form kerja .Seperti dibawah ini :

3. Untuk pembuatan sintax programnya cukup simpel pertama jelas kita harus buat suatu variabel misal variabel x dan y.
4. Lalu buat perhitungan dengan suatu sudut, untuk program lengkap dalam botton hitung seprti dibawah ini :


procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; begin x:=StrToint(edit1.Text) ; y:=StrToint(edit2.Text) ; if (x>=0) and (y>=0) then label5.Caption:='Kuadran I' else if (x<0) and (y>=0) then label6.Caption:='Kuadran II' else if (x<0) and (y<0) then label7.Caption:='Kuadran III' else label8.Caption:='Kuadran IV'; end;
5. Bila sudah klik save dan jalankan programnya.
6. Apabila ingin mencoba program program saya klik link dibawah ini:

pass:widykecil

Terima Kasih,

Read More

Belajar Membuat Program Konversi Uang Rupiah Sederhana dengan Delphi

Belajar Membuat Program Konversi Uang Rupiah Sederhana dengan Delphi
     

             Kadang kita binggung mau mengkonversi uang rupiah kita ke dalam mata uang asing.Berapa ya uang kita dalam dolar.Pada kali ini saya akan berbagi program konversi mata uang rupiah ke mata uang asing,agar kalian semua tidak usah bingung lagi.Namun kali ini saya akan berbagi caranya membuat progam tersebut.

Langkah-langkah pembuatan programnya :

1. Langkah pertama tentunya adalah pembuatan componen terlebih dahulu.
2. Dan buat seperti dibawah ini:

3. Untuk tampilan si terserah kalian aja.Selanjutnya yaitu mencari nilai mata uang asing bila dirupiahkan.
4. Bila sudah dapat kita mulai membuat sintaxnya .Klik Radiogroup lalu buat sintax programnya,pertama buat variabel terlebih dahulu.Untuk sintax lengkapnya seperti dibawah ini :


procedure TForm1.RadioGroup1Click(Sender: TObject); var nilai:real; hasil:real; begin case RadioGroup1.ItemIndex of 0: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/8900); Edit2.Text:=CurrToStr(hasil); end; 1: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/7006); Edit2.Text:=CurrToStr(hasil); end; 2: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/1143); Edit2.Text:=CurrToStr(hasil); end; 3: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai* (1/9556); Edit2.Text:=CurrToStr(hasil); end; 4: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/14314); Edit2.Text:=CurrToStr(hasil); end; 5: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/8934); Edit2.Text:=CurrToStr(hasil); end; 6: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/108); Edit2.Text:=CurrToStr(hasil); end; 7: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/1404); Edit2.Text:=CurrToStr(hasil); end; 8: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/1664); Edit2.Text:=CurrToStr(hasil); end; 9: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/9166); Edit2.Text:=CurrToStr(hasil); end; 10: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/12324); Edit2.Text:=CurrToStr(hasil); end; 11: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/2382); Edit2.Text:=CurrToStr(hasil); end; 12: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/6567); Edit2.Text:=CurrToStr(hasil); end; 13: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/1355); Edit2.Text:=CurrToStr(hasil); end; end; end;
5. Untuk penambahan negar lain silahkan kalian tambahkan sendiri.
6. Apabila ingin mencoba program lengkapnya silahkan klik link dibawah ini :

pass:widykecil

Terima kasih,

Read More

Belajar Program Deklarasi dan Variabel dengan Delphi

Belajar Program Deklarasi dan Variabel dengan Delphi
         
              Hallo semuanya ?Sekarang saya akan berbagi tentang pelajaran yang telah saya dapat dalam sebuah praktikum mata kuliah pemrograman dasar.Mari kita mencoba lagi untuk me review tentang sebuah program yang ada deklarasi dan Variabel.Saya akan mencoba membuat program penjualan barang yang memuat tentang Deklarasi dan variabel.Mungkin untuk tampilan programnya seperti dibawah ini :

            Ok sekarang kita akan membongkar tentang program diatas.Untuk langkah pembuatanya ikuti petunjuk dibawah ini :

1. Buat dulu componenya yaitu ada botton,groupbox,label dan edit.Soal tampilan programnya si terserah selera kalian aja.
2. Setelah membuat componenya karang tingal buat sintax programnya.Pertama klik botton Hitung total,untuk hitung total ini kita harus membuat sebuah variabel.Untuk sintax lengkapnya seperti dibawah ini :


procedure TForm1.Button1Click(Sender: TObject); var hrgDAsMB,hrgDasPROS,hrgDasHD,hrgDasRAM:currency; jmlMB,jmlPROS,jmlHD,jmlRAM:integer; TotMB,TotPROS,TotHD,TotRAM:currency; begin //MENDEKLARASIKAN HARGA SATUAN hrgDasMB:=StrToCurr(Edit1.Text); hrgDasPROS:=StrToCurr(Edit2.Text); hrgDasHD:=StrToCurr(Edit3.Text); hrgDasRAM:=StrToCurr(Edit4.Text); //MENDEKLARASIKAN Jumlah Pembelian jmlMB:=StrToInt(Edit5.Text); jmlPROS:=StrToInt(Edit6.Text); jmlHD:=StrToInt(Edit7.Text); jmlRAM:=StrToInt(Edit8.Text); //Menghitung Harga Dasar x Jumlah Beli TotMB:=hrgDasMB*jmlMB; TotPROS:=hrgDasPROS*jmlPROS; TotHD:=hrgDasHD*jmlHD; TotRAM:=hrgDasRAm*jmlRAM; //Menulis Hasil ke komponen Total Edit9.Text:=CurrToStr (TotMB); Edit10.Text:=CurrToStr (TotPROS); Edit11.Text:=CurrToStr (TotHD); Edit12.Text:=CurrToStr (TotRAM); Edit13.Text:=CurrToStr(TotMB+TotPROS+TotHD+TotRAM); end;
3. Setelah selesai dengan sintax diatas sekarang kita buat sintax program untuk mulai input yang baru dengan cara klik botton hitung jumlah lain lalu tulis dengan sintax dibawah ini :


procedure TForm1.Button2Click(Sender: TObject); begin Edit5.Clear;Edit6.Clear;Edit7.Clear;Edit8.Clear;Edit9.Clear; Edit10.Clear;Edit11.Clear;Edit12.Clear; Edit5.SetFocus; end;
4. Bila sudah karang buat perhitungan yang tanpa variabel dengan cara klik botton tanpa variabel isi sintax seperti ini :
rocedure TForm1.Button3Click(Sender: TObject); begin Edit9.Text :=CurrToStr( StrToCurr (Edit1.Text)*StrToInt (Edit5.Text)); Edit10.Text:=CurrToStr(StrToCurr (Edit2.Text)*StrToInt (Edit6.Text)); Edit11.Text:=CurrToStr(StrToCurr (Edit3.Text)*StrToInt (Edit7.Text)); Edit12.Text:=CurrToStr(StrToCurr (Edit4.Text)*StrToInt (Edit8.Text)); Edit13.Text:=CurrToStr(StrToCurr (Edit9.Text)+ StrToCurr (Edit10.Text) + StrToCurr (Edit11.Text)+ StrToCurr (Edit12.Text)); end;
5. Untuk botton exit tulis dengan sintax :


procedure TForm1.Button4Click(Sender: TObject); begin close; end;
6. Bila sudah sekarang klik save dan jalankan programnya dengan klik run.

         Apabila anda ingin download program lengkapnya silahkan klik link dibawah ini :

pass:widykecil

Terima Kasih,

Read More

Belajar Pembuatan Lampu Lalu-Lintas dengan Delphi

Program Lampu Lalu-Lintas?

          Setelah kita program sebelumnya yaitu Pembutan program penjualan kecil sekarang kita akan mulai belajar lagi tentang pembuatan lampu lalu-lintas tentunya masih dengan program Delphi.Yang pertama kita siapkan adalah instal program delphinya dulu.Bila sudah buka programnya,terus mulai dech bikin programnya .

Langkah-langkahnya yaitu:

1. Pertama klik File>new>aplication
2. Setelah itu akan muncul form kerja kita,selanjutnya buat componen yaitu Groupbox,Label,Shape dan Timer.
3. Cara membuat elemenya yaitu tingal klik componen yang dibutuhkan terus taruh di form kerja kita.
4. Berikut adalah tanpilan form lampu lalu-lintas yang saya buat :

5. 

   Lampu lalu-lintas

6. Setelah bentuk form jadi maka langkah selanjutnya adalah menulis sintax program,dengna cara klik timer lalu tulis sintax seperti dibawah ini :


procedure TForm1.Timer1Timer(Sender: TObject); begin detik:=detik+1; begin if ((detik>=0) and (detik<35)) then begin Shape3.brush.Color:=clLime; Shape1.brush.Color:=clWhite; Shape2.brush.Color:=clWhite; Label1.Caption:='Jalan' ; Timer1.Interval:=100; end else if ((detik>=35) and (detik<45)) then begin Shape2.brush.Color:=clYellow; Shape3.brush.Color:=clWhite; Shape1.brush.Color:=clWhite; Label1.Caption:='Hati-hati' ; Timer1.Interval:=100; end else if ((detik>=45) and (detik<75)) then begin Shape1.brush.Color:=clred; Shape2.brush.Color:=clWhite; Shape3.brush.Color:=clWhite; Label1.Caption:='Berhenti' ; Timer1.Interval:=100; end else if detik=75 then begin detik:=0; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin detik:=0; end;;
7. Setelah selesai semuanya sekarang kita coba program kita dengan cara klik run pada menu bar.
8. Apabila ingin mendapatkan program lengkapnya silahkan klik link download dibawah ini :

pass:widykecil

Read More

Berlatih Program Penjualan Kecil dengan Delphi

           Hallo temen-temen semuanya....,Sory ni saya baru bisa buat post lagi.Ok,sekarang saya akan mengajak kalaian semua untuk berlatih bahasa pemrograman delphi.Untuk pelatihan yang pertama saya akan mencoba membuat program penjualan kecil dengan delphi.Untuk tampilan programnya seperti dibawah ini :

Tentang Program diatas :

1. Pertama kita masukan jumlah uang kita ,terus selanjutnya kita masukan jumlah pembayaran pembelian lalu klik proses.
2. Apabila sedang ada diskon maka form diskon diisi dengan besar diskon terserah kalian.
3. Bila ingin menginputkan dengan yang baru maka anda klik clean.
4. Dan bila ingin keluar klik exit.
5. Setelah tau tentang prosesnya sekarang kita mulai dengan menulis sintax programnya.Untuk botton proses sintax programnya seperti ini :


procedure TForm1.Button1Click(Sender: TObject); begin a:=StrToInt(Edit1.Text); b:=StrToInt(edit2.Text); if b>=500000 then begin c:=b*0.07; d:=b-(0.07*b) ; e:=a-d; Edit3.Text:=IntToStr(a); Edit4.Text:=IntToStr(b); Edit6.Text:=FloatToStr(d); Edit5.Text:=FloatToStr(c); Edit7.Text:=FloatToStr(e); Edit8.Text:=IntToStr(7); end else if b>=200000 then begin c:=0.05*b; d:=b-(0.05*b); e:=a-d; Edit3.Text:=IntToStr(a); Edit4.Text:=IntToStr(b); Edit6.Text:=FloatToStr(d); Edit5.Text:=FloatToStr(c); Edit7.Text:=FloatToStr(e); Edit8.Text:=IntToStr(5); end else if b>=100000 then begin c:=0.03*b; d:=b-(0.03*b); e:=a-d; Edit3.Text:=IntToStr(a); Edit4.Text:=IntToStr(b); Edit5.Text:=FloatToStr(c); Edit6.Text:=FloatToStr(d); Edit7.Text:=FloatToStr(e); Edit8.Text:=IntToStr(3); end else if b<=100000 then begin e:=a-b; Edit3.Text:=IntToStr(a); Edit4.Text:=IntToStr(b); Edit6.Text:=FloatToStr(b); Edit5.Text:=FloatToStr(0); Edit7.Text:=FloatToStr(e); Edit8.Text:=IntToStr(0); end; end;


6. Dan untuk Sintax program clean seperti ini :


procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=' '; edit2.Text:=' '; edit3.Text:=' '; edit4.Text:=' '; edit5.Text:=' '; edit6.Text:=' '; edit7.Text:=' '; edit8.Text:=' '; end;


7. Untuk Program exitnya seperti ini :


procedure TForm1.Button3Click(Sender: TObject); begin ShowMessage('Mau Keluar??'); Close; end;


8. Berikut adalah petunjuk membuat Program Penjualan Kecil.Semoga bemanfaat.
9. Untuk Program Lengkapnya silakan klik image download dibawah ini :

     

Read More

Pengin tau tentang Linux Backtrack ?

Sejarah Linux Backtarck

           Backtrack dibuat oleh Mati Aharoni yang merupakan konsultan sekuriti dari Israel dan Max Mosser. Jadi merupakan kolaborasi komunitas. Backtrack sendiri merupakan merger dari whax yang merupakan salah satu distro Linux yang digunakan untuk tes keamanan yang asal dari whax sendiri dari Knoppix. Ketika Knoppix mencapi versi 3.0 maka dinamakan dengan whax. Whax dapat digunakan untuk melakukan tes sekuriti dari berbagai jaringan di mana saja.

              Max Mosser merupakan auditor security collection yang mengkhususkan dirinya untuk melakukan penetrasi keamanan di Linux. Gabungan dari auditor dan Whax ini sendiri menghasilkan 300 tool yang digunakan untuk testing security jaringan. Auditor security collection juga terdapat pada knoppix.

Linux Backtrack ?

         BackTrack adalah sistem operasi berbasis pada distribusi GNU / Linux Ubuntu yang bertujuan untuk forensik digital dan digunakan dalam pengujian penetrasi (Hacking). Hal ini lebih dikenal dengan istilah Backtracking yaitu suatu algoritma pencarian.

Tanggal Rilis dan Versi Backtrack :

• 26 – 5 – 2006 rilis backtrack pertama kali yang merupakan versi non beta 1.0
• 13 – 10 – 2006 backtrack versi 2 beta pertama untuk publik di rilis
• 19 – 11 – 2006 backtrack versi 2 beta kedua untuk publik di rilis
• 06 – 03 – 2007 backtrack versi 2 final dirilis
• 17 – 12 – 2007 backtrack versi 3 beta pertama dirilis
• 19 – 03 – 2008 backtrack versi 3 final dirilis
• 11 – 01 – 2010 backtrack versi 4 final dirilis
• 10 – 05 – 2011 backtrack versi 5 final dirilis

Berikut beberapa tool yang berada dalam Linux Backtrack :

• Metasploit integration
• RFMON wireless drivers
• Kismet
• AutoScan-Network – AutoScan-Network is a network discovering and managing application
• Nmap
• Ettercap
• Wireshark (formerly known as Ethereal)
• Enumeration
• Exploit Archives
• Scanners
• Password Attacks
• Fuzzers
• Spoofing
• Sniffers
• Tunneling
• Wireless Tools
• Bluetooth
• Cisco Tools
• Database Tools
• Forensic Tools
• BackTrack Services
• Reversing
• Misc

Dari pada kalian penasaran silakan aja coba download distronya di web resminya Linux Backtrack :

www.backtrack-linux.org/downloads/

Read More

Fungsi TuneUp Utilities 2012 untuk kelancaran PC kita

TuneUp Utilities merupakan software yang sangat bagus untuk mengoptimalkan kinerja komputer maupun laptop. Dengan menggunakan TuneUp Utilities 2012 sistem operasi Windows akan terasa lebih cepat, ringan, nyaman dan tentunya lebih aman hanya dengan beberapa klik.

Fitur one click maintenance akan dengan cepat membersihkan sampah-sampah registry, menghapus sisa-sisa shortcuts yang tidak bekerja dan masih banyak lagi, tentunya hanya dengan satu kali klik sesuai dengan namanya TunUp 1-Click maintenance.

Selain dapat mempercepat kinerja sistem operasi, TuneUp Utilities terbaru ini juga dapat dipergunakan untuk mempercantik tampilan sistem Windows Anda, merubah tampilan Boot Screen, Visual style dan mengatur system elements. Banyak kelebihan-kelebihan yang dapat kita ambil manfaatnya dari software TuneUp Utilities 2012 atu TuneUp Utilities versi terbaru.Apalagi untuk yang Game untuk lebih meringankan kita bisa pakai Turbo Mode walaupun tampilanya clasic tapi yang penting main gamenya lancar.

Jika anda masih penasaran ingin memakainya silahkan anda download lansung melalui link tautan di bawah ini.


Download TuneUp Utilities 2012 




 Download Crack


 pass: widyscatz

Read More

Program Menampilkan Daftar Harga BBM dengan repeat-until pada bahasa pascal

Saya akan menujukan cara membuat Program Menampilkan Daftar Harga BBM dengan repeat-until menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

uses wincrt; var lt,hg:real; a,n:integer; begin writeln('|_No._|_____ LITER _____|______ HARGA ______| '); n:=1; repeat writeln;writeln; gotoXY(1,n+1); write('| ',n,' '); lt:=0.5*n; gotoXY(7,n+1); write('| ',lt:2:2,' '); hg:=lt*4500; begin if n mod 2 = 1 then hg:=hg+500; gotoXY(25,n+1); writeln('| Rp. ', hg:2:2); gotoXY(44,n+1);writeln(' |'); n:=n +1; end; until n>20; writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Read More

Program menampilkan data mahasiswa dengan procedure dan array pada pascal

Saya akan menujukan cara membuat Program menampilkan data mahasiswa dengan procedure dan array menggunkan Bahasa Pemrograman Pascal.

Sorce codenya :

program mahasiwa; uses wincrt; type tabel_mhs= record nama, nim :string [25] ; nilai:integer; end; var mhs : array[1..100] of tabel_mhs; temp:tabel_mhs; j,k,n: integer; ul,ul2 : char; procedure input_data; begin writeln('============================'); writeln('| Data Mahasiswa |'); writeln('============================'); write('Banyaknya mahasiswa : '); readln(n); for j:= 1 to n do with mhs [j] do begin writeln ('Data Mahasiswa',j); write ('Nama='); readln (nama); write ('Nim='); readln (nim); write ('Nilai='); readln (nilai); writeln; end; end; procedure urut_nilai; begin for j:=1 to n-1 do for k:=j-1 to n do if mhs[j].nilai > mhs[k].nilai then begin temp:=mhs[j] ; mhs[j]:=mhs[k] ; mhs[k]:=temp ; end; end; procedure tampilan; begin urut_nilai; writeln('============================'); writeln('| Data Nilai Mahasiswa |'); writeln('============================'); writeln; writeln('=========================================='); writeln('|Nama |Nim |Nilai |'); writeln('=========================================='); for j:=1 to n do begin writeln('|',mhs[j].nama:15,'|',mhs[j].nim:15,'|',mhs[j].nilai:6,'|'); end; writeln('=========================================='); end; begin input_data; urut_nilai; tampilan; end.

Read More

Program mencari jumlah dan rata-rata bilangan positif dan negatif dengan pascal

Saya akan menujukan cara membuat Program mencari jumlah dan rata-rata bilangan positif dan negatif dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt; var hp,hm,jp,jn,i,n,bil: integer; begin write('Banyak Bilangan : '); readln(n); writeln(''); for i := 1 to n do begin Write('Bilangan ',i,' : '); readln(bil); if bil > 0 then begin jp := jp+bil; hp := hp+1; end else begin jn := jn+bil; hm := hm+1 end end; writeln(''); writeln('Jumlah Bilangan Positif :',jp); writeln('Rata-rata Bilangan Positif :',jp/hp:0:2); writeln('Jumlah Bilangan Negatif :',jn); writeln('Rata-rata Bilangan Negatif :',jn/hm:0:2); readln; writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Read More

Program penjumlahan nilai mahasiswa dengan pascal

Saya akan menujukan cara membuat program penjumlahan nilai mahasiwa dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt; var a,b,c,jumlah: integer; begin write ('masukan jumlah mahasiswa : '); readln(a); jumlah:=0; for b:=1 to a do begin write('nilai mhsw ke ',b,' : '); readln(c); jumlah:=jumlah+c; end; write('jumlah nilai mhsswa = ',jumlah); writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Read More

Program dangan Menu Meginputkan dan Menampilkan Data dengan Pascal

Saya akan menujukan cara membuat Program dangan Menu Meginputkan dan Menampilkan Data dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt; var nama,alamat:array[1..10] of string; nilai:array[1..10] of integer; x,y,pilih:integer; procedure tampilkan_menu; begin clrscr; writeln('========================='); WRITELN(' MENU UTAMA '); writeln('========================='); WRITELN(' 1. Memasukkan data '); WRITELN(' 2. Menampilkan data '); WRITELN(' 3. Keluar Program '); writeln('========================='); writeln(' Pilihan anda [ ] '); writeln('========================='); gotoxy(18,8);readln(pilih); writeln; writeln; end; procedure masukkan_data; begin for x:=1 to 3 do begin write('masukkan nama ke-',x,' : '); readln(nama[x]); write('masukkan alamat ke-',x,' : '); readln(alamat[x]); end; end; procedure tampilkan_data; begin writeln('------------------'); writeln('nama alamat'); writeln('------------------'); for x:=1 to 3 do begin writeln(nama[x],' ',alamat[x]); end; readln; end; {program utama} begin repeat tampilkan_menu; if pilih=1 then masukkan_Data else if pilih=2 then tampilkan_data else if pilih=3 then exit; until pilih=3; writeln(' ') ; writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end. end.

 Tampilanya :

Read More

Program mencari nilai terbesar dari 3 bilangan dengan bahasa pascal

Saya akan menujukan cara membuat Program mencari nilai terbesar dari 3 bilangan dengan menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

program bil_terbesar_heri; uses wincrt; var bil_1,bil_2,bil_3 : integer; terbesar : integer; begin writeln(' *******Program Mencari Bilangan Terbesar******* '); writeln(' ----------------------------------------------- '); writeln; writeln('MASUKAN 3 BUAH BILANGAN = '); writeln; write('bil_1 = '); readln(bil_1); write('bil_2 = '); readln(bil_2); write('bil_3 = '); readln(bil_3); terbesar:=0; if (bil_1 > bil_2) then terbesar:= bil_1 else terbesar:=bil_2; if (terbesar > bil_3) then terbesar := terbesar else terbesar:= bil_3; writeln; write ('jadi bilangan terbesarnya adalah = ', terbesar); writeln(' ') ; writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Read More

Program Bintang Mantul-Mantul dengan Bahasa Pascal

Saya akan menujukan cara membuat Program Bintang Mantul-Mantul dengan menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

Program BINtang_mantul; uses wincrt; CONST lebar=80; tinggi=25; xawal=1; yawal=1; VAR x,y ,delay: byte; dx,dy : shortint; c : char; BEGIN {inisialisasi awal} x:=xawal; y:=yawal; dx:=1; dy:=1; c:=#0; REPEAT clrscr; {bersihkan layar} gotoxy(x,y); write('*'); {mencetak bintang pada posisi X,Y} x:=x+dx; {ubah koordinat x} y:=y+dy; {ubah koordinat y} {cek, jika sudah sampai di batas layar, maka ubah dx & dy untukk ganti arah} IF (X>=lebar) OR (X<=1) THEN dx:=-dx; IF (Y>=tinggi) OR (Y<=1) THEN dy:=-dy; {jika ada penekanan tombol, maka tombol tersebut dideteksi} IF keypressed THEN c:=readkey; delay:=(100); {menunda selama 100ms} UNTIL c=#27; end.

Read More

Program Menampilkan 'Hello-word' dengan bahasa Pascal

Saya akan menujukan cara membuatProgram Menampilkan 'Hello-word'  dengan menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

program Hello_word ; uses wincrt; var a,b:integer; begin writeln ('Masukan angka');readln(b); begin for a:=1 to b do writeln('Hello World'); end; writeln(' ') ; writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Read More

Mencari Bilangan Prima dengan Bahasa Pascal

Saya akan menujukan cara membuat program mencari bilangan prima dengan menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

program Bilangan_Prima; uses wincrt; var n,i,x,sisa:integer; begin writeln ('Masukan Batas BIlangan Prima: '); read (n) ; for i:=3 to n do begin x:=1; repeat x:=x+1; sisa:=i mod x; until (sisa=0) OR (x=i-1); IF sisa <> 0 then writeln (i ,'= adalah bilangan prima '); end; writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Read More

Spesifikasi ASUS N43SL-V2G-VX163D

ASUS N43SL-V2G-VX163D

Processor : Intel® Core™ i5-2410M Processor (2.30 GHz, Cache 3MB)
Chipset : Intel® HM65
Memory RAM : 2 GB DDR3-1333 SDRAM PC-10600
Max. Memory : 8 GB (2 DIMMs)
Graphic Card :NVIDIA GeForce GT 540M 2 GB
Display Size : 14" WXGA LED
Resolution : 1366 x 768
Hard Drive : 640GB SATA 5400 RPM
Optical Drive : DVD±RW
Wireless Bluetooth : Integrated

        Dengan spec  luar biasa diatas anda bisa main game sepuasanya atau untuk pekerjaan yang membutuhkan grafis besar.Kayaknya jika untuk main game pes 2012 sangat lancar dengan kualitas gamabar bagus karena didukung dengan NVIDIA GeForce GT 540M 2GB .

Read More

Fitur-Fitur Android 4.0 Ice Cream Sandwich

 

                       Ice Cream Sandwich disebut sebagai versi terbaru Android yang memberikan perubahan besar pada Android OS. Google memadukan kekuatan Android Honeycomb untuk tablet dan Android Gingerbread di dalam Android 4.0. Tak heran jika ICS memiliki banyak sekali fitur dan keunggulan yang memberikan keuntungan lebih bagi smartphone Android. Dari semua fitur yang ada, Gopego membahas 10 fitur unggulan Android 4.0 ICS secara ringkas lengkap dengan screenshot, seperti di bawah ini:

1. Salah satu hal yang paling menonjol di dalam Android terbaru Ice Cream Sandwich adalah tampilan interface yang bersih. Google menggunakan font baru bernama Roboto yang terkesan sangat simple namun tetap elegan. Roboto turut menciptakan tampilan unik di interface Ice Cream Sandwich.

 

2. Selain Roboto, Ice Cream Sandwich juga semakin keren dengan pengaturan folder, termasuk  Google Apps yang ada di sudut kiri bawah dan penggunaan virtual buttons untuk Back, Home, dan Recent Apps yang ada di bagian bawah display.

3. Recent Apps button memberikan kemudahan bagi Anda untuk akses cepat ke aplikasi yang kerap dan baru saja Anda jalankan. Recent Apps akan menjadi hal baru yang akan sering Anda guankan di Ice Cream Sandwich devices.

4. Dengan semua hal baru di Ice Cream Sandwich, Anda tetap bisa menggunakan style Android model lama untuk semua interface aplikasi sehingga aplikasi bisa ditata urut berdasar abjad. 

5. Android 4 memiliki built-in spell-checking yang akan membantu Anda yang bekerja dengan ketelitian penuh dalam ejaan.

6. Fitur spell-checking akan sangat berguna saat Anda menggunakan fitur real-time voice transcription baru milik Google.

7. Jika provider Android device yang Anda pakai masih membatasi ‘unlimited data’ maka Anda akan menyukai fitur baru di Ice Cream Sandwich yang bernama ‘Data Traffic Monitor ini.

 

8. Anda juga bisa menggunakna Data Traffic Monitor untuk mengawasi dan membatasi aplikasi yang menyedot bandwidth data saat dijalankan. 

 

9. Memang belum ada Photoshop Express di Android tapi built-in photo tools baru yang kini ada di ICS akan membuat kegiatan mobile photography lebih mudah dan menyenangkan. 

 

10. Hal baru juga diberikan Google pada browser. Google mengadopsi teknologi Chrome web browser sehingga Android browser kini tidak hanya semakin cepat tapijuga memiliki banyak fungsi dan kontrol seperti versi web.

 

 

Sungguh luar biasa kan fitur yang diberikan oleh Android 4.0 Ice Cream Sandwich.     

  

Read More

Sedikit Tentang Android 4.0 Ice Cream Sandwich

Android 4.0: Ice Cream Sandwich

Sederhana, cantik, cerdas

         Berikut slogan yang menggambarkan tentang Android 4.0 Ice Cream Sandwich.Android 4.0 dibangun untuk memberi tahu tentang Android -  multitasking, pemberitahuan kaya, layar home, widget resizable, dan interaktivitas yang mendalam - dan menambahkan cara baru yang kuat dari berkomunikasi dan berbagi.

Berfokus pada kekuatan yang membawa Android ke permukaan, Android 4.0 Membuat tindakan umum lebih terlihat dan memungkinkan pengguna menavigasi dengan sederhana, gerakan intuitif. Refined seluruh animasi dan umpan balik membuat sistem Melibatkan Interaksi dan menarik. Sebuah jenis huruf baru Sepenuhnya dioptimalkan untuk resolusi tinggi layar Meningkatkan keterbacaan dan Membawa merasa, dipoles modern untuk user interface.
Tombol virtual di Bar Sistem agar pengguna menavigasi seketika kembali, rumah, dan aplikasi terbaru. Sistem Bar dan tombol virtual hadir di semua aplikasi, Tapi Bisa diredupkan oleh Aplikasi untuk melihat layar penuh. Pengguna dapat mengakses opsi kontekstual Setiap aplikasi di Bar Aksi, tampilan di atas (dan kadang juga di bagian bawah) dari layar.

Multitasking merupakan kekuatan kunci dari Android dan itu membuat bahkan lebih mudah dan lebih visual pada Android 4.0. Tombol Aplikasi terbaru memungkinkan pengguna melompat dari satu tugas ke Seketika lain menggunakan daftar di Bar Sistem Daftar muncul untuk menampilkan gambar thumbnail dari aplikasi baru Digunakan - menekan switch thumbnail untuk app.

Pemberitahuan Kaya dan interaktif memungkinkan pengguna tetap Sentuh konstan dengan pesan masuk, memutar trek musik, real-time update melihat dari aplikasi, dan banyak lagi. Pada layar perangkat kecil, pemberitahuan Muncul di bagian atas layar, sementara pada layar besar perangkat Mereka Muncul di Bar Sistem .


Ini sedikit tentang kecanggihan Android terbaru yaitu 4.0 Ice Cream Sandwich.

Read More

Perlunya SDM yang tahu tentang INFORMATIKA

TEKNIK INFORMATIKA

Dewasa ini globalisasi informasi mengalami perkembangan pesat dan telah merambah ke berbagai aspek kehidupan manusia. Untuk itu diperlukan sumber daya manusia (SDM) yang tidak hanya menguasai aspek-aspek materi dari teknologi informasi, melainkan juga mampu menerapkan dan mengembangkan teknologi informasi di berbagai bidang.

Teknik informatika merupakan disiplin ilmu yang menginduk pada ilmu komputer, yang pada dasarnya merupakan kumpulan disiplin ilmu dan teknik yang secara khusus menangani masalah transformasi atau pengolahan fakta-fakta simbolik (data) dengan memanfaatkan seoptimal mungkin teknologi komputer. Transformasi itu berupa proses-proses logika dan sistematika untuk mendapatkan solusi dalam menyelesaikan berbagai masalah, sehingga dengan memilih program studi Teknik Informatika, kita menjadi terlatih berpikir secara logis dan sistematis untuk dapat dengan mudah menyesuaikan diri dengan pekerjaan apapun.

Seiring dengan perkembangan teknologi komputer yang sangat cepat, maka program pendidikan pada program studi Teknik Informatika diarahkan pada penguasaan ilmu dan keterampilan rekayasa informatika yang berlandaskan pada kemampuan untuk memahami, menganalisis, menilai, menerapkan, serta menciptakan piranti lunak (software) dalam pengolahan dengan komputer. Di samping itu, lulusan diharapkan memiliki kemampuan untuk merencanakan suatu jaringan dan sistem komputer, serta menguasai dasar-dasar ilmu dan tenologi informasi sebagai landasan untuk pengembangan studi lanjutan.

Menimbang hal di atas, program studi Teknik Informatika bertujuan memenuhi kebutuhan akan SDM yang profesional di bidang teknologi informasi. Selain itu, untuk menjembatani antara kepentingan industri dan masyarakat profesi dengan kepentingan akademik, maka disusunlah kurikulum berbasis kompetensi, dimana selain muatan-muatan inti, diberikan pula muatan-muatan lokal yang mendukung basis pengetahuan terapan dan perekayasaan perangkat lunak. Diharapkan melalui program ini dapat dihasilkan lulusan yang memiliki daya saing, jiwa kewirausahaan, dan memiliki wawasan teknologi informasi yang memadai sehingga tidak gagap ketika tiba waktunya untuk menerapkan ilmunya di masyarakat.

Saat ini alumni Teknik Informatika telah tersebar di seluruh Indonesia dalam berbagai profesi, seperti dosen, guru, staf TI, wiraswasta, dan bahkan ada yang bekerja di Singapura. Tempat mereka bekerja juga beraneka ragam, seperti perbankan, industri kertas, pengolahan kayu, serta industri lainnya.

Read More

Pengin Tahu Bahasa Ngapak?

Ngapak-Ngapak...????
Itulah sebuah bahasa yang digunakan oleh orang banyumasan.....bahasa yang unik tapi asyik.Yang harus dilestarikan.
contohnya:
"kepriwe kabare rikane??"
"doaln mayu lah"
dll.....
yang pasti bahasanya lucu tp bagus,,,,
soalnya aq juga orang ngapak-ngapak....
jadi ya aq harus turut serta melestarikan budaya bahasa ngapak....
Ini sedikit tentang kamus bahsa ngapak :
aparane = apaan

lumah = terlentang

keprimen/kepriben = gimana

mengko = nanti

mengko disit = nanti dulu

mbejud = nakal

dengklang = pincang

cempulek = alamak, astaga.....

mandeg = berhenti , ngandegna = berhentikan

kula = saya

inyong = aku

gigal = jatuh
gajul = nendang pake ujung kaki

nylekamit = enak, nikmat

eman = sayang

eman-eman = sayang (kalo mo buang sesuatu)
misal "eman-eman nek dibuang = sayang kalo dibuang"

ngrungokna = dengarkan

bodol = rusak

inggeng-inggeng = ngintip

turut = sepanjang, contoh "turut gili = sepanjang jalan"

gili = jalan

mukti (biasanya berubah jadi "kemukten" ) = harga diri, kebanggaan, kharisma

kemukten = ke

temen = banget

disit = dulu

ndisiti = mendahului

lipen, liven = lipstik

rowas-rawes = berantakan (acak-acakan)

ke-leg = ketelan

di cekeli = dipegangin

manga = buka mulut...

POKOKOE LESTARIKAN BAHASA NGAPAK...!!!!!!!!!!!

Read More

Game Online

           Game online hampir telah menjadi trend anak muda di berbagai belahan dunia, tidak hanya anak muda saja, tetapi kadang rekan-rekan kerja saya juga menghabiskan weekend-nya di rumah untuk bermain game seperti ini semalaman. Game ini populer karena kualitas gambar, permainan dan tentunya fitur multiplayer yang menarik, bagusnya lagi beberapa pengembang game MMORPG menawarkannya secara gratis. Tapi kadang untuk mencari game MMORPG (istilah untuk game ini di Internet) yang bagus dan menarik di internet bukanlah hal mudah jika anda hanya memasukkan keyword pada kotak pencarian di search engine seperti Google. Berdasarkan banyak sumber, disini anda bisa temukan game-game MMORPG bagus yang jarang anda dengar dan tentunya gratis, banyak diantaranya merupakan game 3D dengan kualitas yang sangat bagus. A must-have MMORPG buat anda mainkan...

Read More