GAMBAR / TULISAN BERGERAK PART 1

by: mfikri.arifin

Buat yang suka edit-edit html anda bisa copas contoh scriptnya disini dan jika anda ingin membuat gambarnya yang bergerak anda bisa menyisipkan gambar menggunakan tag <img> oke gk usah basa-basi lagi monggo copas

1.Text jalan/bolak-balik:


<marquee behavior=alternate loop=15>Teks Bolak Balik</marquee>

2.Text menggunakan background:


<marquee bgcolor=blue loop=15></marquee>

3.Text gerak kekanan:


<marquee behavior=scroll direction=right loop=15>Teks Bergerak Ke Kanan</marquee>

4.Text gerak kekiri:


<marquee behavior=scroll direction=left loop=15>Teks Bergerak Ke Kiri</marquee>

5.Text berjalan cepat:


<marquee scrollamount=30 loop=15>Teks Berjalan cepat</marquee>

6.Text jalan dengan efek zig zag:


<marquee behavior="slide" bgcolor="" direction="left" loop="10" scrollamount="5" scrolldelay="10">Wellcome To My Blog</marquee>

7.Jalan dari bawah keatas:


<marquee behavior="alternate" direction="up" scrollamount="5" scrolldelay="10" ><marquee behavior="alternate" direction="left" scrollamount="5" scrolldelay="10">Wellcome To My Blog</marquee>

Bila Sekiranya Masih Belum Jelas Bisa Tanya lewat komentar maupun YM oke

..::THANK'S FOR VISIT::..

MEMBUAT PROGRAM SEDERHANA DENGAN VB6

FREE TUTORIAL

by mfikri.arifin

Kini saya akan memberikan langkah-langkah membuat program sederhana dengan vb 6 oke

MEMBUAT PROGRAM PAINT SEDERHANA

Langkah pertama adalah membuat sebuah project dengan sebuah form menggunakan objek label, button, picture box dan frame dengan desain seperti ini:

Langkah selanjutnya adalah melakukan pengaturan properties sehingga tampilan didapat seperti pada gambar diatas / anda ingin menatanya sesuai selera anda.

Langkah terakhir adalah memberikan listing program untuk form tersebut sebagai berikut:

Dim paintnow As Boolean
Private Sub cmdhapus_Click()
cmdhapus.Enabled = False
cmdpensil.Enabled = True
End Sub

Private Sub cmdhpsemua_Click()
Picture1.Cls
End Sub

Private Sub cmdpensil_Click()
cmdpensil.Enabled = False
cmdhapus.Enabled = True
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 14
lblwarna(i).BackColor = QBColor(i)
Next i
Picture1.ForeColor = QBColor(0)
Picture1.BackColor = QBColor(15)
End Sub

Private Sub lblwarna_Click(Index As Integer)
Picture1.ForeColor = lblwarna(Index).BackColor
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
paintnow = True
Picture1.CurrentX = x
Picture1.CurrentY = y
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If paintnow Then
If cmdpensil.Enabled = False Then
Picture1.Line -(x, y), Picture1.ForeColor
Picture1.MousePointer = 99
End If
If cmdhapus.Enabled = False Then
Picture1.Line -(x, y), RGB(255, 255, 255), B
Picture1.MousePointer = 12
End If
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
paintnow = False
End If
End Sub

Haha Mudahkan untuk lebih jelas nya anda bisa meninggalkan Komentar atau sejenisnya :D hehe..

..::THANK'S FOR VISIT::..

CARA DAFTAR FIFA ONLINE

Oleh : mfikri.arifin

CARA DAFTAR FIFA ONLINE INDONESIA 2

1.    Buka link ini http://fifaonline2.iahgames.co.id/registration/registration.aspx
2.    dan akan muncul seperti pada gambar ini

3.    Isi kan data-data yang diminta.

4.    Centang Saya telah membaca dan menyetujui syarat dan kondisi IAHGames Passport.
5.    Dan Tara Anda Telah Terdaftar sebagai user yang valid dan akan muncul tampilan seperti gambar dibawah ini

6.    Jika anda belum memiliki game nya anda bisa menekan tombol Download Untuk Mendownload Game FIFA 2 Indonesia

7.    Atau jika anda ingin mengetahui lebih lanjut tentang fifa 2 indonesia anda bisa melihatnya di Learn untuk mengetahui infonya

Jika anda masih belum jelas anda bisa meninggalkan komentar atau langsung bertanya lewat YM center (Kami Juga bisa Membantu untuk mendaftarkannya)

..::THANK'S FOR VISIT::..

CARA DAFTAR PES ONLINE

By : mfikri.arifin

Cara Registrasi ID Konami atau ID PES 2011, 2012, 2013

Pertama Buka Link ID Konami 

Klik disini Untuk Ke Link ID KONAMI

Lalu Setelah Dibuka Maka Akan Muncul daftar Registrasi yaitu Information Entry

Isi Semua Entry dan Centang Agree atau sebagainya, lalu klik next

Maka Akan muncul seperti dibawah ini

