Memanfaatkan HScrollBar dan VScrollBar Pada Visual Basic

Trik : Untuk membuat gambar yang dapat bergeser anda perlu menanamkan sebuah kontrol image, kontrol VscrollBar dan HScrollBar diatas sebuah kontrol Picture. Jadi dalam hal ini kontrol Picture bertindak sebagai kontainer.Membuat Sub StatusBingkai yang berfungsi membuat ukuran Picturebox sama dengan ukuran Form sebelah dalam (ScaleWidth, ScaleHeight) dengan menggunakan Metoda Move. Dan membuat kontrol imgGambar rapat kiri atas terhadap kontainernya (0,0)Selengkapnya File1 DownloadSelengkapnya File2 DownloadSelengkapnya File3 DownloadSelengkapnya File4 Downl...

Read more »

Memanfaatkan kontrol image di Visual Basic

Memanfaatkan kontrol image untuk menampilkan Foto persertaPada Latihan ini kita akan meningkatkan fasilitas project Modul 4 Latihan 1 sebelumnya dengan kemampuan menampilkan foto dan menyimpan foto perserta. Adapun foto dari masing-masing peserta akan disimpan pada file-file eksternal yang diberi nama Fotox.bmp, dimana x disesuaikan dengan nomor record data dalam random file. Misalnya pada record 1, maka nama file fotonya adalah Foto1.bmp, record 2 nama file fotonya adalah Foto2.bmp, dst.Download File 1 SelengkapnyaDownload File 2 SelengkapnyaDownload File 3 SelengkapnyaDownload File 4 SelengkapnyaDownload File 5 Selengkap...

Read more »

BAHASA PEMROGRAMAN BASIC dengan QBASIC

DASAR-DASAR QBASIC Bahasa BASIC dibuat oleh John G.Kemmeny dan Thomas E.Kurtz lebih dari 20 tahun yang lalu dan merupakan bahasa tingkat tinggi yang relatif mudah dipelajari dan dimengerti. Dalam perkembangannya , Bahasa BASIC dikembangkan dalam dua jenis, yaitu interpreter dan compiler. Interpreter seperti GW- BASIC pada sistem operasi MS-DOS, maupun BASICA pada sistem operasi PC-DOS, sedangkan salah satu compilernya yang terkenal adalah Quick BASIC yang dilengkapi dengan sistem pemrograman yang terstruktur, Quick Library, on-line help yang terpadu, editor yang efisien (bisa merapikan teks serta memberitahukan kesalahan syntax penulisan suatu perintah) MENGAKTIFKAN...

Read more »

Google Vs Hacking

Tidak tahu apakah penggunaan google ini sudah bisa disebut seni atau bukan dan mudah mudahan juga istilah seni internet tidak dipatenkan sehingga saya tidak disebut plagiat dan harus membayar fee J . Tulisan ini dibuat untuk berbagi pengalaman mudah-mudahan bermanfaat dan semoga juga tidak membosankan serta tidak mengesalkan.Satu keumuman yang dapat dicermati ketika kita membaca tulisan-tulisan yang ditampilkan di Jasakom (mungkin juga di situs-situs lain yang berkaitan dengan tema-tema h4_0r) adalah penulisnya menggunakan google sebagai mesin pencarinya. Banyak ungkapan menarik yang dituliskan untuk menunjukkan kedekatan para penulis ini dengan google. Di bawah ini diberikan contoh beberapa...

Read more »

Pemrograman Pascal Lengkap

1. Sejarah PASCALmerupakan pengembangan dari bahasa ALGOL 60, bahasa pemrograman untuk sains komputasi. Tahun 1960, beberapa ahli komputer bekerja untuk mengembangkan bahasa ALGOL, salah satunya adalah Dr. Niklaus Wirth dari Swiss Federal Institute of Technology (ETH-Zurich), yang merupakan anggota grup yang membuat ALGOL. Tahun 1971, dia menerbitkan suatu spesifikasi untuk highly-structured language (bahasa tinggi yangterstruktur) yang menyerupai ALGOL. Dia menamainya dengan PASCAL (seorang filsuf dan ahli matematika dari Perancis) Pascal bersifat data oriented, yaitu programmer diberi keleluasaan untuk mendefinisikan data sendiri. Pascal juga merupakan teaching language (banyak dipakai untuk pengajaran tentang konsep pemrograman). Kelebihan yang lain adalah penulisan kode Pascal yang luwes,...

Read more »

Festival Seni Budaya Asmat Tahun 2008

