Komputasi Biologi

Komputasi sebetulnya bisa diartikan sebagai cara untuk menemukan pemecahan masalah dari data input dengan menggunakan suatu algoritma. Hal ini ialah apa yang disebut dengan teori komputasi, suatu sub-bidang dari ilmu komputer dan matematika. Selama ribuan tahun, perhitungan dan komputasi umumnya dilakukan dengan menggunakan pena dan kertas, atau kapur dan batu tulis, atau dikerjakan secara mental, kadang-kadang dengan bantuan suatu tabel. Namun sekarang, kebanyakan komputasi telah dilakukan dengan menggunakan komputer.

Secara umum ilmu komputasi adalah bidang ilmu yang mempunyai perhatian pada penyusunan model matematika dan teknik penyelesaian numerik serta penggunaan komputer untuk menganalisis dan memecahkan masalah-masalah ilmu (sains). Dalam penggunaan praktis, biasanya berupa penerapan simulasi komputer atau berbagai bentuk komputasi lainnya untuk menyelesaikan masalah-masalah dalam perkembangannya digunakan juga untuk menemukan prinsip-prinsip baru yang mendasar dalam ilmu.

Bidang ini berbeda dengan ilmu komputer (computer science), yang mengkaji komputer, komputer dan pemrosesan informasi. Bidang ini juga berbeda dengan teori dan percobaan sebagai bentuk tradisional dari ilmu dan kerja keilmuan. Dalam ilmu alam, pendekatan ilmu komputer dapat memberikan berbagai pemahaman baru, melalui penerapan model-model matematika dalam program komputer berdasarkan landasan teori yang telah berkembang, untuk menyelesaikan masalah-masalah nyata dalam ilmu tersebut.

Komputasi sains merupakan salah satu cabang ilmu komputasi. Secara umum komputasi sains mengkaji aspek-aspek komputasi untuk aplikasi/memecahkan masalah di bidang sains lain, seperti fisika, kimia, biologi dan lain-lain.

Di Indonesia sudah banyak pertemuan atau kegiatan ilmiah terkait dengan komputasi, tetapi umumnya lebih terkait dengan aspek teknologi informasi. Sedangkan kajian di komputasi sains masih sangat kurang. Hal ini tidak mengherankan karena komputasi sains lebih condong sebagai kajian teori murni, sehingga komunitasnya masih sangat terbatas seperti halnya fisika teori. Hanya ada satu kegiatan ilmiah yang terkait langsung dan fokus pada kajian komputasi sains, yaitu Workshop on Computational Science yang diadakan rutin setiap tahun oleh konsorsium yang tergabung dalam Masyarakat Komputasi Indonesia (MKI).

Sejarah

Istilah bioinformatics mulai dikemukakan pada pertengahan era 1980-an untuk mengacu pada penerapan komputer dalam biologi. Namun, penerapan bidang-bidang dalam bioinformatika (seperti pembuatan basis data dan pengembangan algoritma untuk analisis sekuens biologis) sudah dilakukan sejak tahun 1960-an.

Kemajuan teknik biologi molekular dalam mengungkap sekuens biologis dari protein (sejak awal 1950-an) dan asam nukleat (sejak 1960-an) mengawali perkembangan basis data dan teknik analisis sekuens biologis. Basis data sekuens protein mulai dikembangkan pada tahun 1960-an di Amerika Serikat, sementara basis data sekuens DNA dikembangkan pada akhir 1970-an di Amerika Serikat dan Jerman (pada European Molecular Biology Laboratory, Laboratorium Biologi Molekular Eropa). Penemuan teknik sekuensing DNA yang lebih cepat pada pertengahan 1970-am menjadi landasan terjadinya ledakan jumlah sekuens DNA yang berhasil diungkapkan pada 1980-an dan 1990-an, menjadi salah satu pembuka jalan bagi proyek-proyek pengungkapan genom, meningkatkan kebutuhan akan pengelolaan dan analisis sekuens, dan pada akhirnya menyebabkan lahirnya bioinformatika.

Perkembangan internet juga mendukung berkembangnya bioinformatika. Basis data bioinformatika yang terhubung melalui internet memudahkan ilmuan mengumpulkan hasil sekuensing ke dalam basis data tersebut maupun memperoleh sekuens biologis sebagai bahan analisis. Selain itu, penyebaran program-program aplikasi bioinformatika melalui internet memudahkan ilmuwan mengakses program-program tersebut dan kemudian memudahkan pengembangannya.

Basis data sekuens biologis

Sesuai dengan jenis informasi biologis yang disimpannya, basis data sekuens biologis dapat berupa basis data primer untuk menyimpan sekuens primer asam nukleat maupun protein, basis data sekunder untuk menyimpan motif sekuens protein, dan basis data struktur untuk menyimpan data struktur protein maupun asam nukleat.

Basis data utama untuk sekuens asam nukleat saat ini adalah GenBangk (Amerika Serikat), EMBL (Eropa), dan DDBJ (Inggris) (DNA Data Bank of Japan, Jepang). Ketiga basis data tersebut bekerja sama dan bertukar data secara harian untuk menjaga keluasan cakupan masing-masing basis data. Sumber utama data sekuens asam nukleat adalah submisi langsung dari periset individual, proyek sekuensing genom, dan pendaftaran paten. Selain berisi sekuens asam nukleat, entri dalam basis data sekuens asam nukleat umumnya mengandung informasi tentang jenis asam nukleat (DNA atau RNA), nama organisme sumber asam nukleat tersebut, dan pustaka yang berkaitan dengan sekuens asam nukleat tersebut.

Sementara itu, contoh beberapa basis data penting yang menyimpan sekuens primer protein adalah PIR (Protein Information Resource, Amerika Serikat), Swiss-Prot (Eropa), dan TrEMBL (Eropa). Ketiga basis data tersebut digabungkan dalam UniProt (yang didanai terutama oleh Amerika Serikat). Entri dalam UniProt mengandung informasi tentang sekuens protein, nama organisme sumber protein, pustaka yang berkaitan, dan komentar yang umumnya berisi penjelasan mengenai fungsi protein tersebut.

