rizky achmad kurnia

Halo, kemaren pas hari minggu, gw lagi ngotak-ngatik C, sekalian latihan string. pas lagi ngotak-ngatik gw inget sama Php, trus gw inget kalo Php kan biasanya buat bikin website, dari situ lah gw kepikiran buat bikin Halaman Registrasi & Login kayak yang biasa di website-website dibuat pake Php tapi gw buatnya pake C, nah gini deh jadinya

Download: http://www.mediafire.com/?8ib3ym8p49u2465

Cara menggunakan:

1.











pas muncul tulisan kayak gini, pencet Enter aja

2.










trus, ketik Angka "1" buat lanjut ke Registration Page, dan ketik Angka "2" buat keluar dari program

3. ikuti perintah-perintah didalam program.

semoga bermanfaat

seminggu yang lalu gw belajar bahasa C buat ikut lomba schematics, nah pas lagi belajar C, gw ada ide buat bikin beberapa program sederhana itung-itung buat latihan, hehehe. namun sayangnya gw gak lolos ke final .

nih contoh programnya:

1. Program Pengurang otomatis

Program ini digunakan untuk mengurangi angka yang dimasukkan oleh pengguna sebanyak 1 sampai angkanya habis. download: http://www.mediafire.com/?dzln6hlff14pd19



2. Kalkulator Sederhana










Seperti namanya, ya program kalkulator
download: http://www.mediafire.com/?0l788xere432p85

3.Program Penghitung rata-rata










Program ini digunakan untuk menghitung rata-rata dari angka yang kita input sebanyak 5 kali
download: http://www.mediafire.com/?0l788xere432p85

4.Program Nilai Lulus










Program ini digunakan untuk menentukan apakah nilai siswa sudah memenuhi kkm untuk kelulusan
download: http://www.mediafire.com/?el8p386ke818moa

semoga program-program diatas bisa menjadi referensi buat yang mau belajar programming

halo kawan kawan sebangsa dan setanah air, tadi gw lagi belajar while...do... di freepascal, dan abis itu gw kepikiran buat bikin animasi sederhana dengan freepascal. animasi ini dibuat dengan  metode while...do...
jadi harap dimaklumi apabila animasinya sangat sederhana, karena gw sendiri masih newbie hehe...

oke deh, langsung aja ke source codenya

uses wincrt;
var x :integer;
begin
        x := 1;
        while x = 1 do
        begin
                writeln (' l                   o                            ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                   o                            ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l   _\|/_                                       ');
                writeln (' l     /|\                                        ');
                writeln ('  l     o                                         ');
                writeln (' l                                                ');
                writeln ('  l     o                                         ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                    o                            ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l               o o o                             ');
                writeln (' l               \ /                              ');
                writeln ('l                 |                               ');
                writeln (' l                                      \O/       ');
                writeln ('l                                        T        ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                 Space War Rizky ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                 __\|/__                        ');
                writeln ('l                     o                           ');

                delay (50);
        end;
end.

nih hasilnya:































silahkan mencoba, dan mohon dikoreksi apabila ada kesalahan
posting selanjutnya ada lah membuat animasi pascal dengan GOTOXY, tapi kalo gw udah pelajarin ya hehe ^^

Halo teman-teman, pasti kalian pernah denger sama yang namanya programming, atau mungkin belum pernah, hehe. yaudah sekarang gw mau ngajarain programming pake Free Pascal walaupun gw sendiri masih newbie dalam dunia pascal ini hehehe...tapi gak apa apa lah, sekedar berbagi ilmu aja mumpung besok puasa sekalian nambah pahala. to the point aja gw mau ngajarin cara membuat program untuk menghitung luas persegi (bangun datar) sekalian mengajarkan dasar-dasar pascal.
langsung aja dimulai tutorialnya: Tutorial Pascal, Tutorial Free Pascal, Tutorial FreePascal

dalam menuliskan sebuah program ada beberapa hal yang harus diperhatikan:
-uses
-var (variabel)
-awalan (begin)
-isi
-penutup (end.)

contoh program:
tampilan saat coding

tampilan saat di run

kode:




penjelasan dasar:
uses wincrt; digunakan karena sistem operasi yang kita gunakan adalah windows CMIIW.
var adalah variabel, yang akan digunakan dalam pemrograman nantinya (contoh: panjang, lebar, luas akan digunakan dalam perhitungan nanti).
begin adalah awalan di dalam setiap program
end. akhiran untuk setiap program, untuk penutup program, harus dengan tanda titik (.) apabila bukan sebagai penutup program, maka menggunakan tanda (;)
write digunakan untuk melakukan output data [contoh: write ('masukkan panjang: ');] berarti akan muncul tulisan masukkan panjang: pada program.
read digunakan untuk melakukan input data kedalam sebuah program, contoh lihat gambar [contoh: readln (panjang);] maka apa yang gw ketik, akan di baca oleh program dan disimpan sebagai variabel panjang, karena di var dituliskan panjang.
-ln adalah untuk menambahkan jeda (seperti tombol enter)
contoh: write ('masukkan panjang');
            readln (panjang);
maka setelah di run akan muncul seperti ini

   


writeln ('masukkan panjang');
readln (panjang);
maka setelah di run akan muncul seperti ini

 perbedaannya adalah letak kursor untuk menginput data


penjelasan rumus persegi:
1. variabel

var panjang, lebar, luas :integer;

berarti apabila di readln (......); dituliskan panjang maka apa yang kita input nantinya akan dianggap sebagai variabel.

:integer;

berarti hasil dari variabelnya akan berupa angka bulat, bukan pecahan (kalo gak salah)
contoh: luas := panjang * lebar;
maka luasnya akan dalam bentuk bilangan bulat
catatan: di dalam pascal tanda kali (x) di tuliskan dengan tanda bintang (*)

2. panjang

write ('masukkan panjang');
readln (panjang);

berarti apa yang kita input akan dianggap sebagai variabel panjang

3. lebar

write ('masukkan lebar');
readln (lebar);

berarti apa yang kita input akan dianggap sebagai variabel lebar

4. luas

luas := panjang * lebar;

tanda := maksudnya adalah tanda (sama dengan)/ (=)
berarti, luas adalah panjang dikali lebar

5. hasil

luas := panjang * lebar;
writeln (luas);

berarti hasil dari perkalian antara panjang dan lebar akan dianggap sebagai variabel luas
dan  akan dituliskan oleh program sebagai variabel luas


6. penutup

begin
||       ...........
 |        ..........
\|/        ..........
end.

tanda begin harus sejajar dengan end. apabila tidak sejajar, program tidak akan berjalan, karena end. berfunsi sebagai penutup dari begin

sekian tutorial ini dari gw, semoga bermanfaat dan mohon di koreksi apabila ada kesalahan di sana-sini (maklum newbie) hehehe.

dan kalau ada yang gak ngerti langsung tanya aja di comment

halo kawan kawan, dah lama gak posting nih hhehhee... langsung to the point aja ya
tadi gw kan main game steel legions, disitu gw ketemu sama orang spanyol dan gw chatting sama dia. karena dia gak bisa bahasa inggris dan gw gak bisa bahasa spanyol, akhirnya gw pake dah tuh google translate. pas gw menterjemahkan kata "oie anda ah comete esa municion que esta arriba " dari bahasa spanyol ke bahasa indonesia, hasilnya malah begini

 akhirnya gw bebassssssss...hhahahaha

ya itulah kata yang mungkin terucap saat seseorang murid telah selesai ujian nasional, seperti gw hehehe...
dan akhirnya setelah sekian lama gak posting karena persiapan untuk ujian nasional, sekarang udah bisa posting lagi deh, asikkk.
dan akhirnya gw bisa bebas main komputer dan menjalankan apa yang udah gw cita-citakan dari sebelum un bwahahaha

by the way bus way, gw ngerasa kalo soal-soal ujian nasional lebih susah dari soal-soal try out
memang mungkin soalnya sama seperti soal-soal pada saat try out, tapi soal-soal ujian nasional ini dibuat lebih njlimet hhehe (apa mungkin perasaan gw aja yak).
yaudah deh, daripada kalian bosen denger curhatan gw, mending gw udahin dulu dah.

semoga gw bisa masuk sma 39, 99, 106, atau smansa, amin ya rabbal alamin

halo gan, tadi gw iseng iseng buka youtube pengen liat video gitar. pas lagi buka video cover hysteria kok kayaknya ada yang aneh,
eh taunya gara gara event 60th earth hour
youtube jadi begini :




nah kalo tombol lampunya di klik, nanti warna putih di backgorund youtube berubah jadi warna hitam
nih kalo dah di klik tombol lampunya:



keren kan, ayo buruan buka youtube sebelum eventnya habis, mumpung cuma setahun sekali