Visual Basic

Seringkali dalam membuat aplikasi dalam lingkungan Visual Basic, kita sudah disuguhkan dengan bentuk jendela dengan tampilan yang sama. Bagaimana kalau kita ingin membuat bentuk tampilan jendela sesuai dengan selera kita ? Bisa, karena tutorial kali ini kita akan membuat suatu bentuk jendela dengan TitleBar, tombol Minimize, Maximize dan Exit ala sendiri dan sangat mudah sekaligus sederhana dalam pembuatannya. Sudah tidak sabar ? Kalau begitu kita langsung saja ke langkah yang pertama yaitu,

Buatlah form untuk merancang tampilan jendela aplikasi seperti terlihat pada gambar 1. Kontrol-kontrol yang ditambahkan pada form tersebut adalah :
- 1 buah Label
- 5 buah PictureBox

Ubahlah properti-properti dari kontrol-kontrol tersebut seperti tertera pada tabel 1.

Kontrol	Properti	Nilai
Label1	BackStyle	0 - Transparent
	(Name)	lblTitle
	Caption	Jendela buatanku
	ForeColor	&H00FFFFFF&
Picture1	BackColor	&H000080FF&
	BorderStyle	0 - None
	Width	6735
	Height	375
	(Name)	PicTitleBar
Picture2	BackColor	&H00008000&
	BorderStyle	0 - None
	Width	255
	Height	255
	(Name)	PicMinimize
	ToolTipText	Minimize
Picture3	BackColor	&H00800000&
	BorderStyle	0 - None
	Width	255
	Height	255
	(Name)	PicMaximize
	ToolTipText	Maximize
Picture4	BackColor	&H00000080&
	BorderStyle	0 - None
	Width	255
	Height	255
	(Name)	PicExit
	ToolTipText	Exit
Picture5	BackColor	&H000080FF&
	BorderStyle	0 - None
	Width	6735
	Height	135
	(Name)	PicFootBar
Form1	Caption	JENDELA BUATANKU
	BorderStyle	0 - None
	ShowInTaskbar	True
	StartUpPosition	2 - CenterScreen
	Width	6720
	Height	4440

Tabel 1.

Sebagai keterangan, kotak-kotak kecil  berwarna pada Form masing-masing memiliki fungsi yang berbeda. Kotak berwarna hijau akan diberi fungsi Minimize jendela, sebaliknya kotak berwarna biru akan kita beri fungsi Maximize jendela , dan kemudian kotak berwarna merah sebagai fungsi untuk menutup jendela atau exit.  Sebagaimana jendela aplikasi pada umumnya, jendela harus mudah dipindah-pindah yang bisanya mendrag bagian TitleBar.

Maka pada PicTitleBar, kita akan memasukkan kode program yang dapat menggeser jendela seperti yang tertera pada Listing 1. Sekarang buat Module dan kemudian isi dengan kode program pada Listing 2 untuk mendeklarasikan fungsi yang dibutuhkan untuk mendrag jendela. Pada Listing 3 terdapat kode program untuk PicMinimize supaya ketika kita klik kotak warna hijau , tampilan jendela dalam keadaan minimize. Sekarang bagaimana mengatur tampilan menjadi Maximize ? Isi kode program pada PicMaximize dan PicTitleBar seperti yang terlihat pada Listing 4 .

Untuk mengaktifkan Maximize kita perlu mengatur lebar dan tinggi jendela baik dalam keadaan normal atau maximize seperti pada Listing 5. Ukuran-ukuran yang ada pada Listing 5 hanya berlaku bila jendela yang kita buat berada pada layar monitor yang berresolusi 1024x768 pixel. Di luar resolusi itu hasil tampilan jendela akan terlihat berantakan. Maka jika itu terjadi, kita dapat menyesuaikannya dengan mengatur kembali  nilai lebar dan tinggi jendela aplikasi yang kita buat.

Seperti kode program yang tertera pada Listing 5, kita mengatur agar saat jendela dalam keadaan normal, ToolTip pada PicMaximize menampilkan tulisan ”Maximize”. Saat tampilan dalam keadaan Maximize, ToolTip menampilkan tulisan ”Restore Down”.   Langkah yang terakhir, pada PicExit kita memasukkan kode program yang berfungsi menutup aplikasi seperti yang tertera pada Listing 6. Supaya tampilan lebih menarik lagi, kita juga dapat mengimpor gambar pada setiap kontrol PictureBox.  Tutorial berikutnya kita akan mencoba memeberikan efek trasparan pada jendela aplikasi yang kita buat. Selamat mencoba !!!

Listing 1

PLAIN TEXT

CODE:

1. Private Sub PicTitleBar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
2. ‘Jika tampilan dalam keadaan Maximize, Jendela tidak akan pernah dapat digeser-geser
3. If  Me.WindowState <> 2 Then
4. GeserJendela Me
5. End If
6. End Sub

Listing 2

PLAIN TEXT

CODE:

1. Public  Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
2. (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam _
3. As Any) As Long
4. Declare Sub ReleaseCapture Lib "user32" ()
5.  
6. Public Sub GeserJendela(TheForm As Form)
7. ReleaseCapture
8. Call SendMessage(TheForm.hWnd, &HA1, 2, 0&)
9. End Sub

Listing 3

PLAIN TEXT

CODE:

1. Private Sub PicMinimize_Click()
2. Me.WindowState = 1
3. Me.PicMinimize.BackColor = &H8000&
4. End Sub

Listing 4

PLAIN TEXT

CODE:

1. Private Sub PicMaximize_Click()
2. AksiMaximize
3. Me.PicMaximize.BackColor = &H800000
4. End Sub
5.  
6. Private Sub PicTitleBar_DblClick()
7. AksiMaximize
8. End Sub
9.  
10. Private Sub lblTitle_DblClick()
11. AksiMaximize
12. End Sub
13.  
14. Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
15. geser
16. End Sub

Listing 5

PLAIN TEXT

CODE:

1. Sub AksiMaximize()
2. If  Me.WindowState = 2 Then
3. Me.WindowState = 0
4. Me.PicMinimize.Left = 5640
5. Me.PicMaximize.Left = 6000
6. Me.PicExit.Left = 6360
7. Me.PicMaximize.ToolTipText = "Maximize"
8. Me.PicFootBar.Top = 4320
9. Else
10. Me.WindowState = 2
11. Me.PicTitleBar.Width = 15400
12. Me.PicMinimize.Left = 14200
13. Me.PicMaximize.Left = 14600
14. Me.PicExit.Left = 15000
15. Me.PicMaximize.ToolTipText = "Restore Down"
16. Me.PicFootBar.Width = 16000
17. Me.PicFootBar.Top = 11400
18. End If
19. End Sub

Listing 6

PLAIN TEXT

CODE:

1. Private Sub PicTitleBar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
2. Me.PicExit.BackColor = &H80&
3. Me.PicMaximize.BackColor = &H800000
4. Me.PicMinimize.BackColor = &H8000&
5. End Sub
6.  
7. Private Sub PicMaximize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
8. Me.PicMaximize.BackColor = &HFF0000
9. End Sub
10.  
11. Private Sub PicMinimize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
12. Me.PicMinimize.BackColor = &HFF00&
13. End Sub
    
    

Read more »

Resep Gulai Ayam

Gulai Ayam


Bahan :

• 1 ekor ayam sedang
• 10 buah cabe merah
• 10 buir bawang mera, diiris
• 4 siung bawang putih, diiris halus
• 1 ruas kunyit
• 1 ruas lengkuas
• 4 sendok makan ketumbar
• 5 sendok makan minyal samin
• 1 sendok teh adas halus
• 1 potong kayu manis
• 1 sendok teh pala
• 1 sendok asam jawa
• 2 sendok makan kelapa gongseng dihaluskan
• 2 ½ gelas santan
• Sejumput jinten

Cara memasak :

• Ayam dipotong-potong, cuci bersih, tiriskan
• Haluskan cabe, kunyit dan lengkuas
• Tumis bawang mera, bawang putih dan kayu manis dengan minyak samin sampai kering dan kuning, masukkan cabe dan goreng sebentar.
• Masukkan ketumbar halus serta potongan ayam, beri air secukupnya, rebus hingga empuk
• Masukkan santan dan air asam jawa, aduk
• Bila santan mendidih angkat dan siap dihidangkan

Read more »

Resep Ayam Opor

Resep Ayam Opor




Bahan :
1 ekor ayam sedang
1 liter santan encer
1/2 liter santan kental
1 btg serai dimemarkan
2 lbr daun salam
2 lbr daun jeruk purut

Bumbu :
8 bh bawang merah
4 siung bawang putih
2 sdk teh ketumbar
1/2 sendok teh jinten
1/2 jari lengkuas
5 buah kemiri
lada, garam, gula

Cara memasak :
Ayam dibersihkan, potong-potong, cuci hingga bersih
Tumis bumbu yang dihaluskan sampai baunya harum, tambahkan daun salam, serai dan beri sedikit vetsin
Masukkan ayam, aduk hingga rata, biarkan sampai layu, tambahkan santan cair
Setelah agak surut, tambahkan santan kental
Angkat setelah empuk