BLAST (Basic Local Alignment Search Tool) merupakan perkakas bioinformatika yang berkaitan erat dengan penggunaan basis data sekuens biologis. Penelusuran BLAST(BLAST search) pada basis data sekuens memungkingkan ilmuwan untuk mencari sekuens asam nukleat maupun protein yang mirip dengan sekuens tertentu yang dimilikinya. Hal ini berguna misalnya untuk menemukan gen sejenis pada beberapa organisme atau untuk memeriksa keabsahan hasil sekuensing maupun untuk memeriksa fungsi gen hasil sekuensing. Algoritma yang mendasari kerja BLAST adalah penyejajaran sekuens.

PDB (Protein Data Bank, Bank Data Protein) adalah basis data tunggal yang menyimpan model struktural tiga dimensi protein dan asam nukleat hasil penentuan eksperimental (dengan kristalografi sinar-X, spektroskopi NMR dan mikroskopi elektron). PDB menyimpan data struktur sebagai koordinat tiga dimensi yang menggambarkan posisi atom-atom dalam protein ataupun asam nukleat.

Penyejajaran sekuens

Penyejajaran sekuens (sequence alignment) adalah proses penyusunan/pengaturan dua atau lebih sekuens sehingga persamaan sekuens-sekuens tersebut tampak nyata. Hasil dari proses tersebut juga disebut sebagai sequence alignment atau alignment saja. Baris sekuens dalam suatu alignment diberi sisipan (umumnya dengan tanda “-“) sedemikian rupa sehingga kolom-kolomnya memuat karakter yang identik atau sama di antara sekuens-sekuens tersebut.

Sequence alignment merupakan metode dasar dalam analisis sekuens. Metode ini digunakan untuk mempelajari evolusi sekuens-sekuens dari leluhur yang sama (common ancestor). Ketidakcocokan (mismatch) dalam alignment diasosiasikan dengan proses mutasi, sedangkan kesenjangan (gap, tanda “-“) diasosiasikan dengan proses insersi atau delesi. Sequence alignment memberikan hipotesis atas proses evolusi yang terjadi dalam sekuens-sekuens tersebut. Misalnya, kedua sekuens adalah contoh alignment di atas bisa jadi berevolusi dari sekuens yang sama. Dalam kaitannya dengan hal ini, alignment juga dapat menunjukkan posisi-posisi yang dipertahankan (conserved) selama evolusi dalam sekuens-sekuens protein, yang menunjukkan bahwa posisi-posisi tersebut bisa jadi penting bagi struktur atau fungsi protein tersebut.

Selain itu, sequence alignment juga digunakan untuk mencari sekuens yang mirip atau sama dalalm basis data sekuens. BLAST adalah salah satu metode alignment yang sering digunakan dalam penelusuran basis data sekuens. BLAST menggunakan algoritma heuristik dalam penyusunan alignment.

Beberapa metode alignment lain yang merupakan pendahuluan BLAST adalah metode “Needleman-Wunsch” dan “Smith-Waterman”. Metode Needleman-Wunsch digunakan untuk menyusun alignment global di antara dua atau lebih sekuens, yaitu alignment atas keseluruhan panjang sekuens tersebut. Metode Smith-Waterman menghasilkan alignment lokal, yaitu alignment atas bagian-bagian dalam sekuens. Kedua metode tersebut menerapkan pemrograman dinamik dan hanya efektif untuk alignment dua sekuens (pairwise alignment).

Clustural adalah program bioinformatika untuk alignment multipel (multiple alignment), yaitu alignment beberapa sekuens sekaligus. Dua varian utama Clustal adalah ClustalW dan ClustalX.

Metode lain yang dapat diterapkan untuk alignment sekuens adalah metode yang berhubungan dengan Hidden Markov Model (“Model Markov Tersebunyi”, HMM). HMM merupakan model statistika yang mulanya digunakan dalam ilmu komputer untuk mengenali pembicaraan manusia (speech recognition). Selain digunakan untuk alignment, HMM juga digunakan dalam metode-metode analisis sekuens lainnya, seperti prediksi daerah pengkode protein dalam genom dan prediksi struktur sekunder protein.

Sumber :

https://id.m.wikipedia.org/wiki/Komputasi

https://tillmedzatun.wordpress.com/2016/01/05/biologi-komputasi-bio-informatika/

Cloud Computing

Pengertian Cloud Computing

Cloud Computing atau komputasi awan merupakan gabungan dari pemanfaatan teknologi komputer (komputasi) di dalam sebuah jaringan dengan pengembangan berbasis internet (awan). Cloud Computing memiliki fungsi untuk menjalankan program atau aplikasi melalui komputer-komputer yang masing-masing terkoneksi pada waktu yang bersamaan, tetapi tidak semua yang terkoneksi melalui internet menggunakan cloud computing.

Teknologi cloud computing ini menjadikan internet sebagai pusat server untuk mengelola data dan juga aplikasi yang digunakan pengguna.

Manfaat Cloud Computing

1. Semua data tersimpan di server secara terpusat
2. Keamanan data
3. Fleksibilitas dan skalabilitas yang tinggi
4. Investasi jangka pangjang

Layanan Cloud Computing

• Software as a Service (SaaS)

SaaS adalah layanan dari cloud computing dimana pelanggan dapat menggunakan software (perangkat lunak) yang telah disediakan oleh cloud provider. pelanggan cukup tahu bahwa perangkat lunak bisa berjalan dan bisa digunakan dengan baik.

• Platform as a Service (PaaS)

PaaS adalah layanan dari cloud komputing. Kita bisa menyewa "Rumah" berikut lingkungannya, untuk menjalankan aplikasi yang telah dibuat. Pelanggan tidak perlu pusing untuk menyiapkan "Rumah" dan memelihara "Rumah" tersebut. Yang penting aplikasi yang dibuat dapat berjalan dengan baik. Pemeliharaan "Rumah" ini (sistem operasi, network, database engine, framework aplikasi, dll) menjadi tanggung jawab dari penyedia layanan.

• Infrastructure as a Service (IaaS)

