Selamat Datang di Blog AMCJ

Tujuan Peng-Aplikasian



Program Membuat Password Login Menggunakan Struktur Perulangan If then Else

• 
  
  
  
  Rancangan Tampilan Form login
  
  
  
  
  

• 
  
  
  
  Listing Kode Program
  'membuat suatu variabel
  
  Dim ket As String
  
  Dim x As Integer
  
  'perintah pada command 1
  
  Private Sub Command1_Click()
  
  'jika passwod benar
  
  If (Text1.Text = "admin" And Text2.Text = "12345") Then
  
  MsgBox "Password Benar , Silahkan Login ", vbInformation + vbOKOnly, "Sucses "
  
  frmmenu.Show
  
  frmlogin.Hide
  
  'jika password salah
  
  Else
  
  Text1.Text = ""
  
  pesan = MsgBox("Masukkan dulu Nama Pengguna", vbCritical + vbOKCancel, "Warning")
  
  Text1.SetFocus
  
  
  
  Text2.Text = ""
  
  pesan = MsgBox("Masukkan Dulu Passwordnya", vbCritical + vbOKCancel, "WARNING")
  
  Text2.SetFocus
  
  If Text1.Text = "" Then
  
  MsgBox "Masukkan Nama Pengguna Dulu"
  
  Text1.Text = ""
  
  Text2.Text = ""
  
  Text1.SetFocus
  
  ElseIf Text2.Text = "" Then
  
  MsgBox "masukkan Paswordnya dulu"
  
  Text1.Text = ""
  
  Text2.Text = ""
  
  Text2.SetFocus
  
  End If
  
  
  
  End If
  
  
  
  
  
  End Sub
  
  'Perintah Keluar
  
  Private Sub Command2_Click()
  
  End
  
  End Sub
  
  'Meng-load form waktu dijalankan
  
  Private Sub Form_Load()
  
  x = 1
  
  ket = ""
  
  End Sub
  
  'jika image 1 diklik maka akan muncul bantuan
  
  Private Sub Image1_Click()
  
  MsgBox "Masukkan Login Pengguna : -admin- dan Password -12345- ", vbInformation + vbOKOnly, "Good Luck "
  
  End Sub
  
  'jika text1 di enter kebawah
  
  Private Sub Text1_KeyPress(KeyAscii As Integer)
  
  If KeyAscii = 13 Then
  
  Text2.SetFocus
  
  End If
  
  End Sub
  
  Private Sub Text2_KeyPress(KeyAscii As Integer)
  
  If KeyAscii = 13 Then
  
  Command1.SetFocus
  
  End If
  
  End Sub
  
  'timer bekerja untuk membuat tulisan berjalan pada title form
  
  Private Sub Timer1_Timer()
  
  ket = ket & Mid(Label3.Caption, x, 1)
  
  frmlogin.Caption = ket
  
  If n = Len(Label3.Caption) Then
  
  ket = ""
  
  x = 1
  
  Else
  
  x = x + 1
  
  End If
  
   
  
  End Sub
  
  
  
  Jalankan Program ,Jika Berhasil login maka sucses login :
  
  
  
  
  
  
  
  
  Tugas Pada Modul 2 :
  
  
  
  
  
  
• Kreasikan Form Login anda dengan menambahkan animasi Progressbar
  

Baca Selengkapnya ..

