Game TicTacToe

Dim sp1 As Boolean 'Player 1 Var
Dim sp2 As Boolean 'Player 2 Var
Dim p1p As Integer 'Player 1 Points
Dim p2p As Integer 'Player 2 Points

Function lösch()
'Function buat semua Invisible
O1.Visible = False
O2.Visible = False
O3.Visible = False
O4.Visible = False
O5.Visible = False
O6.Visible = False
O7.Visible = False
O8.Visible = False
O9.Visible = False

X1.Visible = False
X2.Visible = False
X3.Visible = False
X4.Visible = False
X5.Visible = False
X6.Visible = False
X7.Visible = False
X8.Visible = False
X9.Visible = False
End Function
Private Sub Image1_Click()

If sp1 = True And O1.Visible = False Then
X1.Visible = True
sp2 = True
sp1 = False
Exit Sub
End If

If sp2 = True And X1.Visible = False Then
O1.Visible = True
sp1 = True
sp2 = False
Exit Sub
End If

End Sub

Private Sub Form_Load()
'Set Player1 Maen
sp1 = True
sp2 = False

'Buat Semua Invisible
X1.Visible = False
X2.Visible = False
X3.Visible = False
X4.Visible = False
X5.Visible = False
X6.Visible = False
X7.Visible = False
X8.Visible = False
X9.Visible = False

O1.Visible = False
O2.Visible = False
O3.Visible = False
O4.Visible = False
O5.Visible = False
O6.Visible = False
O7.Visible = False
O8.Visible = False
O9.Visible = False
End Sub

Private Sub Image2_Click()

'Klik utk Visible
If sp1 = True And O2.Visible = False Then
X2.Visible = True
sp2 = True
sp1 = False
Exit Sub
End If

If sp2 = True And X2.Visible = False Then
O2.Visible = True
sp1 = True
sp2 = False
Exit Sub
End If

End Sub

Private Sub Image3_Click()

If sp1 = True And O3.Visible = False Then
X3.Visible = True
sp2 = True
sp1 = False
Exit Sub
End If

If sp2 = True And X3.Visible = False Then
O3.Visible = True
sp1 = True
sp2 = False
Exit Sub
End If

End Sub

Private Sub Image4_Click()

If sp1 = True And O4.Visible = False Then
X4.Visible = True
sp2 = True
sp1 = False
Exit Sub
End If

If sp2 = True And X4.Visible = False Then
O4.Visible = True
sp1 = True
sp2 = False
Exit Sub
End If

End Sub

Private Sub Image5_Click()

If sp1 = True And O5.Visible = False Then
X5.Visible = True
sp2 = True
sp1 = False
Exit Sub
End If

If sp2 = True And X5.Visible = False Then
O5.Visible = True
sp1 = True
sp2 = False
Exit Sub
End If

End Sub

Private Sub Image6_Click()
If sp1 = True And O6.Visible = False Then
X6.Visible = True
sp2 = True
sp1 = False
Exit Sub
End If

If sp2 = True And X6.Visible = False Then
O6.Visible = True
sp1 = True
sp2 = False
Exit Sub
End If

End Sub

Private Sub Image7_Click()
If sp1 = True And O7.Visible = False Then
X7.Visible = True
sp2 = True
sp1 = False
Exit Sub
End If

If sp2 = True And X7.Visible = False Then
O7.Visible = True
sp1 = True
sp2 = False
Exit Sub
End If

End Sub

Private Sub Image8_Click()
If sp1 = True And O8.Visible = False Then
X8.Visible = True
sp2 = True
sp1 = False
Exit Sub
End If

If sp2 = True And X8.Visible = False Then
O8.Visible = True
sp1 = True
sp2 = False
Exit Sub
End If

End Sub

Private Sub Image9_Click()
If sp1 = True And O9.Visible = False Then
X9.Visible = True
sp2 = True
sp1 = False
Exit Sub
End If

If sp2 = True And X9.Visible = False Then
O9.Visible = True
sp1 = True
sp2 = False
Exit Sub
End If

End Sub

Private Sub Timer1_Timer()
If sp1 = True Then Form1.MousePointer = 2
If sp2 = True Then Form1.MousePointer = 12
End Sub

Private Sub Timer2_Timer()
'Player X Menang??
If X1.Visible = True And X2.Visible = True And X3.Visible = True Then
MsgBox "Player X wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p1p = p1p + 1
Timer2.Enabled = True
End If

If X1.Visible = True And X4.Visible = True And X7.Visible = True Then
MsgBox "Player X wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p1p = p1p + 1
Timer2.Enabled = True
End If

