Kamus Bahasa Arab v2.0

Ini adalah Kamus Bahasa Arab yang kedua (kelanjutan dari Kamus Bahasa Arab v1.0). Dalam Kamus Bahasa Arab v2.0 terdapat beberapa perbaikan. Jika Anda berminat, dapat mendownloadnya pada link di bawah ini:

Download: tautan telah dihapus, silakan merujuk pada versi software terbaru: Kamus Bahasa Arab v3.0

READ MORE - Kamus Bahasa Arab v2.0

Membuka File Teks dan Menyimpannya

Mengenai cara membuka file teks dan menyimpannya - Seringkali kita membutuhkan kode untuk membuka file teks dan menyimpannya kembali.

Kode VB6 untuk Membuka File Teks

Private Function OpenFile(FileName As String) As String
    Dim i As Integer
    i = FreeFile
    Open FileName For Input As #i
        OpenFile = Input(LOF(i), i)
    Close #i
End Function

Kode VB6 untuk Menyimpan File Teks

Private Function SaveFile(FileName As String, strText As String)
    Dim i As Integer
    i = FreeFile
    Open FileName For Output As #i
        Print #i, strText
    Close #i
End Function

Demikian kode VB6 untuk menyimpan dan membuka file teks. Semoga bermanfaat.

READ MORE - Membuka File Teks dan Menyimpannya