.::BRC::.
Selamat datang di Website BRC (Binter Rider Club)

Anda Belum terdaftar!!!

Ingin membaca Artikel2 lebih banyak lagi..? Bergabunglah dan menjadi Members Di Website kami.

Pergunakan ID dan Avatar Anda yg Sopan untuk berkomunitas di Website ini!

Prosedur pendaftaran :
* Masukan data diri sesuai yang diminta saat Regitrasi.
* Ketika mendaftar sebagai anggota baru harap dicatat bahwa Anda harus menggunakan alamat e-mail yang valid atau aktif.
* Kami akan mengirim email Verifikasi ke e-mail Anda sebagai jembatan untuk validasi atau pengaktian account.
* Malakukan aktivasi account Anda dari link yg telah dikirim ke alamat e-mail Anda.
* Login di Forum dengan menggunakan Nick ID dan Password yang Anda buat dan telah terkirim ke alamat e-mail Anda.

Silahkan daftar dengan meng-klik tombol "Pendaftaran" (Registration)

Apabila Anda sudah pernah terdaftar silahkan Anda klik Tombol "Login"

Bagi Anda yang sudah hadir sebagai tamu, kami crew BRC mengucapkan terima kasih yang sebesar2nya, karena sudah menyempatkan waktu untuk hadir di Website kami.

Jika anda tidak ingin register dan bergabung bersama para member lainnya. Tolong tinggalkan sedikit kata kenangan kepada kami berupa komentar, keritik atau saran dengan topik baru pada kategori "SARAN & KRITIK".

Sekali lagi Salam Hangat selalu dari kami selaku Crew BRC !!!

.::BRC::.

Binter Rider Club - Bandung
 
PortalIndeksCalendarGalleryFAQPencarianAnggotaGroupPendaftaranLogin
Motto : "KITA BESAR MANAKALA KITA BERSATU"
BRC MENU




 



Login
Username:
Password:
Login otomatis: 
:: Lupa password?
October 2017
MonTueWedThuFriSatSun
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendarCalendar
User Yang Sedang Online
Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu

Tidak ada

User online terbanyak adalah 12 pada Tue Jul 26, 2011 7:34 pm
Statistics
Total 271 user terdaftar
User terdaftar terakhir adalah hery

Total 238 kiriman artikel dari user in 209 subjects
Top posters
BRC-Administrator (217)
 
anack_gorontalo (7)
 
Rony S (2)
 
rifai1222 (2)
 
Mahmud (1)
 
arisbooter (1)
 
tukangsapu (1)
 
engcellpulsa (1)
 
harto (1)
 
ganten180 (1)
 
Latest topics
» test yacgh
Fri Nov 29, 2013 7:43 pm by rifai1222

» salam kenal
Fri Nov 29, 2013 7:38 pm by rifai1222

» salam kenal dari anak sulawesi
Sat Sep 10, 2011 10:39 am by djadjang nurjaman

» Umax Astra 4100 USB Scanner (Driver)
Sat Jul 09, 2011 1:51 pm by mistersibuk

» MS Visual Foxpro 9.0
Wed May 25, 2011 7:32 pm by hikaru11

» salam kenal semua nya
Mon Apr 04, 2011 11:17 am by arisbooter

» Assalamualaikum
Thu Mar 10, 2011 8:03 am by tukangsapu

» master dealer pulsa
Sun Dec 05, 2010 9:36 pm by engcellpulsa

» 43 Daftar free web hosting ( hosting gratis ) sekaligus Ulasan fiturnya
Tue Aug 24, 2010 1:21 am by anack_gorontalo

» WEB Hosting Gratis
Tue Aug 24, 2010 1:16 am by anack_gorontalo

Social bookmarking
Social bookmarking Digg  Social bookmarking Delicious  Social bookmarking Reddit  Social bookmarking Stumbleupon  Social bookmarking Slashdot  Social bookmarking Yahoo  Social bookmarking Google  Social bookmarking Blinklist  Social bookmarking Blogmarks  Social bookmarking Technorati  

Bookmark and share the address of BRC on your social bookmarking website

Bookmark and share the address of .::BRC::. on your social bookmarking website
Keywords

Share | 
 

 Membuat animasi dengan visual basic

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
anack_gorontalo

avatar

Jumlah posting : 7
Points : 13
Reputation : 0
Join date : 24.08.10
Lokasi : gorontalo
Job/hobbies : PT. FIF GORONTALO

240810
PostMembuat animasi dengan visual basic

misi mas.. berikut tutorial pembuatan app text animasi dengan VB,

oc langsung aja ea....

pertama sediakan app VB, law belum ada silakan dunlud aja di topik sebelh

langkah2 na sebagai berikut:

1. buat desain form sebagus mungkin
2. caption untuk formnya animasi label
3. buat satu buah kolom text (tidak ada yang dirubah)
4. buat satu buah kolom label (properties alignment ganti jadi center)
5. buat dua buah command button yang caption yang pertama beri nama start and yang kedua stop.
6. setelah itu beres dah……….


