Error 0×80040909 muncul karena installer berusaha untuk membuat google chrome menjadi default browser pada sistem anda tp tidak mendapatkan permission yang cukup untuk melakukannya.

Error ini sering muncul pada anda yang mendownload standalone installer google chrome.

Langkah untuk mengantisipasinya adalah, sebelum anda mendownload google chrome, pastikan bahwa ada tidak mencentang/contreng pada pilihan ‘Set Google Chrome as my default browser’ .  Hilangkan tanda centang/contrengnya dan lalu silahkan memulai untuk mendownload google chrome.

Demikian artikel sederhana setelah sekian lama tidak melakukan posting di blog ini

Berdasar dari situ, mumpung lagi belajar VB.Net, ada ide kecil muncul buat bikin software kecil2an yang bisa langsung akses ke provider tv online indoweb, ya namanya juga masih belajar jadi pastinya softwarenya masih cupu banget konsepnya browser sederhana aja sebenarnya

screenshot softwarenya :

kalo ada yang pengin ikut pake software ini, bisa download disini

http://hotfile.com/dl/49636176/e88b765/TVOI-Beta.rar.html

ini masih tahap beta banget sementara sesuai kebutuhan cuma rcti ama global tv aja karena dua tv ini yang menyiarkan sepak bola piala dunia 2010 , sebenarnya masih banyak yang lainnya, tp ya ntar2an aja lah

1. Operasi Bedah

Sekitar tahun 1000, seorang dokter Al Zahrawi mempublikasikan 1500 halaman ensiklopedia berilustrasi tentang operasi bedah yang digunakan di Eropa sebagai referensi medis selama lebih dari 500 tahun. Diantara banyak penemu, Zahrawi yang menggunakan larutan usus kucing menjadi benang jahitan, sebelum menangani operasi kedua untuk memindahkan jahitan pada luka. Dia juga yang dilaporkan melakukan operasi caesar dan menciptakan sepasang alat jepit pembedahan.

2. Kopi

Saat ini warga dunia meminum sajian khas tersebut tetapi, kopi pertama kali dibuat di Yaman pada sekitar abad ke-9. Pada awalnya kopi membantu kaum sufi tetap terjaga ibadah larut malam. Kemudian dibawa ke Kairo oleh sekelompok pelajat yang kemudian kopi disukai oleh seluruh kerajaan. Pada abad ke-13 kopi menyeberang ke Turki, tetapi baru pada abad ke-16 ketika kacang mulai direbus di Eropa, kopi dibawa ke Italia oleh pedagang Venesia.

3. Mesin Terbang

Abbas ibn Firnas adalah orang pertama yang mencoba membuat konstruksi sebuah pesawat terbang dan menerbangkannya. Di abad ke-9 dia mendesain sebuah perangkat sayap dan secara khusus membentuk layaknya kostum burung. Dalam percobaannya yang terkenal di Cordoba Spanyol, Firnas terbang tinggi untuk beberapa saat sebelum kemudian jatuh ke tanah dan mematahkan tulang belakangnya. Desain yang dibuatnya secara tidak terduga menjadi inspirasi bagi seniman Italia Leonardo da Vinci ratusan tahun kemudian.

4. Universitas

Pada tahun 859 seorang putri muda bernama Fatima al-Firhi mendirikan sebuah universitas tingkat pertama di Fez Maroko. Saudara perempuannya Miriam mendirikan masjid indah secara bersamaan menjadi masjid dan universitas al-Qarawiyyin dan terus beroperasi selama 1.200 tahun kemudian. Hassani mengatakan dia berharap orang akan ingat bahwa belajar adalah inti utama tradisi Islam dan cerita tentang al-Firhi bersaudara akan menginspirasi wanita muslim di mana pun di dunia.

5. Aljabar

