Pengalaman mengikuti perkuliahan dan mengerjakan tugas softskil (Teknologi Sistem Cerdas)

Pengalaman mengikuti perkuliahan softskill (Teknologi Sistem Cerdas)

( Annisa Imania Putri 11114374 , Ariefah Nur Aisyah 11114575 , Syarifa Isninawati 1A114607 )


Selama mengikuti dan mengerjakan tugas tugas softskill banyak ilmu yang kami dapat . Yaitu kita bisa lebih memahami tentang apa itu Artifical Intellegence , Lalu kita bisa tahu dan mempelajari bagaimana cara membuat Game dengan sebuah program seperti Visual Basic, Java dll .
Kita pun menjadi lebih banyak sharing untuk mengerjakan tugas tugas , menjadi lebih aktif menulis blog tentang hasil tulisan apa saja yang sudah kita buat .

Mata kuliah : Pengolahan Teknologi Sistem Cerdas

Tugas Penulisan Program Sederhana

Program Sederhana 

( Annisa Imania Putri 11114374 ,Syarifa Isninawati 1A114607 , Ariefah Nur Aisyah 11114575 )

Game snake itu adalah permainan ular ularan yang memakan umpan , dan akan mati jika ia menabrak tembok atau badannya sendiri . Tiap memkan umpan ularnya akan semakin panjang dan levelnya akan meningkat . Untuk membuat game snake ini di gunakan aplikasi Visual Basic .
Berikut adalah codingan untuk membuat game snake :
Sub TabrakKalah()
    Dim s As String
 
    For i = 0 To shpTembok.Count - 1
        If (shpUlar(0).Top = shpTembok(i).Top) And (shpUlar(0).Left = shpTembok(i).Left) And (UlarTembus = False) Then
            PlaySound 2
            s = "Anda menabrak tembok !"
            GoTo Enn
        End If
    Next
 
    For i = 1 To shpUlar.Count - 1
        If (shpUlar(0).Top = shpUlar(i).Top) And (shpUlar(0).Left = shpUlar(i).Left) And (UlarTembus = False) Then
            PlaySound 2
            s = "Anda menabrak badan ular !"
            GoTo Enn
        End If
    Next
 
    For i = 0 To shpRacun.Count - 1
        If (shpUlar(0).Top = shpRacun(i).Top) And (shpUlar(0).Left = shpRacun(i).Left) Then
            PlaySound 2
            s = "Anda terkena racun !"
            GoTo Enn
        End If
    Next

    Exit Sub
 
Enn:
    MsgBox s & vbCrLf & "Skor anda " & lblSkor & ".", vbCritical
    SetLevel (LevelSekarang)
    lblSkor = 0
End Sub

Sub TabrakPakan()
    On Error Resume Next
    For i = 0 To shpPakan.Count - 1
        If (shpUlar(0).Top = shpPakan(i).Top) And (shpUlar(0).Left = shpPakan(i).Left) Then
            TempatkanItem shpPakan(i)
         
            PlaySound 1
         
            Tumbuh
         
            If prgNilai.Value = prgNilai.Max Then
                LevelLanjut
                Exit For
            End If
        End If
    Next
End Sub

Sub TabrakMisteri()
    Dim j As Integer
 
    For i = 0 To shpMisteri.Count - 1
        If (shpUlar(0).Top = shpMisteri(i).Top) And (shpUlar(0).Left = shpMisteri(i).Left) Then
            TempatkanItem shpMisteri(i)
         
            PlaySound 1
         
            NetralkanMisteri
            Randomize
            Select Case CInt(Rnd * 5) 'mengacak hasil misteri
                Case 0
                tmrUlar.Interval = 50
                lblMisteri = "Ular Cepat"
             
                Case 1
                tmrUlar.Interval = 350
                lblMisteri = "Ular Lambat"
             
                Case 2
                UlarTembus = True
                lblMisteri = "Ular Tembus"
             
                Case 3
                UlarBingung = True
                lblMisteri = "Ular Bingung"
             
                Case 4
                PutarUlar
                lblMisteri = "Ular Putar Balik"
                lblMisteriWaktu.Visible = False
             
                Case 5
                For j = 1 To 5
                    Tumbuh
                Next
                lblMisteri = "Pakan Super 5x"
                lblMisteriWaktu.Visible = False
                If prgNilai.Value = prgNilai.Max Then
                    LevelLanjut
                    Exit For
                End If

            End Select
         
            lblMisteriWaktu = tmrMisteri.Tag
            tmrMisteri.Enabled = True
        End If
    Next
End Sub

