Mlente Banget

Archive for November 2008


Kita sering mendapati bahwa ketika kita ingin melakukan instalasi pada visual basic 6, pada saat proses setup setelah kita memasukkan kode serial number, maka error ini akan muncul, biasanya error yang muncul adalah “error launching acmboot”.

Hal ini terjadi pada saya sendiri ketika mencoba untuk melakukan proses instalasi visual basic 6 yang saya peroleh dari forum bajakan, dan setau saya problem ini terjadi ketika kita menginstall software visual basic bajakan yang bukan dari cd aslinya.

Setelah saya meminta bantuan mbah dukun google yang paling ngetop, saya menemukan solusinya, ini saya dapatkan dari forum microsoft yang mana microsoft merupakan pengembang dari visual basic, pemecahannya ternyata sangat sederhana, hanya mengganti nama folder tempat kita menyimpan file instalasi visual basic 6 itu dengan nama “eVC4”.

Dan .. JRENG ! sukses berjalan dengan lancar ūüėÄ

padahal sebelum ini saya sudah 3 kali download visual basic 6 ini dari sumber yang berbeda dan menemukan masalah yang sama, betapa amatirnya saya kenapa tidak langsung tanya sama google ūüėÄ

mlente banget pokoke


Tugas Pascal menghitung gaji dan tunjangan anak/istri :

uses wincrt;

var
nama,jab:string[25];
noin    :string[10];
gol     :char;
stat,jmlanak:integer;
gaj,tist,tank,jmltgaj,tlgaj:real;

begin
clrscr;
writeln(‘===============================================’);
writeln(‘TUGAS PERHITUNGAN GAJI DAN TUNJANGAN ANAK ISTRI’);
writeln(‘¬†¬†¬†¬† Nama : Mahasiswa NIM : xxxxxxxxx ¬† ¬† ¬† ¬† ¬† ¬† ¬† ¬† ¬† ¬†¬† ¬†¬†¬†¬† ‘);
writeln(‘===============================================’);
writeln;
writeln(‘¬† Masukkan data sesuai pada ketentuan berikut¬† ‘);
writeln(‘+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+’);
writeln;
writeln(‘Golongan Gaji :¬†¬†¬†¬†¬†¬†¬†¬†¬†¬† Status :’);
writeln(‘a. Rp 1,000,000.00¬†¬†¬†¬†¬†¬†¬† 1. Kawin’);
writeln(‘b. Rp 1,500,000.00¬†¬†¬†¬†¬†¬†¬† 2. Tidak Kawin’);
writeln(‘c. Rp 2,000,000.00’);
writeln;
write(‘Nomor Induk Karyawan : ‘);readln(noin);
write(‘Nama Pegawai¬†¬†¬†¬†¬†¬†¬†¬† : ‘);readln(nama);
write(‘Jabatan Pegawai¬†¬†¬†¬†¬† : ‘);readln(jab);
write(‘Golongan Gaji¬†¬†¬†¬†¬†¬†¬† : ‘);readln(gol);

case gol of
‘a’ : begin
gaj :=1000000;
write(‘Status Perkawinan¬†¬†¬† : ‘);readln(stat);
case stat of
1 : begin
tist := (10/100)*gaj;
write(‘Jumlah anak¬†¬†¬†¬†¬†¬†¬†¬†¬† : ‘);readln(jmlanak);
if jmlanak =1 then
tank := (10/100)*gaj
else
if jmlanak =2 then
tank := (15/100)*gaj
else
tank := (20/100)*gaj
end;
2 : begin
tist := 0;
tank := 0;
end;

end;
end;
‘b’ : begin
gaj :=1500000;
write(‘Status Perkawinan¬†¬†¬† : ‘);readln(stat);
case stat of
1 : begin
tist := (15/100)*gaj;
write(‘Jumlah anak¬†¬†¬†¬†¬†¬†¬†¬†¬† : ‘);readln(jmlanak);
if jmlanak =1 then
tank :=(10/100)*gaj
else
if jmlanak =2 then
tank :=(15/100)*gaj
else
tank :=(20/100)*gaj
end;
2 : begin
tist := 0;
tank := 0;
end;

end;
end;
‘c’ : begin
gaj :=2000000;
write(‘Status Perkawinan¬†¬†¬† : ‘);readln(stat);
case stat of
1 : begin
tist := (20/100)*gaj;
write(‘Jumlah anak¬†¬†¬†¬†¬†¬†¬†¬†¬† : ‘);readln(jmlanak);
if jmlanak =1 then
tank :=(10/100)*gaj
else
if jmlanak =2 then
tank :=(15/100)*gaj
else
tank :=(20/100)*gaj
end;
2 : begin
tist :=0;
tank :=0;
end;