Lalu Klik Next

Setelah Muncul Seperti Dibawah Ini Buka Email yang anda Gunakan Pada saat Registrasi

Lalu Akan Muncul Pesan Seperti Dibawah dan buka URL yang diberikan oleh Konami maka Akan Muncul form Registrasi Seperti Dibawah Ini

Contoh / Cara Pendaftaran

Country : United States (karena ga ad negara Indonesia)
Language : English

Konami ID : h0wd01ng
Password : 13113112bibir

Game ID : 13113112 (harus angka)
GAME ID Password : 19072008 (harus angka)

Secret question : What is your mothers maiden name?
Secret answer : hari

Name : Distie Yupie
Gender : Male
Date of birth : 02/03/1990
E-mail address : leon_van_belmont@yahoo.co.id
Zip Code : 90120

bila Anda Tidak Ingin Mendaftar Maka ID di atas Sudah Dapat Anda Gunakan

(Thank To Distie) Orang Yang Telah Mendaftarkan id bebas ini

..::THANK'S FOR VISIT::..

CHELSEA CAN BE REACHED DOUBLE WINNER THIS SEASON

by : mfikri.arifin

John Terry believes Chelsea can be reached double winner this season and could take one ticket for

competing in the champions league next season.
In this season chelsea very difficult to penetrate the UCL phase, the blues Chelsea who is still competing in

event FA Cup, EPL and europa league.
But the blues now raise your hand if you want to win the premier league this season forces

rafael benitez now just want to reach the runner-up in the epl in order to compete in the Champions League

next season.
But john terry sure that chelsea could reach double winner this season by winning the FA cup and tittle

europa league with Chelsea Captain John Terry continues to encourage and colleagues
"Although Chelsea were knocked out of the Champions League, as a professional player, we can not complain. We

shall make use of the opportunities that exist to provide the best "Terry said as quoted by The Sun.
"Leiga European, FA Cup and reached the last four at the epl chelsea is the best achievement at the moment. We

have the squad to win a double winner, so why not do it? "said Terry in encouraging his friends.

..::THANK'S FOR VISIT::..

NAGA SUNGGUHAN

By: mfikri.arifin

NAGA SUNGGUHAN

Bicara soal naga naga adalah salah satu unsur yang penting  bangsa China. yaitu dari budaya China yang banyak berhubungan dengan hewan  ini. Para peneliti yakin bahwa naga itu merupakan mahkluk imajinasi saja yang hanya hadir dalam legenda di cina.

yak dan semua itu rupanya bisa berubah saat seorang arkeolog di China berhasil menemukan fosil naga ini di Desa Guanling, Kota Anshun, China.

dan hal itu membuktikan bahwa naga memang pernah ada.
dan sesuai yang di informasikan kepada media bahwa

Dalam bingkai ilmu pengetahuan, naga merupakan reptil yang hidup di samudra pada masa Triasik sekitar 200 juta tahun yang lalu. Naga merupakan makhluk amfibi, ia banyak menghabiskan waktunya di air dan terkadang berjalan ke daratan. Naga merupakan legenda yang tidak bisa dipisahkan dengan kehidupan masyarakat China. Hewan dari masa lalu ini, sering hadir dalam kisah-kisah masa lalu China dan dianggap sebagai makhluk yang istimewa. Orang Mandarin juga meyakini bahwa mereka adalah titisan dari naga.

bentuk naga ini sesuai legenda. dengan kondisi baik dengan Panjangnya  7,6 m, kepalanya 76 cm lalu leher 54 cm. dan Tubuhnya yang panjang sekitar 2,7 m dan lebar 68 cm, dan buntutnya 3,7 m.

dan penemuan ini membuat geger warga setempat yang mendengar kabar tersebut dan fosil tersebut akhirnya diteliti kembali atas kebenarannya yang setelah itu akan di taruh dimuseum di china

..::THANK'S FOR VISIT::..

DRAGONS IS REAL

by: mfikri.arifin

DRAGONS IS REAL

Speaking of dragons dragon is one of the important elements of the Chinese. that is a lot of Chinese culture associated with these animals. The researchers believe that the dragon is a creature of imagination are only present in the legends in china. 

yak and all that seems to be changing as an archaeologist in China had found fossilized dragon Guanling Village, Anshun City, China. 

and it proves that dragons ever existed. 
and appropriate informed to media that 

In the frame of science, the dragon is a reptile that lived in the oceans during the Triassic about 200 million years ago. Dragons are amphibious creatures, he spent more time in the water and sometimes walks to the mainland. Dragon is a legend that can not be separated from public life in China. Animals from the past, often present in stories of the past China and is regarded as being special. Chinese people also believe that they are the incarnation of the dragon. 

appropriate form of dragon legends. good condition with a length of 7.6 m, 76 cm head and neck 54 cm. Her long and about 2.7 m wide and 68 cm, and a tail 3.7 m. 

and this discovery makes locals who heard the commotion news and the fossil was finally investigated the truth that it will be in place after dimuseum in china

..::THANK'S FOR VISIT::..