Aplikasi Permainan Kepribadian Berdasarkan Zodiak

PENGANTAR KOMPUTER DAN 

TEKNOLOGI INFORMASI 2B

Program Sederhana Aplikasi Permainan Kepribadian
Berdasarkan Zodiak Sebagai Implentasi
Select Case Pada Visual Basic 6.0

Disusun Oleh:

Muhammad Ardillah 24219030
Kelas       1EB01

Sebagai Pengumpulan Quiz melalui 

V-Class / Pembelajaran Jarak Jauh 

Dosen

Bu Wahyu Supriyatin

Fakultas Ekonomi

Jurusan Akuntansi

Universitas Gunadarma

Langkah – Langkah Membuat Aplikasi

Pada Visual Basic 6.0

       1. Buka aplikasi Visual Basic 6.0 lalu pilih Standard EXE seperti gambar di bawah ini. Lalu Klik Open 

          2. Setelah terbuka seperti ini gambar di bawah ini. Berikut Merupakan                      Tampilan Awal Visual Basic.

          3. Selanjutnya, Dalam Membuat Aplikasi Tersebut kita membutuhkan                       komponen yang dibutuhkan, yaitu ; 3 Label, 4 Command Button,1 Text                 Box dan 1 Combo Box, yang berada di  Sebelah kiri (ToolBox) dapat                       dilakukan dengan click komponen tersebut, kemudian drag atau tarik                    pada posisi yang benar pada form.

      4. Lalu Desain & Letakkan Komponen – Komponen sesuai Kebutuhan                        seperti di bawah ini.

  5. Lalu Atur Desain Form Pada Tabel dibawah ini, Pengaturan dilakukan                    dalam jendela properties.

Object	Property	Value
Form 1	Caption	What Is Your Zodiac Personality ?
Label 1	Aligment BorderStyle Caption Font ( Font Style, Size )	2 – Center 1 – Fixed Single know your personality based on zodiac sign Comic Sans MS, Bold, 14
Label 2	Caption Font ( Font Style, Size )	Write Your Name Below Cooper Black, Black, 12
Label 3	Caption Font ( Font Style, Size )	Choose Your Zodiac Below Cooper Black, Black, 12
Command1	Caption	Result
Command2	Caption	Clear
Command3	Caption	Exit
Command4	Caption	Information
Text1	Text Name Font ( Font Style, Size )	- TXTNAME Times New Roman, Bold, 12
Combo Box	Text Font ( Font Style, Size )	- Comic Sans MS, Bold, 12

6. Setelah pengaturan properties dilakukan , Selanjutnya membuat kode                 program. Kode ini sangat penting karena program bisa berjalan atau tidak          ditentukan oleh kode ini. Pada pembuatan kode harus teliti dalam                           membuatnya