1. Dinamo dari tubuh manusia
Nyaris setiap orang zaman sekarang memiliki HP, iPod dan alat elektronik lainnya, akan tetapi berbicara dengan HP dan mendengarkan iPod agak lama sedikit begitu baterai habis padahal kita sedang di luar, tentu tak dapat mengisi ulang, lantas bagaimana?
Andaikan saja dari pergerakan tubuh manusia bisa setiap saat di-pergunakan untuk pembangkit listrik, betapa bagusnya hal itu!
Kini ilmuwan di laboratorium sudah merealisir harapan tersebut. Wang Zhonglin seorang ilmuwan keturunan Tionghoa dari Politeknik Georgia, AS, menggunakan teknik Nano dan Piezoelectrik effect guna membangkitkan listrik. Dia berhasil membuat semacam pakaian serat fiber berdinamo dari bahan campuran serat logam super halus. Setiap kali fiber ditekan atau ditekuk, bisa menghasilkan aliran listrik. Yang disebut dengan Piezoelectrik effect adalah ketika materi tertentu tatkala menerima tekanan bisa menghasilkan listrik.
Wang Zhonglin menggunakan benang nano yang dibuat dari Zinc Oxyd (seng oksida) dibungkus dengan seuntai serat tenun. Sewaktu orang mengenakan pakaian semacam ini, asalkan terhembus angin atau gerak sedikit saja sudah cukup membuat pakaian tersebut menghasilkan Listrik.
Dewasa ini teknik tersebut masih dalam tahapan percobaan di laboratorium, menanti sesudah teknik semakin matang, maka orang-orang bisa setiap saat mencharge Hp ataupun iPodnya.
2. Alat pengintai tembus dinding
Di dalam dongeng dewa atau manusia super pasti memiliki daya pandang tembus, bisa melihat benda di balik dinding, melihat suasana di belakang dinding. Tetapi kini para ilmuwan menggunakan gelombang radio dan telah merealisir impian ini.
Perusahaan konsultan iptek Cambridge – Inggris menggunakan gelombang radio yang memiliki keistimewaan bisa menembus benda padat, telah menciptakan sistem pengintai sinar X hanya sebesar tas kantor.
Prism 200, nama peralatan ini bisa memancarkan semacam gelombang pulsa ultra wide band, bisa menembus dinding atau materi setebal 40 cm, mendeteksi segala gerakan dalam radius 15 meter, dapat membantu pihak kepolisian sewaktu dalam pengepungan penculik dan mampu mendeteksi posisi penyandera dan korban yang disandera di dalam ruangan.
Peneliti Universitas Teknik Munich Jerman telah menciptakan semacam peralatan, yang meskipun tersekat oleh pintu, asalkan meluncurkan semacam gelombang radio antara 433 MHz dan 24.000 MHz, maka bisa mendeteksi pernafasan dan detak jantung dan gerakan minim dari balik pintu.
3. Memanjat dinding dan Qinggong (ilmu meringankan tubuh)
Spiderman di dalam film, mampu memanjat dinding dan berlompatan di atas atap gedung pencakar langit. Kini selingan di kala senggang ini sudah dipergunakan oleh ilmuwan dengan menggunakan semacam peralatan perekat kuat untuk merealisasi perlawanan terhadap gravitasi. Para ilmuwan memperoleh inspirasi ini dari prinsip anatomi kaki cecak.
Cecak bisa merayap di dinding berkat mengandalkan 2 juta batang rambut pada setiap kakinya, yang menimbulkan listrik mikro elektrostatik dan membentuk sebuah daya rekat yang sangat kuat.
Andre Geim, peneliti dari Universitas Manchaster, Inggris telah merencana semacam materi tiruan bulu cecak, hanya sebesar 1 cm2, dikenakan pada sarung tangan dan sepatu, dan bisa menopang bobot 1 kg.
Nicola Pugno, peneliti politeknik Universitas Turin Italia merangkap teknologi Nano, telah membuat satu pasang sarung tangan yang masing-masing mampu menahan bobot 10 kg. seiring dengan perbaikan teknis, impian indah masyarakat penggemar spiderman dapat menjadi sepertinya tak lama lagi bisa direalisir.
4. Insang buatan
Umat manusia bila meninggalkan oksigen maka tak mampu mempertahankan eksistensinya, sewaktu menyelam udara dimampatkan dari dalam tabung, kalau terpakai habis maka harus naik ke tepi, tak mampu seperti cerita ikan duyung yang bisa hidup di daratan maupun menyelam di dasar laut. Namun begitu manusia dapat mencipta insang buatan, di masa depan, berkelana di dasar lautan sudah bukan masalah lagi.
Fuji Systems, Jepang, membuat insang buatan dari membran silikon, udara bisa menembusnya tapi cairan tak dapat, bisa memfilter oksigen di dalam air, bersamaan itu membuang CO2, persis seperti insang ikan. Pada 2002, ada penyelam yang berhasil mengenakan insang buatan berada di dasar air selama 30 menit.
Tetapi oleh karena di dalam air laut hanya terdapat 1,5% oksigen, sedangkan oksigen yang disiapkan insang buatan terlalu minim, tidak mencukupi kebutuhan nafas manusia. Ilmuwan Israel memakai baterai menggerakkan mesin sentrifugal berkecepatan tinggi, sesudah mengurangi tekanan air laut bisa membebaskan lebih banyak oksigen, tetapi bagi penyelam, walau tak perlu lagi membawa tabung oksigen, tetapi masih perlu menggendong aki dan alat pengukur pengurang tekanan.
5. Alat penterjemah langsung
Perusahaan SRI, AS, pernah mengembangkan sebuah software pengenal suara IraqComm dan penerjemahan kepada tentara pendudukan AS di Iraq, di saat bicara bahasa Arab dan diarahkan ke mikrofon, komputer dengan segera menerjemahkannya ke bahasa Inggris dan melafalkan bahasa terjemahannya.
Ilmuwan di Universitas Carnegie Mellon Pittsburg, AS, sedang membuat sistem serupa dinamakan Speechalator, bisa digunakan pada palm sized note book dan PDA. Meskipun dewasa ini daya perbendaharaan-katanya terbatas, namun bantuan komunikasi IraqComm bagi tentara AS dan orang Iraq sangat besar.
6. Mantel penyirna tubuh
Manusia dalam melihat suatu benda adalah karena benda tersebut telah menghalangi lewatnya gelombang cahaya. Jikalau pada benda tersebut diliputi satu lapis materi spesial yang mengandung Refractive index negative, secara teoritis bisa membuat cahaya tanpa hambatan meneruskan maju ke depan, dengan demikian benda tersebut secara visual sudah lenyap.
Kini standar iptek belum bisa membuat orang menghilang tetapi sangat mungkin merencanakan sebuah mantel penyirna tubuh. Tahun yang lalu Universitas Duke, AS, menyatakan bisa membuat metamaterials yang bisa membelokkan cahaya, bahan penyirna semacam ini dibuat dari sejumlah besar bahan sintetis yang menyerupai fiber glass dan dibentuk dengan sistem susunan mendatar, bisa membalikkan gelombang elektromagnetik, dengan melalui mengubah sorotan cahaya untuk menyembunyikan benda.
Dewasa ini peneliti dengan sukses memperluas area wilayah yang bisa menghadang gelombang cahaya, meningkatkan dengan tajam kemampuan menutupi benda. Metamaterials selain bisa dibuatkan mantel penyirna tubuh, juga bisa dipergunakan di optical fiber communication, dibuat speed fiber optic diperkirakan bisa meningkatkan minimal 10 kali lipat kecepatan on line dewasa ini.
7. Pesawat terbang pribadi
Pesawat terbang dipandang oleh banyak ilmuwan sebagai model iptek moderen. Tanpa pesawat, bisakah manusia terbang ke langit?
Pada 1920 telah dikembangkan pesawat terbang pribadi, sampai tahun 60-an, ada yang merancang pesawat pribadi yang mampu terbang 30 detik. Hingga 2008, Martin Jetpack yang dirancang oleh perusahaan pesawat Martin, Selandia Baru, membuat pesawat pribadi tidak lagi bagian dari komik fiksi iptek.
Martin Jetpack menyediakan dua starter Turbojet engine, digerakkan memakai bensin, satu gallon bensin cukup untuk 30 menit terbang, sekitar 50 km jauhnya. Selain itu pesawat dilengkapi juga dengan parasut, tak perlu takut jika mengalami kerusakan.
Harga jual pesawat tersebut adalah US$ 100.000, diprediksi paling cepat semester kedua tahun ini sudah bisa dipasarkan.
8. Pesawat antariksa pribadi
Selain pesawat pribadi, ada orang yang ingin memiliki pesawat antariksa pribadi, setiap saat bisa melayang ke ruang angkasa untuk menikmati indahnya bulan dan bintang. Pada umumnya mahalnya pesawat antariksa ada pada bahan bakarnya. Biasanya meluncurkan satu kali roket, harus merogoh biaya BBM sebesar US$ 100 juta. Insinyur AS, Leik Myrabo ternyata memiliki ide baru yakni tanpa penggunaan BBM.
Myrabo senantiasa berupaya pada penelitian gelombang mikro. Ia merencanakan penggunaan laser permukaan ditembakkan ke arah bagian dasar pesawat antariksa berbobot ringan, bisa menimbulkan Explosive plasma, sehingga melontarkan pesawat antariksa ke atas. Diprediksi pada 2025, modal dengan cara baru ini hanyalah 1/1000 daripada yang sekarang.
9. Alat terapi ultrasonic mini/jinjing
Di dalam cerita silat, orang yang berilmu tinggi bisa menyembuhkan orang lain dengan metode memancarkan tenaga dalam. Kalangan kedokteran sudah jauh hari menggunakan gelombang ultrasonik guna pemeriksaan kondisi perempuan hamil, namun dewasa ini menggunakan ultrasonik untuk penyembuhan, juga telah menjadi cara operasi baru.
Lawrence Crum, professor Universitas Washington, AS, yang telah sukses mengembangkan semacam peralatan terapi ultrasonik jinjing, melalui ultrasonik yang membebaskan ultrasonik berenergi rendah, kondisi pembuluh darah yang terluka oleh gelombang ultrasonik jikalau ditemukan pembuluh darah terdapat gejala berdarah, alat tersebut membebaskan lagi ultrasonik energi tinggi untuk menimbulkan panas tinggi dan memampatkan pembuluh darah. Ia tahun ini bisa melakukan uji klinis terhadap peralatan terapinya.
10. Bau sebagai pengontrol TV
Jauh pada akhir 1990 sudah ada perusahaan yang pada tahap awal berhasil meneliti teknik bebauan sintetis, mampu membuat hampir semua aroma yang ditemui setiap hari. Tetapi pada TV seiring dengan perubahan gambar, bagaimana mencegah aroma yang berbeda tidak tercampur dan berubah ke jenis aroma lainnya, serta bagaimana menangkal bau yang tak mau lenyap yang belum sinkron dengan gambar ditampilkan.
Metode perusahaan Xin Li, Jepang ialah menghindari hidung, namun langsung menyerang bagian otak. Di dalam hak ciptanya, Xin Li menggunakan ultrasonik langsung merangsang bagian tertentu pada otak manusia, membuat penonton atau pemain toy mengira mengendus aroma tertentu. Namun teknik tersebut masih sangat primitif, jalan ke masa depan masih agak panjang. [Epoch/erb/www.hidayatullah.com]

