Membuat Garis Kotak dan Berarsir

program Kotak;
USES dos,Graph;
VAR
gm,gd,x2,y2,x1,y1,c,fs,fc:integer;
BEGIN
gm:=detect; gd:=0;
InitGraph(gm,gd,'h:\tp\bgi');
Writeln('Nama : Muhamad Soleh');
Writeln('NIP : 8209033');
Write('Masukan lokasi sumbu pojok kiri atas x1 : ');readln(x1);
Write('Masukan lokasi sumbu pojok kiri atas y1 : ');readln(y1);
Write('Masukan lokasi sumbu pojok kanan bawah x2 : ');readln(x2);
Write('Masukan lokasi sumbu pojok kanan bawah y2 : ');readln(y2);
Write('Masukan Code warna Garis tepi 0..15 : ');readln(c);
Write('Masukan Code fill style 0..12 : ');readln(fs);
Write('Masukan Code Warna Fill Style nya 0..15 : ');readln(fc);
SetFillStyle(fs,fc);
bar(x1,y1,x2,y2);
SetColor(c);
rectangle(x1,y1,x2,y2);
Readln;
CloseGraph;
END.

Membuat Lingkaran Berarsir dengan Turbo Pascal

Untuk dapat membuat program ini, komputer yang akan digunakan harus terinstall, Turbo Pascal, atau compiler lainnya yang dapat mengcompile bahasa pemrograman Pascal,

Cara membuat Program

1. Install program pascal dapat di download 

2. Setelah proses installasi selesai, copy kan seluruh file yang ada di direktori Unit kedalam direktori Bin

3. Buka file TPX untuk memulai bermain dengan Turbo Pascal

Perhatian : Program tersebut ada yang salah, mohon jangan andalkan Copy Paste

Kalau ada kebingungan Bisa Hubungi saya : 

- no Hp. 0856 288 9626

- e-mail/ym : soleh_09061988@yahoo.co.id

- Facebook : soleh semangat-belajar

1. Algoritma

1. Deteksi Driver VGA gunakan Procedure InitGraph
2. Masukan lokasi sumbu x (x)
3. Masukan lokasi sumbu y (y)
4. masukan jari-jari (r)
5. masukan code warna garis lingkar (c)
6. masukan code fill style (fs)
7. Masukan warna fill style(fc)
8. Gunakan Procedure SetColor (c) untuk mewarnai garis lingkar
9. Gunakan Procedure Circle(x,y,r) untuk membuat lingkaran
10. Gunakan Procedure SetFillStyle(fs,fc) untuk model dan warna area gambar
11. Gunakan Procedure FlodFill(x,y,c) untuk membatasi warna area gambar
12. Tutup Procedure graph
13. selesai

2. Script

Program Lingkaran;

USES Dos,Graph;

VAR

gm,gd,x,y,r,c,fs,fc:integer;

BEGIN

gm:=detect;
gd:=0;

InitGraph(gm,gd,'h:\tp\bgi');

Writeln('Nama : Muhamad Soleh');

Writeln('NIP : 8209033');

Write('Masukan lokasi sumbu x : ');readln(x);

Write('Masukan lokasi sumbu y : ');readln(y);

Write('Masukan Jari-jari lingkaran) : ');readln(r);

Write('Masukan Code warna Garis Lingkar 0..15 : ');readln(c);

Write('Masukan Code fill style 0..12 : ');readln(fs);

Write('Masukan Code Warna Fill Style nya 0..15 : ');readln(fc);

SetColor(c);

Circle(x,y,r);

SetFillStyle(fs,fc);

FloodFill(x,y,r);

Readln;

CloseGraph;

END.

3. Screen Shoot

Untuk Bisa Mengambil gambar pada file dos gunakan Software DOSBox 0.74

Download : http://nchc.dl.sourceforge.net/project/dosbox/dosbox/0.74/DOSBox0.74-win32-installer.exe

Cara menggunakan DOSBox 0.74

Cara Reset Canon iP2770

Resetter iP2770 ini dikirim oleh sahabat kita di Jambi, dan RESETTER IP 2770 ini sudah Kang Eko coba dan berjalan dengan sempurna. 100% working. Resetter ini bebas password... danGRATIS

Cara Reset Canon IP2770 Error 5B00

Download Restter canon iP2770 v1074 bebas password di bawah ini :
http://adf.ly/576121/www.ziddu.com/download/11980752/ServiceTool_V1074_iP2770.rar.html

Jangan lupa matikan download manager, agar downloadnya sukses...

Masuk ke Service Mode iP2770 :

