Membuat Running Text dengan VB

Pada postingan kali ini saya akan memberikan trik mebuat Running text (teks berjalan) pada Visual Basic. Cukup simple tapi pasti berguna untuk mempercantik tampilan aplikasi yang akan Anda buat.
Membuat Animasi Running Text (teks berjalan)

Berikut adalah langkah-langkah yang harus anda lakukan :
1) Pertama bukalah program Visual Basic Anda.
2) Tambahkan komponen-komponen ke dalam form sebagai berikut: 1buah Label, 1buah textbox, 1buah command button & sebuah timer.
3) Atur property masing-masing komponen sebagai berikut :
Komponen
Nama Properti : Nilai
Label Caption : Masukkan sebuah kata atau kalimat !
Textbox Alignment : 2-Center
CommandButton Caption Start
Timer : Enabled
Interval : False
1000
4) Klik ganda pada komponen timer, lalu tambahkan perintah di bawah ini.
Private Sub Timer1_Timer()
Dim s As String
s = Text1.Text
If Text1.Text <> "" Then
s = Mid(s, 2, Len(s) - 1) & Left(s, 1)
End If
Text1.Text = s
End Sub
5) Klik ganda pada komponen CommandButton(Command1), lalu tambahkan perintah di bawah ini pada event Command1 Click.
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Masukan Karakter", vbInformation, "Information"
s = ""
End If
If Command1.Caption = "Start" Then
Timer1.Enabled = True"
Command1.Caption = "Stop"
ElseIf Command1.Caption = "Stop" Then
Timer1.Enabled = "False"
Command1.Caption = "Start"
End If
End Sub
6) Simpan lalu jalankan program Anda untuk melihat hasilnya.
Selamat mencoba semoga bermanfaat.