Jangan kaget, kelak hadir kamera tembus pandang di balik tembok. Majalah New Scientist, meramalkan 10 produk masa depan
Percayakah Anda? TV masa depan selain bersuara, berwarna, juga bisa beraroma. Otak manusia membagi aroma menjadi 30 lebih jenis, misalnya aroma kayu, aroma bunga, aroma rumput dan lain sebagainya. Itulah perkembangan produk teknologi di masa depan.
Majalah Inggris, New Scientist, sebagaimana dikutip Epoch Times, Selasa, 3 Februari 2009, meramalkan akan hadirnya 10 produk iptek besar yang diharapkan terjadi dalam 30 tahun ke depan. , dari ruang laboratorium melangkahkan kakinya ke rumah Anda, menjadi produk umum seperti halnya handphone (HP).
Ke-10 iptek besar tersebut termasuk alat pendeteksi tembus dinding, mantel penyirna tubuh ala Harry Potter, peralatan panjat dinding ala spiderman yang membuat orang mampu memanjat dinding, pesawat terbang pribadi super, pesawat antariksa pribadi dan TV yang dapat menebarkan aroma dan lain-lain.
Ada yang berpendapat ramalan tersebut terlalu muluk-muluk, betul-betul sulit dipercaya. Namun coba kita kilas balik ke-30 tahun yang lampau, pada 1979 tatkala perusahaan Jepang, NET berhasil mengembangkan HP internet pertamanya di seluruh dunia, banyak orang masih mengira berjalan sambil berbicara di telepon adalah hal yang mustahil, tetapi bagi manusia zaman sekarang HP telah menjadi barang bawaan yang harus ada. Seiring dengan perkembangan iptek, siapa bilang impian tersebut tak dapat menjadi kenyataan?

