Hari ini di SMP Negeri 4 Bekasi dilakasanakan kegiatan : ToT"Pembelajaran Berbasis IT, Kegiatan ini dimulai pukul 08.45 diawali Sambutan Ketua Pelaksana : Sri Winarni, M.MPd, kemudian sambutan dari Penanggung Jawab Kegiatan : Bp. Ahmad Baihaqi, M.Pd Kasi Kurikulum Dikdas Dinas Pendidikan Kota Bekasi. Disampaikan oleh Beliau, bahwa Kurikulum 2013 nanti Mata Pelajaran TIK tidak ada, diharapkan penggunaan IT diterapkan langsung dalam semua materi pelajaran ... Berikutnya sambutano oleh Kepala Dinas Pendidikan Kota Bekasi Bapak Dr. Encu Hermana, sekaligus pembukaan Kegiatan ... Menurut beliau : Sejak tahun 2005 pemkot Bekasi sudah mengucurkan dana berkisar 300 juta untuk kegiatan MGMP namun setelah adanya BOS dana untuk MGMP tidak lagi dikucurkan. Masih menurut Dr. Encu Hermana : Di Kota Bekasi dalam rekrutment siswa untuk tahun pelajaran 2013/2014 murni berdasarkan NEM. Hari ini akan ditandatangani Fakta Integritas, bahwa Jika terjadi penerimaan siswa baru yang diluar jalur PPDB online dari Telkom, maka Kepala Dinas atau kepala sekolah siap diberhentikan .. kemudian disambut tepuk tangan yang meriah oleh peserta kegiatan
KITA HARUS YAKIN TAK ADA YANG TAK MUNGKIN !

soal

Kamis, 11 April 2013

Tipe Data dalam Aplikasi Visual Basic (VBA) pada Powerpoint


Tipe Data dalam Aplikasi Visual Basic (VBA) pada Powerpoint

Istilah integer, string, Boolean, variant, merupakan tipe data dalam pemrograman digunakan untuk  mendeklarasikan sebuah variabel dengan menyebutkan tipe datanya. Misalnya :
Dim Nilai As Integer

Bermakna variabel nilai kita deklarasikan dalam tipe data integer. Tipe data dalam  Aplikasi Visual Basic (VBA) pada Powerpoint

Tipe Data
Keterangan
Integer
Data numerik dengan jangkauan input antara -32768 sampai dengan 32767
String
Data berupa teks
Long
Data numerik dengan jangkauan input antara -2147483648 sampai dengan 2147483647
Single
Data numerik dengan jangkauan input antara -3.402823E38 sampai dengan -1.401298E-45 jika negatif, dan antara 1.401298E-45 sampai dengan 3.402823E38 jika positif.
Double
Data numerik dengan jangkauan input antara -1.79769313486232E308 sampai dengan -4.94065645841247E-324 jika negatif, dan antara 4.94065645841247E-324 sampai dengan 1.79769313486232E308 jika positif.
Currency
Data berupa nilai uang
Byte
Data berupa bilangan bulat antara 0 sampai dengan 255
Boolean
Data yang hanya memiliki nilai benar (True) dan salah (False)
Object
Data mengacu pada object yang digunakan
Date
Data berupa tanggal
Variant
Data inout sembarang angka dengan jangkauan tipe double dan teks yang jangkauannya sama dengan string

Sebuah variabel sebelum digunakan dideklarasikan dahulu dalam jendela code. Mendeklarasikan variabel bertujuan untuk mengenalkan variabel tersebut pada program dibuat. Pendeklarasian variabel biasanya diletakkan di bagian paling atas (bagian General) atau bisa juga di bagian Prosedur.

Untuk mendeklarasikan sebuah variabel digunakan pernyataan Dim diikuti nama variabel beserta tipe data  sebagai berikut :

Dim<Nama_Variabel>As<Tipe_Data>

Mendeklarasikan sebuah variabel dengan pernyataan Dim pada sebuah prosedur maka hanya akan berlaku selama prosedur tersebut. Artiya, setelah prosedur tersebut selesai dijalankan maka data pada variabel akan terhapus dengan sendirinya.
Selain menggunakan Dimdimungkikan bisa mendeklarasikan sebuah variabel menggunakan pernyataan-pernyataan berikut ini :
  1. Public, penggunaannya berlaku pada semua bagia program aplikasi yang dibuat
  2. Static, penggunaannya berlaku hanya pada level prosedur saja
  3. Private, penggunaannya berlaku hanya pada level modul atau form saja

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZhpzgTagC-lG8mDVtN6K9IM8XLmBEqqwLidjRGHJQ0nzXuTXCwwTRgE71KY14uRjnvHiWcqeU3l18_iRWYuUMKsIQTmr8sSZT8pDR3uetXrLS7W7p929fgpdCGZbkl2CYtBWbtPAePtw/s640/Mendeklarasikan+variabel.JPG



Program yang akan kita buat adalah kalkulator sederhana, hanya akan menggunakan operasi dasar matematika yaitu penjumlahan (+), pengurangan (-), perkalian (x), pembagian (/), dan pemangkatan (^). Kelima operasi dasar tersebut akan difungsikan melalui lima buah tombol operasi dan dilengkapi dengan satu buah tombol untuk menghapus data input dan data output.