Read more »

Resep Rendang Telur

Resep Masakan - Rendang Telur

Bahan:

• 8 butir telur
• 5 bh bawang merah
• 2 bh bawang putih
• 1/2 ruas lengkuas
• 4 bh cabe merah
• 1/2 ruas kunyit
• 1 lbr daun kunyit
• jahe

Cara memasak:

• Haluskan semua bumbu kecuali lengkuas dan daun kunyit
• Masukkan sedikit minyak kemudian tumis hingga baunya harum
• Masak dalam santan kental kemudian masukkan telur yang sudah direbus terlebih dahulu.
• Memarkan lengkuas dan daun kunyit kemudian masukkan kedalam masakan
• Masak hingga minyak keluar dan agak kering.
• Angkat dan hidangkan.

Read more »

Cara membuat blog

Pada posting kali ini saya akan membuatkan panduancara membuat blog yang disediakan secara gratis oleh blogger.com. Mungkin  kamu pernah mendengar istilah blog atau webblog kan? blog tidak jauh berbeda dengan website, yang membedakan jika website hanyalah situs yang menyediakan informasi satu arah bagi pengunjungnya, sedangkan blog atau webblog menyediakan informasi secara dua arah, jadi para pengunjung bisa memberikan komentar tentang artikel yang disajikan oleh pengelola blog itu. Selain itu membuat dan mengelola blog juga jauh lebih mudah dari pada website. Oh ya istilah lain dari blog adalah CMS, yang merupakan singkatan dari Content Management Sistem. Sedangkan orang yang mempunyai blog disebut blogger

Ada dua layanan blog gratis yang sering digunakan oleh para bloger untuk ngeblog, yaitu blogspot (bloger.com) dan wordpress. Tapi kali ini yang akan dibahas adalah panduan cara membuat blog dengan blogspot (blogger) dulu. bagi kamu yang ingin tahu cara membuat blog di wordpress silahkan klik di sini

Oke, tanpa banyak berbasa-basi lagi silahkan baca langkah-langkah cara membuat blog di bawah ini ya…

1. Yang harus kamu siapkan dan wajib sebelum membuat atau bikin blog di blogspot (blogger) adalah memiliki email terlebih dahulu. email ini nantinya digunakan untuk mendaftar pertama kali. jika belum bisa atau belum membuat email baca di sini (klik di sini), kamu bisa belajar cara memabuat email di situ.  Tenang saja tidak usah terburu-buru. Baca dulu panduan ini sampai habis, kemudian baru dipraktekkan. oke

2. Jika sudah membuat email, bukalah alamat www.blogger.com, dan pastikan yang muncul adalah halaman seperti di bawah ini

klik tombol orange yang bertuliskan Memulai, untuk mulai mendaftar.

3. Kemudian lengkapi formulir pendaftaran pembuatan blog di blogspot seperti gambar di bawah ini.

gambar di atas merupakan contoh, untuk isinya sesuaikan dengan data yang kamu miliki

pada kolom alamat email : masukan email kamu
ketik ulang alamat email : masukan lagi email yang sama seperti diatas

masukan sebuah password : masukkan kata kunci (minimal 8 karakter, bisa huruf bisa angka)
ketikan ulang sandi : masukan lagi password yang telah kamu masukan sama dengan yang di atas

Nama tampilan : isi nama kamu atau nama alias kamu (ini akan tampil bersamaan dengan posting, artikel yang kamu buat nanti)

verifikasi : masukkan gambar kata yang terdapat di atas kolom.

pada gambar di atas sudah saya sertakan contoh pengisiannya

jika sudah diisi semua lalu klik Tombol panah orange (Lanjutkan)

4.  setelah kamu klik tombol lanjutkan, nanti akan tampil halaman formulir untuk melengkapi judul blog dan alamat blog kamu

Isilah Judul Blog dan Alamat blog sesuai dengan keinginanmu, jika alamat blog menggunakan 2 kata atau lebih gunakan tanda ( – ). karena blogspot tidak bisa menggunakan spasi. contoh pengisiannya perhatikan gambar di atas

terkadang alamat blog yang kita tulis sudah pakai oleh orang lain, jika sudah dipakai orang lain berati tidak bisa digunakan. Untuk mengetahui sudah dipakai orang lain atau belum Klik saja tombol “cek ketersediaan” jika belum dipakai orang lain, maka di bawahnya akan muncul tulisan warna hijau yang bertuliskan Alamat blog ini tersedia

jika sudah selesai menentukan judul dan alamat blog, silahkan klik tombol lanjutkan