Baca Selengkapnya ..

Tips berSMS yang baik dan benar

Ternyata Benar bahwa kata orang terdahulu pernah berkata " Di Zaman yang akan datang orang bisa berbicara secara langsung walau lawan bicaranya tidak ada ditempat tersebut " nah dari pepatah orang terdahulu benar-benar terjadi di Zaman sekarang ,lihat aja dengan munculnya teknologi komunikasi kita bisa berinteraksi dimanapun,kapanpun dan siapapun . begitu pentingnya suatu imformasi sampai hadirnya yang namanya Telepon Gengam(HP),PC,Laptop ,PDA, GPS, dan perangkat Teknologi Muthakhir lainya .,,itu semua hadir karena perkembangan zaman yang semakin maju,dan tentunya kebutuhan masyarakat yang semakin meningkat,, baik kebutuhan internal maupun eksternal ...

Di zaman sekarang ini kita bisa menerima pesan tidak harus melalui surat lagi , melainkan dengan suatu "Surat Elektronik atau E-mai" maupun "Sort Massage Servise atau SMS" yang bisa dipakai melalui Hp,Pc,Laptop dan PDA .... dengan adanya fasilitas tersebut sangatlah membantu kita untuk dapat berinteraksi dengan siapapun ,baik teman,pacar,keluarga, dan bahkan orang yang belum kita kenal sama-sekalipun .