If X1.Visible = True And X5.Visible = True And X9.Visible = True Then
MsgBox "Player X wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p1p = p1p + 1
Timer2.Enabled = True
End If

If X2.Visible = True And X5.Visible = True And X8.Visible = True Then
MsgBox "Player X wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p1p = p1p + 1
Timer2.Enabled = True
End If

If X3.Visible = True And X6.Visible = True And X9.Visible = True Then
MsgBox "Player X wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p1p = p1p + 1
Timer2.Enabled = True
End If

If X3.Visible = True And X5.Visible = True And X7.Visible = True Then
MsgBox "Player X wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p1p = p1p + 1
Timer2.Enabled = True
End If

If X4.Visible = True And X5.Visible = True And X6.Visible = True Then
MsgBox "Player X wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p1p = p1p + 1
Timer2.Enabled = True
End If

If X7.Visible = True And X8.Visible = True And X9.Visible = True Then
MsgBox "Player X wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p1p = p1p + 1
Timer2.Enabled = True
End If

'Player O Menang??
If O1.Visible = True And O2.Visible = True And O3.Visible = True Then
MsgBox "Player O wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p2p = p2p + 1
Timer2.Enabled = True
End If

If O1.Visible = True And O4.Visible = True And O7.Visible = True Then
MsgBox "Player O wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p2p = p2p + 1
Timer2.Enabled = True
End If

If O1.Visible = True And O5.Visible = True And O9.Visible = True Then
MsgBox "Player O wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p2p = p2p + 1
Timer2.Enabled = True
End If

If O2.Visible = True And O5.Visible = True And O8.Visible = True Then
MsgBox "Player O wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p2p = p2p + 1
Timer2.Enabled = True
End If

If O3.Visible = True And O6.Visible = True And O9.Visible = True Then
MsgBox "Player O wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p2p = p2p + 1
Timer2.Enabled = True
End If

If O3.Visible = True And O5.Visible = True And O7.Visible = True Then
MsgBox "Player O wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p2p = p2p + 1
Timer2.Enabled = True
End If

If O4.Visible = True And O5.Visible = True And O6.Visible = True Then
MsgBox "Player O wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p2p = p2p + 1
Timer2.Enabled = True
End If

If O7.Visible = True And O8.Visible = True And O9.Visible = True Then
MsgBox "Player O wins", vbOKOnly, "The End"
Timer2.Enabled = False
lösch
p2p = p2p + 1
Timer2.Enabled = True
End If

End Sub

Private Sub Timer3_Timer()
'Label Skor di Update
Label3.Caption = p1p
Label4.Caption = p2p
End Sub


vbgames6.homestead.com

Konsep Dasar Sistem Informasi Manajemen

A. Konsep Dasar Sistem
Kalau Anda membeli sebuah sepeda tetapi tidak dengan rodanya, maka sepeda itu tidak akan berfungsi, dengan kata lain sepeda tersebut tidak dapat dikatakan suatu sistem, karena masih ada komponennya yang kurang. Kalau Anda mempunyai sebuah jam tangan digital elektronik yang harganya sampai ratusan ribu rupiah dan mengalami kerusakan total sehingga tidak dapat diperbaiki, maka jam tersebut sudah tidak ada nilainya lagi, walaupun komponen-komponennya Anda jual sendiri-sendiri. Inilah mahalnya suatu sistem. Apakah sistem itu? Suatu sistem dapat didefenisikan sebagai suatu kesatuan yang terdiri dari dua atau lebih komponen atau subsistem yang berinteraksi untuk mencapai suatu tujuan. Suatu sistem dapat terdiri dari sistem-sistem bagian (subsystem). Misalnya, sistem komputer terdiri dari subsistem perangkat keras dan subsistem perangkat lunak. Masing-masing subsistem dapat terdiri dari subsistem-subsistem yang lebih kecil lagi atau terdiri dari komponen-komponen. Subsistem perangkat keras (hardware) dapat terdiri dari alat masukan, alat pemroses, alat keluaran dan simpanan luar. Subsistem-subsistem saling berinteraksi dan saling berhubungan membentuk satu kesatuan sehingga tujuan atau sasaran sistem tersebut dapat tercapai. Interaksi dari subsistem-subsistem sedemikian rupa, sehingga dicapai suatu kesatuan yang terpadu atau terintegrasi (integrated). Anda dapat membayangkan, bagaimana seandainya sistem komputer yang Anda miliki, masing-masing komponennya saling bekerja sendiri-sendiri tidak terintegrasi, maka tujuan dari sistem komputer tersebut tidak akan tercapai.

