Keluarga KU

          Syamsuddin Saleh Tanjung                                          Sukiman
          Salbiah Sitorus                                                            Sri Astuti
                                                       
                                    Elly Syam Tanjung           Sri Susianti

                                             Poppy Hardiyanti Syam
                                             Firhan Azmi Prayoga Syam
                                             Syahruna Zuhrianti Syam

Canon Powershot D20

Canon tidak henti-hentinya menghadirkan kamera sakunya dengan beragam fitur dan teknologi fotografi terdepan. Tak ayal bagi konsumen yang memiliki gaya hidup yang aktif. Canon PowerShot D20 adalah kamera yang memiliki ketahanan terhadap air hingga kedalaman 10 meter, tahan banting dari ketinggian 1,5 meter, tahan beku hingga suhu -10°C, dan tahan debu. Kemampuan yang dimiliki PowerShot D20 tersebut terasa sempurna ketika disanding dengan sensor CMOS 12.1 megapixel dan prosesor gambar DIGIC 4 yang membantu menghasilkan foto berkualitas tinggi dalam keadaan apa pun.

Canon PowerShot D20 didukung lensa wide-angle 28mm dan kemampuan 5x zoom membuat D20 cocok digunakan untuk mengambil foto pemandangan. Apalagi Canon membenamkan teknologi Intelligent IS yang menganalisis setiap setting pengambilan foto dan memilih satu dari tujuh model Image Stabilizer yang paling cocok. Selain Intelligent IS, Canon PowerShot D20 di persenjatai D20 dengan tiga mode IS lainnya. Dynamic IS yang menyeimbangkan gerakan tangan pada saat merekam video untuk mencapai kualitas yang maksimal, Panning IS yang memastikan sistem IS terfokus ke satu titik pengambilan foto, serta Macro IS untuk pengambilan foto dari jarak dekat secara mendetail.


Untuk memastikan kualitas foto yang diambil dalam air tetap terjaga, pada Canon PowerShot D20 telah disiapkan sejumlah fitur khusus. Mode Underwater Macro memungkinkan pengguna untuk mengambil foto secara mendetail, serta dikombinasikan dengan Quick AF untuk memastikan kecepatan dan akurasi fokus. Underwater White Ballace juga dibawa oleh Canon ke dalam D20 untuk membantu pengguna menghasilkan foto dengan warna-warna natural yang indah.

Melengkapi perannya sebagai teman setia para traveller, PowerShot D20 dilengkapi dengan fungsi GPS yang dapat menambahkan data lokasi dan rute perjalanan ke setiap foto yang diambil. Pengguna dapat berbagi informasi tersebut dengan mudah melalui software Map Utility ataupun Google Earth. Catatan perjalanan pengguna semakin lengkap dengan kehadiran mode Movie Digest yang akan merekam setiap empat detik sebelum pengambilan foto. Hasilnya dapat digabungkan untuk menciptakan film beresolusi HD 720p yang menceritakan setiap perjalanan pengguna.

Canon PowerShot D20 dilengkapi setiap feature menarik yang dibalut dalam desain tubuh D20 yang kokoh dengan layar LCD PureColor II berukuran 3 inci. Pengguna dapaat mengontrol setiap mode dan feature, serta melihat kembali hasil foto dan video melalui kamera beresolusi 460k dot tersebut. Untuk memudahkan pengguna dalam berbagi pengalaman dengan teman atau keluarga, sebuah port HDMI telah disiapkan sehingga foto dan video dapat ditampilkan melalui televisi HD.

Canon IXUS 115 HS

Kecil, ringan, tapi mumpuni. Kamera digital Canon IXUS 115 HS merekam foto di ruangan temaram maupun di luar ruang saat malam tanpa bantuan tripod dengan apik Hasilnya tidak kabur, berkat kerjsama sensor CMOS 12,1 megapiksel dan prosesor Canon DIGIC 4.

Sejumlah fitur dan efek unik pada kamera digital ini, seperti Hi-speed burst 8,2fps, Super Slow Motion Movie, fi sh-eye, poster dan toy camera, sudah tersemat. Satu yang menarik pada Canon IXUS 115 HS adalah Movie Digest yang membuatkan klip pendek ketika foto burst diambil. Eh, ada sedikit jeda saat kamera merekam ke kartu memori di Movie Digest maupun di Handheld Night Scene.


Dalam urusan merekam video Full HD, Kamera Digital Canon IXUS 115 HS tak kalah cakap. Videonya mulus, lengkap dengan suara stereo. Sebuah tombol khusus tersedia untuk keperluan ini. Sayangnya kita hanya bisa merekam video HD maksimal 1 menit per klip. Pada detik ke-40 hadir peringatan waktu rekam berupa tanda seru.

Sebagai kamera superkompak nan tipis, Kamera Digital Canon IXUS 115 HS layak dipilih jika kamu mengutamakan kemudahan mengabadikan suasana (foto dan video HD), dan sesekali mau mengatur seting sendiri. Jika tak mau repot, geser tuas di panel atas ke kanan (Auto). Maka semua pengaturan, termasuk fokus dan makro, diurus kamera. Baterai Li-ion-nya menyerah setelah merekam 192 foto dan 14 klip video Full HD.

Spesifikasi Canon IXUS 115 HS