Nahh .., disini penulis akan berbagi Tips bagaiman cara berSMS yang baik dan benar dengan siapapun ,, kenapa perlu dipelajari ? ...
Karna banyak kejadian / masalah yang bermunculan dari suatu SMS dalam kehidupan ini,seperti
- Teror yang bisa membuat kita takut karna dihantuinya ..
- Katakata kurang baik yang bisa memutuskan suatu hubungan..
- Seringnya terjadi pembohongan tanpa bisa dipantau ..
- Tidak bisa untuk konsentrasi dalam hal apapun ..
- Kurangnya konotasi pembicaraan ..


OK Langsung aja ya bagaimana Tips berSMS yang baik :
1. Lihat keadaan yang terjadi pada dirimu , apakah dalam keadaan baik atau tidak ,nah sesuaikan semua itu dengan keadaan yang ada pada dirimu saat itu ,jangan memaksakan kehendak ..karena bisa membahayakan diri kamu sendiri .
2. Kenali dulu orang yang ingin kamu ajak SMSan ,jangan sekali-kali kamu menilai orang tanpa diketahui , siapa dia,dimana dia , apa maksudnya ..
If not yes send message jangan dipaksain gitu ...
3. ketiklah kata-kata yang penting aja ,jangan banyak-banyak kata-kata yang kosong kerena bisa membosankan ...lebih baik sedikit tetapi bermanfaat ..
4. yang terakhir perlu adanya penghematan jangan terlalu "over money ", karena itu bisa membuat kehancuran KANGKER(kantong kering) ... Pakailah sehemat-hematnya dan pakailah kartu yang irit ...
hheeeeheheh ,,,