end;
end;

end;

tlgaj      := gaj+tank+tist;

writeln;
writeln(‘=================oO SLIP GAJI Oo=================’);
writeln;
writeln (‘Nama¬†¬†¬†¬†¬†¬†¬†¬†¬† : ‘,nama);
writeln (‘No Karyawan¬†¬† : ‘,noin);
writeln (‘Jabatan¬†¬†¬†¬†¬†¬† : ‘,jab);
writeln (‘+===============================================+’);
writeln (‘|¬†¬†¬†¬†¬†¬† Rincian Gaji¬†¬†¬†¬†¬†¬†¬†¬† |¬†¬†¬†¬†¬† Jumlah¬†¬†¬†¬†¬† |’);
writeln (‘+===============================================+’);
writeln (‘| Gaji Pokok¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬† : | Rp ‘,gaj:8:0,’¬†¬†¬†¬†¬† |’);
writeln (‘| Tunjangan Anak¬†¬†¬†¬†¬†¬†¬†¬†¬†¬† : | Rp ‘,tank:8:0,’¬†¬†¬†¬†¬† |’);
writeln (‘| Tunjangan Istri¬†¬†¬†¬†¬†¬†¬†¬†¬† : | Rp ‘,tist:8:0,’¬†¬†¬†¬†¬† |’);
writeln (‘|¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬† |¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬† |’);
writeln (‘+———————————————–+’);
writeln (‘| Total Gaji Bersih¬†¬†¬†¬†¬†¬†¬† : | Rp ‘,tlgaj:8:0,’¬†¬†¬†¬†¬† |’);
writeln (‘+———————————————–+’);

readln;

end.

Selamat Mencoba


Bagi rekan-rekan yang membutuhkan logo amikom purwokerto untuk penulisan tugas/laporan, silahkan download logo amikom purwokerto berikut ini :

logo amikom purwokerto

Silahkan klik pada gambar untuk mendapatkan resolusi yang lebih besar

Sumber logo : Oki Febrian – duniakreatif.com


Tugas pascal menghitung nilai faktorial :

uses wincrt;
function fak(x:word):real;
begin
if x=0 then fak:=1
else fak:=x*fak(x-1);
end;

var n:word;z:real;
begin
writeln(‘=========================================’);
writeln(‘Tugas Algoritma – Nama/NIM Mahasiswa’);
writeln(‘=========================================’);
writeln;
write(‘Hitung Nilai Faktorial dari : ‘);
readln(n);
z:=fak(n);
writeln(‘Nilai Faktorial Dari ‘,n,’ adalah’,z:4:0);
writeln;
writeln(‘=========================================’);
end.

Apabila digambarkan sebagai berikut :

fak(5) => x<>0 => fak=5*fak(4) => fak=5*24 => 120
fak(4) => x<>0 => fak=4*abc(3) => fak=4*6 => 24
fak(31) => x<>0 => fak=3*abc(2) => fak=3*2 => 6
fak(2) => x<>0 => fak=2*abc(1) => fak=2*1 => 2
fak(1) => x=0 => fak=1 => fak=1 => 1
Proses rekursi dihentikan karena b=0 dan abc(5,0)=1.
Bila disimpulkan : fak(5) = 5*(4*(3*(2*(1))))
= 120

Selamat Mencoba


Mungkin saat ini cukup sulit untuk mendapatkan software turbo pascal dari internet, kecuali hasil ngopi dari komputer lab, tapi kalau kejadiannya seperti saya yang lupa ngopi dari lab, lalu ada tugas untuk bikin program dari pascal, akhirnya repot juga, walau saya juga pernah denger2 kalo pake delphi juga bisa karena mereka pada prinsipnya satu turunan, tapi karena saya sendiri juga blm pernah belajar delphi jadi ya masih pede untuk cari program turbo pascal. Bagi teman-teman yang membutuhkan program Turbo Pascal 1.5 for Windows silahkan download melalui link dibawah ini :

(link update)

http://www.4shared.com/file/106374605/6f7f30bd/TPW.html

Password : “mlente.wordpress.com” (tanpa tanda kutip)



Berikut 8 Pertanyaan Jebakan Saat Wawancara
1. Mengapa kami harus mempekerjakan Anda?
Ini peluang Anda untuk ‚Äúmenjual‚ÄĚ diri Anda. Uraikan dengan singkat dan jelas kelebihan yang Anda miliki, kualifikasi Anda dan apa yang dapat Anda sumbangkan bagi perusahaan tersebut. Hati-hati , jangan memberikan jawaban yang terlalu umum. Hampir setiap orang mengatakan mereka merupakan seorang pekerja keras dan memiliki motivasi. Berikanlah jawaban yang memperlihatkan keunikan yang Anda miliki.