5. Setelah kamu klik tombol lanjutkan, nanti akan tampil halaman untuk menentukan tema atau template blog kamu, seperti gambar di bawah ini.

Untuk memilih template tinggal klik salah satu. kemudian  klik  tombol lanjutkan.

Setelah tombol Lanjutkan di atas diklik,  berarti blog kamu sudah jadi, hanya saja belum ada artikelnya sama sekali. Untuk memberi artikel pertama kali, silahkan klik tombol Mulai Bloggingseperti gambar di bawah ini.

6. Setelah kamu klik tombol mulai blogging nanti akan tampil halaman pengisian artikel.

gambar di bawah ini merupakan halaman pengisian artikel yang sudah disertai dengan contohnya.

Kolom judul untuk judul artikel, kolom yang lebar di bawahnya itu untuk menulis artikel atau posting, dan kolom label untuk mengisi jenis kategory artikel.

jika sudah diisi semua, tekan menu TERBITKAN ENTRI, setelah itu akan muncul pemberitahuan yang mengatakan bahwa kamu telah berhasil menerbitkan posting atau artikel seperti gambar di bawah ini.  Untuk melihat tampilan artikel yang berhasil kamu buat tadi silahkan klik tombol Lihat Entri.

Tampilan artikel di blog kamu akan tampak seperti gambar di bawah ini.

Sekarang blog kamu sudah selesai dibuat dengan satu buah artkel.

Perhatikan sisi halaman pojok kanan atas yang dilingkari.  tombol entri baru untuk menulis artikel yang baru, tombol Desain untuk menentukan atau pengatur Desain, sedangkan tombol keluar untuk Log out, jika sudah setelah memposting artikel atau setelah mengatur blog kamu.

7. jika suatu saat nanti kamu ingin memposting artikel baru lagi, kamu tidak perlu mendaftar lagi… tinggal buka www.blogger.com kemudian masukkan email , dan paswod kamu , kemudian klik tombol “masuk”, dengan begitu kamu akan d bawa ke menu dashboard blogspot,

Tampilan Dasrboard blogger kamu akan tampak seperti gambar di bawah ini, melalui halaman dashboard kamu bisa mengedit, membuat posting, ataupun mengatur setting blog kamu.

Beberapa waktu yang lalu, untuk bisa menggunakan blogger secara penuh, kita harus melakukan verifikasi akun dengan mengklik link verisikasi dari Blogger.com yang dikirimkan ke email kita, namun saat ini sudah tidak lagi. Jadi kita bisa menggunakan blogger secara penuh TANPA repot verisikasi akun.

8. Oh iya jika kamu sudah mempunyai email di Gmail. kamu tidak perlu mendaftar dari awal… Kamu dapat  langsung memasukkan alamat email gmail dan password kamu, kemudian klik tombol masuk.

jika menggunakan email dari Gmail, kamu tidak perlu memasukan password dan email lain ataupun capta kode lagi… tinggal masukkan nama tampilan saja

Selanjutnya langkah-langkahnya sama dengan yang di atas….

sampai di sini dulu posting tentang langkah membuat blog di blogspot, semoga cukup mudah dipahami, jika kurang paham mohon maaf, dan bisa menuliskan komentar ada di bawah ini jika ada pertanyaan dan saran. terima kasih. dan selamat mencoba

Untuk Lanjutan Panduan Cara membuat blog bagian kedua tentang Cara Mengisi Artikel di blog  Klik Di sini

Untuk panduan cara menganti tema blog di blogspot, dan juga untuk mengedit klik di sini

Disarankan untuk jangan masuk ke panduan ke dua.. jika panduan ke satu di atas belum dipraktekkan…

http://ridwanaz.com/teknologi/blog/panduan-langkah-cara-membuat-atau-bikin-blog-di-blogspot/

sumber : 

Read more »

Syahrini Sesuatu

Berita kurang "nyaman" menerpa artis cantik Syahrini. Kali ini bukan kehidupan glamournya, namun soal gigi palsu (bukan "alamat palsu" loh)

Saat itu Syahrini tampil di 'Bukan Empat Mata' acaranya si Tukul. Tanpa diduga sebuah benda putih di mulut mantan pasangan Anang ini.

Benda putih itu kabarnya gigi palsu yang dipakai Syahrini. Saat sedang asyik berbincang dengan Tukul dan pembalap asal Spanyol, Jorge Lorenzo, tiba-tiba saja ada benda yang keluar dari mulut pelantun Aku Tak Biasa itu.

Kejadian tersebut langsung menjadi perbincangan di dunia maya, dan situs jejaring sosial. Meski belum bisa dipastikan, tapi banyak orang yang yakin benda itu adalah gigi palsu Syahrini. Alhasil, pemilik single Sesuatu itupun kembali menjadi bahan olok-olok.

