T-shirt and Design Distro

Running Text istilah kerennya. Yah sebuah program tanpa adanya teks animasi berjalan rasanya akan kurang sreg

Gak usah bertele-tele, langsung aja ikuti tutorial berikut:
 Jalankan Aplikasi Microsoft Office Access

Pilih Menu >>> File >>> New atau tekan perintah tombol secara berurutan (Alt+F+N) atau (Ctrl+N)

Jendela baru akan muncul di sebelah kanan layar dengan beberapa pilihan.

Pilih "Blank Database", sehingga muncul jendela seperti dibawah ini:




Ketik Nama file anda pada pilihan "File Name", misalnya "Teks Berjalan"
Click tombol "Create" di sudut kanan bawah. Maka akan muncul jendela proyek anda

Pilih Form>>>Create form in Design View, perhatikan gambar berikut


Buatlah sebuah sebuah "Label" dengan menekan icon Aa pada "Toolbar"
Letakkan pada bidang "Form". Berikan nama sesuai keinginan anda, misalnya: "TeksBerjalan" atau
Masuk ke property (Klik Kanan pada Label yang telah diletakkan pada form) dan ubah:
      Name      = LabelBerjalan
      Caption   = TeksBerjalan




Simpan Form anda dengan nama yang anda suka. Misalnya: Form: Teks_Berjalan

Langkah selanjutnya adalah:

Pilih Menu Bar: Tools>>>Macro>>>Visual Basic Editor (atau tekan Alt+F11 pada keyboard)


Muncul Jendela Berikut

Langkah selanjutnya, copy code program dibawah ini dan paste pada visual basic editor seperti gambar di atas di bawah "option explixit"

'Membuat kontrol teks berjalan
Private Sub Form_Timer()
Dim Kalimat As String
Dim Counter As Integer
Kalimat = "Anda telah berada pada sistem aplikasi *McBoeraghtv.1.0*"""
Counter = Counter + 1
DoEvents
LabelBerjalan.Caption = TulisJalan(Counter, Kalimat, 30)
End Sub

'Membuat perintah tulis jalan pada kontrol teks berjalan
Public Function TulisJalan(hitung As Integer, strKalimat As String, Panjang As Integer)
If hitung = Len(strKalimat) + Panjang Then
        hitung = 0
ElseIf hitung > Len(strKalimat) Then
        TulisJalan = strKalimat & Space(hitung - Len(strKalimat))
Else
        TulisJalan = Mid(strKalimat, 1, hitung)
End If
End Function

Tunggu dulu, bro...
Belum berakhir sampai disini... Masih ada langkah yang perlu dilakukan

Save data dan Close visual basic editor.
Kembali ke jendela "Form" anda.
Edit Property Form anda.



yang perlu and edit adalah:
     Time Interval = 100
     Pop Up = Yes
     Deviding Line = No
     Scroll Bar = Neither     Record Selector = No
     Navigation Button = No
    Auto Center = Yes
    Borther Style = None
    Min Max Button = Both Enable
    Allow Design Change = Design View Only

Simpan dan jalankan form anda... dan lihat hasilnya.

(catatan: jika program anda tidak bisa berjalan maka perlu ada setingan tambahan pada acces anda)

1. Masuk ke menu Tools>>>Macro>>>Security dan Pilih "Low (not recomended)
2. Masuk ke visual basic editor dimana code srift tadi dipastekan) dan masuk ke Menu Tools pada menu bar. Menubar: Tools>>>reference>>>

 Carilah "Missing reference" (COMDLG32.OCX) dan cari dan download filenya. Paste di system32 atau pilih browse pada menu reference tadi dan pilih OK. atau download. disini here

Jalankan Ulang form anda.