Kata aljabar berasal dari judul kitab matematikawan terkenal Persia abad ke-9 ‘Kitab al-Jabr Wal-Mugabala’, yang diterjemahkan ke dalam buku ‘The Book of Reasoning and Balancing’. Membangun akar sistem Yunani dan Hindu, aljabar adalah sistem pemersatu untuk nomor rasional, nomor tidak rasional dan gelombang magnitudo. Matematikawan lainnya Al-Khwarizmi juga yang pertama kali memperkenalkan konsep angka menjadi bilangan yang bisa menjadi kekuatan.

6. Optik

“Banyak kemajuan penting dalam studi optik datang dari dunia muslm,” ujar Hassani. Diantara tahun 1.000 Ibn al-Haitham membuktikan bahwa manusia melihat obyek dari refleksi cahaya dan masuk ke mata, mengacuhkan teori
Euclid dan Ptolemy bahwa cahaya dihasilkan dari dalam mata sendiri. Fisikawan hebat muslim lainnya juga menemukan fenomena pengukuran kamera di mana dijelaskan bagaimana mata gambar dapat terlihat dengan koneksi antara optik dan otak.

7. Musik

Musisi muslim memiliki dampak signifikan di Eropa. Di antara banyak instrumen yang hadir ke Eropa melalui timur tengah adalah lute dan rahab, nenek moyang biola. Skala notasi musik modern juga dikatakan berasal dari alfabet Arab.

8. Sikat Gigi

Menurut Hassani, Nabi Muhammad SAW mempopulerkan penggunaan sikat gigi pertama kali pada tahun 600. Menggunakan ranting pohon Miswak, untuk membersihkan gigi dan menyegarkan napas. Substansi kandungan di dalam Miswak juga digunakan dalam pasta gigi modern.

9. Engkol

Banyak dasar sistem otomatis modern pertama kali berasal dari dunia muslim, termasuk pemutar yang menghubungkan sistem. Dengan mengkonversi gerakan memutar dengan gerakan lurus, pemutar memungkinkan obyek berat terangkat relatif lebih mudah. Teknologi tersebut ditemukan oleh Al-jazari pada abad ke-12, kemudian digunakan dalam penggunaan sepeda hingga kini.

Saya akan memberikan contoh trik magic square ini :

dari contoh diatas nampak bahwa apabila kita menghitung ke samping, keatas, melintang maka akan menemukan jumlah yang sama, yaitu 123.

Sebenarnya, trik ini tidaklah sesulit yang kita bayangkan, semuanya ini hanyalah permainan logika matematika saja, tidak lebih dari penjumlahan dan pengurangan.

Rumus yang digunakan adalah :

Baris pertama dari contoh diatas adalah 50,20,39,14, kita sebut setiap baris dengan kode A, B, C, dan D

Baris pertama merupakan baris kunci dari apa yang akan kita hitung selanjutnya.

Nah, sekarang, rurmus bagaimanakah yang digunakan ? simple saja.

untuk baris kedua rumusnya adalah :  C-1,D+1, A-1, B+1 // dari contoh diatas : 39-1 = 38,14+1=15,50-1=49, dan 20+1=21 , kita perhatikan di baris ke 2, bahwa nilai yang saya masukkan diatas adalah hasil perhitungan menggunakan rumus penjumlahan dan pengurangan tadi.

untuk baris ketiga rumusnya adalah : D+2, C+2, B-2, A-2

untuk baris keempat rumusnya adalah : B-1, A-3, D+3, C+1

setelah melihat rumus tersebut, coba anda lakukan perbandingan dengan contoh yang saya berikan diatas, nampak bahwa apa yang saya tuliskan pada contoh diatas adalah hasil dari perhitungan menggunakan rumus-rumus tersebut.

silahkan mencoba

Saya disini hanya membagi ilmu perhitungan matematis dari trik magic square ini, tidak ada niatan saya untuk mencari-cari/melakukan reveal atas pertunjukkan sulap, disetiap sulap pastilah ada sebuah rahasia, namun itu bukanlah tugas kita untuk mencari-cari rahasia itu. sebagai penonton yang baik, anggap semua itu hanya sebagai sebuah hiburan pelepas lelah

