ANIM

 

 

Game Tembak VB 6

 

GAME TEMBAK SOURCE CODE

Option Explicit

' The next two lines are used to setup the function for sound play.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1         '  play asynchronously

Dim X, Y As Integer

'    What follows illustrates the most basic concept of animation in VB6.  There are much better

'    ways to do this that offer better transistions.  I simply used photoshop to create several quick

'    frames of each image and call them from the timers involved below.

'    This is not my usual line of programming.  I was asked how this could be accomplished so I thought

'    I thought I would share with who ever might be interested.

'    My element in programming generally revolves around port interfacing such USB, Serial and LPT for

'    for purposes of automation in the outside world.  Drop me a line if you have any questions or would

'    like to share.

'        **********************    stettlerbrad@gmail.com    ******************************

Private Sub Form_Click()

ImgShot.Tag = "1"  ' I like using the tag function of controls.  Why create new variables when evry object already has a "tag" that can hold a string value?

Call sndPlaySound(App.Path & "\media\gun.wav", SND_ASYNC) ' call the standard gunshot sound from the installation path of this project

Timer3.Enabled = True 'enable the timer that will quickly show the bullet hole and then fade it off the form

X = Text1.Text ' pick the x and x coordinates of where the mouse was clicked on the form for puposes of drawing the shot in that area

Y = Text2.Text

ImgShot.Top = Y - 200  ' we need to adjust the left and right positioning a little bit as the left and right properity don't refer to the center of the image we'll be drawing

ImgShot.Left = X - 160

ImgShot.Visible = True ' and of course show the shot where it belongs

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.Text = X 'this is just an illustration to show the tracking of the mouse in its X and Y coordinates accross the form

Text2.Text = Y

End Sub

Private Sub ImgBottle_Click()

Call sndPlaySound(App.Path & "\media\gun_glass.wav", SND_ASYNC) ' play the unique sound of the gun shot mixed with the glass breaking

ImgBottle.Tag = "1" ' set the tag up for the bottle image so it is ready when it gets to timer2 to show the breaking bottle

Timer2.Enabled = True ' set the timer into action to show the bottle animation

End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.Text = X  ' an interesting little point - notice that the x and y coordinates in your text boxes are showing the X and Y of the bottle image. You could get really creative and change which animation plays in accordinace with where the target is struck.

Text2.Text = Y

End Sub

Private Sub ImgBottle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.Text = X

Text2.Text = Y

End Sub

Private Sub ImgCan_Click()

Call sndPlaySound(App.Path & "\media\gun_can.wav", SND_ASYNC) ' call the sound of the gun hitting the can

ImgCan.Tag = "1"

Timer1.Enabled = True

End Sub

Private Sub ImgCan_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.Text = X

Text2.Text = Y

End Sub

Private Sub Timer1_Timer()  ' this is the 4 stage animation fo the can being shot off the page

' I set the interval pretty low to keep it as smooth as possible on the timer control

If ImgCan.Tag = "1" Then ImgCan.Tag = "2": ImgCan.Picture = LoadPicture(App.Path & "\media\can2.bmp"): Exit Sub

If ImgCan.Tag = "2" Then ImgCan.Tag = "3": ImgCan.Picture = LoadPicture(App.Path & "\media\can3.bmp"): Exit Sub

If ImgCan.Tag = "3" Then ImgCan.Tag = "4": ImgCan.Picture = LoadPicture(App.Path & "\media\can4.bmp"): Exit Sub

If ImgCan.Tag = "4" Then ImgCan.Tag = "": ImgCan.Visible = False ' take the can off the form as it is now gone

  

End Sub

Private Sub Timer2_Timer() ' bottle breaking animation

If ImgBottle.Tag = "1" Then ImgBottle.Tag = "2": ImgBottle.Picture = LoadPicture(App.Path & "\media\bottle2.bmp"): Exit Sub

If ImgBottle.Tag = "2" Then ImgBottle.Tag = "3": ImgBottle.Picture = LoadPicture(App.Path & "\media\bottle3.bmp"): Exit Sub

If ImgBottle.Tag = "3" Then ImgBottle.Tag = "4": ImgBottle.Picture = LoadPicture(App.Path & "\media\bottle4.bmp"): Exit Sub

If ImgBottle.Tag = "4" Then ImgBottle.Tag = "": ImgBottle.Visible = False

End Sub

Private Sub Timer3_Timer() ' gun shots fading quikly into the form background animation

If ImgShot.Tag = "1" Then ImgShot.Tag = "2": ImgShot.Picture = LoadPicture(App.Path & "\media\shot2.bmp"): Exit Sub

If ImgShot.Tag = "2" Then ImgShot.Tag = "3": ImgShot.Picture = LoadPicture(App.Path & "\media\shot3.bmp"): Exit Sub

If ImgShot.Tag = "3" Then ImgShot.Tag = "4": ImgShot.Picture = LoadPicture(App.Path & "\media\shot4.bmp"): Exit Sub

If ImgShot.Tag = "4" Then ImgShot.Tag = "": ImgShot.Visible = False

End Sub

PIDATO WISUDA 15 MEI 2024

 