Private Sub btnPause_Click()
    MsgBox "Permainan di-pause !" & vbCrLf & "Klik tombol 'OK' untuk melanjutkan."
    picMain.SetFocus
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    tmrUlar.Enabled = True
    Select Case KeyCode
        Case vbKeyUp
            If shpUlar(1).Top <> shpUlar(0).Top - 120 Then 'untuk mencegah bug bila terlalu cepat menekan keyboard
            If (Arah = 2) Or (Arah = 4) Then
                If UlarBingung = True Then Arah = 3 Else Arah = 1
            End If
            End If
         
        Case vbKeyRight
            If shpUlar(1).Left <> shpUlar(0).Left + 120 Then
            If (Arah = 1) Or (Arah = 3) Then
                If UlarBingung = True Then Arah = 4 Else Arah = 2
            End If
            End If
     
        Case vbKeyDown
            If shpUlar(1).Top <> shpUlar(0).Top + 120 Then
            If (Arah = 2) Or (Arah = 4) Then
                If UlarBingung = True Then Arah = 1 Else Arah = 3
            End If
            End If
     
        Case vbKeyLeft
            If shpUlar(1).Left <> shpUlar(0).Left - 120 Then
            If (Arah = 1) Or (Arah = 3) Then
                If UlarBingung = True Then Arah = 2 Else Arah = 4
            End If
            End If
    End Select

End Sub

Private Sub Form_Load()
    For i = 1 To 6
        Load mnuLevel(i)
        mnuLevel(i).Caption = "Level " & i
    Next
    mnuLevel_Click (0)
End Sub

Private Sub mnuBantuan_Click()
    frmBantuan.Show vbModal
End Sub

Sub mnuLevel_Click(Index As Integer)
    For i = 0 To mnuLevel.Count - 1
        mnuLevel(i).Checked = (i = Index)
    Next
    SetLevel (Index)
End Sub


Private Sub tmrItem_Timer()
    'properti tag digunakan sebagai timer untuk tiap kontrol
 
    For i = 0 To shpPakan.Count - 1
        If CDbl(shpPakan(i).Tag) > 80 Then TempatkanItem shpPakan(i)
     
        shpPakan(i).Tag = CDbl(shpPakan(i).Tag) + 1
    Next
 
 
    If JmlRacun <> 0 Then
    For i = 0 To shpRacun.Count - 1
        If CDbl(shpRacun(i).Tag) > 90 Then TempatkanItem shpRacun(i)
     
        shpRacun(i).Tag = CDbl(shpRacun(i).Tag) + 1
    Next
    End If
 
    If JmlMisteri <> 0 Then
    For i = 0 To shpMisteri.Count - 1
        If CDbl(shpMisteri(i).Tag) > 100 Then TempatkanItem shpMisteri(i)
     
        shpMisteri(i).Tag = CDbl(shpMisteri(i).Tag) + 1
        shpMisteri(i).BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
        shpMisteri(i).BorderColor = shpMisteri(i).BackColor
    Next
    End If
End Sub

Private Sub tmrMisteri_Timer()
    tmrMisteri.Tag = CDbl(tmrMisteri.Tag) - 1
    lblMisteriWaktu = tmrMisteri.Tag
    If tmrMisteri.Tag = 0 Then NetralkanMisteri
End Sub

Private Sub tmrUlar_Timer()
    For i = shpUlar.Count - 1 To 1 Step (-1)
        shpUlar(i).Move shpUlar(i - 1).Left, shpUlar(i - 1).Top
    Next
 
    Select Case Arah
        Case 1
            shpUlar(0).Top = shpUlar(0).Top - 120
        Case 2
            shpUlar(0).Left = shpUlar(0).Left + 120
        Case 3
            shpUlar(0).Top = shpUlar(0).Top + 120
        Case 4
            shpUlar(0).Left = shpUlar(0).Left - 120
    End Select
 
    If shpUlar(0).Left < 0 Then shpUlar(0).Left = 4080
    If shpUlar(0).Left = 4200 Then shpUlar(0).Left = 0
    If shpUlar(0).Top < 0 Then shpUlar(0).Top = 4080
    If shpUlar(0).Top = 4200 Then shpUlar(0).Top = 0
 
    TabrakKalah
 
    TabrakPakan
 
    TabrakMisteri
End Sub


Berikut Output nya:

Itu tampilan untuk gamenya . Terdapat level , bantuan , skor , misteri .

(Tampilan saat mengklik bantuan , terdapat keterangan untuk mempermudah dalam memaikan game)

(Level 1)

(Level 2)

(Level 3)

(Level 4)

(Level 5)

(Level 6)

Mata Kuliah : Pengolahan Teknologi Sistem Cerdas#

Menganalisis Film The Terminator dan Game Snake

 Artificial Intelligence

( Annisa Imania Putri 11114374 ,Syarifa Isninawati 1A114607 , Ariefah Nur Aisyah 11114575 )

Analisis Game Snake 

Sejarah Game Snake

Snake versi Nokia
Sebelum mulai dengan pembahasan Game Snake Python, saya ingin bahas sedikit mengenai sejarahnya Game Snake. Hampir setiap orang mengetahui game ini, konsep “Game Snake” ini berasal dari tahun 1970-an. “Game Snake” ini dapat diibaratkan seperti Angry Birds sebelum zaman Angry Birds itu sendiri tentunya.
Snake adalah sebuah game sederhana yang diciptakan pada akhir tahun 1970-an pada arcade. Arcade itu sendiri adalah platform game seperti dibioskop-bioskop untuk game takken. Sejak diciptakannya,
kepopulerannya terus meningkat dan akhirnya terkenal sebagai game klasik. Lalu sejak diliris handphone Nokia pada tahun 1998, kepopulerannya semakin meningkat.

