contoh program menu sederhana

alghifaris bagaskara 10114833

marianus pralambang 16114393

Program menu makanan

Private Sub Command1_Click()\\ MAKANAN

Form1.Hide        \\ Menutup Form1

Form2.Show      \\ Membuka Form2

End Sub

Private Sub Command2_Click()\\MINUMAN

Form1.Hide        \\ Menutup Form1

Form3.Show      \\ Membuka Form3

End Sub

Private Sub Command1_Click()\\ORDER

Text6.Text = (Val(Text1.Text) * 4000) + (Val(Text2.Text) * 2000) + (Val(Text3.Text) * 3000) + (Val(Text4.Text) * 13000) + (Val(Text5.Text) * 14000) \\ Program Aritmatik

End Sub

Private Sub Command2_Click()\\MINUMAN

Form2.Hide        \\ Menutup Form2

Form3.Show      \\ Membuka Form3

End Sub

Private Sub Command3_Click()\\MENU

Form2.Hide \\ Menutup Form2

Form1.Show \\ Membuka Form 1

Text1.Text = " " \\ Mengosongkan text

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

End Sub

Private Sub Command4_Click()\\TOTAL

Form2.Hide

Form4.Show

Text6.Text = (Val(Text1.Text) * 4000) + (Val(Text2.Text) * 2000) + (Val(Text3.Text) * 3000) + (Val(Text4.Text) * 13000) + (Val(Text5.Text) * 14000) // Program Aritmatik

Form4.Label1.Caption = "Nasi Putih = " & (Val(Form2.Text1.Text) * 4000) & vbNewLine & "Tahu         = " & (Val(Form2.Text2.Text) * 2000) & vbNewLine & "Tempe      = " & (Val(Form2.Text3.Text) * 3000) & vbNewLine & "Ayam         = " & (Val(Form2.Text4.Text) * 13000) & vbNewLine & "Bebek       = " & (Val(Form2.Text5.Text) * 14000)  // Program Aritmatik

Form4.Label2.Caption = "Aqua            = " & (Val(Form3.Text1.Text) * 3000) & vbNewLine & "Es Teh         = " & (Val(Form3.Text2.Text) * 4000) & vbNewLine & "Es Jeruk       = " & (Val(Form3.Text3.Text) * 8000) & vbNewLine & "Teh Anget    = " & (Val(Form3.Text4.Text) * 3000) & vbNewLine & "Jeruk Anget  = " & (Val(Form3.Text5.Text) * 7000) // Program Aritmatik

Form4.Text1.Text = Val(Form2.Text6.Text) + Val(Form3.Text6.Text) // Program Aritmatik

End Sub

Private Sub Command1_Click()\\ORDER

Text6.Text = (Val(Text1.Text) * 3000) + (Val(Text2.Text) * 4000) + (Val(Text3.Text) * 8000) + (Val(Text4.Text) * 3000) + (Val(Text5.Text) * 7000) // Program Aritmatik

End Sub

Private Sub Command2_Click()\\MAKANAN

Form3.Hide \\ Menutup Form3

Form2.Show \\ Membuka Form2

End Sub

Private Sub Command3_Click()\\MENU

Form3.Hide \\ Menutup Form3

Form1.Show \\ Membuka form1

Text1.Text = " " \\ Mengosongkan text

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

End Sub

Private Sub Command4_Click()\\TOTAL

Form3.Hide \\ Menutup Form3

Form4.Show \\ Membuka Form4

Text6.Text = (Val(Text1.Text) * 3000) + (Val(Text2.Text) * 4000) + (Val(Text3.Text) * 8000) + (Val(Text4.Text) * 3000) + (Val(Text5.Text) * 7000) // Program Aritmatik

Form4.Label1.Caption = "Nasi Putih = " & (Val(Form2.Text1.Text) * 4000) & vbNewLine & "Tahu         = " & (Val(Form2.Text2.Text) * 2000) & vbNewLine & "Tempe      = " & (Val(Form2.Text3.Text) * 3000) & vbNewLine & "Ayam         = " & (Val(Form2.Text4.Text) * 13000) & vbNewLine & "Bebek       = " & (Val(Form2.Text5.Text) * 14000) // Program Aritmatik

Form4.Label2.Caption = "Aqua            = " & (Val(Form3.Text1.Text) * 3000) & vbNewLine & "Es Teh         = " & (Val(Form3.Text2.Text) * 4000) & vbNewLine & "Es Jeruk       = " & (Val(Form3.Text3.Text) * 8000) & vbNewLine & "Teh Anget    = " & (Val(Form3.Text4.Text) * 3000) & vbNewLine & "Jeruk Anget  = " & (Val(Form3.Text5.Text) * 7000) // Program Aritmatik

Form4.Text1.Text = Val(Form2.Text6.Text) + Val(Form3.Text6.Text) // Program Aritmatik

End Sub

Private Sub Command1_Click()\\MENU

Form4.Hide \\ Menutup Form4

Form1.Show \\ Membuka Form1

Form2.Text1.Text = " " \\ Mengosongkan text

Form2.Text2.Text = " "

Form2.Text3.Text = " "

Form2.Text4.Text = " "

Form2.Text5.Text = " "

Form2.Text6.Text = " "

Form3.Text1.Text = " " \\ Mengosongkan text

Form3.Text2.Text = " "

Form3.Text3.Text = " "

Form3.Text4.Text = " "

Form3.Text5.Text = " "

Form3.Text6.Text = " "

End Sub

Private Sub Command2_Click()\\MAKANAN

Form4.Hide \\ Menutup Form4

Form2.Show \\ Membuka Form2

End Sub

Private Sub Command3_Click()\\MINUMAN

Form4.Hide \\ Menutup Form4

Form2.Show \\ Mebuka Form2

End Sub

pengalaman

Alghifaris Bhagaskara 10114833

Marianus Pralambang 16114693

Pengalaman saya dalam mengikuti proses mengajar mata kuliah pengantar teknologi system cerdas sangat bermanfaat. Saya jadi tahu apa itu artificial intelligent dan contoh teknologinya yang sudah ada. Dan juga semakin tahu bahwa banyak sekali yang memakai system kecerdasan buatan seperti pada game ataupun aplikasi maps seperti google maps, waze dan juga pada aplikasi ride bike seperti grab bike, gojek, ataupun uber. Dan pengerjaan kelompok saya pun sangat baik semuanya mengerjakan tugasnya dan saling bantu membantu.  Banyak sekali informasi dan manfaat  yang saya dapatkan pada perkuliahan ini dan dari sistem pengajararan dari dosennya pun sangat interaktif dan tidak membosankan 

program menu

alghifaris bagaskara 10114833

marianus pralambang 16114393

Private Sub Command1_Click()\\ MAKANAN
Form1.Hide        \\ Menutup Form1
Form2.Show      \\ Membuka Form2
End Sub

Private Sub Command2_Click()\\MINUMAN
Form1.Hide        \\ Menutup Form1
Form3.Show      \\ Membuka Form3
End Sub

Private Sub Command1_Click()\\ORDER
Text6.Text = (Val(Text1.Text) * 4000) + (Val(Text2.Text) * 2000) + (Val(Text3.Text) * 3000) + (Val(Text4.Text) * 13000) + (Val(Text5.Text) * 14000) \\ Program Aritmatik
End Sub

Private Sub Command2_Click()\\MINUMAN
Form2.Hide        \\ Menutup Form2
Form3.Show      \\ Membuka Form3
End Sub

Private Sub Command3_Click()\\MENU
Form2.Hide \\ Menutup Form2
Form1.Show \\ Membuka Form 1
Text1.Text = " " \\ Mengosongkan text
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
End Sub

Private Sub Command4_Click()\\TOTAL
Form2.Hide
Form4.Show
Text6.Text = (Val(Text1.Text) * 4000) + (Val(Text2.Text) * 2000) + (Val(Text3.Text) * 3000) + (Val(Text4.Text) * 13000) + (Val(Text5.Text) * 14000) // Program Aritmatik
Form4.Label1.Caption = "Nasi Putih = " & (Val(Form2.Text1.Text) * 4000) & vbNewLine & "Tahu         = " & (Val(Form2.Text2.Text) * 2000) & vbNewLine & "Tempe      = " & (Val(Form2.Text3.Text) * 3000) & vbNewLine & "Ayam         = " & (Val(Form2.Text4.Text) * 13000) & vbNewLine & "Bebek       = " & (Val(Form2.Text5.Text) * 14000)  // Program Aritmatik
Form4.Label2.Caption = "Aqua            = " & (Val(Form3.Text1.Text) * 3000) & vbNewLine & "Es Teh         = " & (Val(Form3.Text2.Text) * 4000) & vbNewLine & "Es Jeruk       = " & (Val(Form3.Text3.Text) * 8000) & vbNewLine & "Teh Anget    = " & (Val(Form3.Text4.Text) * 3000) & vbNewLine & "Jeruk Anget  = " & (Val(Form3.Text5.Text) * 7000) // Program Aritmatik
Form4.Text1.Text = Val(Form2.Text6.Text) + Val(Form3.Text6.Text) // Program Aritmatik
End Sub

Private Sub Command1_Click()\\ORDER

Text6.Text = (Val(Text1.Text) * 3000) + (Val(Text2.Text) * 4000) + (Val(Text3.Text) * 8000) + (Val(Text4.Text) * 3000) + (Val(Text5.Text) * 7000) // Program Aritmatik
End Sub

Private Sub Command2_Click()\\MAKANAN
Form3.Hide \\ Menutup Form3
Form2.Show \\ Membuka Form2
End Sub

Private Sub Command3_Click()\\MENU
Form3.Hide \\ Menutup Form3
Form1.Show \\ Membuka form1
Text1.Text = " " \\ Mengosongkan text
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
End Sub

Private Sub Command4_Click()\\TOTAL
Form3.Hide \\ Menutup Form3
Form4.Show \\ Membuka Form4
Text6.Text = (Val(Text1.Text) * 3000) + (Val(Text2.Text) * 4000) + (Val(Text3.Text) * 8000) + (Val(Text4.Text) * 3000) + (Val(Text5.Text) * 7000) // Program Aritmatik
Form4.Label1.Caption = "Nasi Putih = " & (Val(Form2.Text1.Text) * 4000) & vbNewLine & "Tahu         = " & (Val(Form2.Text2.Text) * 2000) & vbNewLine & "Tempe      = " & (Val(Form2.Text3.Text) * 3000) & vbNewLine & "Ayam         = " & (Val(Form2.Text4.Text) * 13000) & vbNewLine & "Bebek       = " & (Val(Form2.Text5.Text) * 14000) // Program Aritmatik
Form4.Label2.Caption = "Aqua            = " & (Val(Form3.Text1.Text) * 3000) & vbNewLine & "Es Teh         = " & (Val(Form3.Text2.Text) * 4000) & vbNewLine & "Es Jeruk       = " & (Val(Form3.Text3.Text) * 8000) & vbNewLine & "Teh Anget    = " & (Val(Form3.Text4.Text) * 3000) & vbNewLine & "Jeruk Anget  = " & (Val(Form3.Text5.Text) * 7000) // Program Aritmatik
Form4.Text1.Text = Val(Form2.Text6.Text) + Val(Form3.Text6.Text) // Program Aritmatik
End Sub

Private Sub Command1_Click()\\MENU
Form4.Hide \\ Menutup Form4
Form1.Show \\ Membuka Form1
Form2.Text1.Text = " " \\ Mengosongkan text
Form2.Text2.Text = " "
Form2.Text3.Text = " "
Form2.Text4.Text = " "
Form2.Text5.Text = " "
Form2.Text6.Text = " "

Form3.Text1.Text = " " \\ Mengosongkan text
Form3.Text2.Text = " "
Form3.Text3.Text = " "
Form3.Text4.Text = " "
Form3.Text5.Text = " "
Form3.Text6.Text = " "
End Sub

Private Sub Command2_Click()\\MAKANAN
Form4.Hide \\ Menutup Form4
Form2.Show \\ Membuka Form2
End Sub

Private Sub Command3_Click()\\MINUMAN
Form4.Hide \\ Menutup Form4
Form2.Show \\ Mebuka Form2
End Sub

pert.3 AI game analisis

Point Blank

(Alghifaris Bagaskara 10114833, Marianus Pralambang 16114393)

Point Blank adalah sebuah permainan komputer ber-genre FPS yang dimainkan secara online. Game point blank memang sedang di gemari oleh banyak orang. Permainan ini dikembangkan oleh Zepetto dari Korea Selatan dan dipublikasikan oleh NCSoft. Point Blank berkisah tentang perseteruan antara Free Rebels dan pemerintah yang dalam hal ini adalah Counter Terrorist Force(CT-Force).

Terbentuknya Free Rebels – Semakin bertambahnya imigran yang tidak mendapatkan pekerjaan dan terusir dari masyarakat, sehingga untuk bertahan hidup para imigran kemudian melakukan berbagai macam tindak kriminal dari perampokan hingga pengedaran obat-obatan terlarang. Aksi kriminal ini berkembang menjadi gerakan yang teroganisir hingga terbentuk organisasi yang dinamakan Free Rebels. Tujuannya tidak lain untuk menguasai seluruh perdagangan obat terlarang dan senjata di seluruh dunia serta menciptakan rasa takut bagi masyarakat.

Terbentuknya CT-FORCE – Akibat konflik dengan imigran yang semakin meluas, pemerintah memutuskan dibentuk suatu organisasi khusus untuk menghadapi para teroris.Sejak dibentuknya organisasi ini, mereka mulai mencari informasi dan keberadaan dari organisasi teroris yang dinamakan Free Rebels. Sejalan dengan meningkatnya ancaman teroris tersebut, pemerintah kemudian mengirimkan bantuan pasukan terbaik yang pernah ada di pemerintahan yang kemudian datang dan bergabung serta berganti nama menjadi CT-FORCE (Counter Terrorist Force).

Artificial pada game ini adalah bagaimana character yang kita pakai tersebut bisa bergerak, bersuara, melompat, menunduk, menembak dan juga mode mode permainan yang ada pada game point blank



Point Blank memiliki 7 mode permainan, yaitu:

    Death Match: Bunuh pemain musuh hingga skor tim-mu mencapai nilai yang ditentukan atau berusahalah menjadi tim dengan skor terbanyak saat waktu permainan habis.
    Bomb Mission: Tujuan tim Free Rebels adalah untuk meledakkan area yang disebut bombsite dengan C4, sementara tujuan tim CT-Force adalah mencegah tim Free Rebels meledakkan bombsite.
    Destroy Mission: Hancurkan objek yang menjadi target dalam mode ini.
    Eliminate: Habisi semua musuh yang ada untuk memenangkan ronde.
    Shotgun Mode: Hanya senjata tipe shotgun saja yang dapat digunakan dalam  mode ini.
    AI Mode: Dalam mode ini, para pemain diharuskan untuk melawan musuh yang dikendalikan oleh komputer (AI). Mode AI terdiri dari Level 1 hingga Level 10, dimana semakin tinggi levelnya, semakin tinggi pula tingkat kesulitan musuh AI. Mode ini telah dihapus dari Point Blank Indonesia karena ada bug yang membuat experience dan point yang seharusnya tidak didapat bisa didapat.
    Shotgun Mode: Hanya senjata tipe shotgun saja yang dapat digunakan dalam mode ini.
    Sniper Mode: Hanya senjata tipe sniper rifle saja yang dapat digunakan dalam mode ini.