PIDATO KEPALA

SMA INFORMATIKA CIAMIS

PADA WISUDA LULUSAN KE XX

TAHUN AKADEMIK 2023/ 2024

 

Bismillaahirrahmaanirrahiim, Assalaamu’alaikum Warahmatullaahi Wabarakaatuh.

Yang terhormat:

·         Ketua Yayasan Pendidikan Bina Nusantara

·         Ketua Yayasan Amanah

·         Kepala Cabang Dinas Pendidikan Wilayah XIII

·         Pengawas Pembina

·         Para Wakil Kepala Sekolah, Kepala TU, Kepala Perpustakaan, Kepala Lab. MIPA, Kepala Lab. Komputer, Pembina-pembina Ekstrakurikuler di SMA INFORMATIKA CIAMIS

·         Para Guru dan Tenaga Kependidikan di SMA INFORMATIKA CIAMIS

·         Ketua Ikatan Alumni SMA INFORMATIKA CIAMIS

·         Para Orang tua anak-anakku sekalian

·         Para siswa yang saya cintai dan saya banggakan

·         Para Tamu Undangan dan hadirin sekalian yang berbahagia,

 

Marilah kita panjatkan segala puji dan syukur kehadirat Allah SWT atas rahmat dan kasih sayang-Nya, sehingga pada hari ini, hari Rabu tanggal 15 Mei kita dapat menghadiri Wisuda Purna Siswa SMA INFORMATIKA CIAMIS yang ke-XX.

 

Para undangan yang saya hormati dan anak-anakku sekalian yang saya banggakan.

 

Kepada masyarakat yang telah menjadikan SMA INFORMATIKA CIAMIS sebagai sekolah menengah atas yang paling diminati, saya selaku Kepala SMA INFORMATIKA CIAMIS mengucapkan terima kasih atas kepercayaan yang diberikan.  Semoga kepercayaan tersebut dapat menjadi pendorong bagi SMA INFORMATIKA CIAMIS dalam meraih prestasi akademik dan prestasi ekstrakurikuler  yang lebih baik lagi.

Alhamdulillah, berdasarkan hasil keputusan rapat pleno dewan guru SMA INFORMATIKA CIAMIS dan disampaikan pada pengumuman kelulusan yaitu pada tanggal 8 Mei 2024 Pukul 14.00 di SMA INFORMATIKA CIAMIS.

Saya ucapkan selamat dan sukses, jalan didepanmu masih panjang, maka tetaplah berjalan anakku dengan keteguhan hati, bawalah ilmu dan budi bahasa yang baik, yang sudah dibekali oleh Bapak dan Ibu guru yang sangat mencintai kalian.

Melangkah maju kedepan, jangan pernah ragu, InsyaAllah kesuksesan bisa kalian raih dengan kerja keras dan tentu saja doa orang tua. Aamiin.
Izinkan saya mohon maaf lahir dan batin untuk salah dan khilaf kami selama anak-anakku sekalian belajar di SMA INFORMATIKA CIAMIS.

Selamat melangkah maju anakku, bawalah nama almamater kita, SMA INFORMATIKA CIAMIS dengan kebanggaan di dada, baktikan diri mu pada nusa dan bangsa dengan ilmu dan karakter baik, yang telah disemaikan Bapak dan Ibu guru pada jiwa muda yang penuh semangat. Semoga Allah subhanahu wata’ala selalu melindungi kita semua, Aamiin Ya Robbal ‘Alamiin.

Sebagai penutup, sekali lagi saya ucapkan selamat atas keberhasilan seluruh anak-anakku sekalian. Ijinkan saya untuk menyampaikan rasa terima kasih kepada para orang tua  yang telah memercayakan putra-putrinya kepada kami guna menempuh pendidikan di SMA INFORMATIKA CIAMIS. Saya berharap anak-anakku sekalian dapat terus berkarya, menjaga dan menyebarluaskan ilmu yang telah diperoleh.

Mengakhiri pidato ini, saya ingin menyampaikan ucapan selamat dan rasa bangga kepada para orang tua. Juga kami sampaikan pula ucapan terima kasih dan penghargaan yang setinggi-tingginya kepada:

•      para guru yang telah berhasil mengantarkan keberhasilan anak-anakku sekalian,

•      seluruh tenaga kependidikan dan para pemangku kepentingan yang telah berkontribusi pada penyelenggaraan pendidikan anak-anakku sekalian,

•      panitia pelaksana wisuda yang telah bekerja keras menyukseskan acara ini, dan

•      hadirin yang terhormat yang dengan penuh perhatian dan kesabaran mengikuti prosesi wisuda ini sehingga terlaksana dengan khidmat.

 

Semoga Tuhan Yang Maha Kuasa dan Maha Pengasih senantiasa melimpahkan Rahmat dan Karunia kepada kita dan seluruh bangsa Indonesia. Aamiin.

Wassalamualaikum warahmatullahi wabarakatuh.

Ciamis, Rabu 15 Mei 2024

Dudi Gunawan
Kepala SMA INFORMATIKA CIAMIS

 

 

 

 

RSP I DAN II