Segitiga Ajaib

Salah satu permainan bilangan yang cukup menarik dan menantang, karena diperlukan strategi dan ketrampilan berhitung adalah permainan "Segitiga Ajaib".
Tugas dari permainan ini adalah menempatkan 6 buah angka (1 - 6), pada sisi-sisi segitiga sehingga jumlah angka pada setiap sisi segitiga tersebut selalu sama.
Ada 4 variasi jumlah angka tiap sisi segitiga tersebut, yaitu 9, 10, 11, dan 12

Ingin mencobanya ? ...... silahkan download filenya disini--> SEGITIGA AJAIB

Untuk tingkatan yang lebih tinggi, 6 angka yang digunakan bisa diganti dengan angka yang lain, dan tentunya variasi jumlah angkanya juga berubah.
Tantangan lainnya, gunakan 9 angka (1 - 9), susun membentuk segitiga dengan tiap sisinya berisi 4 angka dan jumlah angka pada tiap sisinya selalu sama.
Selamat Mencoba

Permainan Interaktif “KARTU PENEBAK TANGGAL LAHIR”

Sebagai selingan dikala siswa merasa jenuh dengan pelajaran yang dirasa cukup melelahkan, sebagai alternatif untuk mencairkan suasana, ada baiknya diisi dengan permainan-permainan ringan. Salah satunya adalah permainan menebak tanggal lahir seorang siswa dengan bantuan kartu. Kartu yang dibutuhkan terdiri dari 5 buah kartu seperti berikut ini:

 Satu per satu kartu ditunjukkan kepada siswa dan ditanyakan apakah tanggal lahirnya ada pada kartu tersebut. Siswa cukup menjawab “Ada” atau “Tidak”. Setelah kelima kartu ditunjukkan dan diperoleh jawaban siswa, maka kita berusaha untuk menebak tanggal lahir siswa tersebut.

Kini permainan itu sudah saya buat dalam powerpoint, sehingga siswa tinggal menekan tombol “ADA” atau “TIDAK” dari setiap kartu yang muncul. Setelah jawaban dari kartu kelima, maka otomatis akan dimunculkan tanggal lahir siswa tersebut.

Cara membuatnya:

1.       Buka Powerpoint

2.       Buat tampilan berikut pada slide 1

3.       Klik tombol “LANJUT” -->Insert --> Action --> Hyperlink to --> NEXT SLIDE

4.       Slide 2 sampai slide ke 6 masing-masing berisi tabel angka KARTU 1 sampai KARTU 5.
Misalnya untuk slide 2, tampilannya seperti berikut ini:

5.       Slide ke-7, buat tampilan seperti berikut:

 Pada Slide 7 ini, Klik tombol "Close" --> Insert --> Action --> Hyperlink to --> End Show".

6.       Klik Developer --> View Code --> Insert --> Module,  kemudian ketik script berikut ini
Dim tgl As Integer
Sub mulai()
tgl = 0
ActivePresentation.SlideShowWindow.View.GotoSlide (3)
End Sub

Sub tampilkan()
With ActivePresentation.Slides(12)
.Shapes(4).TextFrame.TextRange.Text = tgl
End With
End Sub

Sub ya1()
tgl = tgl + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ya2()
tgl = tgl + 2
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ya3()
tgl = tgl + 4
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub ya4()
tgl = tgl + 8
ActivePresentation.SlideShowWindow.View.Next
End Sub


Sub ya5()
tgl = tgl + 16
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

Sub tdk1()
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub tdk2()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

7.       Atur Action dari tiap tombol “ADA” dan “TIDAK” dari slide 2 hingga slide 6, sebagai berikut:
Mulai dari Slide 2.
Klik tombol “ADA” --> Insert --> Action --> Run Macro -->”ya1”
Klik tombol “Tidak” --> Insert --> Action --> Run Macro -->”tdk1”
Pada slide 3 hingga slide ke 6 caranya sama, hanya “ya1” diganti dengan “ya2” hingga “ya5”. 
Pada Slide6, tombol "Tidak" diberi Action "tdk2”

8.       Terakhir simpan powerpoint dalam save as type : Powerpoint Macro-Enable Presentation.

Demikianlah tutorial cara membuat “KARTU PENEBAK TANGGAL LAHIR”.