https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdgNZizXbX5qRah-G0e8-zQkpxxx8XefNfVS4whiBLXRJ7qLkUKqHWQOzzKJ0Yh1RtEpbKx00V5kgjRHDMLKRgCmSwqb8wKCgIoLhLQ5ifxeymZouRFIXrhh5vlrjpDdtQqOLSqnV_ob4/s640/Tutorial+Kalkulator+VBA+2.jpg


Langkah-langkah pembuatannya adalah sebagai berikut :
Pertama, Jalankan program Microsoft Office Powerpoint, pastikan menu developer sudah muncul di deretan menu utama
Kedua, ubah layout slide 1 menjadi blank
Ketiga, Pasang tiga buah TextBox  dan enam buah Command Button di slide 1 dan ubah properties masing-masing kontrol seperti ditunjukkan pada gambar di bawah ini :


Properties masing-masing kontrol adalah sebagai berikut :
Kontrol
Name
Caption
TextBox1
a
TextBox2
b
TextBox3
Hasil
CommandButton1
plus
+
CommandButton2
minus
-
CommandButton3
pangkat
^
CommandButton4
kali
x
CommandButton5
bagi
/
CommandButton6
Hapus
(sahabat juga bisa mengatur jenis dan ukuran font tiap kontrol)
Keempat, Pasang kode VBA di masing-masing CommandButton dengan cara klik dua kali pada masing-masing tombol dan ketikkan kode VBA sebagai berikut :

Nama Kontrol
Caption
Kode VBA
plus
+
Private Sub plus_Click()
Hasil = Val(a) + Val(b)
End Sub
minus
-
Private Sub minus_Click()
Hasil = a - b
End Sub
pangkat
^
Private Sub pangkat_Click()
Hasil = a ^ b
End Sub
kali
x
Private Sub kali_Click()
Hasil = a * b
End Sub
bagi
/
Private Sub bagi_Click()
Hasil = a / b
End Sub
Hapus
Private Sub Hapus_Click()
a = ""
b = ""
Hasil = ""
End Sub

Kelima, sisipkan background dan berbagai shape untuk mempercantik desain. Jalankan Powerpoint dengan klik Slide Show (atau F5).
Program Kalkulator sederhana menggunakan VBA pada Powerpoint


Apa kabar sahabat ?, pada kesempatan ini kita akan belajar kembali mengenai pemrograman pada powerpoint menggunakan visual basic for aplication (VBA). Kali ini kita akan membuat program yang sangat sederhana, yaitu media berhitung untuk anak yang memuat penjumlahan dan pengurangan seperti ditunjukkan pada gambar di bawah ini :

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhF6sdE8TkTusuc5hZ7zvh8bSciqZzeosUpTDukXb3CyFj6tlK-u67T7LjxTdG0Dtk4psV3i-w9F6ikYjpVXDCxGmZ_i9F132yBPkyWoDACfA5zX8dDtiJNK4t0gpWjrLUm9KfSRSAUN_c/s400/Belajar+berhitung+yuk.JPG
 Untuk membuatnya ikuti langah-langkah di bawah ini :


  • Bukalah Program Microsoft Office Powerpoint kemudian pilih layout blank
  • Klik menu developer dan insert delapan buah Text Box, dan tiga buah Command Button, lalu atur properties masing-masing :
Kontrol
Name
Caption
TextBox1
a

TextBox2
b

TextBox3
c

TextBox4
keterangan

TextBox5
d

TextBox6
e

TextBox7
f

TextBox8
keterangan2

CommandButton1
cek
CEK
CommandButton2
cek2
CEK
CommandButton3
Reset
RESET
  •  Pasang kode VBA di masing-masing CommandButton dengan cara klik dua kali pada masing-masing tombol dan ketikkan kode VBA sebagai berikut :
Nama Kontrol
Caption
Kode VBA
CommandButton1
CEK
Private Sub Cek_Click()
Call Rumus
End Sub
CommandButton2
CEK
Private Sub Cek2_Click()
Call Rumus2
End Sub
CommandButton3
RESET
Private Sub Reset_Click()
a = ""
b = ""
c = ""
d = ""
e = ""
f = ""
keterangan = ""
keterangan2 = ""
End Sub
  • Pasang juga kode VBA di bagian General sebagai berikut :
  • Atur tampilan agar lebih menarik dengan menambahkan background, shape, maupun picture yang sesuai.
  • Simpan file dalam format pptm
  • Jalankan program 



https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioZyIfx5OQ3B_O2QwH8QKsiWeL6tUIOMTnNznkBK05jH2R3TODkz_8aQqlkbJY6TO3wKF9rj42rWJXD3SrOTq08URRCQf1aE2ItFxf0yxfdCui5wD2mAnHA003MaQ3-hfUdeVIHxPATCg/s400/belajar+berhitung+2.JPG
Sub Rumus()
If c = Val(a) + Val(b) Then keterangan = "benar"
If c <> Val(a) + Val(b) Then keterangan = "salah"
End Sub

Sub Rumus2()
If f = Val(d) - Val(e) Then keterangan2 = "benar"
If f <> Val(d) - Val(e) Then keterangan2 = "salah"
End Sub

0 komentar:

Posting Komentar

Tinggalkan komentar anda disini :