salam “bukan the master” mlente ^^

Share aja buat yang ingin bisa menikmati OSX pada pc x86 anda,

1. yang perlu diperhatikan, bahwa hackintosh/osx x86 tidak selalu mensupport hardware anda, termasuk dengan tipe chipset yang ada pada pc anda, jadi apabila ketika proses instalasi muncul gambar selayar penuh dengan logo apel ditengah dan muncul tanda seperti tanda lingkaran dengan garis melintang, maka batalkan saja dulu rencana anda melakukan instalasi, karena ada hw yang membuat proses instalasi terhenti.

2. apabila anda tidak menjumpai layar halangan tersebut namun prosesnya berjalan normal, maka anda setidaknya akan bisa dengan sukses menjalankan OSX pada pc anda.

3. sebelum proses instalasi dimulai, anda perlu melakukan format/partisi pada hdd anda, yang perlu diperhatikan bahwa partisi untuk oSX berbeda sama sekali dengan windows, , masuk ke menu disk utility dan untuk mac os x partisi yang dipilih adalah format mac os extended (journaled).

4. setelah proses format berjalan lancar, maka kita lanjutkan proses instalasi, keluar daRi disk utility, dan klik continue pada welcome screen, dan pastikan setelah itu anda memilih customize untuk memilih driver-driver yang akan diinstall sesuai dengan apa yang ada di pc anda, ini termasuk tipe chipset, card lan, vga, sound dll

5. setelah anda yakin bahwa anda telah benar memilih, klik done , dan mulai proses instalasi, tunggu sampai proses selesai dan setelah selesai, pc akan merestart dirinya sendiri.

6. apabila semua lancar, maka OSX telah terinstall dengan sukses di PC anda, dan anda sudah bisa menikmatinya di PC anda

Solusi permasalahan :

Buka registry editor, start – run – ketik regedit – ok
masuk ke HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\NetBT\Parameters, kemudian pada kolom sebelah kanan cari TransportBindName dan klik 2x
Setelah itu kosongkan parameter pada Value data dan klik OK

Terakhir masuk ke HKEY_LOCAL_MACHINE\Software\Microsoft\OLE, cari EnableDCOM pada kolom sebelah kanan dan klik 2x. Pada kolom parameter Value data secara default akan terisi Y, ganti Y menjadi N kemudian klik OK.

Tutup regedit dan aplikasi lainnya kemudian restart

cara selanjutnya // cara kedua dengan melakukan patch pada windows, patch  KB89439 dan KB921883 , tp untuk patch ini saya tidak melakukannya, karena dengan menggunakan cara pertama saja masalah sudah selesai

ada lagi cara ketiga yaitu menggunakan Svchost Fix Wizard 1.0 , cuma saya sendiri cuma sempet donlod aja ga sempet nyoba, informasinya adalah software ini bisa melakukan perbaikan terhadap svchost termasuk generic host process nya

uses wincrt;
var a,b,c,d,e:longint;
begin clrscr;
write(‘Input Bilangan Prima Sampai Nilai : ‘); readln(c);
writeln(’2′:7);
for a:=3 to c do
begin
for b:= 2 to a-1 do
begin
if a mod b = 0 then begin
d:=a ; end else begin e:=a; end;end;
if a=d then
begin
b:= a-1;
end else
writeln(e:7);
end;
end.

Dengan bantuan doa dan selalu meminta bantuan mbah google dalam mencari solusi seperti ini, akhirnya saya menemukan cara yang jos gandos mancleng ora gawe puyeng.

Sebelumnya siapkan kesabaran hati untuk menjalani eksekusi proses reset ini, soalnya udah nyari lama ga dapet-dapet trus sambil emosi mbaca posting ini ya malah nambah mumet nantinya.

Ok, lets start to reset the catridge ! ( Nganggo Basa Inggris men wong landa bisa maca )

1. Download MP Tool

