Pendakian ke Gunung Gede Pangrango

Sebagian besar dari kami adalah pendaki pemula, namun di pendakian perdana ini sudah dihadapkan dengan badai besar selama perjalanan menuju ke Alun-alun Surya Kencana, Taman Nasional Gede Pangrango.

Mendaki Puncak Gunung Papandayan

Gunung Papandayan kami pilih dengan alasan medannya yang terbilang cocok untuk pendaki pemula. Apalagi dalam tim kami kali ini ada 6 orang wanita yang juga ikut dalam pendakian.

Candi Gedong Songo di Kaki Gunung Unggaran

Letaknya yang sangat strategis, terletak di lereng gunung Unggaran membuat kompleks Cagar Budaya Candi Gedong Songo dimita oleh wisatawan.

Dul Muluk, Seni Teather Asli Indonesia

Mungkin tidak banyak yang tahu, jika Palembang juga memiliki pementasan seni teater seperti ludruk, wayang orang, dan Lenong. Dul Muluk, itu sebutan untuk pentas seni teather asal Palembang, Sumatera Selatan. -AndiSuNesia.Com-

Mesin-Mesin Industri Semen

Pembangunan di Indonesia semakin pesat, hal iniberdampak besar terhadap permintaan semen yang semakin tinggi. Industri Semen saat ini semakin tumbuh. Banyak Investor asing yang kini menanamkan modal mereka di bisnis yang satu ini. -AndiSuNesia.Com-

Rabu, 26 Mei 2010

Membuat Jam Analog dengan Visual Basic 6.0

Mungkin jika kita ingin membuat jam digital dengan visual basic adalah hal yang mudah namun bagaimana dengan Sebuah Jam Analog. Kali ini kita akan mencoba membuat sebuah jam analog dengan menggunakan visual basic 6.0

Langkah-langkahnya adalah sebagai berikut.
>>> Seperti Biasa anda terlebih dahulu buka Program Microsoft Visual Basic anda.
>>> kemudian Siapkan sebuah Form,ada baiknya jika kita menggunakan Form Bulat yang telah kita buat sebelumnya.
>>> Kemudian anda tambahkan 2 buah shape,dan 3 buah line dan sebuah kontrol timer sehingga tampilannya seperti ini.

Gambar.1 Tampilan Visual Awal dari Program

>>>setelah itu anda cukup menambahkan beberapa listing program diprogram sebelumnya. Sehingga listing program utuhnya akan menjadi seperti dibawah ini.




Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim atas As Long
Dim hasil As Long
Me.Width = 1000 * Screen.TwipsPerPixelX / 2
Me.Height = 1000 * Screen.TwipsPerPixelY / 2
atas = CreateEllipticRgn&(10, 50, 450, 470)
hasil = SetWindowRgn(Me.hWnd, atas, True)

Left = Screen.Width \ 2 - 4000
Top = (Screen.Height - Height) \ 2

End Sub





Private Sub Form_Resize()
Dim i, sudut
Static flag As Boolean
If flag = False Then
flag = True

End If
For i = 0 To 14

Scale (-1, -1)-(1.2, 1)
sudut = i * 2 * Atn(1) / 3
Line1.X1 = 3000
Line1.Y1 = 3000
Line1.X2 = Cos(sudut)
Line1.Y2 = Sin(sudut)
Line2.X1 = 3000
Line2.Y1 = 3000
Line2.X2 = Cos(sudut)
Line2.Y2 = Sin(sudut)
Line3.X1 = 3000
Line3.Y1 = 3000
Line3.X2 = Cos(sudut)
Line3.Y2 = Sin(sudut)
Next i

End Sub

Private Sub Timer1_Timer()
Const jam = 0
Const menit = 13
Const detik = 14
Dim sudut
Static detiklalu

If Second(Now) = detiklalu Then Exit Sub
detiklalu = Second(Now)

sudut = -0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))
Line1.X1 = 0
Line1.Y1 = 0
Line1.X2 = 0.4 * Cos(sudut)
Line1.Y2 = 0.4 * Sin(sudut)


sudut = -0.1047 * (75 - (Minute(Now) + Second(Now) / 60))
Line2.X1 = 0
Line2.Y1 = 0
Line2.X2 = 0.5 * Cos(sudut)
Line2.Y2 = 0.5 * Sin(sudut)