1. Printer dalam keadaan mati dan kabel listrik terpasang.
2. Tekan tombol RESUME 2 detik
kemudian tekan tombol POWER sampai lampu hijau nyala (saat menekan tombol POWER, ...tombol RESUME jgn dilepas dulu)
3. Kemudian lepas tombol RESUME, tapi jangan lepas tombol POWER.
4. Sambil tombol POWER masih tertekan, tekan tombol RESUME 6 kali. Led akan menyala bergantian orange hijau dengan nyala terakhir hijau. (jangan sampai keliru 4x karena printer akan mati total, tapi sifatnya sementara juga) Kemudian ...
5. Lepaskan kedua tombol bersamaan.
6. Led akan blink sebentar kemudian akan nyala HIJAU.
7. Komputer akan mendeteksi device baru, abaikan saja .....
8. Keadaan ini menunjukkan printer iP2770 dalam keadaan SERVICE MODE dan siap direset.

Kemudian jalankan Resetter iP2770 v1074 nya:
1. Exctract File Resetter iP2770.
2. Siapkan 2 kertas di printer (ini untuk print pada waktu proses reset).
3. Jalankan program Resetter iP2770

4. Klik "MAIN", maka printer akan berproses, kemudian iP2770 akan print satu halaman dengan tulisan " D=000.0 "

5. Klik " EEPROM Clear ". 
6. Kemudian klik " EEPROM ", dan printer akan print hasil Resetter iP2770. Salah satu barisnya tulisannya sbb:
"TPAGE(TTL=00000)"

7. Matikan Printer dengan menekan tombol POWER.
8. Selesai...

Jika setelah di reset iP2770 blink 16x, Silahkan baca solusinya dihttp://ekohasan.blogspot.com/2011/11/cara-service-canon-ip2770-blink-16x.html

Jika setelah di reset iP2770 blink 13x, Silahkan baca solusinya dihttp://ekohasan.blogspot.com/2010/11/cara-mengatasi-canon-ip2770-blink-13x.html

Sumber Copy Paster : http://ekohasan.blogspot.com

Daftar Almarhum bani Muhamad Soleh

Penulis Muhamad Soleh Semangat Belajar bin H. Miftahudin
Kalitulang Rt.23B Rw.6 Gondang, Kecamatan Watumalang, Kabupaten Wonosobo 56352

1. Mbah Buyut Demran KP
2. Mbah Buyut Karterjo KP
3. Mbah Buyut Rana Dikrama KP
4. Mbah Buyut Nasrib KP
5. Mbah Sirat KP (Gondang, Watumalang)
6. Mbah Kasbi K P(2001) (Kalitulang, Gondang, Watumalang)
7. Lek Meskon bin Kasbi (Kalitulang, Gondang, Watumalang)
8. Mbak Siti Rodhiyah binti Miftahudin (Kalitulang, Gondang, Watumalang)
9. Dek Rofik bin Miftahudin (Kalitulang, Gondang, Watumalang)
10. Dek Mustofa bin Miftahudin

Daftar Serial Number

Daftar Serial Number Untuk Beberapa Software

Di bawah ini ada sedikit daftar license key untuk beberapa software, silahkan bisa dilihat sendiri dan bagi teman-teman yang punya cd key yang lain silahkan tambah:
Microsoft Windows VISTA SN : YFKBB-PQJJV-G996G-VWGXY-2V3X8
Microsoft Windows Vista 32bits Ultimate French SN : VMCB9-FDRV6-6CDQM-RV23K-RP8F7
WINDOWS XP HOME EDITION : RH6M6-7PPK4-YR86H-YFFFX-PW8M8
Windows XP :

• 7QVT6 – T2738 – WRKJB – YKRFQ – XVK98
• FCKGW – RHQQ2 – YXRKT – 8TG6W – 2B7Q8
• XP8BF – F8HPF – PY6BX – K24PJ – TWT6M

Windows XP Pro SP2 :

• BR89Q 4B9GB 9DPFD M2PY3 R3F83

Microsoft Office Visio 2007 Professional 2007 :  HCFPT-K86VV-DCKH3-87CCR-FM6HW
Microsoft Office 2007 enterprise german 2007  SN : KGFVY-7733B-8WCK9-KTG64-BC7D8
Microsoft Microsoft Office Visio Professional 2003 SN : H9WFF-BVJ3T-2KHD9-HBP77-7P46B
Microsoft ms office 2003 SN : xk4bv-38k2b-jpjh9-c4txb-f737b
Coreldraw 12 Serial Number : DRWUF-0525390-FKF
Adobe Macromedia DreamWeaver MX 4.0.100.1190 DWW600-54622-26755-01760
Adobe Macromedia Fireworks MX 6.0.0.273 S/N: FWW600-04860-63582-21175
Adobe Adobe Photoshp CS 2 9.0 SN : 1045-1085-7167-5719-7396-8193
Microsoft Visual Studio 2005 Enterprise edition 2005 SN : KGR3T-F2C2T-RRTGT-D6DQT-QBBB3