IaaS adalah layanan dari cloud computing sewaktu kita bisa "menyewa" infrastruktur IT. Dapat didefinisikan berapa besar unit komputasi (CPU), penyimpanan data (storage), memori (RAM), bandwidth, dan konfigurasi lainnya yang akan disewa.

Cara Kerja Sistem Cloud Computing

Sistem cloud bekerja dengan menggunakan internet sebagai pusat server dalam mengelola data pengguna. Sistem ini memungkinkan pengguna untuk login ke internet yang tersambung ke program untuk menjalankan aplikasi yang dibutuhkan tanpa melakukan instalasi. Untuk infrastruktur seperti media penyimpanan dan instruksi dari pengguna disimpan secara virtual melalui jaringan internet kemudian perintah-perintah tersebut akan lanjut diperoses oleh server aplikasi. Setelah proses tersebut diterima oleh server aplikasi maka data diproses dan pada proses terakhir pengguna akan disajikan dengan halaman yang telah diperbaharui sesuai dengan instruksi yang diterima sebelumnya.

Contoh Aplikasi Menggunakan Cloud Computing

Contoh aplikasi berbasis cloud computing adalah salesforce.com, Google Docs. salesforce.com adalah aplikasi Custimer Relationship Management (CRM) berbasis software as services, dimana kita bisa mengakses aplikasi bisnis kontak, produk, sales tracking, dashboard, dll.

Google Docs adalah aplikasi word processor, spredsheet, presentasi semacam microsoft office, yang berbasis di sever. Terintegrasi dengan Google Mail, file tersimpan dan dapat di proses dari internet.

Sumber :

Budiyanto, Alex.2012.Pengantar Cloud Computing. CloudIndonesiA 

http://pusatteknologi.com/pengertian-manfaat-cara-kerja-dan-contoh-cloud-computing.html

http://rikaayuputrik.blogspot.co.id/2014/11/cloud-computing-beserta-contoh.html?m=1

miniOS (Softskill) : Aspek Pemasaran

Operating system adalah komponen pengolah piranti lunak dasar (essential component) yang tersistem sebagai pengelola sumber daya dari perangkat keras komputer (hardware), dan sebagai penyedia layanan umum untuk aplikasi.

MiniOS merupakan perusahaan kecil buatan kami yang bergerak dalam bidang pembuatan piranti lunak dasar atau operating system. MiniOS sendiri memiliki arti miniOperating System, yaitu operating system yang berukuran mini. Pada logo perusahaan terdapat 8 berlian serta tulisan "miniOS" , ke delapan berlian itu sendiri memilki arti yaitu melambangkan 8 anggota yang memiliki ide berlian. Serta ide ide kecil yang diusungkan dilambangkan oleh tulisan mini yang berukuran kecil, namun ide kecil itu bisa membuat sesuatu yang besar yang dilambangkan oleh ukuran tulisan OS yang besar. Tagline kami sendiri adalah "mini but mighty".

VISI

Menjadi perusahaan yang mampu berdaya saing untuk menjadi nomor satu di dunia.

MISI

1. Memberikan produk terbaik demi tercapainya kepuasan pelanggan
2. Menciptakan produk teknologi yang bebas(available), aman(secure), murah(low cost) serta cepat(fast)
3. Mengoptimalkan pengelolaan sumber daya manusia yang unggul dan dapat dipercaya.

Aspek Pemasaran

Direktur Pemasaran (Tridea Putra S)
Manager Pemasaran (Shela Kusuma Rini)

Aspek pemasaran merupakan faktor strategis atau kunci dari keberhasilan perusahaan, jika permintaan terhadap produk/jasa yang dibuat kurang memadai seluruh kegiatan aspek-aspek yang lain tidak akan terwujud.
jika prospek permintaan terhadap permintaan produk lebih kecil dari penawarannya maka sistem produksi produk tersebut tidak layak dilaksanakan. Jika maret space masih tersedia maka perlu diselidiki apakah pasar masih mampu menampung produk baru yang direncanaka.
Berikut ini adalah strategi pemasaran yang di gunakan oleh perusahaan kami:

Menggunakan Internet Marketing

Internet marketing merupakan strategi pemasaran yang pertama kali harus di lakukan oleh perusahaan kami. Strategi pemasaran perusahaan kami di pasarkan melalui media sosial, blog, forum, maupun meningkatkan promosi dari segi SEO.

Melakukan Promosi

smartOS melakukan strategi pemasaran dengan cara melakukan promosi dengan berbagai cara baik secara langsung maupun tidak langsung. Promosi ini dilakukan dengan kreatif, unik dan se menarik mungkin agar  calon pelanggan tertarik menggunakan produk dari smartOS.

Menjalin Hubungan yang Baik dengan Konsumen

Konsumen merupakan seseorang yang sangat mendukung kemajuan dari perusahaan kamu, maka dari itu kami mempertahankan prinsip untuk menjalin hubungan yang baik dengan konsumen, maupun calon konsumen

Event

miniOS membuat pemasaran dengan melakukan cara membuat event di berbagai kegiatan. Event tersebut disertai dengan gift yaitu produk dari perusahaan kami.

Jika Saya Berbisnis di Bidang Informatika (Tugas 1)

Pengertian Berbisnis Online

Bisnis Online adalah sebuah usaha untuk memutar uang demi mendapatkan keuntungan melalui internet. Maka syarat utama untuk yang ingin berbisnis online adalah koneksi internet, dan modal adalah syarat nomor sekian. Dalam bisnis online kita bisa bekerja tanpa adanya modal, selama sudah memenuhi syarat utama tadi yaitu terkoneksi dengan internet (komputer dan koneksi internet).

Kelebihan Dari Bisnis Online

Modal awal yang lebih kecil

Keuntungan pertama dari menjual barang secara online adalah kamu hanya memerlukan modal yang relatif lebih kecil dibanding berjualan offline. Karena kamu tidak perlu mendirikan atau menyewa lahan sebagai tempat berjualan. Bahakan kamu tidak memerlukan biaya operasional. Yang kamu butuhkan hanyalah akses internet dan mungkin sebuah kamera untuk mengambil foto dari barang-barang yang ingin dijual.