sudut = -0.1047 * (75 - Second(Now))
Line3.X1 = 0
Line3.Y1 = 0
Line3.X2 = 0.6 * Cos(sudut)
Line3.Y2 = 0.6 * Sin(sudut)

End Sub

>>> Dan Hasilnya dari proram yang telah kita buat


 Gambar.2 Hasil Akhir Dari Program Kita
 

Selasa, 25 Mei 2010

Membuat Form Unik dengan Visual Basic 6.0

    Dengan visual basic kita tidak hanya dapat menggunakan form standart yang telah disediakan tapi dengan sedikit perhitungan matematis kita akan dapat menghasilkan bentuk form yang unik.Sebagai contoh disini kita akan membuat form unik berbentuk lingkaran.

Langkah-langkahnya sebagai berikut:

>> Telebih dahulu buka program Visual Basic 6.0 anda
>> Dan pilih standart project.
>> Kemudian anda sediakan sebuah module baru dan ketikan listing berikut. Atau    cukup di jendela code,dan anda ganti Public menjadi Private

Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long


Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Note.Anda dapat menggunakan file API dari VB. Caranya baca di Menggunkan file API

>>> kemudian di jendela kode ketikan Listing ini

Private Sub Form_Load()
Dim atas As Long
Dim hasil As Long
Me.Width = 1000 * Screen.TwipsPerPixelX / 2
Me.Height = 1000 * Screen.TwipsPerPixelY / 2
atas = CreateEllipticRgn&(10, 50, 450, 470)
hasil = SetWindowRgn(Me.hWnd, atas, True)
End Sub

Private Sub Form_Paint()
Dim y As Long
Dim tinggi As Long
Dim lebar As Long
ScaleMode = vbPixels
tinggi = ScaleHeight
lebar = ScaleWidth
DrawStyle = vbInvisible
FillStyle = vbFSSolid
For y = 0 To tinggi
    FillColor = RGB(0, 0, 255 - (y * 255) \ tinggi)
    Line (-1, y - 1)-(lebar, y + 1), , B
    Next y
End Sub

Dan Form yang akan jadi seperti ini.
Gambar.1 Form Unik Buatan Sendiri

Senin, 24 Mei 2010

Membuat Game Sederhana Dengan Visual Basic 6.0

Mungkin bagi sebagian orang bermain game adalah hal yang menyenangkan dan bagi sebagian yang lain adalah hal yang tak berguna. Tidak ada yang akan menyalahkan pendapat mereka.
    Tapi bagaimana jika kita sendiri yang mencoba membuat game untuk kita mainkan sendiri.(meski belajar dari orang lain…He…he…he….Sama!)  Tentu akan ada sensasi yang berbeda. Yap kita akan coba melakukannya dengan visual basic.
    Sebelum melangkah lebih jauh,ada baiknya anda terlebih dahulu membaca artikel terkait:

Membatasi Penggunaan karakter pada Textbox (Visual Basic 6.0)
Hanya Angka Yang Bisa (Tips dan Trik Visual Basic 6.0)

    Jika sudah,kita akan lanjut ke sesi selanjutnya. Langkah-langkahnya seperti biasa lihat dibawah:
-buka program visual basic
-pada form tambahkan sebuah shape(atur sendiri propertisnya),2 buah label,sebuah textbox dan 3 buah command button.
-atur tampilanya seperti gambar diatas (bisa juga sesuai keinginan anda).
-buka jendela code dan ketikan listing proram berikut:
Gambar.2 listing Program

-selanjutnya jalankan program anda. Silakan bermain dengan game buatan sendiri.

Download artikel ini:
Membuat Game Sederhana Dengan Visual Basic 6.0.doc
Download source code " acak.zip"

Artikel terkait:
Membatasi Penggunaan karakter pada Textbox (Visual Basic 6.0)
Hanya Angka Yang Bisa (Tips dan Trik Visual Basic 6.0)