Resolusi sensor: 12,1 megapiksel CMOS
Resolusi foto (min/max): 640×360/4000×3000
Resolusi video (min/max): 640×480/1920x 1080 pixel 24fps
Media perekaman: Kartu SD/SDHC/SDXC, MMC/MMC plus, HCMMCplus
Format file: (gambar/video) JPG/MOV
Ukuran lensa ekivalen-35mm (mm): 28 – 112
Setting aperture (wide/tele): f/2.8-f/5.9
Ekivalen ISO: Auto, 80, 100, 200, 400, 800, 1600, 3200
Zoom: Optical 4x Digital 4x
Kecepatan shutter (detik): 1 – 1/1500
Timer (detik): 2, 10, custom (foto)
Fokus terdekat terbaik: 3cm
Diagonal LCD: 3” TFT 230.000 dots
Viewfinder:  -
Metode koneksi: USB 2.0 Hi-Speed, HDMI
Tipe baterai/isi ulang: Li-ion NB-4L 3,7V 760mAH/Ya
Dimensi: (plt) 9,31×5,58×1,99 cm
Bobot: 140 gram (dengan batere dan kartu SDHC)
Situs web http://www.canon.co.id
Garansi: 1 tahun

Select pada VB

SELECT CASE

Bentuk decision yang kedua setelah if adalah case dipergunakan untuk menyeleksi kondisi dan mengujinya sama dengan fungsi IF, perbedaannya IF dapat menguji lebih dari satu variabel sedangkan Case di rekomendasikan untuk nilai dari satu variabel.

 Jika gol=3 dan status=tetap maka…..àContoh : IF
Jika untuk case bentuk diatas tidak dapat diselesaikan.

Bentuk umum SELECT CASE
Select Case variabel
Case nilai 1 : pekerjaan1
Case nilai 2 : pekerjaan2
|
|
Case Else
Pekerjaan_N
End Select.

Contoh:

A. Perintah Untuk Tombol Proses yang pertama (CASE)
Private Sub proses1_Click()
Select Case kodesek
Case "1": jenjang = "SD"
Case "2": jenjang = "SMP"
Case "3": jenjang = "S M A"
Case "4": jenjang = "D III"
Case "5": jenjang = "S1"
Case Else
jenjang = "Dibawah SD"
End Select
End Sub

B. Perintah Untuk Tombol Proses yang kedua (IF)
Private Sub proses2_Click()
If kosek = "1" Then
jjg = "SD"
ElseIf kosek = "2" Then
jjg = "SMP"
ElseIf kosek = "3" Then
jjg = "S M A"
ElseIf kosek = "4" Then
jjg = "D III"
ElseIf kosek = "5" Then
jjg = "S1"
Else
jjg = "Dibawah SD"
End If
End Sub

Untuk mengisi combo pada kode sekolah (kodesek dan kosek), buat di Form_load
Private Sub Form_Load()
kodesek.AddItem "1"
kodesek.AddItem "2"
kodesek.AddItem "3"
kodesek.AddItem "4"
kodesek.AddItem "5"
kodesek.AddItem "6"


kosek.AddItem "1"
kosek.AddItem "2"
kosek.AddItem "3"
kosek.AddItem "4"
kosek.AddItem "5"
kosek.AddItem "6"
End Sub

Pekerjaan Diatas dilakukan dengan ketentuan sebagai berikut:
Jika kode sekolah =1 maka jenjang pendikan =SD
Jika kode sekolah =2 maka jenjang pendikan =SMP
Jika kode sekolah =3 maka jenjang pendikan =SMA
Jika kode sekolah =4 maka jenjang pendikan =D III
Jika kode sekolah =5 maka jenjang pendikan =S1
Selainnya jenjang pendidikan = Dibawah SD




Contoh yang Kedua
Ketentuan Soal:
Jika Kode barang= A001, maka nama barang = Gula dan
Satuan= Goni , Kilo
Jika Kode barang= A002, maka nama barang = Bodrex dan
Satuan= Kotak , Papan, Tablet
Jika Kode barang= A003, maka nama barang = Sampoerna dan
Satuan= Tin , Slop, Bungkus

Rancangan Outputnya Sebagai Berikut:





A. Perintah pada Tombol Prosesnya:
DENGAN IF
Private Sub proses_Click()
If kobar = "A001" Then
nabar = "Gula"
satuan.Clear
satuan.AddItem "Goni"
satuan.AddItem "Kilo"
ElseIf kobar = "A002" Then
nabar = "Bodrex"
satuan.Clear
satuan.AddItem "Kotak"
satuan.AddItem "Papan"
satuan.AddItem "Tablet"
Else
nabar = "Sampoerna"
satuan.Clear
satuan.AddItem "Tin"
satuan.AddItem "Slop"
satuan.AddItem "Bungkus"

End If

DENGAN CASE
Private Sub proses_Click()
Select Case kobar
Case "A001":
nabar = "Gula"
satuan.Clear
satuan.AddItem "Goni"
satuan.AddItem "Kilo"
Case "A002":
nabar = "Bodrex"
satuan.Clear
satuan.AddItem "Kotak"
satuan.AddItem "Papan"
satuan.AddItem "Tablet"
Case Else
nabar = "Sampoerna"
satuan.Clear
satuan.AddItem "Tin"
satuan.AddItem "Slop"
satuan.AddItem "Bungkus"

End Select
End Sub

B. Perintah pada Tombol Ulang:
Private Sub xUlang_Click()
Nabar.text=””
Harga.text=””
Kobar.setfocus
End If

B. Perintah pada FORM_Load:
Private Sub xUlang_Click()
kobar.additem “A001”
kobar.additem “A002”
kobar.additem “A003”

End If

C. Perintah pada Tombol Keluar:
Private Sub xKeluar_Click()
End
End If