• Membuat Sendiri Jendela Tips Aplikasi Dari File Txt

    membuat jendela tips sendiri Hampir setiap aplikasi memiliki sebuah jendela Tips yang berfungsi untuk mempermudah pengguna dalam mengoperasikan aplikasi bersangkutan. Pada umumnya, jendela tips berisi sebuah saran atau bantuan yang berupa teks yang bertujuan untuk mengajak atau memberikan arahan kepada pengguna aplikasi dalam bertindak atau mengambil keputusan.

    Sebenarnya untuk membuat desain Jendela Tips ini sendiri terbilang sangatlah mudah, karena biasanya terdiri dari Label atau TextBox serta sebuah tombol yang diletakkan dalam sebuah UserForm. Akan tetapi, mengenai baris kodenya, bisa dibilang agak sedikit kompleks karena ada data yang berasal dari file lain yang harus disematkan dalam sebuah label atau TextBox.

    Salah satu cara mudah untuk membuat tulisan atau saran yang terdapat dalam jendela Tips ini adalah dengan menggunakan aplikasi pengolah kata sederhana seperti Notepad++, dan menyimpannya dengan format Txt.

    Tutorial kali ini berisi tentang bagaimana membuat sebuah jendela tips yang mana data tips berasal dari sebuah file txt, sementara untuk desain jendela ini yang dibutuhkan adalah objek-objek antara lain:
    • Userform
    • TextBox
    • CommandButton
    Sebelum melanjutkan tutorial ini, pastikan Anda sudah mendesain jendela tips dari objek-objek yang sudah saya sebutkan di atas.

    Beberapa kode Macro VBA yang harus dimasukkan ke dalam UserForm ini antara lain:
    1. Kode untuk mendeklarasikan sebuah file txt, dalam tutorial ini nama filenya adalah FileTips.Txt
      Option Explicit
      Dim Tips As New Collection
      Const NamaFile = "FileTips.TXT"
      Dim CurrentTip As Long
    2. Baris kode untuk menampilkan Tips di sebuah Label
      Sub DisplayCurrentTip()
      If Tips.Count > 0 Then
      Label1.Caption = Tips.Item(CurrentTip)
      End If
      End Sub
    3. Fungsi Kustom untuk membaca file txt yang akan di sematkan ke dalam Label
      Function BacaTips(Lokasi As String) As Boolean
      Dim NextTip As String
      Dim FileX As Integer
      
      FileX = FreeFile
      
      If Lokasi = "" Then
      BacaTips = False
      Exit Function
      End If
      
      If Dir(Lokasi) = "" Then
      BacaTips = False
      Exit Function
      End If
      
      Open Lokasi For Input As FileX
      While Not EOF(FileX)
      Line Input #FileX, NextTip
      Tips.Add NextTip
      Wend
      Close FileX
      
      Call DoNextTip
      BacaTips = True
      End Function
    4. Kode untuk mengatur mode pembacaan tips
      Sub TipsKe()
      CurrentTip = CurrentTip + 1
      If Tips.Count < CurrentTip Then         
      CurrentTip = 1     
      End If     
      DisplayCurrentTip End Sub
      Jika ingin membaca tips secara acak gunakan kode berikut:
      Sub TipsKe()
      CurrentTip = Int((Tips.Count * Rnd) + 1)
      DisplayCurrentTip
      End Sub
    5. Kode untuk menampilkan informasi kepada pengguna
      Private Sub UserForm_Initialize()
      If BacaTips(ThisWorkbook.Path & "\" & NamaFile) = False Then
      Label1.Caption = "File " & NamaFile & " tidak bisa ditemukan? " & vbCrLf & vbCrLf & _
      "Silahkan buat file .txt dengan nama " & NamaFile & " menggunakan Notepad, " & _
      "kemudian simpan dalam 1 folder dengan file (aplikasi) ini. "
      End If
      End Sub
    6. Baris kode terakhir adalah, tombol Next atau dalam contoh ini CommandButton1
      Private Sub CommandButton1_Click()
      TipsKe
      End Sub
    Silahkan buka jendela Tips ini dengan menekan tombol pintas F5 yang ada dikeyboard Anda atau klik ikon di menubar.
    Jika jendela ini menampilkan informasi bahwa tidak ada file FileTips.txt, itu artinya Anda belum membuat sebuah file dengan nama ini atau file tidak ditempatkan dalam satu folder dengan file atau aplikasi ini. Hasil akhir dari Jendela tips Tutorial Membuat Jendela Tips Sendiri

    Finish....
    Sekarang anda sudah berhasil mengetahui bagaimana caranya membuat sendiri jendela tips sebuah aplikasi yang dibangun dari sebuah file teks (notepad). Semoga tutorial ini ada guna dan manfaatnya untuk anda.
    Silahkan kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainyya bersama excelive.com

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger