Iklan AXIS dan kondisi bangsa ini....

Teman-teman pasti tau ya, iklan kartu GSM AXIS yang temanya menyambut bulan puasa. Digambarkan seorang dewasa yang merebut permen milik anak kecil dan harus berlari menangis karena permennya 'lenyap' dimangsa angkara, kemudian datang Pak Haji yang menasehati orang tersebut dan menunjukkan keadaan anak kecil yang dengan mimik senang menjilat daun, memimpikan serasa menjilat permennya yang telah dirampas.
Mungkin, inilah yang sedang terjadi di negeri ini. Para penguasa dengan segala kekuatannya entah itu materi dan kuasanya. Para pejabat, penegak hukum, wakil rakyat, tokoh parpol dan pengusaha-pengusaha hitam laksana orang dewasa yang merebut permen. Tamak dan serakah. Merampas dengan paksa, membiarkan rakyat sengsara. Uang diobral untuk melanggengkan kursi masing-masing, sementara di depan mata jutaan rakyat sahaya mengais tong sampah hanya untuk makan. Jangankan sekolah atau ke dokter saat sakit. Bisa makan dua kali dengan makanan layak saja sudah bagai di surga bagi mereka. Mereka inilah anak kecil yang dipaksa bahagia menjilat daun dan dipaksa membayangkan itu adalah sebuah permen.
Kasus lumpur di Sidoarjo (yang sedikit banyak direkayasa menjadi bencana alam, bandingkan dengan kasus British Petroleum/BP di Teluk Mexico yang tuntas hanya dalam waktu 3 bulan dan diakui sebagai kelalaian), kasus Century, kasus rekening babi perwira Polri, kasus ledakan tabung gas, dan sejuta kasus besar lainnya yang terjadi di daerah termasuk pemimpin daerah yang banyak terlibat kasus korupsi namun dianggap kesalahan prosedur).
Sementara, rakyat dipaksa menikmati langkanya minyak tanah dan ancaman melambungnya harga BBM, naiknya TDL, naiknya TOL, harga bahan pangan dan sayur yang melonjak dan dipaksa harus bergembira dengan bumbu video porno artis, meributkan status infoTAImen dan hiburan Piala Dunia yang sekejap.
Sementara, generasi bangsa dipupuk untuk menjadi penipu, penjilat dan tunas koruptor. Deklarasi Anak dilarang dibacakan, namun dipaksa mengerti anti ponografi, go green, dll. Masuk PTN favorit dengan cara-cara kotor....sekali lagi pendidikan di negeri ini hanya akan menjadi milik siapa ?

Ini sekedar OPINI, dari bangsa semut yang teriakannya tak kan mampu di dengar oleh gajah....

(Saya tulis pada 25 Juli 2010 di NOTE Facebook dan saya pikir masih relevan)

Melepas penat setelah UKK...

Tak terasa (walau bagi sebagian membuat 'mumet' juga), ulangan kenaikkan kelas (UKK) alias ujian akhir semester atau apalah istilahnya akan berakhir. Tak berasa juga, tinggal menunggu hasil.
Ok, sambil menunggu hasilnya,naik atau tidak atau masuk jurusan yang diinginkan atau tidak, ini ada GAME bisa bisa dicoba. Dulu pernah saya posting yaitu ANGRY BIRD, yang ini masih sama yaitu ANGRY BIRD RIO. Yang dulu subyeknya adalah babi-babi untuk dibunuh, yang ini burung yang harus dubebaskan dari sangkar. Sumber : detik dot com

Silakan DOWNLOAD DI SINI.

Cara instalnya :
1. Unpack (bongkar) file yang telah di download
2. Klik dua kali file setup (angrybirdrioinstaller.exe)
3. Jika proses instalasinya kelar, masuk ke folder PATCH, lalu klik dua kali file patch.exe, klik menu PATCH lalu cari file angrybirdrio.exe hasil instal. (umumnya ada di C:program files\rovio). Lalu tutup aplikasi patch.
4. Jika proses PATCHING kelar, jalankan permainan.
5. Klik menu aktivasi, masukkan key yang ada di folder PATCH pada langkah nomer 3. Ada file serial.txt
6. Selamat bermain....

Soal Latihan Pascal

Buatlah program PASCAL menggunakan seleksi kondisi IF...THEN / IF...THEN...ELSE / CASE .. OF sehingga menampilkan hasil keluaran seperti berikut :



Jika memasukkan pilihan di luar yang ada, tampilannya seperti berikut :



Harga sewa /hari :
Sedan : 300000
Pick Up : 200000
Mini Bus : 800000
Bus : 3000000


Buatlah program PASCAL mencari sisi miring segi tiga siku-siku menggunakan perulangan FOR...TO atau WHILE ... DO sehingga menghasilkan hasil keluaran sebagai berikut :




Di mana : C=sqrt(sqr(A)+sqr(B))

Barisan Fibonacci dengan PASCAL

Barisan angka Fibonacci adalah barisan yang didefinisikan secara rekursif. Perhatikan barisan angka berikut :
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, ...
angka ke 3 dan seterusnya adalah penjumlahan dari dua angka di depannya.
Bagaimana membuatnya dengan PASCAL ?
Logikanya adalah seperti ini :
1. Karena hasil penjumlahan baru dimulai dari angka ke 3 (merupakan penjumlahan angka kesatu dan kedua), maka wakilkan angka pertama dan kedua (misalkan dengan f1 dan f2) dan tampilkan angka pertama dan kedua yaitu 0 dan 1.
2. Buatlah perulangan dari hitungan ke 3 sampai batas yang diinginkan (misalnya sampai 20).
3. Wakilkan juga hasil penjumlahan (misalkan dengan f3) untuk menampung f1+f2
4. Tampilkan f3
5. Sekarang f1 nilainya disamakan dengan f2 (f1=f2) dan f2 sendiri disamakan dengan f3 (f2=f3)
6. Selesailah...

Programnya seperti ini :

program fibonacci;
var
i,f,f1,f2:integer;
begin
clrscr;
writeln('FIBONACCI');
write('0 ');
write('1 ')
f1:=0;
f2:=1;
for i:=3 to 20 do
begin
f:=f1+f2;
write(f,' ')
f1:=f2;
f2:=f;
end;
end.


Tentunya program ini belum 100% berjalan. Beberapa hal kecil saya hapus. Silakan diperbaiki sendiri sambil belajar....(kalau mau,ubah juga ke While maupun repeat)

Penuntun Pascal

Untuk Download Penuntun versi Lengkap, silakan klik disini atau DISINI
Untuk softwarenya bisa di klik DISINI.
Untuk software, setelah di ekstrak, ada dua folder. Folder TP dan TPW. Pilih saja salah satu.

Perulangan Repeat Until

Penuntun Pascal 8 (klik di sini untuk download)

Perulangan While..DO dengan PASCAL

Download Penuntun Pascal 7

PERULANGAN PASCAL (FOR)

Penuntun Pascal 5

KONTROL KENDALI dalam PASCAL 2

Penuntun Pascal 4

KONTROL KENDALI dalam PASCAL 1

Penuntun Pascal 3

PENGANTAR PASCAL 2

Penuntun Pascal 2

PENGANTAR PASCAL 1

Penuntun Pascal 1

Perulangan Menggunakan For

Tulisan kedua tentang Visual Basic 6. Sekarang ingin berbagi tentang perulangan. Kesempatan pertama, mari kita belajar menggunakan For...

1. Gambar dulu sebuah listbox pada form (besarnya terserah...suka dengan kata terserah kalau ditanya siswi). Beri name pada propertiesnya lstCoba (sebenarnya bebas sih namanya). Gambar pula sebuah tombol ("Pak, namanya apa dan besarnya seberapa ?" tanya siswi. "Terserah, yang penting nanti tidak bingung saat menulis kode", jawabku enteng)

2. Saya misalkan, tombol tadi diberi nama cmdUlang. Klik dua kali pada kontrol/tombol tadi. Maka akan muncul layar putih dan sudah tertulis sebagai berikut :
Private sub cmdUlang_clik()


End Sub

3. Diantara Private... dan End Sub, tuliskan kode berikut :
dim i as integer
for i=0 to 10
list1.additem i
next i

4. Coba jalankan program tadi, dan telaah hasilnya.
5. Jika ditambahkan perintah step 2 pada baris for, menjadi for i=0 to 10 step 2, apa yang terjadi ?

Latihan :

Buatlah program menggunakan bahasa VB (versi berapa saja), dengan output seperti berikut :



Aturan :
1. Tombol BOSAN : untuk keluar dari aplikasi
2. Tombol HITUNG : akan berefek pada hasil BARAT BADAN IDEAL, status dari berat badan dan menampilkan daftar/list tinggi badan yang dimulai dari Tinggi Badan masukkan sampai 4 cm sesudahnya(cth : jika diinputkan 176, maka akan dimulai dari 176,177,178,179 dan 180)sekaligus berat badan ideal dari masing-masing ketinggian tadi.
3. TOMBOL RESET : membersihkan box Tinggi Badan, Berat Badan dan ListBox
4. Status berat badan :
A. Jika Berat Badan lebih besar atau sama dengan 5 kg dari Berat Ideal : "Anda Gemuk/Gendhut/Banyak Lemak, dsb"
B. Jika Berat Badan lebih kecil atau sama dengan 5 kg dari Berat Ideal : "Anda Kurus/Kerempeng/Balung Thok/Skeleton, dll"
C. Selain itu : "Anda idaman Laki-laki/Perempuan/Banci/Gay/Lesbong,dll di dunia"

Bingung ? Silakan pelajari tentang Seleksi Kondisi/Kontrol Kendali di postingan berikut.

Materi Visual Basic 6 (Kelas XI Sem Genap)

Menulis lagi. Semoga dengan meja baru, semakin rajin untuk menulis terutama bab MAPEL TIK kalau bisa sih berbagi ilmu (lebih tepatnya SALING BERBAGI).
Ok, ini tentang Visual Basic. Materi yang saya berikan sesuai dengan RPP dan Silabus sekolah.
BASIC (Beginners’ All-purpose Symbolic Instruction Code) merupakan bahasa tingkat tinggi (tapi yakinlah..masih lebih sulit adalah bahasa Jawa seri Kromo Inggil).
Balik lagi ke tulisan about VB. Tak perlu dijelaskan panjang lebar. Untuk lebih lengkap about sejarah Bahasa Basic, silakan baca di sini.

Saya hanya akan memberikan tampilan (antar muka) awal dari VB 6. Silakan, sebagai latihan cari nama-nama dan fungsinya (mbah Gugel siap membantu)

Gambar 1 :



Gambar 2 :



Tidak perlu memasukkan sugesti sulit atau memusingkan ke dalam pikiran. Seperti aplikasi produk Microsoft, sebisa mungkin di buat mudah. Demikian juga dengan Visual Basic ini. Control sudah dibuatkan, kita tinggal membuat 'komando' untuk kontrol tersebut. Logikanya juga sederhana. Pikirkan saja, ini ada karena efek dari aksi mana. Nah, kalau ketemu tinggal buat saja code untuk aksi tersebut.

Contohnya adalah begini : Ada dua textbox, satu label dan satu commandbutton. Textbox difungsikan sebagai tempat memasukkan angka, label tempat untuk menampung hasil penjumlahan dari angka yang terdapat di textbox tadi dan tombol difungsikan untuk mencari hasil perhitungan tadi. Jadi, label akan berisi angka hasil penjumlahan karena tombol di klik/tekan. Jadi (lagi), buatlah code-nya untuk tombol, tidak perlu di textbox.
Caranya :
1. Diandaikan 2 textbox tadi pada masing-masing properties bagian name diberi nama txtAngka1 dan txtAngka2, label diberi nama lblHasil dan button/tombol diberi nama cmdHitung.
2. Klik dua kali pada kontrol/tool tombol yang tadi diberi nama cmdHasil tadi (biar gampang, tinggal menuliskan codenya saja)
3. Akan muncul lembar putih seputih salju Kilimanjaro seperti berikut bertuliskan
Private sub cmdHasil_click()

End Sub

"Kepenak mbok ? Maturnuwun nganah maring Bill Gates"

4. Diantara "private.." dan "end sub" tinggal kita tuliskan kodenya (bukan kode buntut lho..), seperti berikut :
lblhasil.caption=val(txtangka1.text)+val(txtangka2.text)
5. Mengapa ada "val" ? Fungsinya adalah untuk merubah angka yang dimasukkan dalam textbox menjadi angka numerik yang bisa digunakan dalam operasi matematis. Coba jika kedua val dihilangkan, wot hepen ? Coba ya..plok..plok...bantu ya....apa yang terjadi ?
6. Perhatikan juga, bahwa tempat menampung hasil (dalam hal ini adalah lblhasil), letaknya selalu di sebelah kiri sama dengan. Ini berlaku untuk semua operasi logika dan aritmatika. Ingat lo ya..ingat lo ya...

Tugas Anda adalah berlatih dan berlatih. Coba buat kalkulator sederhana.

Selanjutnya di pertemuan berikut, saya akan berbagi (karena saya juga mendapatkan gratis) gratis tentang seleksi kondisi/kontrol kendali dan perulangan.

Semoga bermanfaat.

Bahan UKK Kelas X Semester Genap 2010-2011

Tidak terasa, tahun ajaran 2010-2011 sudah akan berakhir. Sudah hampir sampai tahap Ulangan Kenaikkan Kelas, yang untuk SMA Stella Duce 1 Yogyakarta akan dilaksanakan 30 Mei - 8 Juni 2011.
Ya...semoga hasil belajar tahun ajaran ini tidak sia-sia, sehingga hasilnya bisa naik kelas semua.
Berikut bahan UKK Mapel TIK untuk kelas X (semester genap 2010-2011).
1. Sejarah bahasa pemrograman PASCAL
2. Aturan penulisan nama program, variabel dan konstanta
3. Tipe-tipe data
4. Operator logika dan aritmatika
5. Seleksi kondisi IF dan CASE
6. Perulangan FOR, WHILE dan REPEAT
7. Pesan kesalahan dalam PASCAL
8. Membuat program sederhana
9. Fungsi perintah-perintah dasar dalam PASCAL (write,writeln,readln,read,gotoxy,uses,clrscr,dll)
10. Penggunaan tombol-tombol pada papan ketik (hotkey) untuk melakukan sesuatu pada PASCAL
11. FLOWCHART/DIAGRAM ALIR

Angry Bird

Selamat pagi dan selamat berakhir pekan yang sangaaaaaaaaaaaaaat panjang (terutama buat PNS) yang menikmati kebijakan super bejat (menurutku) dari pejabat-pejabat korup di Jakarta (libur bersama kok diputuskan mendadak).
Wes, ra sah dipikir.
Intinya, saya mau membagi sebuah permainan ringan yang mungkin sudah tidak terlalu populer. Tapi rugi jika saya tidak berbagi. Ini game, ceritanya dulu dibuat untuk iPhone. Tapi akhirnya berkembang juga untuk PC/laptop. Cara bermainnya cenderung monoton. Hanya seperti main ketapel dengan 'amunisi' berupa burung-burung yang sedang marah dengan babi yang telah mencuri telur-telurnya. Ada beberapa tingkat dan setiap tingkat terdiri dari puluhan langkah yang harus dilalui.
Beberapa macam burung yang bisa digunakan untuk 'amunisi' :
1. Burung pertama yang ketemu kita adalah berwarna merah. Tidak ada istimewanya sih. Tapi cukup kuat untuk menghancurkan balok kayu atau membuat retak balok beton.
2. Burung berwarna kuning. Keistimewaannya, saat melesat bisa kita percepat lajunya dengan meng-klik kiri mouse sekali. Hati-hati, salah ambil waktu menambah cepat, sasaran bisa meleset. Hanya bisa sekali dilakukan.
3. Burung kecil berwarna biru. Keistimewaannya, saat melesat dengan klik kiri sekali burung ini akan menggandakan diri menjadi 3....
4. Burung berwarna hitam bulat. Sudah tau bentuknya mirip apa ? Ya, bola bowling/bom jaman perangnya VOC. Keistimewaannya yaitu tadi, bisa meledak disasaran. Bisa meledak sendiri atau diledakkan dengan cara klik kiri.
5. Burung berwarna putih gemuk. Mirip angsa. Keistimewaannya, bisa bertelur di udara dan telurnya bisa difungsikan sebagai peledak. Tinggal klik kiri saja saat burung ini ada di udara, maka telur akan meluncur lurus ke bawah...
6. Burung berwarna hijau berparuh panjang. Ini yang agak sulit kendalinya. Saat melayang, dengan klik kiri burung ini bisa berubah bagai bumerang.