Jika Anda berkesempatan mengunjungi Festival Budaya Suku Asmat (Asmat Culture Festival), pasti Anda akan terkesima dan kagum dengan keunikan dan keindahan hasil karya mereka. Karya seni yang lahir dari budaya dan keterampilan mereka, selain mengangkat citra dan jati diri suku Asmat, juga menghasilkan uang yang cukup fantastis.ADALAH Yohanis Kimisinai, dari Kampung Kairin, Asmat, salah satu pemahat yang paling bahagia dalam Festival Budaya Asmat ke 25 Tahun 2008. Walau patungnya hanya berpredikat Juara III Kategori Panel, tapi patung ukiran Yohanis memecahkan rekor penjualan tertinggi dalam lelang Sesi I Festival Seni Budaya Asmat ke 25 tanggal 8-12 Oktober Tahun 2008 yang belangsung di Asmat.Patung...

Read more »

Atraksi Asmat Rambah Belanda

Upaya pemerintah untuk memperkenalkan kesenian tradisional terus dilakukan. Salah satunya adalah dengan memperkenalkan kesenian suku Asmat dari Papua pada masyarakat Belanda sebagai bagian dari Trade, Tourism and Investment (TTI). Rombongan Bupati Asmat bertandang ke Belanda pada 28 Agustus - 5 September 2008.Duta Besar RI untuk Kerajaan Belanda J.E. Habibie mengemukakan bahwa kunjungan tersebut dilakukan untuk mendukung pembangunan Kawasan Timur Indonesia serta mempromosikan atraksi seni budaya Indonesia."Kegiatan tersebut diisi dengan demonstrasi memahat kayu yang sudah melegenda di seluruh dunia, demo memasak makanan Papua, serta tari-tarian tradisional Asmat yang menarik minat seratus lebih...

Read more »

Rumah Seribu Cermin

Di sebuah desa kecil, ada sebuah rumah yang dikenal dengan nama "Rumah Seribu Cermin." Suatu hari seekor anjing kecil sedang berjalan-jalan di desa itu dan melintasi "Rumah Seribu Cermin". Ia tertarik pada rumah itu dan memutuskan untuk masuk melihat-lihat apa yang ada di dalamnya.Sambil melompat-lompat ceria ia menaiki tangga rumah dan masuk melalui pintu depan. Telinga terangkat tinggi-tinggi, ekornya bergerak-gerak secepat mungkin.Betapa terkejutnya ia ketika masuk ke dalam rumah, ia melihat ada seribu wajah ceria anjing-anjing kecil dengan ekor yang bergerak-gerak cepat. Ia tersenyum lebar, dan seribu wajah anjing kecil itu juga membalas dengan senyum lebar, hangat dan bersahabat.Ketika...

Read more »

Jika kamu memancing ikan....

Jika Kamu Memancing IkanSetelah ikan itu terlekat di mata kail, hendaklah kamu mengambil ikan itu....Janganlah sesekali kamu lepaskan ia semula ke dalam air begitu saja....Karena ia akan sakit oleh karena bisanya ketajaman mata kailmu danmungkin ia akan menderita selagi ia masih hidup. Begitulah juga setelah kamu memberi banyak pengharapan kepada seseorang...Setelah ia mulai menyayangimu hendaklah kamu menjaga hatinya....Janganlah sesekali kamu meninggalkannya begitu saja....Karena dia akan terluka oleh kenangan bersamamu dan mungkin tidak dapatmelupakan segalanya selagi dia mengingatmu....Jika kamu menadah air biarlah berpada, jangan terlalu mengharap...

Read more »

SISTEM DAN MODEL1

I. PENGERTIAN SISTEM DAN MODELSuatu sistem didefinisikan sebagai himpunan atau kombinasi dari bagian-bagian yangmembentuk sebuah kesatuan yang kompleks. Namun tidak semua kumpulan dan gugusbagian dapat disebut suatu sistem kalau tidak memenuhi syarat adanya kesatuan (unity),hubungan fungsional, dan tujuan yang berguna. Suatu kawasan dengan berbagai sumberdaya dan aktivitas di dalamnya merupakan suatu sistem yang kompleks. Dalam penataanruang suatu kawasan jelas ketiga syarat tersebut dapat dipenuhi, tata ruang yang berbasislahan merupakan suatu kesatuan yang didalamnya terdapat hubungan fungsionalantarsektor atau bagian dalam mencapai tujuan optimalisasi pemanfaatan tata ruang suatukawasan. Hubungan fungsional tersebut tercermin pada hubungan antara kondisi sosial,ekonomi, dan biofisik kawasan....

Read more »

Ketika Seks Menjadi Menyakitkan

