Modelnya seperti kalkulator biasa yang kita jumpai di rumah, sekolah, bank dan tempat-tempat lainnya
Sekedar berbagi ilmu Download project kami: https://twitter.com/
Semoga sukses
Credit by Di Je
Minggu, 17 Juni 2012
Advance Calculator dengan Visual Basic6
Modelnya seperti kalkulator biasa yang kita jumpai di rumah, sekolah, bank dan tempat-tempat lainnya
Sekedar berbagi ilmu Download project kami: https://twitter.com/
Semoga sukses
Kamis, 14 Juni 2012
Kalkulator Dengan Visual Basic
Saya iseng-iseng membuat project kalkulator sederhana menggunakan visual basic dan hasilnya tidak terlalu malu-maluin lah ini hasilnya jenjreeeeeeeeeeeeeng~
Ini tampilan utama aplikasi Mini Calculator cukup sederhana tapi semoga bermanfaat
Silahkan download http://www.sharebeast.com/0alnheh4g7qu
nb: Silahkan edit sesuka hati, tetapi jangan lupa menyertakan credit, berhubung sekarang sudah lunas tidak lagi kredit:D
Silahkan download http://www.sharebeast.com/0alnheh4g7qu
nb: Silahkan edit sesuka hati, tetapi jangan lupa menyertakan credit, berhubung sekarang sudah lunas tidak lagi kredit:D
Lunas By Di Je
Selasa, 12 Juni 2012
Contoh Aplikasi VB Buatan RPL SMK 1 Triple "J"
Ini Adalah contoh aplikasi Penjualan dengan Visual Basic 6
Anda Harus Login Terlebih Dahulu
Sesudah login anda akan menemukan sebuah tampilan LOADING
Sesudah loading anda akan masuk pada program utama
Jika anda bingung dengan kode barang, silahkan klik tombol "Keterangan"
Jika ingin mendownload aplikasi ini silahkan download dengan link di bawah ini :
nb: Silahkan edit sesuka hati, tetapi jangan lupa menyertakan credit :D
Credit By : Cecep & Nicko @rpltriplej.blogspot.com
Jumat, 16 Maret 2012
Contoh Rumus Pascal Sederhana
Selamat malam saya akan memberikan setetes ilmu mengenai pemrograman dasar menggunakan turbo pascal langsung aja tanpa berlama-lama langsung ke rumusnya cekidot!
Program paket; {heading program}
uses wincrt;
var {bagian deklarasi}
Tujuan:string[20];
berat:integer;
bayar:real;
begin {*bagian pernyataan*}
clrscr;
writeln (' RPL POS ');
writeln (' PROGRAM PENGIRIMAN BARANG ');
writeln ('-----------------------------------------------------------');
writeln ('Akuntansi Rp. 3000/kg kode: AK ');
writeln ('Pemasaran Rp. 5000/kg kode: PM ');
writeln ('Administrasi Perkantoran Rp. 7000/kg kode: AP ');
writeln ('Rekayasa Perangkat Lunak Rp. 10.000/kg kode: RPL');
writeln;
write ('Kode Jurusan : ');readln(tujuan);
write ('Berapa berat paket yang mau di kirim (Kg): ');readln(berat);
begin
if tujuan="AK' then
bayar:=3000*berat;
end;
begin
if tujuan='PM' then
bayar:=5000*berat;
end;
begin
if tujuan='AP' then
bayar:=7000*berat;
end;
begin
if tujuan='RPL' then
bayar:=1000*berat;
end;
writeln ('Bayar : Rp.',bayar:8:0);
end.
Semoga sukses:)
Program paket; {heading program}
uses wincrt;
var {bagian deklarasi}
Tujuan:string[20];
berat:integer;
bayar:real;
begin {*bagian pernyataan*}
clrscr;
writeln (' RPL POS ');
writeln (' PROGRAM PENGIRIMAN BARANG ');
writeln ('-----------------------------------------------------------');
writeln ('Akuntansi Rp. 3000/kg kode: AK ');
writeln ('Pemasaran Rp. 5000/kg kode: PM ');
writeln ('Administrasi Perkantoran Rp. 7000/kg kode: AP ');
writeln ('Rekayasa Perangkat Lunak Rp. 10.000/kg kode: RPL');
writeln;
write ('Kode Jurusan : ');readln(tujuan);
write ('Berapa berat paket yang mau di kirim (Kg): ');readln(berat);
begin
if tujuan="AK' then
bayar:=3000*berat;
end;
begin
if tujuan='PM' then
bayar:=5000*berat;
end;
begin
if tujuan='AP' then
bayar:=7000*berat;
end;
begin
if tujuan='RPL' then
bayar:=1000*berat;
end;
writeln ('Bayar : Rp.',bayar:8:0);
end.
Semoga sukses:)
Minggu, 04 Maret 2012
Menghapus Autorun.inf
Ada yang tau cara penghapusan Autorun.inf?
setiap kali kita delet pasti akan muncul lagi kedalam drive yang biasanya ada pada flash disk daripada berlama-lama langsung aja kita kasih tau caranya:
Dengan cara manual:
1. Jalankan Aplikasi Command Prompt (Start - All Program - Accessories - Command Prompt
2. Ketiklah drive USB atau Drive yang Autorun.inf-nya ingin di hapus (misalnya E:), Enter!
3. Ketiklah ATTRIB-R-A-S-H AUTORUN.INF, Enter!
4. Ketiklah DEL AUTORUN.INF, Enter!
mudah bukan? jika masih merasa kesulitan ada lagi cara alternatifnya dengan cara menggunakan Aplikasi Smadlock Remover.
Bisa di Download disini: http://www.ziddu.com/download/8714655/SMADLOCKremover.exe.html
Semoga Sukses!
setiap kali kita delet pasti akan muncul lagi kedalam drive yang biasanya ada pada flash disk daripada berlama-lama langsung aja kita kasih tau caranya:
Dengan cara manual:
1. Jalankan Aplikasi Command Prompt (Start - All Program - Accessories - Command Prompt
2. Ketiklah drive USB atau Drive yang Autorun.inf-nya ingin di hapus (misalnya E:), Enter!
3. Ketiklah ATTRIB-R-A-S-H AUTORUN.INF, Enter!
4. Ketiklah DEL AUTORUN.INF, Enter!
mudah bukan? jika masih merasa kesulitan ada lagi cara alternatifnya dengan cara menggunakan Aplikasi Smadlock Remover.
Bisa di Download disini: http://www.ziddu.com/download/8714655/SMADLOCKremover.exe.html
Semoga Sukses!
Sabtu, 03 Maret 2012
Turbo Pascal
Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama borland pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.
Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.
Sejarah Turbo Pascal pada awalnya adalah kompiler Blue Label Pascal yang dibuat untuk sistem operasi komputer mikro berbasis kaset, NasSys, milik Nascom tahun 1981 oleh Anders Hejlsberg. Kompiler tersebut ditulis ulang untuk CP/M dan dinamai Compas Pascal, dan kemudian dinamai Turbo Pascal untuk sistem operasi MS-DOS dan CP/M. Versi Turbo Pascal untuk komputer Apple Macintosh sebenarnya pernah ditembangkan tahun 1986, namun pengembangannya dihentikan sekitar tahun 1992. Versi-versi lain pernah tersedia pula untuk mesin-mesin CP/M seperti DEC Rainbow dalam beberapa penembangan.
Versi DOS Kompiler Turbo Pascal didasari pada kompiler Bule Laber Pascal secara resmi dihasilkan untuk NasSys cassette-based operating system dari nascom mikrokomputer pada 1981 oleh Andres hejlsberg. Borland melisensikan inti kompiler "PolyPascal" milik Hejlsberg (Poly Data adalah nama dari perusahaan Hejlsberg di Denmark), dan menambahkan tampilan muka dan editor. Anders Hejlsberg bergabung dengan perusahaan sebagai karyawan dan arsitek untuk seluruh versi dari kompiler Turbo Pascal dan satu dari tiga versi dari Borland Delphi. Kompiler pertama sekali dirilis sebagai Compas Pascal untuk CP/, dan kemudian dirilis pada 20 November 1983 sebagai Turbo Pascal untuk CP/M, CP/M-86 {contoh komputer Apple II yang dipasangkan dengan Z-80 SoftCard) dan mesin DOS. Pada debut pertama a di pasar Amerika, Turbo Pascal dijual 49.99 USD. Kompiler Pascal yang terintegerasikan memiliki kualitas yang sangat bagus dibandingkan dengan produksi Pascal yang lain pada saat itu dan juga sangat diterima dikalangan umum.
Nama Turbo diambil karena berhubungan dengan kecepatan kompuladi dari produksi exekute. Siklus edit/compile/run lebih cepat dibandingkan implementasi dari Pascal yang lain karena semuanya berhubungan dengan membangun program yang disimpan di RAM, dan karena ini merupakan kompiler sekali yang ditulis pada bahasa Assembly. Kompilasi terjadi dengan sangat cepat dibandingkan dengan bahasa yang lain (bahkan kompiler Borland untuk Bahasa C), dan waktu programmer juga menjadi hemat sejak program dapat dikompile dan dijalankan dari IDE. Kecepatan file execute COM adalah terobosan untuk developer yang hanya memiliki satu pengalaman dalam mikrokomputer program seperti BASIC.
Bill gates melihat kesuksesan dari Turbo Pascal pada kehidupan pribadi dan tidak dapat mengerti kenapa produk Microsoft sangat lambat. Dia melampiaskan kemarahannya pada Greg whitten [direktur programming di Microsoft Languages] dan berteriak padanya selama satu jam. Dia tidak dapat mengerti kenapa Kahn dapat mengalahkan kompetitor kuat seperti Microsoft.
IDE masih sangat canggih sampai sekarang, ketika sumber daya komputer pada PC IBM sangat terbatas (desain IBM memiliki keterbatasan yang besar sehingga performanya tidak dapat melawan produk enterprise yang menguntungkan IBM). IDE sangat simple dan intuitif, dan menu sistem yang sangat terorganisir dengan baik. Versi terbaru dari penggunaan editor; Wordstar key functions, menjadi standar pada saat ini. Versi selanjutnya dari IDE, didesain untuk PC dengan mengecilkan ruang pada disk dan memory, yang dapat menampilkan definisi dari kata kunci dari bahasa dengan menempatkan kursor pada kata kunci dan menekan F1. Definisi juga menampilkan kode contoh. Ini memberikan pelajaran kepada programmer yang belum handal dengan menggunakan IDE, tanpa membutuhkan pertolongan dari buku.
Versi 1 sampai 3 Borland membeli lisensi atas kompiler PolyPascal yang ditulis oleh Anders Hejlsberg (Poly Data adalah nama perusahaan yang didirikannya di Denmark), dan menambahkan antar muka pengguna serta editor. Anders kemudian bergabung sebagai karyawan dan menjadi arsitek atas semua versi kompiler Turbo Pascal dan tiga versi pertama Borland delphi
Versi pertama dari Turbo Pascal, yang kemudian disebut sebagai versi 1, memiliki unjuk kerja yang sangat cepat dibandingkan kompiler pascal untuk komputer mikro lainnya. Kompiler tersebut tersedia untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, dan penggunaannya sangat luas pada masa itu. Versi Turbo Pascal untuk CP/M saat itu bisa digunakan pada komputer Apple II yang sangat populer jika digunakan dengan sebuah Z-80 SoftCard, produk perangkat keras pertama yang ditembangkan microsoft di tahun 1980.
Pada saat itu CP/M menggunakan format berkas executable yang sederhana dengan menggunakan ekstensi .COM; sistem operasi MS-DOS bisa menggunakan baik .COM (tidak kompatibel dengan format yang terdapat pada CP/M) maupun format .EXE. Turbo Pascal pada saat itu hanya mendukung kode biner berformat .COM, pada masa itu hal tersebut tidak menjadi suatu bentuk keterbatasan. Perangkat lunak Turbo Pascal itu sendiri merupakan sebuah berkas berekstensi .COM dan berukuran sekitar 28 kilobita, termasuk editor, kompiler, dan linker, dan rutin-rutin pustaka. Efisiensii proses edit/kompilasi/jalankan lebih cepat dibandingkan dengan implementasi paskal pada kompiler lainnya disebabkan semua elemen yang terkait dalam pengembangan program diletakkan pada random acces memory (RAM), dan karena kompilernya sendiri merupakan kompiler berjenis single-pass compiler yang ditulis dengan bahasa assembler. Unjuk kerja proses kompilasi sangat cepat dibandingkan dengan produk lain (bahkan dibandingkan dengan kompiler C milik Borland sendiri).
Ketika pertama kali versi Turbo Pascal muncul pada tanggal 20 November 1983, jenis IDE yang digunakannya masih terbilang baru. Pada debutnya terhadap pasar perangkat lunak di Amerika serikat, perangkat lunak tersebut dibandrol dengan harga USD$49.99. Kualitas kompiler pascal terintegrasi terdapat dalam Turbo Pascal sangat baik dibandingkan kompetitor lain dan atas fitur-fitur tersebut ditawarkan dengan harga yang terjangkau.
Versi 2 dan 3 merupakan pengembangan lebih lanjut dari versi sebelumnya, mampu berkerja dalam memori, dan menghasilkan berkas biner berekstensi .COM/.CMD. Dukungan atas sistem operasi CP/M dan CP/M-86 dihentikan setelah versi 3.
Bahasa assembly Saat seluruh versi dari Turbo Pascal dapat memasukkan kode mesin, versi selanjutnya memberikan kemampuan untuk berintegrasi dengan mudah pada bahasa assembly tanpa pascal. Dukungan untuk 8086 mode memory disediakan dengan inline assembly, pilihan kompiler, dan ekstensi bahasa seperti kata kunci yang "pasti".
Versi 4, ditembangkan tahun 1987, merupakan perangkat lunak yang ditulis ulang untuk keseluruhan sistem. Kompiler menghasilkan berkas biner berekstensi .EXE pada MS-DOS, dan tidak lagi .COM. Sistem operasi CP/M dan C/M-86 tidak lagi didukung pada versi kompiler ini. Versi ini pula memperkenalkan sebuah antar muka berlayar penuh dengan yang dilengkapi dengan menu tarik; versi-versi awal memilik layar menu berbasis teks; dan editor berlayar-penuh. Microsoft Windows belum ada saat versi ini ditembangkan, dan bahkan pemanfaatan tetikus-pun masih jarang.
Versi 5.x diperkenalkan dengan layar biru yang kemudian menjadi ciri khas yang sangat familiar, yang kemudian menjadi merek dagang perusahaan perangkat kompiler MS-DOS sampai era DOS berakhir di pertengahan tahun 1990-an.
Versi terakhir yang pernah ditembangkan adalah versi 7. Borland Pascal 7 terdiri atas sebuah IDE, dan kompiler untuk MS-DOS, DOS terekstensi, dan program Windows 3.x. Turbo Pascal 7 di sisi lain hanya bisa membuat program MS-DOS standar. Perangkat lunak tersebut dilengkapi pula dengan pustaka grafis yang mengabstraksi pemrograman dalam menggunakan beberapa driver grafis eksternal, namun unjuk kerja pustaka ini tidak memuaskan.
Contoh:
Program rpl_triple; {heading program}
Uses WinCrt;
Var {bagian deklarasi}
nh, np, nm:integer;
r:real;
begin {*bagian pernyataan*}
clrscr;
writeln (' Nilai Raport SMK 1 TRIPLE "J" ');
writeln ('-------------------------------------------------------------------------');
writeln ('Nilai Harian : ');readln(nh);
writeln ('Nilai Praktek : ');readln(np);
writeln ('Nilai Mid Semester : ');readln(nm);
r:=(nh+np+nm)/3;
writeln ('-------------------------------------------------------------------------');
writeln ('Nilai Raport : ',r:8:2);
end.
Semoga Sukses :)
Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.
Sejarah Turbo Pascal pada awalnya adalah kompiler Blue Label Pascal yang dibuat untuk sistem operasi komputer mikro berbasis kaset, NasSys, milik Nascom tahun 1981 oleh Anders Hejlsberg. Kompiler tersebut ditulis ulang untuk CP/M dan dinamai Compas Pascal, dan kemudian dinamai Turbo Pascal untuk sistem operasi MS-DOS dan CP/M. Versi Turbo Pascal untuk komputer Apple Macintosh sebenarnya pernah ditembangkan tahun 1986, namun pengembangannya dihentikan sekitar tahun 1992. Versi-versi lain pernah tersedia pula untuk mesin-mesin CP/M seperti DEC Rainbow dalam beberapa penembangan.
Versi DOS Kompiler Turbo Pascal didasari pada kompiler Bule Laber Pascal secara resmi dihasilkan untuk NasSys cassette-based operating system dari nascom mikrokomputer pada 1981 oleh Andres hejlsberg. Borland melisensikan inti kompiler "PolyPascal" milik Hejlsberg (Poly Data adalah nama dari perusahaan Hejlsberg di Denmark), dan menambahkan tampilan muka dan editor. Anders Hejlsberg bergabung dengan perusahaan sebagai karyawan dan arsitek untuk seluruh versi dari kompiler Turbo Pascal dan satu dari tiga versi dari Borland Delphi. Kompiler pertama sekali dirilis sebagai Compas Pascal untuk CP/, dan kemudian dirilis pada 20 November 1983 sebagai Turbo Pascal untuk CP/M, CP/M-86 {contoh komputer Apple II yang dipasangkan dengan Z-80 SoftCard) dan mesin DOS. Pada debut pertama a di pasar Amerika, Turbo Pascal dijual 49.99 USD. Kompiler Pascal yang terintegerasikan memiliki kualitas yang sangat bagus dibandingkan dengan produksi Pascal yang lain pada saat itu dan juga sangat diterima dikalangan umum.
Nama Turbo diambil karena berhubungan dengan kecepatan kompuladi dari produksi exekute. Siklus edit/compile/run lebih cepat dibandingkan implementasi dari Pascal yang lain karena semuanya berhubungan dengan membangun program yang disimpan di RAM, dan karena ini merupakan kompiler sekali yang ditulis pada bahasa Assembly. Kompilasi terjadi dengan sangat cepat dibandingkan dengan bahasa yang lain (bahkan kompiler Borland untuk Bahasa C), dan waktu programmer juga menjadi hemat sejak program dapat dikompile dan dijalankan dari IDE. Kecepatan file execute COM adalah terobosan untuk developer yang hanya memiliki satu pengalaman dalam mikrokomputer program seperti BASIC.
Bill gates melihat kesuksesan dari Turbo Pascal pada kehidupan pribadi dan tidak dapat mengerti kenapa produk Microsoft sangat lambat. Dia melampiaskan kemarahannya pada Greg whitten [direktur programming di Microsoft Languages] dan berteriak padanya selama satu jam. Dia tidak dapat mengerti kenapa Kahn dapat mengalahkan kompetitor kuat seperti Microsoft.
IDE masih sangat canggih sampai sekarang, ketika sumber daya komputer pada PC IBM sangat terbatas (desain IBM memiliki keterbatasan yang besar sehingga performanya tidak dapat melawan produk enterprise yang menguntungkan IBM). IDE sangat simple dan intuitif, dan menu sistem yang sangat terorganisir dengan baik. Versi terbaru dari penggunaan editor; Wordstar key functions, menjadi standar pada saat ini. Versi selanjutnya dari IDE, didesain untuk PC dengan mengecilkan ruang pada disk dan memory, yang dapat menampilkan definisi dari kata kunci dari bahasa dengan menempatkan kursor pada kata kunci dan menekan F1. Definisi juga menampilkan kode contoh. Ini memberikan pelajaran kepada programmer yang belum handal dengan menggunakan IDE, tanpa membutuhkan pertolongan dari buku.
Versi 1 sampai 3 Borland membeli lisensi atas kompiler PolyPascal yang ditulis oleh Anders Hejlsberg (Poly Data adalah nama perusahaan yang didirikannya di Denmark), dan menambahkan antar muka pengguna serta editor. Anders kemudian bergabung sebagai karyawan dan menjadi arsitek atas semua versi kompiler Turbo Pascal dan tiga versi pertama Borland delphi
Versi pertama dari Turbo Pascal, yang kemudian disebut sebagai versi 1, memiliki unjuk kerja yang sangat cepat dibandingkan kompiler pascal untuk komputer mikro lainnya. Kompiler tersebut tersedia untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, dan penggunaannya sangat luas pada masa itu. Versi Turbo Pascal untuk CP/M saat itu bisa digunakan pada komputer Apple II yang sangat populer jika digunakan dengan sebuah Z-80 SoftCard, produk perangkat keras pertama yang ditembangkan microsoft di tahun 1980.
Pada saat itu CP/M menggunakan format berkas executable yang sederhana dengan menggunakan ekstensi .COM; sistem operasi MS-DOS bisa menggunakan baik .COM (tidak kompatibel dengan format yang terdapat pada CP/M) maupun format .EXE. Turbo Pascal pada saat itu hanya mendukung kode biner berformat .COM, pada masa itu hal tersebut tidak menjadi suatu bentuk keterbatasan. Perangkat lunak Turbo Pascal itu sendiri merupakan sebuah berkas berekstensi .COM dan berukuran sekitar 28 kilobita, termasuk editor, kompiler, dan linker, dan rutin-rutin pustaka. Efisiensii proses edit/kompilasi/jalankan lebih cepat dibandingkan dengan implementasi paskal pada kompiler lainnya disebabkan semua elemen yang terkait dalam pengembangan program diletakkan pada random acces memory (RAM), dan karena kompilernya sendiri merupakan kompiler berjenis single-pass compiler yang ditulis dengan bahasa assembler. Unjuk kerja proses kompilasi sangat cepat dibandingkan dengan produk lain (bahkan dibandingkan dengan kompiler C milik Borland sendiri).
Ketika pertama kali versi Turbo Pascal muncul pada tanggal 20 November 1983, jenis IDE yang digunakannya masih terbilang baru. Pada debutnya terhadap pasar perangkat lunak di Amerika serikat, perangkat lunak tersebut dibandrol dengan harga USD$49.99. Kualitas kompiler pascal terintegrasi terdapat dalam Turbo Pascal sangat baik dibandingkan kompetitor lain dan atas fitur-fitur tersebut ditawarkan dengan harga yang terjangkau.
Versi 2 dan 3 merupakan pengembangan lebih lanjut dari versi sebelumnya, mampu berkerja dalam memori, dan menghasilkan berkas biner berekstensi .COM/.CMD. Dukungan atas sistem operasi CP/M dan CP/M-86 dihentikan setelah versi 3.
Bahasa assembly Saat seluruh versi dari Turbo Pascal dapat memasukkan kode mesin, versi selanjutnya memberikan kemampuan untuk berintegrasi dengan mudah pada bahasa assembly tanpa pascal. Dukungan untuk 8086 mode memory disediakan dengan inline assembly, pilihan kompiler, dan ekstensi bahasa seperti kata kunci yang "pasti".
Versi 4, ditembangkan tahun 1987, merupakan perangkat lunak yang ditulis ulang untuk keseluruhan sistem. Kompiler menghasilkan berkas biner berekstensi .EXE pada MS-DOS, dan tidak lagi .COM. Sistem operasi CP/M dan C/M-86 tidak lagi didukung pada versi kompiler ini. Versi ini pula memperkenalkan sebuah antar muka berlayar penuh dengan yang dilengkapi dengan menu tarik; versi-versi awal memilik layar menu berbasis teks; dan editor berlayar-penuh. Microsoft Windows belum ada saat versi ini ditembangkan, dan bahkan pemanfaatan tetikus-pun masih jarang.
Versi 5.x diperkenalkan dengan layar biru yang kemudian menjadi ciri khas yang sangat familiar, yang kemudian menjadi merek dagang perusahaan perangkat kompiler MS-DOS sampai era DOS berakhir di pertengahan tahun 1990-an.
Versi terakhir yang pernah ditembangkan adalah versi 7. Borland Pascal 7 terdiri atas sebuah IDE, dan kompiler untuk MS-DOS, DOS terekstensi, dan program Windows 3.x. Turbo Pascal 7 di sisi lain hanya bisa membuat program MS-DOS standar. Perangkat lunak tersebut dilengkapi pula dengan pustaka grafis yang mengabstraksi pemrograman dalam menggunakan beberapa driver grafis eksternal, namun unjuk kerja pustaka ini tidak memuaskan.
Contoh:
Program rpl_triple; {heading program}
Uses WinCrt;
Var {bagian deklarasi}
nh, np, nm:integer;
r:real;
begin {*bagian pernyataan*}
clrscr;
writeln (' Nilai Raport SMK 1 TRIPLE "J" ');
writeln ('-------------------------------------------------------------------------');
writeln ('Nilai Harian : ');readln(nh);
writeln ('Nilai Praktek : ');readln(np);
writeln ('Nilai Mid Semester : ');readln(nm);
r:=(nh+np+nm)/3;
writeln ('-------------------------------------------------------------------------');
writeln ('Nilai Raport : ',r:8:2);
end.
Semoga Sukses :)
Senin, 29 Agustus 2011
Yuk, Pantau Hilal 1 Syawal Via Web
situs pemantauan hilal
Hilal adalah penanda masuknya bulan baru pada kalender Hijriah. Banyak kegiatan penting ke-Islam-an mengambil dasar posisi Bulan di langit, seperti Tahun Baru Hijriah, awal puasa Ramadhan, dan tentu saja Hari Raya Idul Fitri dan Idul Adha.
Agar informasi hilal astronomi dapat tersampaikan lebih luas dan terbuka kepada masyarakat, Kementerian Komunikasi dan Informatika (Kominfo)bekerjasama dengan PT Telkom, Observatorium Bosscha serta Fakultas MIPA ITB menyediakan relay video streaming pengamatan hilal astronomi di halaman web.
Saat ini ada empat situs yang menyediakan tayangan pengamatan hilal. Keempat situs itu adalah Kominfo di http://hilal.kominfo.go.id, situs peneropongan bintang Bosscha dan Institut Teknologi Bandung yang beralamat di http://bosscha.itb.ac.id/hilal, situs milik Badan Meterologi dan Geofisika (BMKG) http://bmkg.go.id dan situs yang beralamat di http://rukyatulhilal.org
Pelaksanaan pengamatan hilal didukung oleh Kemenag, LAPAN, BMKG, Universitas Islam Negeri Sultan Syarif Karim, Rukyatul Hilal Indonesia, Universitas Mataram, Universitas Hasanuddin, Universitas Pendidikan Indonesia dan Universitas Lampung.
Pemantauan hilal dilakukan di 14 titik lokasi pengamatan di Indonesia, yakni:
1. Lhoknga, Aceh
2. UIN Suska, Pekanbaru, Riau
3. Dermaga TPI Perkemas Kalianda, Lampung
4. UPI Bandung, Jabar
5. Observatorium Bosscha Lembang, Bandung, Jabar (Information Center)
6. SPD Lapan Pameungpeuk, Jabar
7. Pelabuhan Ratu, Sukabumi, Jabar (1 Syawal 1432H)
8. Bukit Bela Belu, D.I. Yogyakarta
9. Denpasar, Bali
10. Mataram, NTB
11. Kupang, NTT
12. SPD Lapan Pontianak, Kalbar
13. Makassar, Sulser
14. SPD Lapan Biak, Papua
Sidang itsbat untuk menentukan jatuhnya Hari Raya Idul Fitri digelar Kemenag sore ini. Sidang yang dipimpin oleh Menteri Agama Suryadharma Ali tersebut dimulai pukul 16.30 WIB dengan acara presentasi mengenai hasil pengamatan hilal. Setelah dipotong oleh buka puasa bersama, sidang akan kembali dibuka pada pukul 19.00 WIB.
Sumber : detiknet.com
Langganan:
Komentar (Atom)