2. Press and HOLD your printer power button // (Tekan dan Tahan tombol power pada printer)

3. Unplug your printer power cable ( keep hold your printer power button – do not release it ) // Lepaskan kabel power printer namun tetap tekan tombol power pada printer

4. Plug your printer power cable and press the Printer Stop/Reset button, then release the printer power button // Pasang kembali kabel power printer dan tekan tombol Stop/Reset pada printer, setelah itu lepaskan tahanan pada tombol power printer

5. The Alarm light will be on and your computer will detect a new hardware // Alarm akan menyala dan pada sisi komputer akan mendeteksi hardware baru terinstall

6. Run the MP Tool software and you can start to reset the catridge // Jalankan program MP Tool dan mulai untuk mereset tinta.

Semoga informasi ini berguna dan bisa membantu bagi anda yang membutuhkan.

عَنْ عَبْدِ اللَّهِ قَالَ مَنْ سَرَّهُ أَنْ يَلْقَى اللَّهَ غَدًا مُسْلِمًا فَلْيُحَافِظْ عَلَى هَؤُلَاءِ الصَّلَوَاتِ حَيْثُ يُنَادَى بِهِنَّ فَإِنَّ اللَّهَ شَرَعَ لِنَبِيِّكُمْ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ سُنَنَ الْهُدَى وَإِنَّهُنَّ مِنْ سُنَنِ الْهُدَى وَلَوْ أَنَّكُمْ صَلَّيْتُمْ فِي بُيُوتِكُمْ كَمَا يُصَلِّي هَذَا الْمُتَخَلِّفُ فِي بَيْتِهِ لَتَرَكْتُمْ سُنَّةَ نَبِيِّكُمْ وَلَوْ تَرَكْتُمْ سُنَّةَ نَبِيِّكُمْ لَضَلَلْتُمْ وَمَا مِنْ رَجُلٍ يَتَطَهَّرُ فَيُحْسِنُ الطُّهُورَ ثُمَّ يَعْمِدُ إِلَى مَسْجِدٍ مِنْ هَذِهِ الْمَسَاجِدِ إِلَّا كَتَبَ اللَّهُ لَهُ بِكُلِّ خَطْوَةٍ يَخْطُوهَا حَسَنَةً وَيَرْفَعُهُ بِهَا دَرَجَةً وَيَحُطُّ عَنْهُ بِهَا سَيِّئَةً وَلَقَدْ رَأَيْتُنَا وَمَا يَتَخَلَّفُ عَنْهَا إِلَّا مُنَافِقٌ مَعْلُومُ النِّفَاقِ وَلَقَدْ كَانَ الرَّجُلُ يُؤْتَى بِهِ يُهَادَى بَيْنَ الرَّجُلَيْنِ
حَتَّى يُقَامَ فِي الصَّفِّ (صحيح مسلم)

Ibn Mas’ud radhiyallahu ’anhu berkata: “Barangsiapa ingin bertemu Allah esok hari sebagai seorang muslim, maka ia harus menjaga benar-benar sholat pada waktunya ketika terdengar suara adzan. Maka sesungguhnya Allah subhaanahu wa ta’aala telah mensyari’atkan (mengajarkan) kepada Nabi shollallahu ’alaih wa sallam beberapa SUNANUL-HUDA (perilaku berdasarkan hidayah/petunjuk) dan menjaga sholat itu termasuk dari SUNANUL-HUDA. Andaikan kamu sholat di rumah sebagaimana kebiasaan orang yang tidak suka berjama’ah berarti kamu meninggalkan sunnah Nabimu Muhammad shollallahu ’alaih wa sallam. Dan bila kamu meninggalkan sunnah Nabimu Muhammad shollallahu ’alaih wa sallam pasti kamu tersesat. Maka tidak ada seseorang yang bersuci dan dia sempurnakan wudhunya kemudian ia berjalan ke masjid di antara masjid-masjid ini kecuali Allah subhaanahu wa ta’aala mencatat bagi setiap langkah yang diangkatnya menjadi kebaikan yang mengangkat derajatnya dan bagi setiap langkah yang diturunkannya menjadi penghapus kesalahannya. Dan sungguh dahulu pada masa Nabi Muhammad shollallahu ’alaih wa sallam tiada seorang tertinggal dari sholat berjama’ah kecuali orang-orang munafiq yang terang kemunafiqannya. Sungguh adakalanya seseorang itu dihantar ke masjid didukung oleh dua orang kanan kirinya untuk ditegakkan di barisan saf.” (HR Muslim 3/387).

Berdasarkan hadits di atas sekurangnya terdapat beberapa pelajaran penting:
Pertama, seseorang yang disiplin mengerjakan sholat saat azan berkumandang akan menyebabkan dirinya diakui sebagai seorang muslim saat bertemu Allah subhaanahu wa ta’aala kelak di hari berbangkit. Sungguh suatu kenikmatan yang luar biasa…! Pada hari yang sangat menggoncangkan bagi semua manusia justru diri kita dinilai Allah subhaanahu wa ta’aala sebagai seorang hamba-Nya yang menyerahkan diri kepada-Nya. Kita tidak dimasukkan ke dalam golongan orang kafir, musyrik atau munafiq.

مَنْ سَرَّهُ أَنْ يَلْقَى اللَّهَ غَدًا مُسْلِمًا فَلْيُحَافِظْ عَلَى هَؤُلَاءِ الصَّلَوَاتِ حَيْثُ يُنَادَى بِهِنَّ

”Barangsiapa ingin bertemu Allah esok hari sebagai seorang muslim, maka ia harus menjaga benar-benar sholat pada waktunya ketika terdengar suara adzan.”

Kedua, menjaga sholat termasuk kategori aktifitas SUNANUL-HUDA (perilaku atau kebiasaan berdasarkan pertunjuk Ilahi). Barangsiapa memelihara pelaksanaan kewajiban sholat lima waktu setiap harinya berarti ia menjalani hidupnya berdasarkan petunjuk dan bimbingan Allah subhaanahu wa ta’aala. Berati ia tidak membiarkan dirinya hidup tersesat sekedar mengikuti hawa nafsu yang dikuasai musuh Allah subhaanahu wa ta’aala, yakni syaitan.

فَإِنَّ اللَّهَ شَرَعَ لِنَبِيِّكُمْ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ سُنَنَ الْهُدَى وَإِنَّهُنَّ مِنْ سُنَنِ الْهُدَى

”Maka sesungguhnya Allah subhaanahu wa ta’aala telah mensyari’atkan (mengajarkan) kepada Nabi shollallahu ’alaih wa sallam beberapa SUNANUL-HUDA (perilaku berdasarkan hidayah/petunjuk) dan menjaga sholat itu termasuk dari SUNANUL-HUDA.”

Ketiga, sholat di rumah identik dengan meninggalkan sunnah Nabi Muhammad shollallahu ’alaih wa sallam. Padahal tindakan meninggalkan sunnah Nabi Muhammad shollallahu ’alaih wa sallam merupakan gambaran raibnya cinta seseorang kepada Nabinya Muhammad shollallahu ’alaih wa sallam. Sebaliknya, bukti cinta seseorang akan Nabi Muhammad shollallahu ’alaih wa sallam adalah kesungguhannya untuk melaksanakan berbagai sunnah beliau, Nabi Muhammad shollallahu ’alaih wa sallam.

وَلَوْ أَنَّكُمْ صَلَّيْتُمْ فِي بُيُوتِكُمْ كَمَا يُصَلِّي هَذَا الْمُتَخَلِّفُ فِي بَيْتِهِ لَتَرَكْتُمْ سُنَّةَ نَبِيِّكُمْ

”Andaikan kamu sholat di rumah sebagaimana kebiasaan orang yang tidak suka berjama’ah berarti kamu meninggalkan sunnah Nabimu Muhammad shollallahu ’alaih wa sallam.”

