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