B. Konsep Dasar Informasi
Informasi ibarat darah yang mengalir di dalam tubuh suatu organisasi, sehingga informasi ini sangat penting di dalam suatu organisasi. Suatu sistem yang kurang mendapatkan informasi akan menjadi luruh. Keadaan dari sistem dalam hubungannya dengan keberakhirannya disebut dengan istilah entropy. Informasi yang berguna bagi sistem akan menghindari proses entropy tersebut yang disebut dengan negative entropy atau negentropy. Apakah sebenarnya informasi itu, sehingga sangat penting artinya bagi suatu sistem?Informasi dapat didefenisikan sebagai hasil dari pengolahan data dalam suatu bentuk yang lebih berguna dan lebih berarti bagi penerimanya yang menggambarkan suatu kejadian-kejadian (event) yang nyata (fact) yang digunakan untuk pengambilan keputusan.

C. Definisi Sistem Informasi Manajemen
Sistem informasi manajemen (manajement information system atau sering dikenal dengan singkatannya MIS) merupakan penerapan sistem informasi di dalam organisasi untuk mendukung informasi-informasi yang dibutuhkan oleh semua tingkatan manajemen. SIM (sistem informasi manajemen) dapat didefinisikan sebagai kumpulan dari interaksi sistem-sistem informasi yang bertanggung jawab mengumpulkan dan mengolah data untuk menyediakan informasi yang berguna untuk semua tingkatan manajemen di dalam kegiatan perencanaan dan pengendalian.

Charles Babbage

Mesin penghitung (Difference Engine no.1) yang ditemukan oleh Charles Babbage (1791-1871) adalah salah satu icon yang paling terkenal dalam sejarah perkembangan komputer dan merupakan kalkulator otomatis pertama. Babbage juga terkenal dengan julukan bapak komputer. The Charles Babbage Foundation memakai namanya untuk menghargai kontribusinya terhadap dunia komputer.

Charles Babbage lahir di daerah yang sekarang dikenal dengan nama Southwark, London, 26 Desember 1791, anak dari Benjamin Babbage, seorang Banker. Kelebihannya dalam matematika sangat menonjol. Saat memasuki Trinity College di Cambridge tahun 1811, dia mendapati bahwa kemampuan matematikanya jauh lebih baik, bahkan daripada tutornya sendiri.

Di usia 20 tahunan Babbage bekerja sebagai seorang ahli matematika terutama dibidang fungsi kalkulus. Tahun 1816, dia terpilih sebagai anggota "Royal Society" (organisasi sains dan akademis independen Inggris Raya, masih aktif hingga kini) dan memainkan peran penting di yayasan "Astronomical Society" (organisasi Astronomi dan geofisika Inggris raya, masih aktif hingga kini) pada tahun 1820. Pada masa ini Babbage mulai tertarik pada mesin hitung, yang berlanjut hingga akhir hayatnya.

Tahun 1821 Babbage menciptakan Difference Engine, sebuah mesin yang dapat menyusun Tabel Matematika. Saat melengkapi mesin tersebut di tahun 1832, Babbage mendapatkan ide tentang mesin yang lebih baik, yang akan mampu menyelesaikan tidak hanya satu jenis namun berbagai jenis operasi aritmatika. Mesin ini dinamakan Analytical Engine (1856), yang dimaksudkan sebagai mesin pemanipulasi simbol umum, serta mempunyai beberapa karakteristik dari komputer modern. Diantaranya adalah penggunaan punched card, sebuah unit memori untuk memasukkan angka, dan berbagai elemen dasar komputer lainnya.

Karya Babbage kurang begitu terkenal sampai suatu saat dia bertemu dengan Ada, Countess of Lovelace, anak dari Lord Byron. Babbage mula-mula bertemu ada di sebuah acara tanggal 6 Juni 1833. Sembilan tahun kemudian, Luigi Federico Manabrea (seorang insinyur dari Italia) menjelaskan cara kerja Analytical Engine. Karya ini kemudian diterjemahkan dan ditambahkan notes oleh Ada Lovelace di tahun 1843. Mulai dari saat itu orang mulai mengenal karya Charles Babbage.

Namun sayang, hanya sedikit sisa peninggalan dari prototipe mesin Difference Engine, dikarenakan kebutuhan mesin tersebut melebihi teknologi yang tersedia pada zaman itu. Dan walaupun pekerjaan Babbage dihargai oleh berbagai institusi sains, Pemerintah Inggris menghentikan sementara pendanaan untuk Difference Engine pada tahun 1832, dan akhirnya dihentikan seluruhnya tahun 1842. Demikian pula dengan Difference Engine yang hanya terwujudkan dalam rencana dan desain.