Jadi keberadaan AI dalam teknologi game sangat lah membantu. Yang pertama AI dapat menjadi lawan bermain yang cukup tangguh. Lalu yang kedua AI dapat melatih otak kita untuk berpikir keras lagi dalam menyelesaikan game yang kita mainkan. Dengan adanya AI kita juga tidak perlu repot untuk mencari lawan bermain jika memang kita sedang tidak ada lawan bermain. Sebagai contoh kita dapat bermain Counter Strike dimana yang menjadi musuh kita merupakan Bot (komputer) yang memiliki kecerdasan yang cukup tinggi. Dia dapat menemukan pemain lalu menyerangnya. Selain itu game-game lain seperti The Sims, dimana pemain (user) dapat berinteraksi dengan objek lain yang disediakan dalam permainan tersebut.



Sumber :

http://bintangfebryanmarpaung.blogspot.co.id/2012/04/analisa-game-point-blank-online.html

http://ainanug.blogspot.co.id/2012/09/point-blank.html

https://id.wikipedia.org/wiki/Point_Blank_Online

http://jdtevrmdlu-cakadut.blogspot.co.id/2016/05/penggunaan-algoritma-pada-game-point.html

https://valkriye.wordpress.com/2010/11/17/perkembangan-game-teknolgi/

http://dunotifkejora.blogspot.co.id/2016/04/kecerdasan-buatan-ai-pada-game.html

Pert3 A.I pada film Sci-Fi

Artificial Intelligence pada Trancendence

marianus pralambang 16114393

alghifaris bagaskara 10114833

Transcendence adalah wujud mesin yang sangat canggih karena mampu menyaingi kecerdasan kolektif semua manusia sepanjang sejarah. Saking canggihnya, mesin ini mampu mendominasi kehidupan manusia. Adalah Dr. Will Caster yang berkeinginan untuk menciptakan mesin ini. Saat usahanya nyaris berhasil, sekelompok orang yang menamakan diri mereka ‘gerakan antiteknologi’ menembak Dr. Will Caster.

Ia berusaha diselamatkan oleh istrinya, Evelyn (Rebecca Hall), dan sahabatnya, Max (Paul Bettany). Mereka menolong Will dengan menghubungkan isi otak Will ke dalam teknologi komputer yang sedang dikembangkannya. Usaha ini ternyata membawa bencana bagi dunia yang mengancam kelangsungan umat manusia di bumi.

Permasalahan terjadi saat Dr.Will Caster yang sudah sekarat karena terkana racun yang ditembakan oleh seseorang, ia berpesan pada istri dan temannya untuk menyematkan apa yang ada di isi otaknya untuk di pindahkan ke Trancendence. Secara tak terduka keajaibanpun terjadi dan Dr. Will hidup dalam sebuah mesin paling canggih di dunia yang mampu meretas dan masuk keluar semua perangkat perangkat yang berhubung langsung dengan internet, tidak sampai di situ kecanggihannya bahkn bisa menyatu dengan lingkungan sekitarnya. 

Kemampuannya juga berkembang ke bidang medis tidak ada yang tidak bisa di lakukan oleh mesin ini bahkan manusia yang tangannya sudha buntung bisa di tumbuhkan kemabli oleh mesin ini yang di kuasai oleh otak dari Dr.Will

Kecerdasan buatan jelas sekali menjadi tema utama yang diusung dalam Transcendence. Dibuat menegangkan, film ini menggambarkan kekhawatiran manusia akan kecerdasan buatan yang berpotensi dalam mendominasi kehidupan manusia.

Untuk lebih jelasnya kita bisa langsung menonton filmnya dengan seksama.

Sumber : 

https://www.youtube.com/watch?v=VCTen3-B8GUhttps://www.youtube.com/watch?v=VCTen3-B8GU

http://www.loveheaven07.com/2014/02/transcendence-movie-film-2014-sinopsis.html

http://www.kompasiana.com/ricomangiringpurba/transcendence-ketika-teknologi-memperbudak-kita_54f766caa33311e3348b47eb