Merancang Sistem Keamanan Anti Maling Sederhana menggunakan Photodioda dan mikrokontroler Atmega8/Atmega8535

    Sebenarnya pembahsan sistem keamanan seperti ini telah banyak beredar di internet ataupun juga telah banyak dibahas di forum-forum pencinta elektronika. Namun tahukah anda jika kita juga mampu untuk membuat sendiri peralatan seperti itu.
    Komponen yang kita perlukan cukup mudah kita dapatkan dipasaran saat ini. Jika tidak tersedia di kota anda mungkin anda bisa memeannya melalui toko online di internet tentunya.

Komponen yang diperlukan antara lain:
>> Mikrokontroler AVR Atmega8 atau juga Atmega8535 lengkap dengan sistem minimumnya.
Anda bisa membuat sendiri sistem minimum mikrokontroler ini. Mudah kok.
>> Kabel ISP downloader,kita akan memprogram mikrokontroler menggunkan komputer PC.
Silakan buat sendiri juga,mudah sekali.
>> 3 buah photodioda,dan juga 3 buah infrared
>> resistor 220Ohm,1 Kohm dan juga 470 Ohm seperlunya
>> lm339 1 buah
>> resistor variabel 3 buah 10Kohm
>> 1 buah Buzzer

Terlebih dahulu kita harus mengetahui bagaimana rangkaian yang akan kita gunakan nanti sebagai sensor yang akan mendeteksi adanya Maling nanti. Anda bisa menggunakan rangkaian di bawah ini. Rangkaian Yang digunakan adalah sama dengan yang kita gunakan pada robot line follower.

 Gambar.1 Rangkaian Pembanding Sensor Proxymiti

Selanjutnya kita akan merancang penempatan dari sensor yang akan kita gunakan sehingga dapat mengenali manusia. Penempatannya cukup mudah, buat seperti gambar dibawah.
Gambar.2 Blok Hardware yang digunakan

Dan algoritma dari kondisi tersebut adalah seperti diberikut.
>>Dalam kondisi awal kita akan membuat sensor memberikan kodisi high.
>>Jika ada yang melalui sensor,sensor memberikan kondisi low karena adanya aktifitas yang memutuskan hubungan sensor.
>>Jika hanya sensor 1 yang memberikan kondisi low maka bisa jadi hewan yang melaluinya.
>>Namun jika sensor 1 dan sensor 2 yang memberikan kondisi low maka hal tersebut mengindikasikan adanya orang yang melalui sensor. Dan buzzer akan berbunyi pelan.
>>Namun jika ketiga sensor yang memberikan kondisi low maka buzzer akan berbunyi nyaring. Hal tersebut karena ada maling yang mencoba masuk kerumah anda.

Untuk listing program mungkin anda buat sendiri,bisa dengan assembler,basic ataupun c. Mudah kok.
Selamat mencoba.

Rancang bangun sistem Pengendali Peralatan Listrik Rumah Tangga Via Internet menggunakan Sistem Mikrokontroler AVR/MCS51

    Semakin berkembangnya Mikrokontroler saat ini membuat Para Pencinta Elektronika semakin terbantu dalam eksperimen-eksperimennya. Fitur-fitur yang canggih dan kapasitas memori yang kian bertambah membuat banyak hal dapat dilakukan dengan Chip Pintar ini.
    Bidang Robotika dan Bidang Automasi semakin dilirik oleh Para Penggila Elektronika, bagaimana tidak semua hal bisa dilakukan mengingat harga mikrokontroler yang terbilang murah dan mudah untuk didapatkan dipasaran.
    Salah satu fitur yang berharga dari sebuah mikrokontroler adalah kemampuannya untuk berkomunikasi dengan sesama mikrokontroler ataupun dengan komputer secara serial. Sehingga kita sebagai User dapat memberikan masukan/input perintah ke mikrokontroler melalui komputer. 

I. Sistem Minimum Mikrokontroler
    Baca juga tentang Sistem Minimum Mikrokontroler
II. Serial Port DB9 Komputer
    Baca artikel sebelumnya tentang serial Port.
III. Rangkaian Saklar Otomatis menggunakan Relay



Gambar.1 Rangkaian Saklar Otomatis

IV. Blok Diagram Sistem Pengendali Peralatan Listrik Rumah Tangga Via Internet menggunakan Sistem Mikrokontroler AVR/MCS51


Gambar.2 Blok Diagram Sistem Aplikasi