Pendekatan Pemecahan Masalah
Apabila dilihat dari keseluruhannya, “Game Snake” terlihat sangat sederhana, yaitu seekor ular yang berburu makanan dan akan memanjang setiap kali dia mendapatkan makanan tersebut. Pada dasarnya ini adalah game yang sederhana, tapi apa yang terjadi saat kita mencoba untuk membuatnya sendiri?
Seperti pada umumnya dalam pembuatan program, kita akan sering temukan kendala. Salah satu kendala yang akan sering muncul adalah cara berfikir. Pada pembuatan game snake ini, saya bersama rekan saya Tiara berlatih cara berfikir dan bagaimana membuatnya sesederhana mungkin. Langkah pertama yang kami coba lakukan adalah membuat bagian yang paling mudah dan tidak terlalu fokus pada bagian yang cukup sulit. Dan ketika ada saatnya kita menemukan bagian yang cukup menantang, yang perlu dilakukan adalah menganalisa terlebih dahulu. Hal yang penting dalam membuat program adalah, kita jangan langsung menuangkan analisa kita kedalam sebuah baris code. Tapi kita perlu memastikan terlebih dahulu apakah analisa itu sudah sesuai atau belum (contohnya adalah dengan membuatnya diatas kertas).
Kekurangan dan Kelebihan
Nah kita sudah mengetahui sedikit tentang sejarah “Game Snake” ini, “Game Snake Python” yang kami buat ini mempunyai beberapa kelebihan yaitu:
Game ini mudah dipahami dan mudah dijalankan.
Kita bebas mengkreasikan  karakter body pada snake yang kita buat.
Karena “Game Snake” ini memiliki kelebihan, tentunya game ini pun memiliki kekurangan yaitu :
Tampilan game ini masih sangat klasik karna masih dijalankan disebuah terminal LINUX karena modul yang kita pakai yaitu “library Curses” dan modul ini hanya support pada OS LINUX.
Game ini juga belum memiliki desain animasi yang begitu menarik.
Pengembangan
Kedepannya kami akan mengembangkan Game Snake ini, dengan menambahkan:
Suara
Snake lain (two player)
Penggunaan UniCurses, agar dapat digunakan di platform Windows

Analisis Film The Terminator (1984-2015)

Dari semua film tentang kecerdasan buatan sebagai gagasan di balik penciptaan sebuah robot, The Terminator adalah yang paling sukses.

Tercatat, film yang ditayangkan pada 1984 ini memiliki empat sekuel, yaitu Judgment Day (1991), Rise of the Machines (2003), Salvation (2009), dan Genisys (2015).

Film ini bercerita tentang Skynet, sang terminator AI, yang bertarung melawan musuh bebuyutan John Connor. Namun di seri kelima, Genisys, ia mendapat tandingan baru Kyle Reese, orang kepercayaan Connor. Selain sukses melambungkan nama Arnold Schwarzenegger, film ini juga dianggap sukses menggambarkan kekhawatiran manusia akan ‘efek samping’ dari kecerdasan buatan itu sendiri.

The Terminator adalah film fiksi ilmiah Amerika yang tayang pada tahun 1984. Film ini juga menjadi film pertama dari seri franchise Terminator.

The Terminator menceritakan seorang robot pembunuh bayaran dengan sebutan Terminator yang dikirim dari tahun 2029 ke tahun 1984 untuk membunuh seorang wanita muda bernama Sarah Connor.

Pada 1984 , dua makhluk tiba di Los Angeles. Yang pertama adalah robot Terminator T-800 Model 101 yang bertugas untuk membunuh Sarah Connor.  Sedangkan yang kedua, seorang pasukan bernama Kyle Reese yang bertugas melindungi Sarah Connor dari Terminator.

Robot Terminator sempat membuat kekacauan terlebih dahulu dengan menyerang beberapa orang. Namun, saat dia menemui Sarah Connor, datanglah Kyle Reese yang langsung menyelamatkan Sarah Connor dan kabur menggunakan mobil.

Terminator dikirim untuk membunuh Sarah karena anak dari Sarah di masa depan adalah orang yang memimpin perlawanan terhadap Skynet dan tentara robotnya. Hal tersebut dijelaskan Kyle kepada Sarah. Beberapa kali kabur, tempat persembunyian mereka selalu berhasil ditemui oleh Terminator.

Film The Terminator ditulis dan disutradarai oleh James Cameron dan diproduseri oleh Gale Anne Hurd.

Sumber :

1.       http://blog.dhamarmulia.com/2014/08/19/game-snake-python/

2.       http://hiburan.metrotvnews.com/read/2015/12/28/205660/resensi-film-klasik-the-terminator

3.       http://jurnal.selasar.com/kreatif/5-film-bertema-kecerdasan-buatan

Mata Kuliah : Pengolahan Teknologi Sistem Cerdas#