File yang sudah jadi dapat di download di sini --> KARTU PENEBAK TANGGAL LAHIR

Membuat Aplikasi Penjumlahan Pada Powerpoint

Pada postingan yang lalu saya membahas penggunaan Ms Excel untuk menguji keterampilan berhitung. Kali ini akan saya bahas cara membuat aplikasi penjumlahan dengan Powerpoint. Hebatnya cukup 2 slide dapat digunakan untuk ribuan soal penjumlahan.
Langsung saja Kita mulai.
1. Jalankan Ms.Powerpoint
2. Atur warna background sesuka Anda.
3. Pada Slide pertama buatlah tampilan seperti berikut ini.

      Gunakan WordArt atau Textbox untuk membuat tulisan. Sedangkan untuk membuat tombol "Mulai" gunakan Insert -> Shape, kemudian beri tulisan"Mulai". Tombol "Mulai" ini kita beri Action --> Hyperlink --> Next Slide
5.  Sedangkan pada Slide 2, seperti gambar berikut:

            Pada slide 2 ini terdapat 2 buah Label (yang bertuliskan 301 dan 773), 3 buah TextBox (Active ControlX) yaitu 1 kotak transparan dibawah angka 773 dan 2 kotak dibawah tulisan benar dan salah serta 2 buah CommandButton yaitu tombol Next dan Close. Lebih jelasnya lihat gambar berikut:

Label, TextBox dan CommondButton tersebut terdapat pada kelompok Control. Terlihat pada gambar berikut:

Atur masing-masing Propertiesnya sebagai berikut:

  6. Kemudian klik developer --> view code --> insert --> module --> ketik script berikut:
Private Sub Close_Click()
salah = 0
nilai = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub

Private Sub soal_cmd_Click()
If jwb = Val(pil1) + Val(pil2) Then
point = 1
Else
pin = 1
End If
salah = salah + pin
nilai = nilai + point
pil1 = Int(999 * Rnd * 1)
pil2 = Int(999 * Rnd * 1)
If pil1 < 100 Then
pil1 = Int(999 * Rnd * 1)
End If
If pil2 < 100 Then
pil2 = Int(999 * Rnd * 1)
End If
jwb = ""
End Sub



 Contoh Filenya dapat didownload di sini --> PENJUMLAHAN ACAK

Membuat Kuis Acak Interaktif Dengan Powerpoint

Bagi sebagian orang yang berkecimpung dalam dunia presentasi tentulah sudah sangat familiar dengan yang namanya MS Powerpoint. Untuk menghasilkan presentasi yang baik tentu diperlukan proses pembelajaran yang panjang. Pada kesempatan kali ini akan saya sajikan tutorial pembuatan "KUIS ACAK INTERAKTIF". Tujuannya adalah agar soal yang kita buat dapat tampil secara acak, dengan demikian diharapkan siswa tidak menghafal kunci jawaban soal.
Langgkah-langkah pembuatannya sebagai berikut:
1. Buka Ms Powerpoint, kemudian klik Developer --> view code --> insert --> module
2. Ketikkan script berikut ini :
Dim nilai As Integer
Dim konfirmasi As String

Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub benar()
konfirmasi = MsgBox("Anda yakin dengan jawaban ini?", vbYesNo, " Cek Jawaban! ")
If konfirmasi = vbYes Then
nilai = nilai + 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub


Sub salah()
konfirmasi = MsgBox("Anda yakin dengan jawaban ini?", vbYesNo, " Cek Jawaban! ")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub cek()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

Sub tampilkan()
With ActivePresentation.Slides(13)
.Shapes(2).TextFrame.TextRange.Text = nilai
End With
End Sub

Sub Acak()
Dim Iupper As Integer
Dim Ilower As Integer
Dim Ifrom As Integer
Dim Ito As Integer
Dim i As Integer
Iupper = 11
Ilower = 2
For i = 1 To 2 * Iupper
Randomize
Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower)
Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower)
ActivePresentation.Slides(Ifrom).MoveTo (Ito)
Next i
Exit Sub
End Sub

3. Selanjutnya pada slide 1,buatlah sebuah tombol "OK" dan beri Action --> Run Macro --> pilih "Acak".
Dan buat satu tombol lagi "Mulai" beri Action --> Run Macro --> pilih "mulai".
Untuk tombol "Mulai" ini kita beri animasi "Zoom" dan diatur agar muncul setelah tombol "OK" diklik. (Gunakan Trigger)

 

