Membuat Text Berjalan Seperti Di Ketik Pada Visual Basic

Selasa, 13 Mei 2014

Teman-teman pecinta VB kali ini saya akan membagikan Kode untuk membuat tulisan berjalan ( seperti di ketik ) pada Visual Basic.


Langsung saja pertama siapkan Object Berikut ini :

  • Label 1 buah ( sebagai object tulisan nantinya )
  • Timer ( sebagai pengatur timing berjalannya tulisan )
  • CommandButton ( sebagai tombol untuk memainkan animasi text yang akan di buat / optional bisa di buat dengan berbagai cara untuk menjalankan perintah animasi )
Pengaturan Timer :

Ubah interval pada timer dari 0 ubah menjadi 300.
Dan Enable dari True menjadi False

Setelah semua komponen sudah di buat,
Langsung saja pada Form masukkan coding berikut :


Private Sub Command1_Click()
If Command1.Caption = "mainkan" Then
    Timer1.Enabled = True
    Command1.Caption = "Stop"
Else
    Timer1.Enabled = False
    Command1.Caption = "mainkan"
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "A"
End Sub

Private Sub Timer1_Timer()
Select Case Label1
    Case "A"
    Label1.Caption = "AN"
    Case "AN"
    Label1.Caption = "ANI"
    Case "ANI"
    Label1.Caption = "ANIM"
    Case "ANIM"
    Label1.Caption = "ANIMA"
    Case "ANIMA"
    Label1.Caption = "ANIMAS"
    Case "ANIMAS"
    Label1.Caption = "ANIMASI"
    Case "ANIMASI"
    Label1.Caption = "A"
   
End Select
End Sub


Keterangan : untuk penamaan Form1 bisa di atur sesuai dengan nama Form milik agan nama tsbt harus sesuai dengan nama form agan hal ini berlaku juga untuk komponen Button, Timer dan Label di atas.

EDIT Kata : ANIMASI menjadi Kata yang anda inginkan, ingat 

Label1.Caption = "AN" >> Ubah AN menjadi kata anda ( 2 Huruf terdepan ) di lanjutkan dengan bagian selanjutnya menjadi ( 3 Huruf agan bisa lihat contoh di bawah )
Case "AN"

kalau mau di ubah harus keduanya, ikuti sesuai urutan mulai dari Case K kemudian tambah 1 huruf jadi KE kemudian tambah 1 huruf jadi KEN dan seterusnya.. jika ingin di tambahkan tinggal memasukkan perintah " Label1.Caption = "" dan Case "" dibawahnya.

Contoh :

    Case "K"
    Label1.Caption = "KE"
    Case "KE"
    Label1.Caption = "KEN"
    Case "KEN"
    Label1.Caption = "KENH"
    Case "KENH"
    Label1.Caption = "KENHO"
    Case "KENHO"
    Label1.Caption = "KENHON"
    Case "KENHON"
    Label1.Caption = "KENHOND"
    Case "KENHOND"
    Label1.Caption = "A"

Setelah semua komplit silahkan di test dulu dengan menekan tombol F5 atau RUN.
Dan tekan tombol Button yang sudah di buat.

Sekian dulu jika masih bingung silahkan masukkan ke kolom komentar pertanyaannya :)
READ MORE - Membuat Text Berjalan Seperti Di Ketik Pada Visual Basic

Download Visual Basic 6 Enterprise Edition Full Version

Kamis, 08 Mei 2014

Teman-teman kali ini saya akan membagikan Visual Basic 6 Enterprise Edition yang sudah full version.
  • Visual Basic sendiri adalah program untuk mencoding dan mencompile program aplikasi menggunakan sistem GUI ( graphic user interface ). 


Download file via 4SHARED | size = 123.5mb
password : kenhondar
  • Tips Installasi ( windows 7 )
Masalah error saat installasi sering terjadi pada OS Windows 7 untuk cara menanganinya cukup mudah caranya klik kanan pada file installer setup dan pilih Properties > Compability > Run pada Windows Xp service pack 3 dan OK.

Tips memperbaiki error komponen dan lain sebagainya sudah saya posting pada postingan sebelumnya, atau klik DISINI, ( hanya untuk error pengguna Windows 7 dan terbaru ).
READ MORE - Download Visual Basic 6 Enterprise Edition Full Version

Cara Mengatasi Error Visual Basic Pada Windows 7

Teman-teman pengguna Operating System Windows 7 pasti sering mengalami Crash ( Stop Working ), Animasi lambat, Not Responding dan sebagainya disini ada beberapa masalah yang perlu untuk di perbaiki.


Langsung saja berikut caranya :

  • Perhatian
Visual Basic 6.0 Portable tidak support dengan Windows 7 sehingga akan terjadi error pada salah satu komponen, harap menggunakan Visual Basic 6 Installer Package.

Jika sudah punya Visual Basic 6 installer package berikut tips agar Visual Basic tidak mengalami Not Working saat membuka beberapa fitur drag-drop seperti Label, Button, Text.
  • Beberapa kasus ketika drag-drop fungsi label atau button mengalami crash ( not working ) dan animasi lag ketika menyeret fungsi komponen pada Visual Basic. *masalah ini hanya terjadi di Windows 7 atau lain sebagainya kecuali Windows Xp.
Untuk mengatasi masalah di atas berikut : Klik kanan pada icon Visual Basic > Pilih Properties > Compability > Run this program in compability mode for : pilih Windows Xp Services Pack 3 dan OK.

Untuk masalah komponen error DLL agan-agan harus menggunakan Visual Basic installer version.

Oke sekian dulu cara memperbaiki Visual Basic 6 lag, crash atau error pada Windows 7. ^_^
READ MORE - Cara Mengatasi Error Visual Basic Pada Windows 7

Memperbaiki Masalah Hotspot Pribadi Hilang Pada iOS 7

Rabu, 09 April 2014

Teman-teman pengguna iOS 7 pasti tau apa itu personal hotspot? ya personal hotspot berfungsi sebagai pembagi internet dari iOS Device ke dalam PC/Laptop. Dalam iOS 7 masih ada beberapa Bug yang terjadi pada Personal Hotspot/Hotspot Pribadi yaitu personal hotspot hilang dari list pengaturan.


Disini cara menanganginya cukup mudah, berikut tutorialnya:

  1. Masuk ke settingan
  2. Nyalakan Airplane Mode atau Mode Pesawat
  3. Masuk ke Seluler
  4. Kemudian pilih Hotspot Pribadi
  5. Kemudian Nyalakan / Matikan Hotspot pribadi dan Hotspot Pribadi dan Masalah selesai.
Caranya cukup simple kan? bagi pengguna iOS 7 Jailbreak saya harap jangan mengupgrade ke iOS 7.1 walaupun masalah ini sudah di perbaiki di iOS 7.1. Karena iOS 7.1 belum bisa di Jailbreak.

Sekian postingan kali ini jika ada pertanyaan silahkan berkomentar.
READ MORE - Memperbaiki Masalah Hotspot Pribadi Hilang Pada iOS 7