Saat Asaborneo mencoba menelusuri foto maupun video gigi palsu Syahrini, tak ada gambar yang benar-benar memperlihatkan bahwa Syahrini mengenakan gigi palsu. Coba lihat foto di bawah ini!

Read more »

Kenali Kanker pada Anak

Kenali Gejala Kanker pada Anak
Kesehatan->Penyakit
Pengirim : Novhie

Views 4

Berbagai jenis kanker pada anak tidak dapat dicegah. Faktor risiko dan penyebabnya pun belum diketahui pasti. Hingga kini, hanya kanker mata (retinoblastoma) yang bisa dideteksi. Orangtua dan tenaga kesehatan perlu mewaspadai gejala kanker pada anak.

"Mengetahui gejala kanker penting mengingat anak, khususnya yang berumur di bawah satu tahun, belum bisa mengeluh sakit yang dirasakan," kata Direktur Pengendalian Penyakit Tidak Menular, Kementerian Kesehatan, Ekowati Rahajeng, Jumat (13/1), di Jakarta.

Yang paling banyak dialami anak adalah kanker darah (leukemia), kanker mata (retinoblastoma), kanker saraf (neuroblastoma), dan kanker kelenjar getah bening (limfoma). Yang mudah dideteksi adalah kanker hidung bagian belakang (nasofaring) dan kanker tulang (osteosarkoma).

Pada tahun 2005-2007, ada 9 anak dari 100.000 anak di Jakarta yang menderita kanker. Setiap tahun diperkirakan ada 4.100 kasus baru kanker anak di Indonesia.

Konsultan pediatrik hematologi-onkologi di Rumah Sakit Kanker Dharmais, Edi Setiawan Tehuteru, mengatakan, kemungkinan sembuh kanker anak cukup besar jika dideteksi sejak dini. Masalahnya, banyak kanker baru diketahui saat sudah parah.

Kanker terbagi dalam dua tipe, cair dan padat. Kanker cair, misalnya, leukemia, adapun kanker padat adalah selain leukemia. Kanker cair dapat dideteksi dari kondisi anak yang pucat dan lesu, mudah demam, dan mudah berdarah, baik mimisan maupun perdarahan gusi.

Sedangkan kanker padat, dapat ditengarai dari ada tidaknya benjolan di tubuh anak. Benjolan itu dapat berupa bintik putih di retina mata, mata bengkak, perut membesar sementara tubuh bagian lain kurus, serta benjolan di leher belakang atau di kaki dan tangan.

"Segera cek benjolan ke dokter," kata Edi. Benjolan itu adalah tumor yang merupakan bibit kanker. Namun, harus dipastikan apakah tumornya jinak atau ganas. ”Kalau ternyata jinak disyukuri, kalau ganas tetap disyukuri karena ditemukan sejak dini,” ujarnya.

Gaya hidup

Lebih lanjut, Edi menyatakan, setiap tubuh manusia mengandung sel kanker. Agar sel kanker tidak mengganas, gaya hidup perlu dijaga.

Penyebab kanker merupakan gabungan faktor genetik, kimia, virus, dan radiasi. Orangtua penting menciptakan lingkungan yang aman bagi anak sejak dalam kandungan dan menjaga gaya hidup sesudah dilahirkan.

Gaya hidup sehat antara lain menciptakan lingkungan bebas asap rokok, banyak makan sayur dan buah, menjaga berat badan, serta aktif berolahraga. Stres juga bisa memicu perkembangan sel kanker dan mengurangi efektivitas obat kanker. ”Pemberian air susu ibu eksklusif mampu mengurangi 31 persen risiko kanker anak,” kata Edi.

Kendala terbesar penanganan kanker adalah mahalnya biaya pengobatan. Sekretaris Yayasan Kasih Anak Kanker Indonesia Ira Soelistyo mengatakan, besarnya biaya pengobatan bergantung pada kompleksitas penyakit dan lamanya pengobatan.

Jika tidak ada komplikasi, satu paket pengobatan selama beberapa bulan sekitar Rp 60 juta. Bila ada komplikasi, paket pengobatan diulang hingga 2-3 kali dan makan 5 bulan-2 tahun.

Pemerintah menjamin pengobatan pasien miskin melalui jaminan kesehatan masyarakat. Namun, tidak semua hal dijamin, seperti CT scan ataupun obat- obatan tertentu.

Sumber : http://health.kompas.com/read/2012/01/14/10062694/Kenali.Gejala.Kanker.pada.Anak

Read more »