4.  Buat Slide ke 2 yang berisi soal dan pilihan jawaban seperti gambar berikut:

      Buat 4 buah tombol dan tempatkan pada pilihan jawaban A, B, C dan D.
      Pada masing-masing tombol beri Action --> Run Macro --> pilih "Salah".
5. Copy slide 2 ini dan paste sebanyak 9 kali (Sehingga ada 10 soal).
6. Buat Slide ke-12 seperti tampilan berikut:

   Tombol "Lihat Nilai" diberi Action  --> Run Macro --> pilih " Cek"
7. Slide ke 13 (terakhir) seperti berikut ini;

Pada slide ini ada TextBox yaitu tempat menampilkan nilai (Pada gambar bernilai 0) dan sebuah tombol "Close". Tombol ini diberi Action --> Hyperlink To --> End Show.

8. Selanjutnya kembali ke slide 2 (Soal pertama), untuk tombol pada jawaban benar, beri Action --> Run Macro --> pilih "benar".
Dilanjutkan pada slide 3 sampai slide 11, ganti soal dan atur tombol jawaban benar seperti langkah 8.


Demikianlah cara membuat kuis acak Interaktif. Apabila file kuis acak ini dijalankan, maka urutan soal akan selalu berubah. Semoga bermanfaat.
Contoh filenya dapat di download disini --> KUIS ACAK

Auto Filter dan Penomoran Otomatis

Terkadang kita perlu menggunakan fungsi Filter untuk memilih data dari sekumpulan data dalam Excel. Tetapi yang terjadi adalah setelah Auto Filter dijalankan maka nomor data menjadi tidak terurut. Kadang kita menginginkan agar nomornya urut mulai dari 1, 2, 3, dst.
Bagaimana Caranya?

Mudah saja,   ===>  Gunakan saja Fungsi SUBTOTAL untuk menggantikan penomoran otomatis.

Pada contoh tersebut, di Cell A4 ketikkan rumus berikut: "=If(C4="";"""";Subtotal(3;$C$4:C4))"
Copy dan pastekan rumus tersebut pada cell A5 ke bawah.

Dengan demikian akan kita dapatkan penomoran yang terurut baik sebelum di filter maupun setelah difilter. Dan kitapun tetap dapat mengembalikan datanya seperti semula sebelum difilter.

Belajar Dapat Dolar

Penomoran Otomatis Data Di Excel

Seringkali kita menginput data dan memberikan nomor data tersebut disebelah kiri dari data tersebut. seperti terlihat pada gambar di samping.

Agar penomoran berjalan otomatis yaitu setiap kali kita tambah datanya maka momornya akan mengikuti (tidak perlu di-input),  caranya sangatlah mudah sebagai  berikut:

Pada cell A4 ketikkan rumus berikut  "=If(B4="";"";1)"
Pada Cell A5 ketikkan rumus berikut "=If(B5="";"";A4+1)"
Copy Cell A5 dan paste ke semua cell di bawah cell A5 tersebut.

Adapun untuk membuat border otomatis, caranya adalah sebagai berikut:
1. Blok Range (A4:B100)
2. Klik Conditional Formating --> New Rule --> Format only cell that contains --> Format --> Border --> (pilih border) --> Ok


Selamat Mencoba

Cara Mudah Menghilangkan Tanggal Posting di Blogspot

Tanggal postingan di blog kadang-kadang dirasa mengganggu. Karena tampilnya tanggal postingan itu maka ketahuan deh kapan artikel itu dibuat. Kalau belum lama sih gak apa apa. Tapi kalau sudah lama… Wuah bisa  kelihatan kurang fresh neh artikelnya. Jadul…. Hehehe…. 

Nah, untuk yang tidak menyukai ada tanggal postingan di blognya jangan bingung. Bisa dihilangkan kok.

Berikut ini langkah-langkahnya:

1. Login ke akun blogspot
2. Klik tata letak
   

3.  Klik edit yang terletak di bawah judul blog
4. Kemudian akan muncul tampilan baru seperti di bawah ini

 

5. Hilangkan centang di bagian tanggal posting
6. Klik save dan SELESAI