Tahun 1828 sampai 1839, Babbage medapat gelar the Lucasian chair of mathematics (gelar professor matematika paling bergengsi di dunia) dari Universitas Cambridge. Selain mesin hitung, Babbage juga memberikan berbagai kontribusi lain. Diantaranya menciptakan sistem pos modern di Inggris, menyusun table asuransi pertama yang dapat diandalkan, menemukan locomotive cowcather (struktur berbentuk segitiga di bagian depan kereta api, yang mampu membersihkan rel dari gangguan) dan beberapa lainnya. Selain itu Babbage juga menyumbangkan ide-idenya di bidang ekonomi dan politik.

Charles Babbage juga seorang ahli cryptanalysis yang berhasil memecahkan vigenere cipher (polyalphabet cipher). Kepandaiannya ini sebetulnya sudah dimilikinya sejak tahun 1854, setelah dia berhasil mengalahkan tantangan Thwaites untuk memecahkan ciphernya. Akan tetapi penemuannya ini tidak dia terbitkan sehingga baru ketahuan di abad 20 ketika para ahli memeriksa notes-notes (tulisan, catatan) Babbage.

Dibalik seluruh keberhasilannya, kegagalan dalam pembuatan mesin perhitungan dan kegagalan bantuan pemerintah kepadanya, meninggalkan Babbage dalam kecewaan dan kesedihan di akhir masa hidupnya. Babbage meninggal di rumahnya di London pada tanggal 18 Oktober 1871.

Sumber : IlmuKomputer.Com

Sejarah singkat bahasa Java

Bahasa pemrograman Java pertama lahir dari The Green Project, yang berjalan selama 18 bulan, dari awal tahun 1991 hingga musim panas 1992. Proyek tersebut belum menggunakan versi yang dinamakan Oak. Proyek ini dimotori oleh Patrick Naughton, Mike Sheridan, James Gosling dan Bill Joy, beserta sembilan pemrogram lainnya dari Sun Microsystems. Salah satu hasil proyek ini adalah maskot Duke yang dibuat oleh Joe Palrang.

Pertemuan proyek berlangsung di sebuah gedung perkantoran Sand Hill Road di Menlo Park. Sekitar musim panas 1992 proyek ini ditutup dengan menghasilkan sebuah program Java Oak pertama, yang ditujukan sebagai pengendali sebuah peralatan dengan teknologi layar sentuh (touch screen), seperti pada PDA sekarang ini. Teknologi baru ini dinamai "*7" (Star Seven).

Setelah era Star Seven selesai, sebuah anak perusahaan TV kabel tertarik ditambah beberapa orang dari proyek The Green Project. Mereka memusatkan kegiatannya pada sebuah ruangan kantor di 100 Hamilton Avenue, Palo Alto.

Perusahaan baru ini bertambah maju: jumlah karyawan meningkat dalam waktu singkat dari 13 menjadi 70 orang. Pada rentang waktu ini juga ditetapkan pemakaian Internet sebagai medium yang menjembatani kerja dan ide di antara mereka. Pada awal tahun 1990-an, Internet masih merupakan rintisan, yang dipakai hanya di kalangan akademisi dan militer.

Mereka menjadikan perambah (browser) Mosaic sebagai landasan awal untuk membuat perambah Java pertama yang dinamai Web Runner, terinsipirasi dari film 1980-an, Blade Runner. Pada perkembangan rilis pertama, Web Runner berganti nama menjadi Hot Java.

Pada sekitar bulan Maret 1995, untuk pertama kali kode sumber Java versi 1.0a2 dibuka. Kesuksesan mereka diikuti dengan untuk pemberitaan pertama kali pada surat kabar San Jose Mercury News pada tanggal 23 Mei 1995.

Sayang terjadi perpecahan di antara mereka suatu hari pada pukul 04.00 di sebuah ruangan hotel Sheraton Palace. Tiga dari pimpinan utama proyek, Eric Schmidt dan George Paolini dari Sun Microsystems bersama Marc Andreessen, membentuk Netscape.

Nama Oak, diambil dari pohon oak yang tumbuh di depan jendela ruangan kerja "bapak java", James Gosling. Nama Oak ini tidak dipakai untuk versi release Java karena sebuah perangkat lunak sudah terdaftar dengan merek dagang tersebut, sehingga diambil nama penggantinya menjadi "Java". Nama ini diambil dari kopi murni yang digiling langsung dari biji (kopi tubruk) kesukaan Gosling.

Sumber : id.wikipedia.org