Keempat, meninggalkan sunnah Nabi akan menyebabkan seseorang menjadi TERSESAT. Berarti tidak lagi hidup di bawah naungan bimbingan dan petunjuk Allah. Sungguh mengerikan, bilamana seorang muslim merasa menjalankan kewajiban sholat, namun karena ia kerjakannya tidak di masjid, maka hal itu menyebabkan dirinya menjadi tersesat dari jalan yang lurus…! Na’udzubillaahi min dzaalika.

وَلَوْ تَرَكْتُمْ سُنَّةَ نَبِيِّكُمْ لَضَلَلْتُمْ

”Dan bila kamu meninggalkan sunnah Nabimu Muhammad shollallahu ’alaih wa sallam pasti kamu tersesat.”

Kelima, barangsiapa menyempurnakan wudhu lalu berjalan ke masjid, maka hal itu akan mendatangkan kenaikan derajat dan penghapusan kesalahan.

وَمَا مِنْ رَجُلٍ يَتَطَهَّرُ فَيُحْسِنُ الطُّهُورَ ثُمَّ يَعْمِدُ إِلَى مَسْجِدٍ مِنْ هَذِهِ الْمَسَاجِدِ إِلَّا كَتَبَ اللَّهُ لَهُ بِكُلِّ خَطْوَةٍ يَخْطُوهَا حَسَنَةً وَيَرْفَعُهُ بِهَا دَرَجَةً وَيَحُطُّ عَنْهُ بِهَا سَيِّئَةً

”Maka tidak ada seseorang yang bersuci dan dia sempurnakan wudhunya kemudian ia berjalan ke masjid di antara masjid-masjid ini kecuali Allah subhaanahu wa ta’aala mencatat bagi setiap langkah yang diangkatnya menjadi kebaikan yang mengangkat derajatnya dan bagi setiap langkah yang diturunkannya menjadi penghapus kesalahannya.”

Keenam, Ibnu Mas’ud radhiyallahu ’anhu menggambarkan bahwa pada zaman Nabi Muhammad shollallahu ’alaih wa sallam masih hidup di tengah para sahabat radhiyallahu ’anhum jika ada yang tertinggal dari sholat berjamaah maka ia dipandang identik dengan orang munafiq sejati

وَلَقَدْ رَأَيْتُنَا وَمَا يَتَخَلَّفُ عَنْهَا إِلَّا مُنَافِقٌ مَعْلُومُ النِّفَاقِ

”Dan sungguh dahulu pada masa Nabi Muhammad shollallahu ’alaih wa sallam tiada seorang tertinggal dari sholat berjama’ah kecuali orang-orang munafiq yang terang kemunafiqannya.”

Ketujuh, di zaman Nabi Muhammad shollallahu ’alaih wa sallam sedemikian bersemangatnya orang menghadiri sholat berjamaah di masjid sampai-sampai ada yang dipapah dua orang di kiri-kanannya agar ia bisa sholat berjamaah di masjid

وَلَقَدْ كَانَ الرَّجُلُ يُؤْتَى بِهِ يُهَادَى بَيْنَ الرَّجُلَيْنِ حَتَّى يُقَامَ فِي الصَّفّ

”Sungguh adakalanya seseorang itu dihantar ke masjid didukung oleh dua orang kanan kirinya untuk ditegakkan di barisan saf.”

Ya Allah, berkahi, mudahkan dan kuatkanlah kami untuk selalu sholat lima waktu berjama’ah di masjid bersama saudara muslim kami lainnya. Amin.-

Intinya, Kalau umat islam dapat sholat berjamaah di Masjid, Maka ukuwah islam akan terjalin erat sehingga tidak terjadi penyimpangan-penyimpangan seperti Ahmadiyah, Gusdurisme, atau FPI dan semacamnya. Semua dapat dicari jalan keluarnya.

disadur dari kaskus.us

uses wincrt;
var
indek:integer;
kata,ngisilagi:string;
pilihan:char;