Target pasar yang lebih luas

Bayangkan bila kamu berada di wilayah terpencil dan tidak memiliki banyak penduduk, target konsumen kamu hanyalah masyarakat yang ada di sekitar wilayah tersebut. Bisnis kamu tentunya tidak akan berkembang. Solusinya adalah dengan berjualan online. Menurut laporan terakhir dari APJII, pada tahun 2014 saja terdapat kurang lebih 71 juta pengguna internet di Indonesia. Jadi bisa dibayangkan berapa besar potensinya.

Pantau dari mana saja dan kapan saja

Dengan bantuan internet, sekarang kamu tidak harus lagi terpaku di satu tempat untuk mengelola bisnis kamu. Kamu bisa mengakses dan mengelolanya dari mana saja dan kapan saja selama masih ada akses internet. Sehingga waktu yang digunakan lebih fleksibel dan lebih optimal.

Kekurangan dari Bisnis Online

• Pembeli sulit percaya untuk berbelanja di toko online kita, apalagi jika toko kita baru seumur jagung. Maka dari itu penting untuk memasukan alamat bisnis dan nomor telepon fixline serta nomor hp agar pembeli yakin untuk membeli barang dagangan kita.
• Ditipu oleh pembeli, modusnya antara lain mengaku sudah transfer tetapi ternyata belum, ketika sudah deal untuk COD pembeli membatalkannya secara sepihak, jadi ajang transaksi segitiga yang ternyata bukan pembeli yang mentransfer uang ke kita, dan masih banyak modus penipuan lainnya.
• Ekspedisi yang kurang bagus bisa berdampak toko online kita yang dicap buruk pelayanannya.
• Persaingan di bisnis online sangat ketat, terkadang antar pesaing bisnis saling menjatuhkan dengan cara yang tidak sportif, antara lain mengganggu web kita dengan cara spam atau melakukan hack ke web kita.

Achmad Zaky, Pendiri Bukalapak.com

Bukalapak.com adalah e-commerce online marketplace yang bertujuan memberdayakan usaha kecil dan menengah (UKM) Indonesia dengan menjual produk-produk UKM secara online. Sejak didirikan pada tahun 2010, kini Bukalapak telah menjadi e-commerce besar yang paling berkembang di Asia Tenggara, dengan pertumbuhan penjualan 20 persen perbulan.

Dengan jumlah 150 ribu lebih Pelapak (UKM) yang telah bergabung, Bukalapak telah berhasil menjadi marketplace yang mampu mengumpulkan kelompok penjual di Indonesia dan menjadi online marketplace terbesar di Indonesia (menurut ComScore).

Lalu siapa orang dibalik kesuksesan Bukalapak.com saat ini? ialah Achmad Zaky, CEO sekaligus Pendiri Bukalapak.

Profil Achmad Zaky

Achmad Zaky lahir tahun 1986 di Sragen, Jawa Tengah. Ia merupakan lulusan Institut Teknologi Bandung (ITB) jurusan Teknik Informatika, angkatan 2008.

Sebenarnya sebelum memulai ini semua, setelah lulus kuliah Zaky berkeinginan bekerja di BCG atau Mckinsey. Tetapi ia ditolak dan gagal mendapatkan pekerjaan di kedua tempat itu.

Sebenarnya sebelum masuk ITB, tujuannya kuliah hanya berkeinginan memperoleh pekerjaan bagus dengan gaji besar. Namun seiring berjalannya waktu setelah kuliah ia mengalami perubahan cara berfikir. Dimana di ITB itu sangat entreprenerial, karena lulusannya yang menjadi pengusaha bisa menjadi role model, seperti Aburizal Bakrie dan Arifin Panigoro yang sukses menjadi pengusaha sukses di tanah air. Oleh karena itu setelah lulus di ITB pilihannya hanya ada dua, yaitu kerja di perusahaan besar seperti Mckinsey dan BCG atau membangun perusahaan sendiri.

Akhirnya sejak kuliah ia sudah berkecimpung di dunia StartUp dengan mendirikan Suitmedia, yakni perusahaan jasa konsultan website perusahaan, dan hingga kini usaha ini masih tetap dijalani. Pada 2010, melihat perkembangan Suitmedia tumbuh sangat pesat. Setahun kemudian ia mendirikan Bukalapak. Sejak itulah ia memutuskan untuk fokus membangun Bukalapak menjadi online marketplace terpercaya yang banyak dikenal masyarakat Indonesia.
Ide Mendirikan Bukalapak.com

Berawal dari garasi, Achmad Zaky bersama Nugroho (juga pendiri Bukalapak) yang memiliki pengalaman membuat dan me-marketingkan website di Suitmedia, sadar bahwa para seller dan buyer menginginkan sebuah situs online marketplace yang bisa mempertemukan antara penjual dan pembeli secara aman (tanpa penipuan). Mereka pun akhirnya membuat sebuah situs online marketplace bernamakan Bukalapak.com.

Diawal hanya 3 orang yang terlibat di Bukalapak, 1 orang sebagai staf, 1 orang bantu-bantu, dan 1 orang lagi yaitu Achmad Zaky sendiri yang secara masif mengajak orang-orang bergabung di Bukalapak. Ia mengundang orang-orang bergabung saat di sela-sela pekerjaan di Suitmedia.

Ketika itu melalui fitur message di Facebook ia hanya bisa mengajak 100 orang perhari untuk mengajak orang berjualan di Bukalapak. Tantangan terberatnya dalam mengajak seller bergabung yaitu masalah kepercayaan terhadap e-commerce, karena kebanyakan orang takut tertipu. Jadi diawal ia dan tim fokus menyelesaikan masalah kepercayaan dengan cara mengedukasi seller. Kala itu Bukalapak sering membuat kisah sukses seller dan menyebarkannya ke Twitter guna mengedukasi seller lain agar menjadi seller terpercaya.