segitu aja Tips dari saya ,semoga dapat bermanfaat ....

Created by Ujexs Base 2009

Baca Selengkapnya ..

kalau emang bener malam ini bulan purnama,
pasti bulan bakal redup
cz bidadarinya udah turun & sekarang habis mandi di telaga warna..
hehehehe… miss u…!
===========================================
kamu ahli desain interior ya..?
cz bgitu km masuk ke rumahku
semua jadi nampak indah dan nyaman bangt
===========================================
ayah kamu pasti seorang teroris. soalnya
sebuah bom telah mengguncang hatiku.
kamu memang Bom yg ga bisa di deteksi.
===========================================
kamu percaya sama pandangan pertama ga?
atau aku perlu lewat depan kamu lagi…
===========================================
aku ga percaya sama cinta pandangan pertama
sebelum kamu lewat di depan mataku
===========================================
lukisan emang bisa ngejelasin ribuan kata
tapi, saat aku melihat kamu ga ada satu katapun
yang dapat ngejelasin…
===========================================
tau ga, kayanya km terbuat dr 90% air. so, km bikin
aku selalu kehausan kl ga ktmu km
===========================================
yank, besok kl ktm aku jangan pandangi aku sprti td.
hatiku mleleh kl km pandangi aku sprti itu.
===========================================
kamu tau ga teori gravitasi.
sperti itulah cintaku pdmu.
sejauh kemanapun aku berkelana pasti aku akan kembali kpdmu.
===========================================

Copyright by Ujexs Base 2009

Baca Selengkapnya ..

Fungsi Terbilang Indonesia

End Sub

Silahkan Download  Disini :

== Fungsi Terbilang==

Baca Selengkapnya ..

Coding berikut ini digunakan untuk menampilkan huruf pertama dari

setiap kata dalam suatu kalimat menjadi huruf besar/kapital.



Persiapan:

1.Buat 1 Project baru dengan 1 Form dan 1 TextBox.

2.Ketik coding berikut ke dalam editor form yang bertalian.

Ketik coding berikut ini pada Form.




Download disini :
== Hurup Kapital==
Good Luck !

Baca Selengkapnya ..

Lagu Karya Musisi Ujexs Base ini,Sangat Impresif,lagu yang berjudul tentang lelaki biasa ini berkisah dan hampir semua ada pada diri seorang lelaki ,sebenarnya lagu ini ditujukan untuk kaum hawa biar didengar dan dibaca …

Lelaki biasa adalah lelaki yang memiliki kepribadian yang sangat luar biasa ..

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



Selamat Menikmati ... !!





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



Title : " Lelaki Biasa "

Genre : " Pop "

Year : " 2009 "

Liric : " Ujexs Base 2010 "



*

Sebelum kau mengenal aku lebih jauh

ku harap kepadamu untuk menilaiku lebih dulu ..

kutak ingin jika nanti kau menyesal

bila kau tak kenal lebih dulu kepribadianku ..



**

kukatakan padamu aku adanya seperti ini ...

tak ada yang bisa kubanggakan untukmu

sejujurnya diriku tak layak memilikimu ...

agar dapat kau lihat dulu baru mememikirkan pilihanmu





Reff

=====



Aku ini lelaki biasa yang tak pernah menyerah untuk selalu berusaha

menjadi seorang lelaki yang kau banggakan ..



Aku ini lelaki biasa yang belum mengerti akan cintaku

yang masih selalu belajar dalam dunia cinta karna ku lelaki biasa ...



Back to *,Reff