2. Mengapa tertarik bekerja di perusahaan ini?
Pertanyaan ini merupakan salah satu alat bagi si pewawancara untuk mengetahui apakah Anda mempersiapkan diri anda dengan baik. Jangan pernah datang untuk sebuah wawancara pekerjaan tanpa mengetahui latar belakang perusahaan. Dengan memiliki informasi yang cukup mengenai latar belakang perusahaan tersebut maka pertanyaan di atas memberikan kesempatan kepada Anda untuk memperlihatkan inisiatif, dan menunjukkan apakah pengalaman serta kualifikasi yang Anda miliki sepadan dengan posisi yang diperlukan.
Read the rest of this entry »


Nokia adalah Brand ternama untuk gadget handphone di Indonesia. Anda juga mungkin memiliki handphone bermerek Nokia. Tapi tahukah anda bagaimana hanphone-handphone tersebut diberi nama? Tahukah anda kenapa ponsel anda bernama N-gage, kenapa type ponsel anda diawali angka 6 dan type ponsel teman anda diawali dengan angka 7?

Berikut Penjelasannya:

1. 1000 ‚ÄúUltrabasic‚ÄĚ semua hp nokia yang diawali dengan angka 1 atau dalam orde 1000 dst. Type ini adalah type nokia yang paling murah yang semula di luncurkan untuk menguasai pasar. Seri ini sudah dapat degunakan untuk telepon dan sms dengan cukup baik. Ponsel Nokia seri ini kurang mendapat sentuhan teknologi high-end.

2. 2000 ‚ÄúBasic‚ÄĚ Ponsel atau Handphone Nokia seri 2000 atau yang diawali dengan angka 2 adalah type hp nokia yang juga masih dalam kategori murah. Bedanya dengan seri 1000, ponsel seri ini sudah tersentuh teknologi high-end seperti bluetooth dan kamera.

3. 3000 ‚ÄúExpression‚ÄĚ Seri 3000 adalah seri murah yang ditampilkan secara kreatif oleh Nokia. Dengan layar warna dan kemampuan mengambil gamba, memainkan musik dan sudah mempunyai konektifitas dengan Komputer (PC)

4. 4000 Untuk alasan tertentu, tidak ada Handphone Nokia yang diawali dengan angka 4. Kenapa? Ya meneh ketehek…

5. 5000 ‚ÄúActive‚ÄĚ Seri 5000 atau handphone Nokia yang diawali dengan angka 5 adalah ponsel yang ditujukan untuk mereka yang aktif. Produk dibawah bendera seri ini biasanya didesain untuk menemani anda yang sedang jogging atau untuk menaungi seri handphone nokia yang ‚Äúmusik abisss‚ÄĚ

6. 6000 ‚ÄúClassic Business‚ÄĚ Seri ini sudah mulai menyentuh daerah Bisnis. Walaupun masih basic, seri hp ini sudah dilengkapi dengan sentuhan teknologi high-end. Seri 6000 seperti mulai kehilangan ke-niche-an karena banyaknya hp nokia dengan kepala 6 yang diluncurkan.

7. 7000 ‚ÄúExperimental‚ÄĚ Kata yang paling tepat untuk menggambarkan seri ini adalah ‚Äúkelinci percobaan‚ÄĚ jadi, jangan heran kalau hp nokia dengan huruf depan 7 memiliki banyak kejanggalan disana-sini

8. 8000 ‚ÄúPremium‚ÄĚ Seri 8000 ini sudah premium, bukan pertamax, apalagi solar. Maksudnya, ya mulai tidak murah lagi gitu loh..

9. 9000 ‚ÄúCommunicator‚ÄĚ Seri ini booming sekitar tahun 2005. Waktu itu seri komunikator merupakan seri yang keren dan menjadi lambang kekayaan. Seri 9000 adalah cikal bakan munculnya E-series (dibawah). Seri ini menggunakan OS GEOS, bukan Symbian.

10. E-Series huruf E menyatakan kata Enterprise. Berorientasi bisnis, dengan desain yang minimalis, fitur yang lengkap, dan sangat responsif.

11. N-Series – Pada N series ini, nokia berusaha memasukkan semua hal ke dalam gadget berupa handphone. Handphone Dengan nama awal N adalah HP impian yang pada zaman dahulu cuma ada di film fiksi ilmiah. Pada seri ini daya tahan Baterei juga sangat baik untuk seukuran fitur yang dijalankan.

Source : shirogadget dot com


About Me

Unknown unordinary creature
 






November 2008
M T W T F S S
« Oct   Dec »
 12
3456789
10111213141516
17181920212223
24252627282930

Blog Stats

  • 132,391 hits

Your Information

Tracker