THE IFD TWENTY

KONSEP
Aplikasi ini berfungsi sebagai mesin penghitung selisih tanggal dalam satuan tahun, bulan, minggu dan haari.
Untuk menggunakan aplikasi penghitungan selisih ini, sebelumnya kita harus menginputkan tanggal awal dan tanggal akhir yang ingin dihitung selisihnya.
Setelah tanggal awal dan akhir di input, perhitungan selisih dapat dilakukan dengan menekan tombol hitung sehingga akan muncul selisih tahun, bulan, minggu, dan hari. Selain itu akan muncul juga Selisih tanggal tersebut secara total yang menunjukkan selisih x tahun yang lebihnya diinterpretasikan dalam x bulan dan x hari.
Untuk melakukan input dengan tanggal yang berbeda, dapat dilakukan dengan memencet tombol refresh terlebih dahulu kemudian input ulang tanggal awal dan akhir.

TUTORIAL

Berikut merupakan contoh form design penghitungan selisih tanggal yang dibuat menggunakan vb:

Dibawah ini merupakan langkah-langkah pembuatannya menggunakan visual basic 2010:

Buka Visual Basic 2010 >> New Project >> Windows Forms Application >> OK.
Buat desain seperti gambar dengan memasukkan komponen button, listbox, dan label dalam form 1 design. Dan buat komponen button, date time picker, textbox dan label dalam form 1 design
Pada form 1 tulis listing sebagai berikut :

Public Class Form1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim date1 As Date

Dim date2 As Date

date1 = Convert.ToDateTime(DateTimePicker1.Value)

date2 = Convert.ToDateTime(DateTimePicker2.Value)

TextBox4.Text = DateDiff("d", date1, date2)

TextBox3.Text = DateDiff("w", date1, date2)

TextBox2.Text = DateDiff("m", date1, date2)

TextBox1.Text = DateDiff("yyyy", date1, date2)

TextBox5.Text = DateDiff("yyyy", date1, date2)

TextBox6.Text = TextBox2.Text Mod 12

TextBox7.Text = TextBox4.Text Mod 30

Keterangan : ketika button 3 (hitung) diclick, maka pada textbox 1,2,3,4 akan muncul selisih tahun, bulan, minggu, dan hari. Dan pada textbox 5,6,7 akan muncul total selisih tanggal yang diinputkan pada date time picker 1 dan 2

TextBox5.Visible = True

TextBox6.Visible = True

TextBox7.Visible = True

Label6.Visible = True

Label14.Visible = True

Label16.Visible = True

End Sub

Keterangan : ketika button 3 (hitung) diclick, maka pada textbox 5,6,7 baru akan muncul pada form.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

Label6.Visible = False

Label14.Visible = False

Label16.Visible = False

End Sub

Keterangan : ketika button 1 (refresh) diclick, maka text pada textbox 1,2,3,4,5,6,7 yang merupakan selisih tahun, bulan, minggu, dan hari akan hilang dan total selisih tanggal juga akan tersembunyi

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

Keterangan : ketika button 2 diclick, maka akan keluar dari aplikasi

4. Jika semua listing code sudah diisikan, tekan F5 untuk menjalankan program kasir. Jika terjadi error, mungkin ada kesalahan dalam memasukkan listing code.
5. File > Save All, untuk menyimpan program secara keseluruhan.

KONSEP GAME “GET YOR 999!”

Pada game “GET YOUR 999!” ini konsepnya sama dengan permaina jackpot dengan mengacak angka untuk mendapatkan angka yang sama. Pada game ini, anda dinyatakan berhasil apabila mendapatkan minimal 2 buah angka yang kembar. Dan akan menang apabila berhasil mendapatkan angka “999” . anda memiliki 10 kesempatan untuk mengacak angka. Apabila lebih dari itu anda belum mendapatkan angka “999” anda dinyatakan kalah

Flowchart

TUTORIAL VISUAL BASIC MEMBUAT GAME

Berikut merupakan contoh form design game yang dibuat menggunakan vb:

Form 1

Form 2

Form 3

Dibawah ini merupakan langkah-langkah pembuatannya menggunakan visual basic 2010:

Buka Visual Basic 2010 >> New Project >> Windows Forms Application >> OK.
Buat desain seperti gambar dengan memasukkan komponen button, listbox, dan label dalam form 1 design. Dan buat komponen button, timer, textbox dan label dalam form 1 design
Pada form 1 tulis listing sebagai berikut :

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Form2.Show()

Me.Hide()

End Sub

Keterangan :

Pada button1 “PLAY” apabila di click, akan muncul form 2 dan form 1 akan tersembunyi

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dialog1.Show()

Me.Hide()

End Sub

End Class

Keterangan :

Pada button1 “EXIT” apabila di click, akan muncul dialog sebagai berikut :

Pada form 2 tulis listing sebagai berikut :

Public Class Form2

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = Int(Rnd() * 10)

Label2.Text = Int(Rnd() * 10)

Label3.Text = Int(Rnd() * 10)

End Sub

Keterangan :

Pada timer ditulis listing seperti diatas sehingga pada label 1,2,3 akan muncul angka secara random dari 1-10

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

Label1.Text = ""

Label2.Text = ""

Label3.Text = ""

End Sub

Keterangan :

Pada button1 (ROLL) apabila di click, timer 1 akan berfungsi dan angka pada label 1,2,3 akan berputar secara acak

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim a As Integer

Timer1.Enabled = False

a = Label1.Text & Label2.Text & Label3.Text

TextBox3.Text = a

If Label1.Text = 1 And Label2.Text = 1 And Label3.Text = 1 Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

ElseIf (Label1.Text = 2 And Label2.Text = 2 And Label3.Text = 2) Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

ElseIf (Label1.Text = 3 And Label2.Text = 3 And Label3.Text = 3) Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

ElseIf (Label1.Text = 4 And Label2.Text = 4 And Label3.Text = 4) Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

ElseIf (Label1.Text = 5 And Label2.Text = 5 And Label3.Text = 5) Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

Keterangan :

Menunjukkan apabila pada label 1,2,3 muncul 3 buah angka yang sama akanm muncul message box “selamat anda memenangkan 3 angka yang sama”

ElseIf Label1.Text = 1 And Label2.Text = 1 Then