Langsung aja Download Bro......
di SINI
Teks Berjalan
langkah pertama yang harus rekan-rekan lakukan adalahBuatlah sebuah project dengan standartd EXE.Buatlah 2 buah timer terserah interval mau diisikan berapa tapi disini manusia biasa menggunaka
Menu XP Ala Visual Basic
Nah, ini dia link nya download Menu XP Ala Visual Basic (ocx). Hanya untuk visual basic 6.0. Yang mau mencoba silahka download aja yach.Menu XP Ala Visual Basic
Mempercantik Tampilan Windows 7
Di bawah ini adalah beberapa software yang bisa anda gunakan untuk mempercantik Tampilan pada OS windows 7 pada yang terinstal pada kumput...
VB + MySql
*******LISTING UNTUK MODUL******** Global db As New ADODB.Connection Function konek() Set db = New ADODB.Connection db.CursorLocation...
Senin, 23 Maret 2015
Selasa, 13 Januari 2015
Jumat, 16 November 2012
ProgressBar
Buatlah project baru dengan pilihan standart exe, kemudian tambahkan
component progress bar, dengan cara klik kanan pada area toolbox. Pilih
component, pada tab control. Kemudian pilih dengan cara beri tanda
centang Microsoft windows common control 6.0 (SP6).
Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Sekarang kembali kearea kerja kemudian klik icon progress bar. Buatlah sebuah progressbar pada form anda. Dan buatlah sebuah command button, Seperti pada gambar berikut:
Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Private Sub Command1_Click()
For manusia_biasa = 1 To 100000 //nilai dapat ditentukan sendiri
Manusia_biasa = manusia_biasa + 1
ProgressBar1.Value = i
Next i
End
End Sub
Private Sub Form_Load()
Dim manusia_biasa As Integer
ProgressBar1.Max = 100000 //nilai dapat ditentukan sendiri
ProgressBar1.Min = 1
End Sub
Setelah itu klik tombol start atau tekan F5 pada keyboard anda.
Sekian artikel dari saya semoga bermanfaat bagi anda sekalian. SELAMAT MENCOBA!!!!!
artikel lengkapnya dapat anda download klik disini
Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Sekarang kembali kearea kerja kemudian klik icon progress bar. Buatlah sebuah progressbar pada form anda. Dan buatlah sebuah command button, Seperti pada gambar berikut:
Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Private Sub Command1_Click()
For manusia_biasa = 1 To 100000 //nilai dapat ditentukan sendiri
Manusia_biasa = manusia_biasa + 1
ProgressBar1.Value = i
Next i
End
End Sub
Private Sub Form_Load()
Dim manusia_biasa As Integer
ProgressBar1.Max = 100000 //nilai dapat ditentukan sendiri
ProgressBar1.Min = 1
End Sub
Setelah itu klik tombol start atau tekan F5 pada keyboard anda.
Sekian artikel dari saya semoga bermanfaat bagi anda sekalian. SELAMAT MENCOBA!!!!!
artikel lengkapnya dapat anda download klik disini
Teks Berjalan
langkah pertama yang harus rekan-rekan lakukan adalah
Buatlah sebuah project dengan standartd EXE.
Buatlah 2 buah timer terserah interval mau diisikan berapa tapi disini manusia biasa menggunaka nilai 20 untuk masing-masing timer. Nah, kedua timer ini nantinya masing akan digunakan untuk membuat teks berjalan dan teks kerlap kerlip.
Buatlah 2 buah label. Nah, label yang pertama digunakan untuk teks berjalan tadi dan label yang kedua akan kita gunakan untuk teks kerlap kerlip tadi.
Sudah semuanya........
Ok. kita lanjut...... langkah selanjutnya ketikkan coding berikut keview editor rekan-rekan. Nah kalau malas copy paste saja.
Dim Red, Green, Blue As Integer
Private Sub Timer1_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0 Green = Green + 50 End If If Green >= 255 Then
Green = 0
Red = Red + 50
End If
If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub
Private Sub Timer2_Timer()
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then /dapat diubah kekanan ganti left keright keatas top dan kebawah buttom.
Label2.Left = Form1.Width
End If
End Sub
Gampang kan??????
Nah, kalau yang mau project lengkapnya dapat diambil disini.
Buatlah sebuah project dengan standartd EXE.
Buatlah 2 buah timer terserah interval mau diisikan berapa tapi disini manusia biasa menggunaka nilai 20 untuk masing-masing timer. Nah, kedua timer ini nantinya masing akan digunakan untuk membuat teks berjalan dan teks kerlap kerlip.
Buatlah 2 buah label. Nah, label yang pertama digunakan untuk teks berjalan tadi dan label yang kedua akan kita gunakan untuk teks kerlap kerlip tadi.
Sudah semuanya........
Ok. kita lanjut...... langkah selanjutnya ketikkan coding berikut keview editor rekan-rekan. Nah kalau malas copy paste saja.
Dim Red, Green, Blue As Integer
Private Sub Timer1_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0 Green = Green + 50 End If If Green >= 255 Then
Green = 0
Red = Red + 50
End If
If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub
Private Sub Timer2_Timer()
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then /dapat diubah kekanan ganti left keright keatas top dan kebawah buttom.
Label2.Left = Form1.Width
End If
End Sub
Gampang kan??????
Nah, kalau yang mau project lengkapnya dapat diambil disini.
Menu XP Ala Visual Basic
Nah, ini dia link nya download Menu XP Ala Visual Basic (ocx). Hanya untuk visual basic 6.0. Yang mau mencoba silahka download aja yach.
Menu XP Ala Visual Basic (OCX
Sistem Informasi Pendaftaran Register Induk Perkara Gugatan Perselisihan Hubungan Industrial Di Pengadilan Negeri Palangka Raya
Nah sekarang masih dalam hal pemrograman dan sekarang Saya mau kasih liat program buatan teman saya ketika Kerja Praktek dan membuat sebuah aplikasi berjudul "Sistem Informasi Pendaftaran Register Induk Perkara Gugatan Perselisihan Hubungan Industrial Di Pengadilan Negeri Palangka Raya". Program ini menggunakan Visual basic 6.0 dan Microsoft Access sebagai data base.
Kebetulan juga manusia biasa udah minta ijin sama si programer, jadi tenang aja yang mau lihat program ini sebagai tugas kuliah atau program KP monggo download aja di link berikut ini.
Free Download Sistem Informasi Pendaftaran Register Induk Perkara Gugatan Perselisihan Hubungan Industrial Di Pengadilan Negeri Palangka Raya
http://www.ziddu.com/download/11379294/programkp.rar.html
Semoga artikel ini bermanfaat bagi yang membutuhkan...
Aplikasi SPK (sistem Penunjang Keputusan)
Sistem Informasi Penjualan Kendaraan Bermotor
http://rambutbiru.googlepages.com/sispkb.zip
Sistem Informasi Akademik
http://download.stainbatusangkar.ac.id/oriyu.rar
Sistem Informasi Pustaka
http://sites.google.com/site/riyuniza1/prjdatabase.rar?attredirects=0
Program Visual Basic Sistem Informasi Pendataan dan penunjang Keputusan Aparatur Desa oleh Muhammad Sufri
http://www60.indowebster.com/8dcd8b6ce1f615d5ff95d98025966dba.rar
http://www.indowebster.com/wwwriyunizacocc_ta_sufri.html
Monggo silahkan bagi yang merasa program ini miliknya silahkan menghubungi manusia biasa. link ini dikumpulkan dari berbagai sumber. lain kali manusia biasa akan share lagi yang lebih banyak monggo di download sebelum link broken atau udah gak laku lagi :D
Keep smile n keep touch :D