Ia bermimpi untuk menjadikan Bukalapak sebagai sarana online marketplace yang aman dan menjanjikan di masa depan. Bukalapak hadir mewadahi sektor usaha kecil dan menengah (UKM) di Indonesia untuk tumbuh berkembang melalui internet.

Ia yakin bahwa peluang e-commerce sangat terbuka lebar. Setiap orang dapat bergabung serta menjadi penjual dan pembeli secara gratis. Baginya berjualan di toko fisik membutuhkan investasi besar, seperti biaya sewa toko. Nah, pengeluaran semacam itu dapat dipangkas apabila berjualan melalui internet.

Kemudian setelah didirikan, Bukalapak mengalami kemajuan pesat dalam kurun waktu 3 tahun sejak didirikan pada 2011, Bukalapak.com telah memiliki 150.000 penjual. Produk yang dijual pun sangat beragam, mulai dari elektronik, makanan hingga produk fashion.

Ekspektasi Pendiri Bukalapak

Setelah berhasil memperoleh kucuran dana investasi dari EMTEK Group sejumlah ratusan miliar rupiah, kedepan CEO sekaligus Pendiri Bukalapak, Achmad Zaky menargetkan pertumbuhan 8 kali lipat pertahun di berbagai aspek, mulai dari penjualan hingga pengguna.

Bukalapak berkeinginan membangun kepercayaan melalui transaksi proses transaksi online yang terpercaya, serta membangun komunitas pasar daring terkuat di Indonesia.


Sumber :
http://www.ehpedia.com/2015/12/biografi-pendiri-bukalapak-profil-Achmad.Zaky.html

Kasus Satinah

Seorang tenaga kerja Indonesia, Satinah , di Arab Saudi divonis hukuman mati  karena telah melakukan tindak kejahatan yaitu membunuh majikannya sendiri. Satinah dibebankan uang diyat sebesar Rp. 21 Miliar yang tak kunjung terkumpul dan hasil terakhir ‘urunan’ untuk Satinah baru terkumpul sekitar Rp. 15 Miliar. Migran Care dalam keterangan persnya, menduga adanya permainan calo dalam kasus ini. Perhimpunan buruh migran ini mengungkapkan jika uang diyat ini seolah-olah menjadi komoditas bisnis. Sementara itu, pengamat Hukum Internasional dari Universitas Indonesia, Hikmahanto Juwana, bahwa seharusnya uang diyat dibaray oleh keluar Satinah.

Namun alat eksekusi pancung tak jadi mengakhiri hidup seorang Satinah, tenaga kerja Indonesia (TKI) yang terbukti membunuh majikannya di Arab Saudi. Uang diyat menyelamatkan nyawa Satinah.

Uang diyat sendiri adalah kompensasi yang harus dibayar oleh pelaku kejahatan yang masuk kategori “qisasi” yaitu kejahatan yang dilakukan terhadap hak manusia atau privat. Dalam hukuman ini diberlakukan hukuman mati.

Raja Arab Saudi awalnya menetapkan nilai uang diyat sebesar 500 ribu Riyal. Namun pada kenyataannya, nilai tersebut berubah dan ditentukan sendiri oleh keluarga korban.

Arab Saudi, 16 Juni 2007. Kala itu, hari masih pagi saat satinah bertengkar dengan majikannya bernama Nura Al Garib di dapur. Pertengkaran itu bermula dari hal sepele bagi orang Indonesia, tapi masalah besar di Arab Saudi. Budaya Saudi memang tidak membolehkan perempuan dan laki-laku yang bukan muhrim berada dalam satu ruangan yang sama. Apalagi kalau sampai kedua orang yang bukan muhrim itu berbicara. Nura kemudian memukul kepala Satinah menggunakan penggaris. Tak cukup dengan itu, kepala Satinah dibenturkan ke dinding. Merasa nyawanya terancam, Satinah berusaha meraih benda apapun untuk membalas penganiyaan majikannya itu. Tangan Satinah berhasil meraih kayu penggilingan adonan roti. Tak tunggu lama, dia memukul Nura. Salah satu pukulan itu mengenai tengkuk Nura Al Garib. Sang Majikan pingsan. Keluarga yang panik kemudian melarikan Nura ke rumah sakit. Namun, nyawa perempuan tua itu tak selamat setelah sempat koma. Satinah kabur. Rupanya, perempuan 41 tahun itu sempat meraih tas majikannya sebelum kabur. Ada uang di dalam tas senilai SR37.970 atau Rp122 juta. Hal ini makin memperburuk nasib Satinah. Satinah kemudian menyerahkan diri ke kantor polisi setempat dan mengakui perbuatannya. Sejak saat itu Satinah berada di Penjara Gassem. Kemudian, dalam persidangan syariah tingkat pertama pada 2009 sampai kasasi 2010, Satinah divonis hukuman mati atas tuduhan melakukan pembunuhan berencana pada majikan perempuannya. Awalnya Satinah direncanakan dihukum mati Agustus 2011, namun ditunda. Menurut data dari Kementerian Luar Negeri, tenggat waktu eksekusi Satinah itu sudah ditunda lima kali, yakni pada Juli 2011, 23 Oktober 2011, Desember 2012, Juni 2013, dan Februari 2014. Terakhir, tenggat waktu itu ditentukan 3 April 2014. Sepekan sebelum tenggat waktu ini berakhir, sejumlah kelompok masyarakat Indonesia menggalang dana untuk menebus uang diyat yang diminta keluarga Nura Al Garib, yakni Rp21,2 miliar.

Pendapat saya terhadap kasus Satinah ini seharusnya pemerintah membantu warga negaranya sendiri disaat mereka membutuhkan terlebih Satinah ini berada di negeri orang. Dan bagi penyalur sebaiknya mendidik para calon TKI terlebih dahulu agar mereka tidak terlalu dibodohi oleh majikannya nanti.

Game Sudoku

Sudoku, juga dikenal sebagai Number Place atau Nanpure, adalah sejenis teka-teki logika. Tujuannya adalah untuk mengisikan angka-angka dari 1 sampai 9 ke dalam jaring-jaring 9x9 yang terdiri dari 9 kotak 3x3 tanpa ada angka yang berulang dari satu baris, kolom atau kotak. pertama kali diterbitkan di sebuah surat kabar Perancis pada 1895 dan mungkin dipengaruhi oleh matematikawan Swiss Leonhard Euler, yang membuat terkenal Latin Square.