Banyak wanita yang merasakan kesakitan saat melakukan hubungan seks pada saat-saat tertentu yang dikenal dengan istilah dyspareunia. Bagi kebanyakan wanita, rasa itu hanyalah ketidak-nyamanan yang terjadi sesaat. Tetapi terkadang pada beberapa yang lain, rasa sakit seakan menjadi sesuatu yang selalu terjadi saat berhubungan. Ahli terapi psikoseksual Paula Hall akan menerangkan sebabnya dan solusinya.Kurangnya rangsangan seksualSelama ini hal inilah penyebab utama dari hubungan seks yang menyakitkan.Ketika tubuh wanita siap untuk seks, vagina akan mengembang baik panjang dan lebarnya. Ketika hal ini terjadi, vagina Anda akan menjadi basah dan berpelumas untuk menghindari pergesekan. Vagina memang...

Read more »

Domenech Menghitung Hari

MENGHITUNG HARICONSTANTA – Masa depan pelatih Prancis Raymond Domenech makin di ujung tanduk. Indikasinya adalah hasil seri 2-2 (2-0) yang diraih Les Bleus, sebutan Prancis, kala dijamu Rumania di Stadion Farul, Constanta, dini hari kemarin WIB. Raihan yang membuat Federasi Sepak Bola Prancis atau FFF segera mengambil keputusan terhadap status Domenech.2 Rumania v Prancis 2 (Grup 7 Zona Eropa)MENGHITUNG HARICONSTANTA – Masa depan pelatih Prancis Raymond Domenech makin di ujung tanduk. Indikasinya adalah hasil seri 2-2 (2-0) yang diraih Les Bleus, sebutan Prancis, kala dijamu Rumania di Stadion Farul, Constanta, dini hari kemarin WIB. Raihan yang membuat Federasi Sepak Bola Prancis atau FFF segera mengambil keputusan terhadap status Domenech.Namun, sabar dulu. Sebab, Presiden FFF Jean-Pierre...

Read more »

Contoh program Menggunakan while… do..

program ulang;uses crt;varjml,I:integer;beginclrscr;I:=0;while I<10 dobeginI:=I+1;writeln(’data ke:’,i,’unisbank’);writeln(’teknik industri’);end;readln;e...

Read more »

Contoh program Menggunakan for….do…

program ulang_taufik;uses crt;var X,celcius:integer;fahrenheit:real;begin writeln(’********************’); writeln(’ celcius fahrenheit ‘); writeln(’********************’); celcius:=0; for X:=1 to 10 do begin fahrenheit:=1.8*celcius+32; writeln(celcius:8,fahrenheit:14:2); celcius:=celcius+25; end; writeln(’*******************’);readln;e...

Read more »

Contoh program Menggunakan case ….of….

program latihan_bytaufik;uses crt;varnpeserta,nkursus:string;kkursus:char;biaya:real;lama:integer;beginclrscr;write(’nama peserta’);readln(npeserta);write(’nama kursus’);readln(nkursus);write(’kode kursus(A/B/C/D):’);readln(kkursus);case kkursus of‘A’,'a’:begin nkursus:=’visual basic’; biaya:=300000; lama:=26; end;‘B’,'b’:begin nkursus:=’visual foxpro’; biaya:=250000; lama:=18; end;‘C’,'c’:begin nkursus:=’java’; biaya:=350000; lama:=24;end;‘D’:begin nkursus:=’c++’; biaya:=200000; lama:=15;end;end;writeln(’nama peserta:’,npeserta);writeln(’nama kursus:’,nkursus);writeln(’kode kursus:’,kkursus);writeln(’lama :’,lama);readln;e...

Read more »

Contoh program Pascal menggunakan If…then..else

program menumakan_bytaufik;uses crt;var pil:char;beginwriteln(’1.nasi soto ‘ ) ;writeln(’2.nasi rames ‘ );writeln(’3.nasi rawon ‘ ) ;write(’menu pilihan anda:’);readln(pil);if pil=’1′ thenwriteln(’anda memilih nasi soto ‘ )else if pil=’2′ thenwriteln(’anda memilih nasi rames ‘ )else if pil=’3′ thenwriteln(’anda memilih nasi rawon ‘ )elsewriteln(’coba1_3′);readln;e...

Read more »

Short Cut Editor Pascal

