Vb, Game Sederhana

Form 1:

Code:
Private Sub Command1_Click()
Form1.Show
End Sub

Form 2:

Code:
Private Sub Form_Load()
P1 = InputBox("Silahkan Masukkan Nama Kamu 'Player1'", "Masukkan Nama", "DewiSulis")
P2 = InputBox("Silahkan Masukkan Nama Kamu 'Player2'", "Masukkan Nama", "Tina")
Label5.Caption = P1 & " , Player 1"
Label6.Caption = P2 & " , Player 2"
Check1.Value = vbChecked
Label3.Caption = "0"
Label4.Caption = "0"
End Sub
Private Sub Cmd1_Click(Index As Integer)
If Check1.Value = vbChecked Then
cmd1(Index).Caption = "X"
Check1.Value = vbUnchecked
ElseIf Check1.Value = vbUnchecked Then
cmd1(Index).Caption = "Y"
Check1.Value = vbChecked
End If
If cmd1(0).Caption = "Y" And cmd1(1).Caption = "Y" And cmd1(2).Caption = "Y" Or cmd1(o).Caption = "X" And cmd1(1).Caption = "X" And cmd1(2).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(0).Caption = "Y" And cmd1(3).Caption = "Y" And cmd1(6).Caption = "Y" Or cmd1(0).Caption = "X" And cmd1(3).Caption = "X" And cmd1(6).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(0).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(8).Caption = "Y" Or cmd1(0).Caption = "X" And cmd1(4).Caption = "X" And cmd1(8).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(1).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(7).Caption = "Y" Or cmd1(1).Caption = "X" And cmd1(4).Caption = "X" And cmd1(7).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(3).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(5).Caption = "Y" Or cmd1(3).Caption = "X" And cmd1(4).Caption = "X" And cmd1(5).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(6).Caption = "Y" And cmd1(7).Caption = "Y" And cmd1(8).Caption = "Y" Or cmd1(6).Caption = "X" And cmd1(7).Caption = "X" And cmd1(8).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""


ElseIf cmd1(2).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(6).Caption = "Y" Or cmd1(2).Caption = "X" And cmd1(4).Caption = "X" And cmd1(6).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""

ElseIf cmd1(2).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(6).Caption = "Y" Or cmd1(2).Caption = "X" And cmd1(4).Caption = "X" And cmd1(6).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""

ElseIf cmd1(2).Caption = "Y" And cmd1(5).Caption = "Y" And cmd1(8).Caption = "Y" Or cmd1(2).Caption = "X" And cmd1(5).Caption = "X" And cmd1(8).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""

ElseIf cmd1(0).Caption = "Y" And cmd1(4).Caption = "Y" And cmd1(8).Caption = "Y" Or cmd1(0).Caption = "X" And cmd1(4).Caption = "X" And cmd1(8).Caption = "X" Then
MsgBox "You Won...!!!"
If Check1.Value = vbUnchecked Then
Label3.Caption = Label3.Caption + 1
Else
Label4.Caption = Label4.Caption + 1
End If
cmd1(0).Caption = ""
cmd1(1).Caption = ""
cmd1(2).Caption = ""
cmd1(3).Caption = ""
cmd1(4).Caption = ""
cmd1(5).Caption = ""
cmd1(6).Caption = ""
cmd1(7).Caption = ""
cmd1(8).Caption = ""
End If
If Label3.Caption >= 5 Or Label4.Caption >= 5 Then
MsgBox "Congratulation..!! You Won...", vbOKOnly
End If
End Sub
Private Sub berhenti_Click()
If MsgBox("Apakah Kamu Akan Berhenti Bermain game ini???") Then
End
End If
End Sub

Read More......

Travel Agency, Vb

Code:
Private Sub proses_Click()
Dim kd As String
kd = UCase(kdtiket.Text)
Select Case kd
Case "A11":
klstiket.Text = "VIP"
hrgtiket.Text = 1000000
Case "B12":
klstiket.Text = "ekonomi"
hrgtiket.Text = 500000
Case "C13":
klstiket.Text = "bisnis"
hrgtiket.Text = 300000
End Select

total.Text = jlhtiket.Text * hrgtiket.Text
If klstiket = "VIP" And total > 5000000 Then
diskon.Text = 10 / 100 * total.Text
Else
If klstiket = "ekonomi" And total > 3000000 Then
diskon.Text = 5 / 100 * total.Text
Else
diskon.Text = 0
End If
End If
bayar.Text = total.Text - diskon.Text
End Sub

Read More......

Simulasi Bahan Ajar, English For Childern