Versi modern permainan ini dimulai di Indianapolis pada 1979. Kemudian menjadi terkenal kembali di Jepang pada 1986, ketika penerbit Nikoli menemukan teka-teki ini yang diciptakan Howard Garns.

nama "Sudoku" adalah singkatan bahasa Jepang dari "Suuji wa dokushin ni kagiru", artinya "angka-angkanya harus tetap tunggal".

Pembuatan game sudoku diatas adalah menggunakan software Visual Basic dengan tampilan :

form 1 :

script :

Private Sub Image2_Click()

MsgBox "Terima Kasih ^_^ Saran & Kritik ku terima dengan ikhlas"

End

End Sub

Private Sub imulai_Click()

Frame1.Top = 0

End Sub

Private Sub Label2_Click()

Form2.Show

Form1.Hide

End Sub

Private Sub Label3_Click()

Form3.Show

Form1.Hide

End Sub

Private Sub Label4_Click()

Form4.Show

Form1.Hide

End Sub

form 2 :

script :

Dim ss As Integer

Dim mm As Integer

Sub cekkolom1()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 0 To 5

            For j = i + 1 To 5

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(0).Picture = salah.Picture

  

                        Exit Sub

                    Else

                        ket(0).Picture = benar.Picture

                    End If

            Next j

    Next i

'------------------------

End Sub

Sub cekkolom2()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 6 To 11

  

            For j = i + 1 To 11

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(1).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(1).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom3()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 12 To 17

  

            For j = i + 1 To 17

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(2).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(2).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom4()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 18 To 23

  

            For j = i + 1 To 23

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(3).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(3).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom5()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 24 To 29

  

            For j = i + 1 To 29

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(4).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(4).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom6()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 30 To 35

  

            For j = i + 1 To 35

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(5).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(5).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris1()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 0 To 30 Step 6

  

            For j = i + 6 To 30 Step 6

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(6).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(6).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris2()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 1 To 31 Step 6

  

            For j = i + 6 To 31 Step 6

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(7).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(7).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris3()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 2 To 32 Step 6

  

            For j = i + 6 To 32 Step 6

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(8).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(8).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris4()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 3 To 33 Step 6

  

            For j = i + 6 To 33 Step 6

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(9).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(9).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris5()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 4 To 34 Step 6

  

            For j = i + 6 To 34 Step 6

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(10).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(10).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris6()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 5 To 35 Step 6

  

            For j = i + 6 To 35 Step 6

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(11).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(11).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Private Sub Box_Change(Index As Integer)

        cekkolom1

        cekkolom2

        cekkolom3

        cekkolom4

        cekkolom5

        cekkolom6

        cekbaris1

        cekbaris2

        cekbaris3

        cekbaris4

        cekbaris5

        cekbaris6

        ceksemua

End Sub

Sub ceksemua()

    Dim i As Integer

    Dim menang As Boolean

    menang = True

    For i = 0 To 11

        If ket(i).Picture = salah.Picture Then

            menang = False

            Exit For

            Exit Sub

        End If

    Next i

    If menang = True Then

        Call menang1

    End If

    

End Sub

Private Sub Command1_Click()

    For i = 0 To 35

    box(i).Text = ""

box(0).Text = 3

box(1).Text = 6

box(2).Text = 4

box(3).Text = 5

box(4).Text = 2

box(5).Text = 1

box(6).BackColor = &H8000000A

box(7).BackColor = &H8000000A

box(8).Text = 5

box(9).Text = 4

box(10).Text = 3

box(11).Text = 6

box(12).Text = 4

box(13).Text = 5

box(14).Text = 2

box(15).Text = 6

box(16).Text = 1

box(17).BackColor = &H8000000A

box(18).Text = 6

box(19).BackColor = &H8000000A

box(20).Text = 3

box(21).Text = 2

box(22).Text = 5

box(23).Text = 4

box(24).Text = 2

box(25).Text = 3

box(26).BackColor = &H8000000A

box(27).BackColor = &H8000000A

box(28).Text = 4

box(29).BackColor = &H8000000A

box(30).Text = 5

box(31).Text = 4

box(32).Text = 1

box(33).Text = 3

box(34).BackColor = &H8000000A

box(35).Text = 2

Next i

tjam.Enabled = False

tjam.Enabled = True

ss = 0

mm = 0

End Sub

Private Sub Command3_Click()

   

    End

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 11

    ket(i).Picture = salah.Picture

Next i

For i = 0 To 35

Next i

End Sub

Sub menang1()

    MsgBox "Selamat anda menang"

    Form3.Show

End Sub

Private Sub lmulai_Click()

    tframe.Enabled = True

End Sub

Private Sub lmulai_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lmulai.ForeColor = RGB(204, 153, 102)

End Sub

Private Sub Label2_Click()

MsgBox "Terima Kasih ^_^ Saran & Kritik ku terima dengan ikhlas"

End

End Sub

Private Sub tframe_Timer()

    Frame1.Top = Frame1.Top - 10

    If Frame1.Top = 120 Or Frame1.Top < 120 Then

        tframe.Enabled = False

    End If

End Sub

Private Sub Timer1_Timer()

    Dim k As Integer

    For k = 0 To 35

        box(k).ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

    Next k

End Sub

Private Sub tjam_Timer()

ss = ss + 1

If ss = 60 Then

    ss = 0

    mm = mm + 1

End If

If Len(CStr(ss)) = 1 Then

    sec = "0" & ss

Else

    sec = ss

End If

If Len(CStr(mm)) = 1 Then

    Min = "0" & mm

Else

    Min = mm

End If

iwaktu.Caption = Min & ":" & sec

End Sub

form 3 :

script :

Dim ss As Integer

Dim mm As Integer