langkah selanjutna qt masukin source code na dengan cara double click command star

nah sampai s2 dah ngerti ea...

untuk code na silakan di copas di bawah ini


Option Explicit

Dim Play As Boolean
Sub Sleep(Delay%)
Dim Mulai%

While Mulai < Delay - (1000) And Play = True
Mulai = Mulai + 1
DoEvents
Wend
End Sub

Sub Damn()
Dim h$, f$, c$, i%, t%, d%
Dim strTemp$, length%
Dim buffLeft$, buffRight$

If Play = False Then Exit Sub
h = Text1

'// Gaya Huruf Besar dan kecil
Label1 = LCase(h)
c = Label1
For i = 1 To Len(h)
Sleep 10000
Mid(c, i, 1) = UCase(Mid(c, i, 1))
Label1 = c
Next i

For i = 1 To Len(h)
Sleep 10000
Mid(c, (Len(h) + 1) - i, 1) = _
LCase(Mid(c, (Len(h) + 1) - i, 1))
Label1 = c
Next i

'// Gaya mengetik
Label1 = "|"
For i = 1 To 5
Sleep 10000
If Label1 = "|" Then
Label1 = " "
Else
Label1 = "|"
End If
Next i

For i = 1 To Len(h)
Sleep 10000
Label1 = Left(h, i) & "|"
Next i

Label1 = Left(Label1, Len(Label1) - 1)

'// Berjalan dari sebelah kiri
Label1 = h
Do
Sleep 22000
Label1 = Mid(Label1, 2, Len(Label1) - 1) & Left(Label1, 1)
DoEvents
Loop Until Label1 = h

'// Berjalan dari sebelah kanan
Label1 = h
Do
Sleep 22000
Label1 = Right(Label1, 1) & Left(Label1, Len(Label1) - 1)
Loop Until Label1 = h

'// Gaya Terbang
t = Label1.Top
Label1.Top = t + 500
While Label1.Top >= t
Sleep 5000
Label1.Top = Label1.Top - 10
Wend
Sleep 12000

'// Gaya Menghilang
Label1.Visible = False
Sleep 15000
Label1.Visible = True
Sleep 17000

'// Gaya ZOOM
'Label1.Alignment = vbCenter
For i = 1 To Label1.FontSize
Sleep 10000
Label1.FontSize = i
Next i

'// Gaya Strip
Label1 = String(Len(h), " ")
f = Label1
For i = 1 To Len(h)
Sleep 8000
c = Mid(h, Len(h) - (i - 1), 1)
Mid(f, Len(f) - (i - 1), 1) = c
Label1 = f
Next i

'// Gaya Blink
For i = 1 To 10
Sleep 12000
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
Next i

'// Gaya Melompat dan Box
strTemp = Label1
For i = 1 To 2
length = 0
While length < Len(strTemp)
Sleep 10000
length = length + 1
If i = 1 Then
Label1 = String(Len(strTemp), " ")
buffLeft = Label1
Mid(buffLeft, length, 1) = Mid(strTemp, length, 1)
Label1 = buffLeft
buffRight = Label1
Mid(buffRight, Len(strTemp) - (length - 1), 1) = _
Mid(strTemp, Len(strTemp) - (length - 1), 1)
Label1 = buffRight
Else
buffLeft = Label1
Mid(buffLeft, length, length) = _
Mid(strTemp, length, length)
Label1 = buffLeft
buffRight = Label1
Mid(buffRight, Len(strTemp) - (length - 1), length) = _
Mid(strTemp, Len(strTemp) - (length - 1), length)
Label1 = buffRight
End If
DoEvents
Wend
Next i

Damn
End Sub

Private Sub Command1_Click()
If Command1.Caption = "Mulai" Then
Command1.Caption = "Stop"
Text1 = Text1 & " "
Label1 = Text1
Play = True
Else
Command1.Caption = "Mulai"
Play = False
End If
Damn
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Form1.Caption = "ANACK_GORONTALO"
Text1.Text = "http://anackgorontalo.my-php.net"
Command1.Caption = "Mulai"
Command2.Caption = "Close"
End Sub


oc selesai dah... untuk menjalankana silakan tekan tombol f5.

gud luck friend cheers
Kembali Ke Atas Go down
Lihat profil user http://www.anackgorontalo.my-php.net

 Similar topics

-
» WTA : Cara membuat caram depan vespa PX
» Beda Mesin PX, PS dengan Super 78
» Harga scooter untuk lokal?
» mau tanya tentang body vespa vbb dengan bajaj
» WTA : Cara membuat SS90?
Share this post on: Excite BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahooSmarking

Membuat animasi dengan visual basic :: Comments

No Comment.
 

Membuat animasi dengan visual basic

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
.::BRC::. :: BRC KOMPUTER & ELECTRO :: BRC Komputer :: OS & Program-
Navigasi:  
Forum bebas | © phpBB | Free forum support | Kontak | Report an abuse | www.sosblogs.com