Code:
Private Sub cmdarti_Click()
If Text1 = "Tiger" Then
Text2 = "Harimau"
ElseIf Text1 = "Cow" Then
Text2 = "Sapi"
ElseIf Text1 = "Dog" Then
Text2 = "Anjing"
ElseIf Text1 = "Lion" Then
Text2 = "Singa"
ElseIf Text1 = "Pig" Then
Text2 = "Babi"
ElseIf Text1 = "Mosquito" Then
Text2 = "Nyamuk"
sound.URL = "D:\Teknik Pemrograman(tugas)\Nyamok.wav"
ElseIf Text1 = "Cock" Then
Text2 = "Ayam"
ElseIf Text1 = "Elephant" Then
Text2 = "Gajah"
ElseIf Text1 = "Cat" Then
Text2 = "Kucing"
sound.URL = "D:\Teknik Pemrograman(tugas)\Cat Baby Sms.wav"
ElseIf Text1 = "Goat" Then
Text2 = "Kambing"
sound.URL = "D:\Teknik Pemrograman(tugas)\Kambing.wav"
ElseIf Text1 = "Duck" Then
Text2 = "bebek"
ElseIf Text1 = "Monkey" Then
Text2 = "Monyet"
End If
End Sub

Private Sub List1_Click()
If List1 = "1. Cow" Then
Text4 = "Sapi"
ElseIf List1 = "2. Cat" Then
Text4 = "Kucing"
ElseIf List1 = "3. Dog" Then
Text4 = "Anjing"
ElseIf List1 = "4. Pig" Then
Text4 = "Babi"
ElseIf List1 = "5. Mosquito" Then
Text4 = "Nyamuk"
ElseIf List1 = "6. Duck" Then
Text4 = "Bebek"
ElseIf List1 = "7. Goat" Then
Text4 = "Kambing"
ElseIf List1 = "8. Lion" Then
Text4 = "Singa"
ElseIf List1 = "9. Elephant" Then
Text4 = "Gajah"
ElseIf List1 = "10. Cock" Then
Text4 = "Ayam"
ElseIf List1 = "11. Tiger" Then
Text4 = "Harimau"
ElseIf List1 = "12. Monkey" Then
Text4 = "Monyet"
End If
End Sub


Private Sub cmdtiger_Click()
Picture1 = harimau
If harimau Then
Text3 = "Harimau"
End If
End Sub
Private Sub cmdcock_Click()
Picture1 = ayam
If ayam Then
Text3 = "Ayam"
End If
End Sub
Private Sub cmdcow_Click()
Picture1 = sapi
If sapi Then
Text3 = "Sapi"
End If
End Sub
Private Sub cmdlion_Click()
Picture1 = singa
If singa Then
Text3 = "Singa"
End If
End Sub
Private Sub cmddog_Click()
Picture1 = anjing
If anjing Then
Text3 = "Anjing"
End If
End Sub
Private Sub cmdduck_Click()
Picture1 = bebek
If bebek Then
Text3 = "Bebek"
End If
End Sub
Private Sub cmdgoat_Click()
Picture1 = kambing
If kambing Then
Text3 = "Kambing"
End If
End Sub
Private Sub cmdmosquito_Click()
Picture1 = nyamuk
If nyamuk Then
Text3 = "Nyamuk"
End If
End Sub
Private Sub cmdmonkey_Click()
Picture1 = monyet
If monyet Then
Text3 = "Monyet"
End If
End Sub
Private Sub cmdpig_Click()
Picture1 = babi
If babi Then
Text3 = "Babi"
End If
End Sub
Private Sub cmdcat_Click()
Picture1 = kucing
If kucing Then
Text3 = "Kucing"
End If
End Sub
Private Sub cmdelephant_Click()
Picture1 = gajah
If gajah Then
Text3 = "Gajah"
End If
End Sub
Private Sub harimau_Click()
If harimau Then
Text1 = "Tiger"
Text2.Text = ""
End If
End Sub
Private Sub sapi_Click()
If sapi Then
Text1 = "Cow"
Text2.Text = ""
End If
End Sub
Private Sub nyamuk_Click()
If nyamuk Then
Text1 = "Mosquito"
Text2.Text = ""
End If
End Sub
Private Sub babi_Click()
If babi Then
Text1 = "Pig"
Text2.Text = ""
End If
End Sub
Private Sub gajah_Click()
If gajah Then
Text1 = "Elephant"
Text2.Text = ""
End If
End Sub
Private Sub ayam_Click()
If ayam Then
Text1 = "Cock"
Text2.Text = ""
End If
End Sub
Private Sub singa_Click()
If singa Then
Text1 = "Lion"
Text2.Text = ""
End If
End Sub
Private Sub kucing_Click()
If kucing Then
Text1 = "Cat"
Text2.Text = ""
End If
End Sub
Private Sub kambing_Click()
If kambing Then
Text1 = "Goat"
Text2.Text = ""
End If
End Sub
Private Sub bebek_Click()
If bebek Then
Text1 = "Duck"
Text2.Text = ""
End If
End Sub
Private Sub monyet_Click()
If monyet Then
Text1 = "Monkey"
Text2.Text = ""
End If
End Sub
Private Sub anjing_Click()
If anjing Then
Text1 = "Dog"
Text2.Text = ""
End If
End Sub
Private Sub cmdexit_Click()
End
End Sub

Read More......

Analisis Deret Berkala