Membuat Kalkulator Sederhana dengan MATLAB January 31, 2012 6 Comments Rate This Kali ini saya akan memberikan tips, bagaimana membuat kalkulator sederhana dengan MATLAB. Pertama yang harus kamu siapkan untuk membuat kalkulator adalah antarmukanya. Di sini untuk membuat kalkulator sederhana, antarmukannya saya rancang dengan GUI MATLAB. Desain kalkulator sederhana kurang lebih seperti gambar berikut. Tentunya desain membuat kalkulatornya tidak harus sama seperti di atas, sesuaikan dengan keinginan kamu. Setelah desain dibuat, simpanlah desain tersebut dengan nama kalkulator.fig, dan secara otomatis MATLAB juga akan menciptakan file kalkulator.m yang berisi kode program dari kalkulator .fig tersebut. Agar latihan yang kita lakukan sama, maka kita beri nama pada masing-masing obyek. Mulai dari atas ke bawah: Untuk menampilkan hasil digunakan Edit Text, beri nama txthasil. Untuk angka 0 s.d 9 gunakan Push Button, untuk tombol angka 0 beri nama tb0, angka 1 beri nama tb1, dst. sampai angka 9 beri nama tb9. Untuk tombol operator + beri nama tbplus, operator – beri nama tbmin, operator * beri nama tbkali, dan operator / beri nama tbbagi. selanjutnya tombol CLEAR beri nama tbclear, dan tombol = beri nama tbenter. Sekarang kita buat kode programnya. Caranya adalah klik kanan pada obyek yang akan diberi kode program, selanjutnya nanti akan keluar menu pop-up, lalu pilih View Callbacks > Callback. Pada tombol angka, tuliskan kode seperti berikut: (contoh yang diberikan adalah kode untuk tombol angka 1) global jj textString = get(handles.txthasil,’String’); if(strcmp(textString,’0.’)==1)&&(jj==0) set(handles.txthasil,’String’,’1′) ; else textString =strcat(textString,’1′); set(handles.txthasil,’String’,textString); end jj=0; lakukan keseluruh tombol angka, dengan mengubah angka yang tercetak warna hijau dengan tombol angka yang bersesuaian dari 0 s.d. 9. Kemudian kita lanjutkan ke tombol operator, berikut adalah kode program untuk tombol operator +. textString = get(handles.txthasil,’String’); textString =strcat(textString,’+'); set(handles.txthasil,’String’,textString) untuk membuat kode program pada tombol operator yang lain, sama seperti pada tombol operator +, tinggal menggantikan tanda “+” ( yang berwana hijau), dengan operator lain yang bersesuaian. Lalu pada tombol “=” berikan kode berikut ini. textString = get(handles.txthasil,’String’); ans =eval(textString); set(handles.txthasil,’String’,ans) sedangkan untuk tombol CLEAR berikan kode berikut. set(handles.txthasil,’String’,’0.’) ; Sekarang coba kamu jalankan, kalkulator sederhanamu. Buat kamu yang mau menyempurnakan cara membuat kalkulator ini, bisa dishare di sini juga.

ini ceritaku tentang bisnisku MELIA SEHAT SEJAHTERA

ini ceritaku tentang bisnisku MELIA SEHAT SEJAHTERA

udah lama banget yah rasanya ngga nulis blog ini lagi...
sibuk kuliah..
sibuk kerja..
seibuk kerja thesis..
tapi ngga BIKIN SIBUK berbisnis..
iya lah..
bisnisnya mudah dan fleksible... apanya?? ya waktunya, ya modalnyaa ya semuanya..
ya iyalah... modalnya disini 1 kali sesuai paketan yang kamu pilih.. apaan sih paketan itu? paketan itu.. seperti kita ngebangun kontrakan.. akan dapet profit yang lebih besar kalo kita punya 3 kontrakan kan daripada 1 kontrakan..? disini juga sama loh...
dulu... aku ngga pernah banyangin bisa dapet duit segede ini dalam 57 hari angka 17.970 juta ngebuat aku WOW!!
gimana caranya??
aku coba - coba ikut bisnis ini... karena ku pikir modal 1 kali.. aku komitmen jalani ini semua.. berawal dri NOL apalagi aku sudah resign dari MLM sebelumnya.. so, must be doing from the zero...
nah bedanya apa sih ini sama MLM lain?? beda banget.. disini ngga bikin kita MELARAT atau MISKIN..
karena ngga ada namanya tutup point, disini ngga ada namanya levelling, ngga ada namanya belanja berulang jadi bisnisss ini juga bisa di wariskannn lohh.. mau tau syaratnya??
gampang banget... tentukan berapa paket yang kamu ikuti...
isi form yang akan dikirimkan via sms atau BBM
berikut screenshoot gajiku 17.970 juta yang aku dapet dari Melia sehat sejahtera 

sistemnya disini gimana sih? gampang banget...
disini setelah pilih berapa paket.. tinggal ajak 2 teman dan bina 2 teman itu biar pinter seperti kita.. dan disini bonusnya semua jadi bonus.. bonus sponsor itu kalo kita ngerekrut orang dan per paket dari orang itu kita dapet 100 ribu loh... dan bonus leadership itu ketika kita udah ada 2 teman.. di kaki kiri kita ada 2 paket dan kanan 2 paket akan keluar bonus leadership kemudian,, kalo bonus produk itu tiap kali kita terima bonus harian akan dipotong 30% yang akan menjadi produk untuk kita...
nah ini nih pilihan paketan dan keuntungan yang akan didapet...

dan hari ini aku dapet bonus 1.141.000 juta lohh disaat ORANG LAIN TANGGAL TUA.. aku TANGGAL MUDA... mau?? mau???

nahhh... bonusnya langsung masuk ATM yahh...

nahhh MSS juga halal lohhh...

nahhh MSS juga terbukti menjadi obat bagi para pelaku dunia bisnis dan MLM yang trauma dengan MLM lain yang atutup point, belanja berulang dan levelling... ini buktinya

so, mash ragu jalanin MSS?? coba yuk buka websitenya di www.meliasehatsejahtera.com dan temukan suksesmu
for JOIN and INFORMATION contact me 297dc210/087854155835 aku akan mengajari HOW TO nya

Kesaksian MPropolis

Kesaksian/Testimoni Melia Propolis

 


Kesaksian lainnya : (lihat klik Leaflet)
Leaflet 01
* Hipertensi, Reumatik dan Asam-urat; Drs. M. Kaddas Kasim (74) dan Ny Henny (64 tahun).
* Biduran; Nanang Saputra (jln Bangun Nusa – Cengkareng Timur)
* Asam-urat; Saleh. Kedaung, Ciputat. Bekerja sebagai seorang kontraktor.
* Lumpuh stroke, jantung koroner, gagal ginjal, asam urat, diabetes; Achmad Suyadi (Dahlia – 4/19 Rt.02/12 Perum I Karawaci – 5539539) – Pengobatan Alternatif.
* Mudah sakit; Kaka & Dede (Bayi Sehat 2007, Makassar)
* Kencing Manis; Agum Jumadi (Kepala Keamanan Pasar Kalijati – Subang).

Selain beberapa penyakit yang dikemukakan lewat kesaksian di atas adalah juga katarak ; radang gusi, darah tinggi, katarak, eksim, asma, jerawat, gondok, batu empedu, obesitas, bisul, campak, flu, polip, cacar, amadel, tipus, bau badan, migran, darah rendah, parkinson, vertigo, ambien, sakit punggung, osteoporosis, sembelit, varicies, DBD, kanker rahim, flu babi, kanker payu dara, prostat, narkoba, cuci darah, tetanus, HIV Aids, TBC, diare, liver.

==============================

Leaflet 02
* Sinusitis;  Sri Subakti, Gedek, Mojokerto.
* Luka Dalam; Elok Wayu Purnamawati. Coplies Pet’s Ruko Puri Indah, Sidoarjo.
* Sakit Mata; Pa Sosilo (Kepala Sekolah) Probolinggo, Jawa Timur.
* Mag Kronis, Asam-urat, Bisul; H. Sukardi & isteri. Karang Pilang, Surabaya.
* Keracunan Mie Instan; Ibu Imah (pembantu rumah-tangga). Reaksi setelah konsumsi propolis 3-4 tetes 3 kali sehari.
* K i s t a; Arhami Arsyad. (menderita kista selama lebih-kurang 7 tahun)
* Hepatetis; zhagita Devie Ariyanti (Pelajar 15 tahun). Jl. Kelintang Baru, Surabaya.
* Kanker Otak; Hikmatul Hilmiyah, Pondok Jati, Sidoarjo.
* Diabetes; Bp idrus. Penderita diabetes, sembuh dalam waktu satu minggu.
* Diabetes; Bp Adrian, jl Mangga 3/c 19, Makasar.

==============================

Leeaflet 03
* DIABETES MILLITUS DAN ASAM URAT; R.ST.Setiawati (ibu rumahtangga).
* DEMAM TINGGI; Ujang (Wiraswasta).
* Stroke; ibu Marsi. Bogor (ibu rumahtangga)
* Mata Iitasi; Hj.Insiyah Soyono. Tangerang (Wiraswasta).
* K i s t a; Arhami Arsyad ( = Leaflet 02)
* Bekas Prostat, Stroke akibat kepala terbentur; Ahmad Sumaryana (Swasta)
* Masalah Tengogrokan; Juwita Sopa (SPV Gerai Esia PAMASUKA)
* Mudah sakit; Kaka & Dede (Bayi Sehat 2007, Makassar) (= Leaflet 01)
* SINUS MENAHUN; Kamaruddin Hadi (Engineering’s Consultans – Balikpapan)
* STROKE; ibu Etih (ibu rumahtangga)

==============================

Leaflet 04
* Diabetes, Ginjal, Gangguan penglihatan; Abdul Maliki. Praja Dalam Kebayoran Lama.
* Asam-urat; Saleh. Kedaung, Ciputat. (= Leaaflet 01)
* K i s t a; Arhami Arsyad ( = Leaflet 02)
* Stroke; ibu Marsi. (= Leaflet 03)
* Diabetes; Bp Adrian, jl Mangga 3/c 19, Makasar. ( = Leaflet 02)
* Kencing/Diabetes; Aep Sutisna. Manager BUMN PT Kertas Padalarang. Penderita diabetes 10 tahun.

=====================================

* KOMPLIKASI (diabetes, asam urat, kolesterol & jantung koroner)
Ny. Nellyawati (Jln Mayor Utarya Gg. Gn. Dalem I No. 17 Tasikmalaya Jawa Barat)
(http://www.melianature.com/my/Product/testimonial.htm)

* Menderita Ambein, Eksim Menahun
Kartono Ir, Msc. MBA (ID.INDDK0002D, Dosen, Bandung)
Pekerjaan saya sebagai dosen di berbagai perguruan tinggi di Bandung selama 32 tahun saya lakoni. Sebelum tahun 2004 terasa semakin berat, terutama akibat gangguan ambein yang mengganggu karena dari (maaf = lubang anus) keluar 4 buah sebesar telur, sehingga untuk berjalan susah (seperti jalannya robot), apalagi untuk duduk hanya menumpangkan paha di permukaan kursi.
Saat itu saya sangat tersiksa, karena penyakit ini kian menyiksa dari tahun ke tahun dan puncaknya di akhir tahun 2004. Seseorang kawan datang menawarkan produk Propolis, awalnya saya tidak tertarik tetapi karena dikatakan bisa untuk ambein / wasir, saya langsung membeli tanpa pikir panjang. Sesuai petunjuk yang disarankan kawan tadi, saya langsung minum 10 tetes 4x sehari dan dioleskan ke lubang anus dan terjadilah hal yang luar biasa, ambein saya sembuh dalam 3 hari dan yang paling mengesankan saat ini saya bisa makan apapun (es, sukro, cabai, dll) yang dulu saya hindari karena gigi sudah keropok, saya tidak tahan dengan yang dingin dan bahkan tanpa saya sadari eksim yang ada dalam tubuh saya lenyap semuanya.
Berkat Propolis semua penyakit dalam tubuh saya lari terbirit ¨C birit sehingga semangat mengajar saya semakin bertambah di usia saya yang sudah lanjut (64 tahun) dan bahkan teman main tenis saya yang sudah loyo dan terbaring karena menderita jantung (Pak Ali) kini sehat seperti saya, berkat Propolis dan juga istri saya yang menderita kaligata/biduran juga sembuh. Propolis memang hebat, satu produk bisa untuk semua penyakit. Jadikan Propolis sebagai pelindung anda dan keluarga untuk menghindari dari sakit penyakit yang setiap saat siap menyerang. (http://www.melianature.com/my/Product/testimonial_sub2.htm)

* Tersiram Air Panas
Kartono Ir, Msc. MBA (ID.INDDK0002D, Dosen, Bandung)
Pembantu saya, Mbak Ai tanggal 22 Juni 2005 jam 06.00 pagi berteriak keras. Karena saking terkejutnya kami terbangun, dia terpeleset mengangkat air panas untuk mempersiapkan mandi istri saya. Dari sekujur paha hingga kaki tersiram air panas, dia sangat kesakitan dan kami panik. Di sela kepanikan saya langsung mengambil Propolis dan memberi ke istri agar dioleskan ke bagian yang tersiram air panas tersebut. Dengan spontan sekujur permukaan kaki dan paha diteteskan Propolis sampai habis 1 1/2 botol. Awalnya bagian kaki dan paha yang tersiram terasa panas namun tidak ada kulitnya yang melepuh dan 2 hari kemudian Mbak Ai pun kembali beraktivitas seperti biasa, rasa sakit dan panas akibat tersiram air panas mendidih pun terobati berkat Propolis. Saran dari kami Propolis betul betul hebat mengatasi berbagai macam penyakit akibat luka, luka bakar sehingga wajib disediakan sebagai P3K jika terjadi hal-hal yang tidak diinginkan seperti kecelakaan.

Melia Propolis

MELIA PROPOLIS (Propolis Australian)

Melia Propolis merupakan suplemen makanan (POM.TI 054 616 861) yang produksi oleh MOTHER NATURE HEALTH PRODUCTS AUSTRALIA.

Setiap ml mengandung 150 mg propolos murni.

Komposisi :
- asam amino,
- vitamin-vitamin; vitamin B-komplek,C, E dan H (Biotin)
- mineral/unsur; Kalsium, zat Besi, Zink, Copper, Chrome Silicium, Vanadium dan Mangan
- enzim bioflavonoigs (vitamin P)

Beberapa penyakit yang dapat ditanggulangi antara lain : batuk, asthma, bronchitis, paru-paru, sinusitis, flu, demam, sakit kepala; luka benda tajam, luka terbakar (infeksi); infeksi kewanitaan; herpes, penyakit kulit serta penyakit jamur; jerawat, bisul; infeksi kulit, telinga, gigi; wasir/ambeien; kanker, tumor, gangguan jantung, ginjal, hati dan diabetes; darah tinggi, darah rendah; hepatitis/liver; radiasi; stress, parkinson; gangguan pencernaan, maag.

TANPA EFEK SAMPING. Propolis adalah 100% zat alami. Di dalamnya terdapat antibiotik alami yang bebas racun dan efektif melawan virus, bakteri dan virus. Dalam pemakaiannya terkadang menimbulkan reaksi/detoksifikasi positif yang menunjukkan propolis sedang bekerja. Reaksi bersifat sementara dan biasanya masih berhubungan dengan penyakit yang diderita. Oleh karena itu pemakaian propolis di mulai dari dosis yang rendah. TANPA DOSIS. Maksud tanpa dosis adalah penggunaannya tergantung dari kemampuan tubuh, umur, jenis dan berat/ringannya penyakit. Jika pemakaiannya berlebihan dan penyerapan tubuh terbatas, maka pemakaian propolis menjadi tidak ekonomis. TANPA KADALUARSA (EXPIRED DATE). Karena propolis merupakan anti virus, bateri dan virus maka dalam penyimpanan normal akan tetap terjaga dan bebas dari kerusakkan sampai bertahun-tahun lamanya.