Perintah menngakses menuF10 : Mengakses menuCtrl + KS atau F2 : Menyimpan program ke diskF3 : Memanggil program ke diskAlt + F3 : Menutup program atau jendela yang sedang aktifPerintah – perintah memindah kursorCtrl + S atau anak panah kiri : memindah kursor satu karakter ke kiriCtrl + D atau anak panah kanan : memindah satu karakter ke kananCtrl + A atau anak panah kiri : satu kata ke kiriCtrl + F atau Ctrl + Anak panah kanan : Satu kata ke kananCtrl + E atau anak panah atas : satu karakter ke atasCtrl + X atau anak panah bawah : satu karakter ke bawahCtrl + W : Menggulung satu layer ke atasCtrl + Z : menggulung satu layer ke bawahCtrl + R atau PgUp : Menggulung satu halaman ke atasCtrl + C atau PgDn : Menggulung satu halaman ke bawahPerintah – perintah Menyisip dan menghapusCtrl + V atau...

Read more »

Perintah-Perintah dalam Turbo Pascal

erintah – Perintah Unit System Golongan Arithmatic di Turbo Pascal Perintah –perintah berikut ini adalah perintah –perintah yang tidak perlu menggunakan perintah USES pada awal program, lebih tepatnya tidak perlu menggunakan Uses System. Semua perintah yang tergabung dalam Unit System bisa langsung diterjemahkan oleh kompiler turbo pascal. Sebab perintah – perintah yang ada dalan Unit System adalah perintah – perintah utama dalam Turbo Pascal. Tetapi jika anda memasukkan perintah dari unit lain, maka perintah USES harus diberikan pada awal program diikuti nama unit dari perintah yang bersangkutan. Berikut adalah perintah-perintah Unit System Golongan Arithmatic: Int :Perintah untuk mengabaikan angka dibalik koma. Penggunaannya : Int(45,78)=45Frac:Mengambil desimal suatu bilangan. Frac(45,78)=0,78...

Read more »

VISUAL BASIC

Modul 1Menggunakan Option Button dan FrameBuat Form seperti di bawah ini yang terdiri dari 4 frame yang diberinama pada properties caption: Style, Color, Underine dan Strike. 4 Option untuk Style, 4 option untuk Color, 2 option untuk strike dan 2 option untuk underline.Lalu tulis Source code nyaPrivate Sub Option1_Click()Label1.FontBold = FalseLabel1.FontItalic = FalseEnd SubPrivate Sub Option10_Click()Label1.ForeColor = vbYellowEnd SubPrivate Sub Option11_Click()Label1.FontStrikethru = TrueEnd SubPrivate Sub Option12_Click()Label1.FontStrikethru = FalseEnd SubPrivate Sub Option2_Click()Label1.FontItalic = TrueEnd SubPrivate Sub Option3_Click()Label1.FontBold = TrueEnd SubPrivate Sub Option4_Click()Label1.FontBold = TrueLabel1.FontItalic = TrueEnd SubPrivate Sub Option5_Click()Label1.FontUnderline...

Read more »

SISTEM OPERASI

BAB 4Penjadwalan Proses4.1. Pengertian dan sasaran penjadwalan prosesPenjadwalan proses merupakan kumpulan kebijaksanaan dan mekanisme di sistemoperasi yang berkaitan dengan urutan kerja yang dilakukan sistem komputer.Adapun penjadwalan bertugas memutuskan :a. Proses yang harus berjalanb. Kapan dan selama berapa lama proses itu berjalanKriteria untuk mengukur dan optimasi kinerje penjadwalan :a. Adil (fairness) Adalah proses-proses yang diperlakukan sama, yaitu mendapat jatah waktu pemroses yang sama dan tak ada proses yang tak kebagian layanan pemroses sehingga mengalami kekurangan waktu.b. Efisiensi (eficiency) Efisiensi atau utilisasi pemroses dihitung dengan perbandingan (rasio) waktu sibuk pemroses.c. Waktu tanggap (response time) Waktu tanggap berbeda untuk : c.1 Sistem interaktif...

Read more »

SISTEM OPERASI

BAB 3Proses3.1. Pengertian proses (task/job)Proses berisi instruksi, data, program counter, register pemroses, stackdata, alamat pengiriman dan variabel pendukung lainnya.Terdapat beberapa definisi mengenai proses, antara lain :a. Merupakan konsep pokok dalam sistem operasi, sehingga masalah manajemen proses adalah masalah utama dalam perancangan sistem operasi.b. Proses adalah program yang sedang dieksekusi.c. Proses adalah unit kerja terkecil yang secara individu memiliki sumber daya dan dijadwalkan oleh sistem operasi.Peran sistem operasi dalam kegiatan proses adalah mengelola semua proses disistem dan mengalokasikan sumber daya ke proses tersebut.Banyak proses yang dijalankan bersamaan, dimana setiap proses mendapatbagian memori dan kendali sendiri-sendiri (peran SO), sehingga setiap...

Read more »