{Bismillah, pada sinau bareng mayuh, ngapurane wingi ora bisa upload,
jebulane anu nganggo procedure yah, aku olihe sing biasa, dadine ya kudu dikutak-katik dewek,
jan sewengi mbetetet,langsung baen ya pak2 kabeh}

{Kiye sing nang ngisor jenenge function seduluran karo procedure mlebu kluarga deklarasi, fungsine nggo
mendeklarasikan variabel ‘cilik; men bisa ngrubah ben dadi lowcase, soale nang pascal langka perintah lowcase,
sing ana mung upcase tok,
nek ‘cilik:=chr(ord(c))’ kiye bahasa kerene char function, dadi anu wis ana rumuse.
mudeng? lanjut pak..}

function cilik(c : char) : char;
begin
if (c >= #65) and (c <= #90) then
cilik := chr(ord(c) + 32)
else
cilik := c;
end;

{siki mulai procedure sing pertama, tek jenengi procedure menu, nek arep diubah ya ngonoh, fungsine
nggo deklarasi pilihan ben mengko bisa dipanggil lewat case of, mengko neng ngisor toli ana,
priwe? 86? siap 86! lanjut..}

procedure menu;
begin
writeln(‘*********************’);
writeln(‘       >>MENU<<      ‘);
writeln(‘*********************’);
writeln(’1. Upper’);
writeln(’2. Lower’);
writeln(’3. Keluar’);
writeln;
writeln;
write(‘Pilihan Kamoe:’);readln(pilihan);
end;

{procedure sing ke 2 kiye fungsine nggo ngrubah maring huruf gedhe}
procedure kapital;
begin

{for indek ngisor kiye artine= variabel input ‘kata’ sing dimasukna mulai sekang
digit siji nganti ‘length’ utawane sedawane kata kuwe dirubah maring kapital,
nek arep diganti dadi
‘for indek:=1 to 300 do’ ya bisa, artine sing di rubah maring kapital digit 1 nganti 300.
ps: upcase perintah inti sing merekna dadi kapital.}

for indek:=1 to length(kata) do
kata[indek]:=upcase(kata[indek]);
writeln(kata);
end;

{nek sing ngisor kiye procedure sing terakhir (mbok bener mung dikongkon gawe 3 procedure tok kone dosene?,
deleng si nang slide)
kiye sing ana hubungane karo deklarasi function mau nduwur kae, nek langka deklarasi function sing nduwur
kae arep ngasi mencret ya
procedure ora bakal gelem dadi}

procedure hurufkecil;
begin

for indek := 1 to length(kata) do
kata[indek] := cilik(kata[indek]);
writeln(kata);

end;

{label kiye sing nggo pilihan arep ngisi maning ora…
betul sekali! nganggo perintah goto}

label
lagi;
{nah kiye program utamane, nek kiye tah wis pada pinter mbok? ben minggu gawe laporan koh
ya wis paham lah ya, nek urung ya sms bae maring dosene, takon}

begin
lagi:
clrscr;
writeln(‘                  ==============================’);
writeln(‘                        Program Sulap Huruf     ‘);
writeln(‘                  ==============================’);
writeln;
write(‘Masukan Kata:’);
readln(kata);
writeln;
writeln;
menu;
case pilihan of
’1′ : kapital;
’2′ : hurufkecil;
’3′ : donewincrt;

end;

write(‘Mo Nyulap Lagi?’);readln(ngisilagi);
if ((ngisilagi=’y') or (ngisilagi=’Y')) then goto lagi else donewincrt;

end.

{Alhamdulillah, matur nuwun kanggo atensine,
salame dikirimna kanggo yayu tus, yu rukiyah, kang harjo, kang sapto, yu dar sing mbekayune yu tus kae, sing ayu dewek,
hehehe, selamat mencoba lah, sing ngganteng dewek

-hendrat sasongko-
08.11.0782

}

Kontributor   :

hendrat sasongko – http://sasongko.duniakata.net