Burung lainnya belum mencoba, karena level saya baru sampai enam burung itu. Ada yang mau menambahkan ?
Ada yang belum mencoba ? Silakan download di sini. Cara mainnya gampang. Di sini ada dua folder. Satu folder berisi game, satu lagi berisi file msvcr100.dll yang harus di copykan ke C:windows/system32.
Tidak perlu diinstal. Selamat mencoba

Semua ada dalam namaNya saat Tetap dalam Harapan, Iman dan Kasih....

Download file Animasi dari halaman web

Salam,
Sebenarnya ini bukan hasil pemikiranku. Ya...dari bertanya-tanya saja terutama mencari sumber yang bisa menjawab dari Mbah Gugel. Mungkin (opini saya pribadi), inilah guru universal nan jasanya sangat besar.
Semoga bermanfaat terutama untuk teman-teman Pendidik (SD-SMA atau kalau bisa Dosen). Apalagi di era Multimedia, media pembelajaran sekarang bukan hanya papan tulis, kapur/spidol, gulungan kertas berisi peta atau gambar-gambar dua dimensi. Bukan jaman lagi menggunakan Oper Hed Projector (OHP..maaf pake logat Banyumas jadi pasti ngawur) yang harus menyediakan plastik transparan entak di cetak pake mesin entah di coret-coret pakai spidol (dulu ada dosen yang suka menulis di sini, dan tulisannya.....KAYA ISI RESEP DOKTER alias tidak bisa dibaca blas). Sekarang jaman pake kotak kecil yang memancarkan sinar dari lingkaran kecil di dalamnya ke arah layar. Mirip bioskop. Dan disambungkan dengan pisi (PC), tengtop eh..laptop atau netbok bahkan hape atau tablet bukan kapsul.
Pembelajaran sekarang bukan lagi tentang melihat benda mati berupa kertas bergambar,bertulis atau ber..ber yang lain. Mau lihat jalannya pergeseran kulit bumi ? Mau melihat pergerakkan atau pertumbuhan janin ? Atau mau melihat tutorial perakitan komputer ? Dan banyak lagi. Ada suaranya lagi. Ssstttt.....yang tidak boleh adalah melihat adegan pembuahan manusia apalagi suaranya....(ada UU IT).
Kembali ke topik. Bahan yang paling disukai adalah animasi yang berekstensi flv atau swf. Alasan utama sih karena ketersediaan yang banyak dan memang filenya kecil dibanding film-film berformat mwv/avi/mp4. Mudah untuk mengunduhnya apalagi dengan koneksi yang masih KAPEL KARAP (kadang pelan kadang merayap).
OK !! Langsung ke cara :
1. Pastikan di komputer/PC/laptop/netbook/tablet sudah diinstal INTERNET DOWNLOAD MANAGER (saya pakainya itu...tapi kalau ada aplikasi lain dan bisa digunakan ya monggo silakan)
2. Saya menggunakan browser Mozilla Firefox (MF)
3. Buka halaman web yang ingin file animasinya atau media video nya mau diunduh/download (saya mencoba di situs milik stasiun tv lokal tidak bisa). Misal : detik dot com
4. Jika sudah terbuka secara sempurna, klik menu TOOLS/PERALATAN (yang belum tahu dimana letaknya, silakan dicari di bagian atas browser MF)
5. Pilih PAGE INFO/INFORMASI HALAMAN
6. Pilih MEDIA lalu akan muncul list berupa content yang ada pada halaman web yang sedang kita buka dan sedang kita lihat
7. Carilah baris yang mengandung ekstensi file animasi (flv ataupun swf). Cthnya : http://openx.detik.com/images/detik-panda-paradise_200x300.swf
8. Copy semua secara sempurna dari depan sampai karakter terakhir. Tidak boleh lebih tidak boleh kurang.
9. Buka aplikasi IDM lalu letakkan link dari nomer 7 di atas di box URL
10. Klik START DOWNLOAD (pastikan Anda tahu kemana disimpannya)
11. Jika langkah 10 selesai, tinggal buka/mainkan file hasil downloadnya. Cocok ? Jika belum, cari lagi dengan mengulang langkah nomer 6.
12. Selamat mencoba