Deret berkala atau runtut waktu adalah serangkaian pengamatan terhadap peristiwa, kejadian atau variabel yang diambil dari waktu ke waktu, dicatat secara teliti menurut urut-urutan waktu terjadinya, kemudian disusun sebagai data statistik.
Dari suatu rutut waktu akan dapat diketahui pola perkembangan suatu peristiwa, kejadian atau variabel. Jika perkembangan suatu peristiwa mengikuti suatu pola yang teratur, maka berdasarkan pola perkembangan tersebut akan dapat diramalkan peristiwa yang bakal terjadi dimasa yang akan datang.Jika nilai variabel atau besarnya gejala (peristiwa) dalam runtut waktu (serangkaian waktu) diberi simbol Y1, Y2, ..Yn dan waktu-waktu pencatatan nilai variabel (peristiwa) diberi simbol X1, X­2, ..Xn maka rutut waktu dari nilai variabel Y dapat ditunjukan oleh persamaan Y = f (X) yaitu besarnya nilai variabel Y tergantung pada waktu terjadinya peristiwa itu.

Penggolongan Gerakan-Gerakan Runtut Waktu
Pola gerakan runtut waktu atau deret berkala dapat dikelompokan kedalam 4 (empat) pola pokok.
Pola ini bisanya disebut sebagai komponen dari deret berkala (runtut waktu). Empat komponen:
1. Gerakan trend jangka panjang atau long term movements or seculer trend (T), yaitu suatu gerakan yang menunjukan arah perkembangan secara umum (kecenderungan menaik atau menurun) dan bertahan dalam jangka waktu yang digunakan sebagai ukuran adalah 10 tahun ke atas.
2. Gerakan siklis atau cyclical movements or variation adalah gerakan/variasi jangka panjang disekitar garis trend.
3. Gerakan/variasi musim atau seasonal movements or variation adalah gerakan yang berayun naik dan turun, secara periodik disekitar garis trend dan memiliki waktu gerak yang kurang dari 1 (satu) tahun, dapat dalam kwartal, minggu atau hari.
4. Gerakan variasi yang tidak teratur (irregular or random movements) yaitu gerakan atau variasi yang sporadis sifatnya. Faktor yang dominan dalam gerakan ini adalah faktor-faktor yang bersifat kebetulan misalnya perang, pemogokan, bencana alam dll.
Berdasarkan model klasik, nilai deret berkala atau time series (Y) merupakan gabungan perkalian dari nilai-nilai komponennya, dan dapat dinyatakan dalam persamaan berikut :
Y = T x C x S x I
Jadi suatu data runtut waktu merupakan hasil kali dari 4 komponen yaitu “trend (T), cyclus (C), seasonal (S) dan irregular (I).

Trend Sekuler
Perkembangan suatu kejadian, gejala atau variabel yang mengikuti “gerakan trend sekuler” dapat disajikan dalam bentuk :
1. Persamaan trend, baik persamaan linear maupun persamaan non linear.
2. Gambar/grafik yang dikenal dengan garis/kurva trend, baik garis lurus maupun lengkung.
Trend Linear
Penentuan persamaan dan garis “trend linear” dapat dilakukan dengan metode-metode berikut :
1. Metoda tangan bebas (freehand method)
2. Metoda setengah rata-rata (semi average method)
3. Metoda matematis
4. Metoda kuadrat terkecil (least square method)
Metoda Tangan Bebas
Penentuan garis linear secara bebas adalah penentuan garias linear yang dilakukan tanpa menggunakan rumus matematis, dan garis trend yang dibuat secara bebas demikian ini sangat subyektif dan kurang memenuhi persyaratan ilmiah, sehingga jarang sekali digunakan.
Metode Setengah Rata-Rata (Semi Average)
1. Jumlah data genap dan komponen kelompok genap
Untuk mencari nilai trend data genap dan komponen kelompok genap dapat diikuti prosedur berikut ini :
Caranya adalah sebagai berikut :
1. Data deret berkala dalam tabel 1, dibagi menjadi 2 kelompok yang sama.
2. Nilai-nilai pada masing-masing kelompok dijumlahkan untuk mendapatkan “semi total”.
3. Menghitung nilai “setengah rata-rata” tiap kelompok dengan jalan mencari rata-rata hitungnya.
“Nilai trend linear” untuk tahun-tahun tertentu dapat dirumuskan, sebagai berikut : Y’ = a + bx
Jumlah data genap dan komponen kelompok ganjil
Cara mencari nilai trend untuk jumlah data genap dan komponen kelompok ganjil adalah : Data deret berkala dalam tabel 1 dibagi menjadi 2 kelompok dengan jumlah komponen yang gajil bagi tiap kelompok.
Jumlah nilai deret berkala jumlah yang ganjil
Untuk mencari trend bagi jumlah data yang ganjil maka pengelompokan datanya dapat dilakukan dengan dua cara :
1.Data yang berada pada urutan tengah dimasukan pada masing-masing kelompok, jadi data tersebut digunakan 2 kali.
Sedangkan “semi total” dan setengah “rata-ratanya” cara menghitungnya tidak berbeda dengan cara menghitung untuk kasus jumlah data genap dan komponen kelompok ganjil.
2.Data yang berada pada urutan tengah dapat diabaikan, sehingga kelompok data yang “pertama” adalah data yang berada sebelumnya dan kelompok data yang “kedua” adalah data yang berada sesudahnya.

Read More......