Di copas dari : Sumber 

Latihan Algoritma Menjumlahkan 5 Bilangan pertama Ganjil

Soal :
 Buatlah Algoritma dan software untuk menjumlahkan 5 buah bilangan pertama ganjil
1 2 3 4 5 6 7 8 9 10

Jawab
Algoritma nya :
1. for i=1 to 10 do ('Menulang i sampai 10 kali')
2.      if ( i mod 2 ) =1  ('Mengecek Ganjil')
3.          jumlah <--- jumlah + i  ('Hitung jumlah )
4. output jumlah
5. selesai

Dalam penerapan ke dalam softwarenya seperti ini nih ... menggunakan bahasa C++
Download Turbo C++

// -------------------------------------------------------------------------------------- //

#include <iostream.h>
#include <conio.h>

void main()
{
      int i,jumlah=0;

      clrscr();
      for (i=1; i<=10;i++ )
           if ((i%2)==1)
              jumlah=jumlah+i;

      cout <<"Jumlah nya adalah = " <<jumlah;
}

Pesan Sang Pemimpi : " Mohon untuk di pelajari, jangan hanya di copy"

Latihan Algoritma mencari nilai terkecil

Soal :
Buatlah Algoritma dan software untuk menentukan bilangan terkecil dari 5 bilangan yang diinputkan ....
misalkan yang diinputkan 4 6 8 9 5
Jawab
Inisialisasi a,b,c,d,e
logikanya adalah mebandingkan antar nilai, apakah a < b, apakah a < c dan seterusnya
Algoritma nya :
1.  jika ((a<b) dan (a<c) dan (a<d) dan (a<e))
maka yang terkecil adalah a
2. jika ((b<a) dan (b<c) dan (b<d) dan (b<e))
maka yang terkecil adalah b
3. jika ((c<a) dan (c<b) dan (c<d) dan (c<e))
maka yang terkecil adalah c
4. jika ((d<a) dan (d<b) dan (d<c) dan (d<e))
maka yang terkecil adalah d
5. jika langkah 1-4 tidak ketemu maka yang terkecil adalah e

Dalam penerapan ke dalam softwarenya seperti ini nih ... menggunakan bahasa C++
Download Turbo C++

Pesan Sang Pemimpi : " Mohon untuk di pelajari, jangan hanya di copy"

Cerita Algoritma dan Logika

Petani dan Peliharaan (Algoritma Ber Logika)

Cerita :
Seorang Petani mendapat masalah di suatu tempat rumahnya di seberang sungai, pak tani membawa Serigala, Kambing, dan Kubis. keadaan sudah mulai mendung, kalau tidak segera menyeberang, kemungkinan akan terjadi banjir, di depannya terdapat jembatan tua yang sudah rapuh, jembatan tersebut hanya bisa dilewati oleh dua benda atau satu benda, namun sayang pak tani lagi-lagi mendapat masalah juga, ketika tidak ada pak tani disamping hewan-hewannya, mereka menjadi rakus, si kambing akan memakan kubis dan si serigala akan memakan kambing, dan sayangnya lagi pak tani memiliki keterbatasan untuk berfikir logis, jadi pak tani memohon dengan sangat kepada seluruh pembaca untuk membantu Pak Tani dalam berfikir, apa yang harus pak tani lakukan .....? cepaat tolonglah pak tani, kasihan anak dan istrinya sedang menunggu dirumah menunggu untuk menyate kambing tersebut untuk membuat tongseng, sebelum banjir melanda.

Belum jawab juga iiih kalian itu gimana si sudah baca ndak kasihan pa sama anak dan istri pak tani .....?????

Untuk memudahkan penalaran saya kasih nama deh
Tempat A -------------- jembatan -------------- Tempat B
Awalnya Pak Tani, Kambing, Kubis dan Serigala di Tempat A

Berikut ini langkah-langkah untuk membantu Pak Tani :
Langkah ke-I.   Pak Tani menyeberangkan kambing ke tempat B
Langkah ke-II. Pak Tani Kembali lagi ke tempat semula yaitu tempat A
Langkah ke-III Pak Tani menyeberangkan Kubis ke tempat B
Langkah ke-IV Pak Tani menyeberangkan Kambing ke tempat A
Langkah ke-V  Pak Tani menyeberangkan Serigala ke tempat B
Langkah ke-VI Pak Tani Kembali lagi ke tempat semula yaitu tempat A
Langkah ke-VII Pak Tani Menyeberangkan Kambing ke tempat B

Langkah ke- VIII Selesai dah tinggal pulang bareng dan Langsung sate aja tuh kambing tanpa di sembelih, sate hidup-hidup ..... Beeeeeeek. mbeeeekk, mbeeeek