Download lagunya :

http://www.ziddu.com/download/6292273/LelakiBiasa.mp3.html

Baca Selengkapnya ..

• Rancangan tampilan FORM1
  

• Listing Kode Program
  

'Ini program music sederhana yang hanya bisa memutrarkan 1 lagu aja

'Pembuat : Ujexs Base 2008

'Tanggal : 20 Nov 2008

'Tempat : Kost Jl.Cemara II ,Sipin, Jambi

'Jam : 23.00 WIB

'E-mail : ujexsbase@gmail.com

'Website : http://ujexs09.blogspot.com/



'Menyatakan Variabel

Dim ket As String

Dim X As Integer





Private Sub Command1_Click()

On Error Resume Next

bukafile.Filter = _

"MP3 |*.mp3|ASF|*.asf|ASX|*.asx|WAV|*.wav|AVI|*.avi|"

bukafile.ShowOpen

MMC.FileName = bukafile.FileName

MMC.Command = "close'"

MMC.Command = "open"

Label1.Caption = "TRACK : " & bukafile.FileTitle

End Sub



Private Sub Command2_Click()

MMC.Command = "seek"

MMC.Command = "play"

End Sub



Private Sub Command3_Click()

Unload Me

End Sub



Private Sub Form_Load()

X = 1

ket = ""

End Sub



Private Sub Label3_Click()

Shell "EXPLORER.EXE " & " http://ujexs09.blogspot.com/"

End Sub





Private Sub Timer1_Timer()

ket = ket & Mid(Label2.Caption, X, 1) 'ket = ket & Mid(Label2.Caption, X, 1)

Frame1.Caption = ket

If X = Len(Label2.Caption) Then

ket = ""

X = 1

Else

X = X + 1

End If

End Sub



Private Sub Timer2_Timer()

Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

If Label1.Left > frmLagu.Width Then

Label1.Left = -Label1.Width

Else

Label1.Left = Label1.Left + 200

End If

End Sub

By MAHASISWA TI STMIK NH JAMBI

Ujexs Base 2009

ujexsbase@gmail.com

Baca Selengkapnya ..

• Rancangan tampilan FORM1
  

 

• Listing Kode Program
  

' ========================================================

'Program Tulisan Berjalan ini dibuat untuk bagaimana membuat suatu tulisan bisa berjalan sendiri

'di mana pembuatanya memaksimalkan fungsi Timer yang terdapat dalam Visual basic...

'silahkan aja jika mau diperbarui tanpa harus merusak karya asli pembuat ,, ntar bisa dituntut Looo

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

Private Sub Label2_Click()

'untuk membuat link online langsung ke internet

Shell "EXPLORER.EXE " & "http://ujexs09.blogspot.com/"

End Sub



Private Sub Timer1_Timer()

'tulisan jalan ke kiri

If Option1.Value = True Then

If Label1.Left < -Label1.Width Then

Label1.Left = Picture1.Width

Else

Label1.Left = Label1.Left - 50

End If

'tulisan jalan ke kanan

ElseIf Option2.Value = True Then

If Label1.Left > Picture1.Width Then

Label1.Left = -Label1.Width

Else

Label1.Left = Label1.Left + 50

End If



'tulisan jalan ke atas

ElseIf Option3.Value = True Then

If Label1.Top < -Label1.Height Then

Label1.Top = Picture1.Height

Else

Label1.Top = Label1.Top - 50

End If

'tulisan jalan kebawah

ElseIf Option4.Value = True Then

If Label1.Top >= Picture1.Height Then

Label1.Top = 0

Else

Label1.Top = Label1.Top + 50

End If

End If

End Sub



Private Sub Timer2_Timer()

'membuat tulisan berkedip-kedip

Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

End Sub

By MAHASISWA TI STMIK NH JAMBI

Ujexs Base 2009

ujexsbase@gmail.com

Baca Selengkapnya ..