• Klik tombol View Code pada Window Project atau Klik 2 pada Background Form (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event Form.

        Ketik Program Sebagai Berikut :

        

        Private Sub Form_Load()

        Dim Nama As String

        Combo1.AddItem " -None-"

        Combo1.AddItem "Aries"

        Combo1.AddItem "Taurus"

        Combo1.AddItem "Gemini"

        Combo1.AddItem "Cancer"

        Combo1.AddItem "Leo"

        Combo1.AddItem "Virgo"

        Combo1.AddItem "Libra"

        Combo1.AddItem "Scorpio"

        Combo1.AddItem "Sagittarius"

        Combo1.AddItem "Capricorn"

        Combo1.AddItem "Aquarius"

        Combo1.AddItem "Pisces"

        End Sub

      Penjelasan Program Pada Blok Pertama ini adalah, Ketika aplikasi dijalankan (tekan F5) maka secara langsung akan ditambahkan beberapa item pada object Combo1 yaitu daftar nama - nama Zodiak serta Mendeklarasikan Nama Sebagai String

• Click pada command1 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command1_click, Lalu Ketikkan Program berikut

       Private Sub Command1_Click()

       Nama = (TXTNAME.Text)

       Select Case Combo1

            Case "Aries"

                MsgBox Nama & " Zodiac is Aries" & vbNewLine & vbNewLine & "Aries                  are action people, born to initiate and lead. This makes for an exciting                  and dynamic personality. Their main strength is their courage to face                  life's challenges head on, and ability to inspire others. Their main                          weakness is impatience and a strong desire to get their own way,                          which can manifest as occasional bossiness or temper issues.",                                vbInformation, "Your Personality"

           Case "Taurus"

                MsgBox Nama & " Zodiac is Taurus" & vbNewLine & vbNewLine & "                        This Personality is known for being practical, sensual and reliable. In                    many ways the perfect combination for those looking for a partner.                      They tend to enjoy the home, be good with money and be highly                            protective of their loved ones (making them excellent parents too!)                        Generally easy going and respectful people they can be very stubborn                  and surprisingly volatile if provoked (an angry Taurus is never a good                    thing!) Generally they are introverted and prefer a small circle of                          close friends to large social gatherings. They typically respect                                tradition and prefer routines, structure and planning to chaos and                        last minute surprises.", vbInformation, "Your Personality"

          Case "Gemini"

               MsgBox Nama & " Zodiac is Gemini" & vbNewLine & vbNewLine &                         "Gemini's are excellent communicators, known for their fast, clever                        and curious minds, thirst for knowledge and desire to share it with                      others. They tend to be highly enthusiastic, impulsive and objective.                      On the negative side they tend to be criticized for being                                          unemotional, superficial and indecisive.", vbInformation, "Your                                Personality"

          Case "Cancer"

               MsgBox Nama & " Zodiac is Cancer" & vbNewLine & vbNewLine &                         "Cancer is one of the hardest signs to understand due to having many                   contradictions. Cancer people tend to be unpredictable, fragile and                       complex. At times they can be very forceful and dynamic, and at other                 times they can be very emotionally dependant. This can be seen as the                 perfect balance of give and take, or it can be seen as very confusing!                     One thing which makes this challenging for a partner is the Cancer                       reluctance to share their feelings, which are often highly volatile. Due                   to this they are often seen as being moody, irritable, temperamental                     or prickly - often at the times when they most need encouragement                     and support.", vbInformation, "Your Personality"

         Case "Leo"

              MsgBox Nama & " Zodiac is Leo" & vbNewLine & vbNewLine & "In many ways Leos are the children of the zodiac. Fun, adventurous, genuine, generous and highly charismatic they like to be larger than life and enjoy showing off, being admired, praised and appreciated. Very playful and competitive they like to be the best in whatever they do. Outwardly their egos tend to appear to be immune to criticism, while inwardly they are sensitive to criticism from those they respect or care about.", vbInformation, "Your Personality"

    Case "Virgo"

        MsgBox Nama & " Zodiac is Virgo" & vbNewLine & vbNewLine & "Virgo is the perfectionist of the zodiac, typically professional (outwardly calm, reserved and precise) while seeking to improve any process that they are involved in. If a Virgo sets out to do something they typically don't rest until it's done very (very!) well." & vbNewLine & vbNewLine & "Virgos like details, facts, lists, organization (bringing order from chaos). They are objective, intelligent, refined and quick witted. In relationships their serious and subtle demeanor often makes them tantalizingly sexy and provocative. Virgos enjoy mental stimulation and while outwardly calm they are typically always inwardly active and often have trouble relaxing. The Virgo need for perfection often extends to a need for efficiency. This can manifest in all life areas such as being frugal (efficient with money) and preferring 'productive' (efficient with time) leisure activities.", vbInformation, "Your Personality"

    Case "Libra"

        MsgBox Nama & " Zodiac is Libra" & vbNewLine & vbNewLine & "This Personality is amongst the most socially skilled in the zodiac. Natural diplomats they excel at seeing another's point of view in order to control or collaborate with them. Known for being highly attractive they are generally the most elegant and sophisticated of all the signs. They tend to be idealistic and peaceful people who are easy going and rarely feel that fighting or arguments are the best solution to a problem.", vbInformation, "Your Personality"

    Case "Scorpio"

        MsgBox Nama & " Zodiac is Scorpio" & vbNewLine & vbNewLine & "Scorpios are intense and mysterious (complex and private). This combination is usually seen as either sexy or scary, depending on your viewpoint. Known for being slow to trust and generally suspicious Scorpios respect honesty, and are the most observant sign rarely missing or forgetting any detail of a conversation or situation. They rarely forget any kindness, selfless act or wrong which is done to them. Scorpios are often attracted to the darker side of life (mysteries, the occult, criminology, paranormal etc).", vbInformation, "Your Personality"

    Case "Sagittarius"

        MsgBox Nama & " Zodiac is Sagittarius" & vbNewLine & vbNewLine & "Sagittarius is a fun and exciting sign. The explorer and philosopher of the zodiac, they are typically interested in new experiences, new knowledge and new places. Very spontaneous people they tend to dislike anything which restricts their freedom to learn and grow and often are the most courageous sign when it comes to relying on luck in any endeavor.", vbInformation, "Your Personality"

    Case "Capricorn"

        MsgBox Nama & " Zodiac is Capricorn" & vbNewLine & vbNewLine & "Capricorns are the planners and strategists of the zodiac. They like to plan and rehearse everything in advance and as a result they typically excel at anything they turn their mind to. They tend to be highly practical people who like structure, organization, tradition and stability.", vbInformation, "Your Personality"

    Case "Aquaris"

        MsgBox Nama & " Zodiac is Aquaris" & vbNewLine & vbNewLine & "Aquarius people are the visionaries of the zodiac. They tend to be unconventional and progressive thinkers with lots of good ideas. Typically they are big picture people and tend to dislike details. Rebels at heart they are respectful of others opinions and place a very high value on intellectual stimulation, debate (they tend to be very skilled at expressing themselves) and discovering new things. To attract an Aquarius you need to start with their mind.", vbInformation, "Your Personality"

    Case "Pisces"

        MsgBox Nama & " Zodiac is Pisces" & vbNewLine & vbNewLine & "Pisces are the dreamers of the zodiac. Caring and sympathetic they typically enjoy helping others and dislike confrontation. Highly empathetic and intuitive they can often read people on a level that appears almost psychic. Very empathetic they react strongly to the moods of others, often assuming those same moods themselves. Amongst the most creative of all the signs they often excel at everything from art to business, though motivation and inspiration is typically a key ingredient in this process and can be easily dampened by the realities of modern life. Due to this they're the sign which is most prone to depression, dependency and escapism.", vbInformation, "Your Personality"

    Case Else

        MsgBox "You Have to Choose Your Zodiac", vbExclamation, "Warning!!"

End Select

End Sub

Pada blok program kedua ini digunakan struktur kontrol SELECT yang digunakan untuk melakukan pemilihan nama - nama Zodiak. Jika yang dipilih adalah "Capricorn  maka Pesan Dialog Informasi akan memunculkan isi dari Kepribadian Capricorn "Capricorns are the planners and strategists of the zodiac....who they let their guard down with. "begitu juga dengan Nama - nama Zodiak  yang lainnya. Namun, Jika tidak memilih nama - nama Zodiak, Maka Pesan Dialog Warning yang akan Keluar ,"You Have to Choose Your Zodiac". Dimana Pesan Dialog Warning tersebut memberitahu bahwa Harus memilih nama - nama salah  satu Zodiak tsb.

• Click pada command2 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command2_click, Lalu Ketikkan Program berikut

        Private Sub Command2_Click()

        TXTNAME.Text = " "

        Combo1.Text = " "

        End Sub

Pada blok program ketiga ini digunakan Untuk Menghapus / Merefresh ulang Data yang ada.

• Click pada command3 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command2_click, Lalu Ketikkan Program berikut

       Private Sub Command3_Click()

       End

       End Sub

Pada blok program keempat ini digunakan Untuk keluar dari Aplikasi.

• Click pada command3 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command2_click, Lalu Ketikkan Program berikut

       Private Sub Command4_Click()

              MsgBox "Zodiac signs are Birth signs In Astrology which can determine the personality and qualities of a person based on the date and time of his birth" & vbNewLine & vbNewLine & "The Zodiac Sign Dates of Birth:" & vbNewLine & vbNewLine & "Aries: March 21 - April 19" & vbNewLine & "Taurus: April 20- May 20" & vbNewLine & "Gemini: May 21 - June 20" & vbNewLine & "Cancer: June 21 - July 22" & vbNewLine & "Leo: July 23 - August 22" & vbNewLine & "Virgo: August 23 - September 22" & vbNewLine & "Libra: September 23 - October 22" & vbNewLine & "Scorpio: October 23 - November 21" & vbNewLine & "Sagittarius: November 22 - December 21" & vbNewLine & "Capricorn: December 22 - January 19" & vbNewLine & "Aquarius: January 20 - February 18" & vbNewLine & "Pisces: February 19 - March 20", vbInformation, "Information"

End Sub

Pada blok program kelimat ini digunakan Untuk memunculkan Pesan Dialog Box Informasi,yang memunculkan Informasi Mengenai Apa itu Zodiak? Serta Tanggal & Bulan Zodiak

Project sudah selesai, untuk menjalankan tekan F5. Cobalah untuk mengisi Aplikasi Permainan Tersebut, Bila hasilnya benar maka project aplikasi dikatakan benar. Untuk menyimpan project pilih menu [File] >> [Save Project]   Pilih Folder mana untuk menyimpan file, sebaiknya simpan  di default  folder visual basic. Isikan nama file dengan Zodiac Personality Game.frm untuk form lalu tekan [Save]. Setelah itu muncul jendela yang sama untuk project, isikan nama project dengan Zodiac Personality Game.vbp dan tekan [Save].

 Cara Kerja Program & Uji Coba Aplikasi

Penulis Membuat Program Sederhana Aplikasi Permainan Kepribadian Berdasarkan Zodiak, Sebagai Implentasi Select Case pada Visual Basic 6.0. Select Case Digunakan untuk menjalankan satu block perintah yang jumlahnya banyak dan bertingkat. Struktur ini mirip dengan struktur if then else, tetapi penulisannya lebih mudah  sehingga lebih efisien dan mudah dibaca programnya. Dimana Pada Select Case jika salah satu sudah terpenuhi  dan blok program sudah diproses, selanjutnya blok program yang lainnya dalam lingkungan select case tidak akan di seleksi lagi.

Penulis Membuat Aplikasi Menggunakan Bahasa Inggris Agar terlihat Menarik. Di Aplikasi ini Memungkinkan User Untuk Mengetahui Kepribadiannya Berdasarkan Zodiak, Jika User tidak Mengetahui Zodiak yang di milikinya, di Aplikasi ini Terdapat Tombol Informasi yang Menginformasikan Mengenai Apa itu Zodiak? Serta Tanggal & Bulan Lahir Zodiak. 

Disini Penulis akan Menguji Coba Aplikasi Permainan Kepribadian Berdasarkan Zodiak Sebagai Berikut :

1. Buka Aplikasi Permainan Kepribadian Berdasarkan Zodiak 
2. Lalu, Ketikkan nama lengkap user,
3. Kemudian, User bias memilih Zodiak pada Combo Box.
4.  Jika user tidak mengetahui Zodiak yang dimilikinya. Maka User bias Mengklik Tombol Information disebelah Combo Box Zodiak. Berikut akan menampilkan Informasi yang user butuhkan
5. Terakhir, Klik Tombol Result.
6. Maka Aplikasi akan Menampilkan Hasil berupa Pesan Dialog Box Informasi yang Menampilkan Kepribadian Zodiak User tsb.
7. Jika User ingin mengganti Zodiak nya, user cukup klik tombol Clear. Maka Semuanya akan terhapus
8. Jika User telah selesai menggunakan Aplikasi, User cukup klik tombol Exit. Maka User Akan keluar dari Aplikasi

Berikut Saya Lampirkan File Exe yang Telah di Publish: 

http://www.mediafire.com/file/nw5rxxq0j1df85h/Zodiac_Personality_Game.exe/file