Semoga bermanfaat.

Konversi angka menjadi teks dalam Ms. Excel

Salam,
Kali ini saya akan kembali menulis. Dan agak sedikit berbeda dari tulisan-tulisan sebelumnya, saya akan berbagi (dari yang sudah saya dapat) ilmu yang sedang saya geluti dengan semi amatir dan sangat tidak profesional.
Saya awali dengan merubah angka yang kita tulis untuk diterjemahkan menjadi teks. Misalnya, dalam penulisan data menggunakan Ms. Excel 2003 atau pun 2007, kita memasukkan angka 1700000, lalu otomatis di sel yang lain otomati muncul teks "satu juta tujuh ratus ribu rupiah". Mungkin jika datanya cuma 1 atau 10 tidak rumit. Jika datanya ratusan ? Dijamin, tukang pijat obatnya dan obat sakit kepala.

MULAI :

Pertama sekali buka lembar kerja baru pada Microsoft Excel buatlah desain kwitansi pembayaran atau Tanda terima yang menggunakan konversi huruf (Terbilang), setelah desain tersebut selesai kita kerjakan kemudian kita masuk pada tahap pembuatan kode Macro. Disini penulis membuat kemudahan supaya penulisan kode tidak anda ketik lagi (Tinggal Copy Paste) silahkan Download kodenya disini KodeTerbilang.txt

Cara menyisipkan kode tersebut dalam lembar kerja yang telah kita desain tersebut, Klik Tool Kemudian Klik Macro Kemudian Klik Visual Basic Editor atau Alt+F11, setelah kita masuk pada jendela kerja Visual Basic Editor Kemudian Klik Insert Kemudian Klik Module, setelah itu kita Paste kode yang telah kita download tadi. Kemudian klik File Kemudian Klik Close and Return to Microsoft Excel Atau Alt+Q.

Sampai disini kita sudah berhasil membuat Konversi huruf terbilang pada lembar kerja yang telah kita desain tersebut. Berikutnya buatlah sebuah Formula atau Rumus pada lembar kerja :
contoh ketik angka pada sel C2 : 25900 kemudian buatlah formula pada sel C3 =Terbilang(C2), maka setelah kita tekan enter akan muncul huruf pada sel C3 : Dua puluh lima ribu sembilan ratus rupiah.-
apa bila kita tidak menginginkan tulisan rupiah dan mengantinya dengan Kilogram atau apapun kita tinggal merubah pada kode macro lihat dibawah ini :
Konv0 = Trim(Huruf)
Konv1 = Left(Konv0, 1)
Konv2 = UCase(Konv1)
Konv3 = Mid(Konv0, 2, 150)
Terbilang = Konv2 & Konv3 & " rupiah.-"
End Function

Apabila Konversi tidak berhasil mungkin akan muncul #NAME? Coba anda Klik Tool Kemudian Klik Macro Kemudian Klik Security Kemudian pada Security Level anda pilih Medium Kemudian Klik Ok. Kemudian tutup lembar kerja anda dan buka kembali lembar kerja tersebut pada saat start up akan muncul kotak dialog... anda klik saja Enable Macros dan aplikasi anda sudah berjalan sesuai dengan yang diharapkan.

Ok. Mungkin dan semoga bermanfaat. Saya tunggu umpan baliknya. Berkah Dalem.

Konvert angka menjadi teks dalam Ms. Excel

Salam,
Kali ini saya akan kembali menulis. Dan agak sedikit berbeda dari tulisan-tulisan sebelumnya, saya akan berbagi (dari yang sudah saya dapat)