Sub cekkolom1()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 0 To 8

            For j = i + 1 To 8

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(0).Picture = salah.Picture

  

                        Exit Sub

                    Else

                        ket(0).Picture = benar.Picture

                    End If

            Next j

    Next i

'------------------------

End Sub

Sub cekkolom2()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 9 To 17

  

            For j = i + 1 To 17

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(1).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(1).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom3()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 18 To 26

  

            For j = i + 1 To 26

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(2).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(2).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom4()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 27 To 35

  

            For j = i + 1 To 35

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(3).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(3).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom5()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 36 To 44

  

            For j = i + 1 To 44

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(4).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(4).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom6()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 45 To 53

  

            For j = i + 1 To 53

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(5).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(5).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom7()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 54 To 62

  

            For j = i + 1 To 62

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(6).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(6).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom8()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 63 To 71

  

            For j = i + 1 To 71

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(7).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(7).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom9()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 72 To 80

  

            For j = i + 1 To 80

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(8).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(8).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris1()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 0 To 72 Step 9

  

            For j = i + 9 To 72 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(9).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(9).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris2()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 1 To 73 Step 9

  

            For j = i + 9 To 73 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(10).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(10).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris3()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 2 To 74 Step 9

  

            For j = i + 9 To 74 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(11).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(11).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris4()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 3 To 75 Step 9

  

            For j = i + 9 To 75 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(12).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(12).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris5()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 4 To 76 Step 9

  

            For j = i + 9 To 76 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(13).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(13).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris6()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 5 To 77 Step 9

  

            For j = i + 9 To 77 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(14).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(14).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris7()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 6 To 78 Step 9

  

            For j = i + 9 To 78 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(15).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(15).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris8()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 7 To 79 Step 9

  

            For j = i + 9 To 79 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(16).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(16).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris9()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 8 To 80 Step 9

  

            For j = i + 9 To 80 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(17).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(17).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Private Sub Box_Change(Index As Integer)

        cekkolom1

        cekkolom2

        cekkolom3

        cekkolom4

        cekkolom5

        cekkolom6

        cekkolom7

        cekkolom8

        cekkolom9

        cekbaris1

        cekbaris2

        cekbaris3

        cekbaris4

        cekbaris5

        cekbaris6

        cekbaris7

        cekbaris8

        cekbaris9

        ceksemua

End Sub

Sub ceksemua()

    Dim i As Integer

    Dim menang As Boolean

    menang = True

    For i = 0 To 17

        If ket(i).Picture = salah.Picture Then

            menang = False

            Exit For

            Exit Sub

        End If

    Next i

    If menang = True Then

        Call menang1

    End If

    

End Sub

Private Sub Command1_Click()

    For i = 0 To 80

    box(i).Text = ""

Next i

Call p1

tjam.Enabled = False

tjam.Enabled = True

ss = 0

mm = 0

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()

    

    End

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 17

    ket(i).Picture = salah.Picture

Next i

For i = 0 To 80

    box(i).BackColor = RGB(204, 153, 102)

Next i

End Sub

Sub menang1()

    MsgBox "Selamat anda menang !", vbOKOnly, "Selesai"

    Timer1.Enabled = True

    tjam.Enabled = False

End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lmulai.ForeColor = vbWhite

End Sub

Private Sub lmulai_Click()

    tframe.Enabled = True

End Sub

Private Sub lmulai_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lmulai.ForeColor = RGB(204, 153, 102)

End Sub

Private Sub tframe_Timer()

    Frame1.Top = Frame1.Top - 10

    If Frame1.Top = 120 Or Frame1.Top < 120 Then

        tframe.Enabled = False

    End If

End Sub

Private Sub Timer1_Timer()

    Dim k As Integer

    For k = 0 To 80

        box(k).ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

    Next k

End Sub

Sub pasang(nomor As Integer, isi As String)

    box(nomor).Text = isi

    box(nomor).Locked = True

End Sub

Sub p1()

    Call pasang(0, "3")

    Call pasang(1, "1")

    Call pasang(2, "2")

    Call pasang(9, "5")

    Call pasang(11, "9")

    Call pasang(18, "4")

    Call pasang(20, "7")

    '-------------------

    Call pasang(3, "8")

    Call pasang(4, "9")

    Call pasang(5, "5")

    Call pasang(12, "1")

    Call pasang(14, "7")

    Call pasang(21, "2")

    Call pasang(23, "3")

    '-------------------

    Call pasang(6, "4")

    Call pasang(7, "7")

    Call pasang(8, "6")

    Call pasang(16, "8")

    Call pasang(24, "5")

    Call pasang(26, "9")

    '-------------------

    Call pasang(27, "9")

    Call pasang(36, "7")

    Call pasang(38, "8 ")

    Call pasang(45, "6")

    '-------------------

    Call pasang(30, "7")

    Call pasang(40, "1")

    Call pasang(48, "9")

    Call pasang(49, "8")

    Call pasang(50, "2")

     '-------------------

    Call pasang(33, "2")

    Call pasang(34, "4")

    Call pasang(43, "9")

    Call pasang(44, "3")

    Call pasang(52, "5")

    Call pasang(53, "7")

    '-------------------

    Call pasang(54, "2")

    Call pasang(63, "1")

    Call pasang(64, "7 ")

    Call pasang(65, "6")

    Call pasang(72, "8")

    '-------------------

    Call pasang(57, "6")

    Call pasang(66, "3")

    Call pasang(67, "5")

    Call pasang(68, "8")

    Call pasang(75, "4")

    Call pasang(76, "2")

     '-------------------

    Call pasang(61, "3")

    Call pasang(62, "1")

    Call pasang(69, "9")

    Call pasang(71, "4")

    Call pasang(78, "7")

    Call pasang(80, "5")

End Sub

Private Sub tjam_Timer()

ss = ss + 1

If ss = 60 Then

    ss = 0

    mm = mm + 1

End If

If Len(CStr(ss)) = 1 Then

    sec = "0" & ss

Else

    sec = ss

End If

If Len(CStr(mm)) = 1 Then

    Min = "0" & mm

Else

    Min = mm

End If

End Sub

form 4 :

script :

Dim ss As Integer

Dim mm As Integer

Sub cekkolom1()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 0 To 8

            For j = i + 1 To 8

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(0).Picture = salah.Picture

  

                        Exit Sub

                    Else

                        ket(0).Picture = benar.Picture

                    End If

            Next j

    Next i

'------------------------

End Sub

Sub cekkolom2()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 9 To 17

  

            For j = i + 1 To 17

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(1).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(1).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom3()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 18 To 26

  

            For j = i + 1 To 26

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(2).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(2).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom4()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 27 To 35

  

            For j = i + 1 To 35

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(3).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(3).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom5()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 36 To 44

  

            For j = i + 1 To 44

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(4).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(4).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom6()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 45 To 53

  

            For j = i + 1 To 53

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(5).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(5).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom7()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 54 To 62

  

            For j = i + 1 To 62

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(6).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(6).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom8()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 63 To 71

  

            For j = i + 1 To 71

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(7).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(7).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekkolom9()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 72 To 80

  

            For j = i + 1 To 80

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(8).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(8).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris1()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 0 To 72 Step 9

  

            For j = i + 9 To 72 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(9).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(9).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris2()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 1 To 73 Step 9

  

            For j = i + 9 To 73 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(10).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(10).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris3()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 2 To 74 Step 9

  

            For j = i + 9 To 74 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(11).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(11).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris4()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 3 To 75 Step 9

  

            For j = i + 9 To 75 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(12).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(12).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris5()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 4 To 76 Step 9

  

            For j = i + 9 To 76 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(13).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(13).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris6()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 5 To 77 Step 9

  

            For j = i + 9 To 77 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(14).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(14).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris7()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 6 To 78 Step 9

  

            For j = i + 9 To 78 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(15).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(15).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris8()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 7 To 79 Step 9

  

            For j = i + 9 To 79 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(16).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(16).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Sub cekbaris9()

Dim i As Integer, j As Integer, angka As Integer

'cek ke kanan baris 1

    For i = 8 To 80 Step 9

  

            For j = i + 9 To 80 Step 9

                angka = Val(box(i).Text)

                'jika ada yg dobel

                    If angka = Val(box(j).Text) Or box(j).Text = "" Then

                        ket(17).Picture = salah.Picture

                        'Box(j).SetFocus

                        Exit Sub

                    Else

                        ket(17).Picture = benar.Picture

                    End If

            Next j

        'End If

    Next i

'------------------------

End Sub

Private Sub Box_Change(Index As Integer)

        cekkolom1

        cekkolom2

        cekkolom3

        cekkolom4

        cekkolom5

        cekkolom6

        cekkolom7

        cekkolom8

        cekkolom9

        cekbaris1

        cekbaris2

        cekbaris3

        cekbaris4

        cekbaris5

        cekbaris6

        cekbaris7

        cekbaris8

        cekbaris9

        ceksemua

End Sub

Sub ceksemua()

    Dim i As Integer

    Dim menang As Boolean

    menang = True

    For i = 0 To 17

        If ket(i).Picture = salah.Picture Then

            menang = False

            Exit For

            Exit Sub

        End If

    Next i

    If menang = True Then

        Call menang1

    End If

    

End Sub

Private Sub Command1_Click()

    For i = 0 To 80

    box(i).Text = ""

Next i

Call p1

tjam.Enabled = False

tjam.Enabled = True

ss = 0

mm = 0

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()

    

    End

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 17

    ket(i).Picture = salah.Picture

Next i

For i = 0 To 80

    box(i).BackColor = RGB(204, 153, 102)

Next i

End Sub

Sub menang1()

    MsgBox "Selamat anda menang !", vbOKOnly, "Selesai"

    Timer1.Enabled = True

    tjam.Enabled = False

End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lmulai.ForeColor = vbWhite

End Sub

Private Sub lmulai_Click()

    tframe.Enabled = True

End Sub

Private Sub lmulai_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lmulai.ForeColor = RGB(204, 153, 102)

End Sub

Private Sub Label2_Click()

End

End Sub

Private Sub tframe_Timer()

    Frame1.Top = Frame1.Top - 10

    If Frame1.Top = 120 Or Frame1.Top < 120 Then

        tframe.Enabled = False

    End If

End Sub

Private Sub Timer1_Timer()

    Dim k As Integer

    For k = 0 To 80

        box(k).ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

    Next k

End Sub

Sub pasang(nomor As Integer, isi As String)

    box(nomor).Text = isi

    box(nomor).Locked = True

End Sub

Sub p1()

    Call pasang(0, "9")

    Call pasang(2, "5")

    Call pasang(20, "7")

    '-------------------

    Call pasang(4, "2")

    Call pasang(12, "5")

    Call pasang(14, "9")

    '-------------------

    Call pasang(8, "8")

    Call pasang(16, "2")

    Call pasang(26, "5")

    '-------------------

    Call pasang(36, "7")

    Call pasang(38, "4 ")

    '-------------------

    Call pasang(30, "7")

    Call pasang(40, "1")

    Call pasang(48, "9")

    Call pasang(50, "5")

     '-------------------

    Call pasang(33, "5")

    Call pasang(34, "1")

    Call pasang(53, "4")

    '-------------------

    Call pasang(54, "6")

    Call pasang(65, "9")

    Call pasang(72, "5")

    '-------------------

    Call pasang(66, "8")

    Call pasang(67, "6")

    Call pasang(76, "9")

     '-------------------

    Call pasang(61, "9")

    Call pasang(69, "4")

    Call pasang(78, "8")

End Sub

Private Sub tjam_Timer()

ss = ss + 1

If ss = 60 Then

    ss = 0

    mm = mm + 1

End If

If Len(CStr(ss)) = 1 Then

    sec = "0" & ss

Else

    sec = ss

End If

If Len(CStr(mm)) = 1 Then

    Min = "0" & mm

Else

    Min = mm

End If

End Sub

sumber :

https://id.wikipedia.org/wiki/Sudoku

http://sintuble.blogspot.co.id/2012/02/cara-buat-game-sudoku-dengan-vb-visual.html