Saturday, March 5, 2011

Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 6

وَمُفْرَدًا يَأتِي وَيَأتِي جُمْلَهْ ... حَاوِيَةً مَعْنَى الّذِي سِيْقَتْ لَهْ
وَمُفْرَدَنْ يَأتِيْ وَيَأتِي جُمْلَهْ ... حَاوِيَتَنْ مَعْنَى لْلَذِيْ سِيْقَتْ لَهْ
وَمُفْرَدَنْ- يَأتِيْ وَيَأ-تِي جُمْلَهْ ... حَاوِيَتَنْ -مَعْنَى لْلَذِيْ- سِيْقَتْ لَهْ
مَفَاعِلُنْ - مُسْتَفْعِلُنْ - مَفْعُوْلُنْ ... مُفْتَعِلُنْ - مُسْتَفْعِلُنْ - مَفْعُوْلُنْ
المخبونة - السالمة - المقطوعة ... المطويّة - السالمة - المقطوع

READ MORE - Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 6

Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 7

وَإِنْ تَكُنْ إِيَّاهُ مَعْنًى اكْتَفَى ... بِهَا كَنُطْقِي الله حَسْبِي وَكَفَى
وَإِنْ تَكُنْ إِيْيَاهُ مَعْنَن كْتَفَى ... بِهَا كَنُطْقِ لْلاهُ حَسْبِي وَكَفَى
وَإِنْ تَكُنْ- إِيْيَاهُ مَعْ-نَن كْتَفَى ... بِهَا كَنُطْ-قِ لْلاهُ حَسْ-بِي وَكَفَى
مَفَاعِلُنْ - مُسْتَفْعِلُنْ - مَفَاعِلُنْ ... مَفَاعِلُنْ - مُسْتَفْعِلُنْ - مُفْتَعِلُنْ
المخبونة - السالمة - المخبونة ... المخبونة - السالمة - المطويّ

READ MORE - Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 7

Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 8

وَالمُفْرَدُ الجَامِدُ فَارِغٌ وَإِنْ ... يُشْتَقَّ فَهْوَ ذُو ضَمِيْرٍ مُسْتَكِنْ
وَلْمُفْرَدُ لْجَامِدُ فَارِغُنْ وَإِنْ ... يُشْتَقْقَ فَهْوَ ذُو ضَمِيْرِنْ مُسْتَكِنْ
وَلْمُفْرَدُ لْ-جَامِدُ فَا-رِغُنْ وَإِنْ ... يُشْتَقْقَ فَهْ-وَ ذُو ضَمِيْ-رِنْ مُسْتَكِنْ
مُسْتَفْعِلُنْ - مُفْتَعِلُنْ - مَفَاعِلُنْ ... مُسْتَفْعِلُنْ - مَفَاعِلُنْ - مُسْتَفْعِلُنْ
السالمة - المطويّة - المخبونة ... السالمة - المخبونة - الصحيح

READ MORE - Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 8

Nadzom Bahar Rojaz: Jawaban Latihan Soal No. 9

وَأَبْرِزَنْهُ مُطْلَقًا حَيْثُ تَلاَ ... مَا لَيْسَ مَعْنَاهُ لَهُ مُحَصَّلاَ
وَأَبْرِزَنْهُ مُطْلَقَنْ حَيْثُ تَلاَ ... مَا لَيْسَ مَعْنَاهُ لَهُو مُحَصْصَلاَ
وَأَبْرِزَنْ-هُ مُطْلَقَنْ-حَيْثُ تَلاَ ... مَا لَيْسَ مَعْ-نَاهُ لَهُو-مُحَصْصَلاَ
مَفَاعِلُنْ - مَفَاعِلُنْ - مُفْتَعِلُنْ ... مُسْتَفْعِلُنْ - مُفْتَعِلُنْ - مَفَاعِلُنْ
المخبونة - المخبونة - المطويّة ... السالمة - المطويّة - المخبون

READ MORE - Nadzom Bahar Rojaz: Jawaban Latihan Soal No. 9

Nadzom Bahar Rojaz: Jawaban Latihan Soal No. 10

وَأَخْبَرُوا بِظَرْفِ أوْ بِحَرْفِ جَرْ ... نَاوِيْنَ مَعْنَى كَائِنٍ أَوِ اسْتَقَرْ
وَأَخْبَرُوْ بِظَرْفِ أَوْ بِحَرْفِ جَرْ ... نَاوِيْنَ مَعْنَى كَائِنِنْ أَوِ سْتَقَرْ
وَأَخْبَرُوْ-بِظَرْفِ أَوْ-بِحَرْفِ جَرْ ... نَاوِيْنَ مَعْ-نَى كَائِنِنْ-أَوِ سْتَقَرْ
مَفَاعِلُنْ - مَفَاعِلُنْ - مَفَاعِلُنْ ... مُسْتَفْعِلُنْ - مُسْتَفْعِلُنْ - مَفَاعِلُنْ
المخبونة - المخبونة - المخبونة ... السالمة - السالمة - المخبون
READ MORE - Nadzom Bahar Rojaz: Jawaban Latihan Soal No. 10

VB6 Code - AutoFit TextBox.Text Caranya?

Yang dimaksud dengan AutoFit TextBox.Text disini adalah menyesuaikan ukuran huruf yang terdapat dalam objek TextBox agar sesuai dengan lebar textbox. Perhatikan gambar di bawah ini:
Pada mulanya text melebihi lebar textbox
menjadi:
Sekarang text sesuai dengan lebar textbox
Pada gambar di atas objek TextBox-nya lebih dari satu, sehingga prosedurnya harus dipanggil satu persatu menggunakan kode di bawah ini:

Option Explicit 
 '----------------------------------------------------------------------- 
'http://khoiriyyah.blogspot.com 
'By Asep Hibban Ibnu Surur) 
'----------------------------------------------------------------------- 
 
Private Sub Command1_Click() 
    Dim ctl As Object 
    For Each ctl In Me.Controls 
        If TypeName(ctl) = "TextBox" Then 
            AutoFitTextBox ctl 
        End If 
    Next 
End Sub 
Selengkapnya bisa Anda download pada link di bawah ini:

READ MORE - VB6 Code - AutoFit TextBox.Text Caranya?

Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 5

وَالخَبَرُ الجُزْءُ المُتِمُّ الفَائِدَهْ ... كَالله بَرٌّ والأَيَادِي شَاهِدَهْ
وَلْخَبَرُ لْجُزْءُ لْمُتِمْمُ لْفَائِدَهْ ... كَلْلاهُ بَرْرُنْ وَلأَيَادِيْ شَاهِدَهْ
وَلْخَبَرُ لْ-جُزْءُ لْمُتِمْ-مُ لْفَائِدَهْ ... كَلْلاهُ بَرْ-رُنْ وَلأَيَا-دِيْ شَاهِدَهْ
مُفْتَعِلُنْ - مُسْتَفْعِلُنْ - مُسْتَفْعِلُنْ ... مُسْتَفْعِلُنْ - مُسْتَفْعِلُنْ - مُسْتَفْعِلُنْ
المطويّة - السالمة - الصحيحة ... السالمة - السالمة - الصحيح

READ MORE - Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 5

Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 4

وَرَفَعُوْا مُبْتَدَاءً بِالإِبْتِدَا ... كَذَاكَ رَفْعُ خَبَرٍ بِالمُبْتَدَا
وَرَفَعُوْ مُبْتَدَئَنْ بِلإِبْتِدَا ... كَذَاكَ رَفْعُ خَبَرِنْ بِلْمُبْتَدَا
وَرَفَعُوْ- مُبْتَدَئَنْ- بِلإِبْتِدَا ... كَذَاكَ رَفْ-عُ خَبَرِنْ-بِلْمُبْتَدَا
فَعِلَتُنْ - مُفْتَعِلُنْ - مُسْتَفْعِلُنْ ... مَفَاعِلُنْ - فَعِلَتُنْ - مُسْتَفْعِلُنْ
المخبولة - المطويّة - الصحيحة ... المخبونة - المخبولة - الصحيح

READ MORE - Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 4

Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 3

وَقِسْ وَكَاسْتِفْهَامٍ النَّفْيُ وَقَدْ ... يَجُوزُ نَحْوُ فَائِزٌ أُولُو الرَّشَدْ
وَقِسْ وَكَسْتِفْهَامِنِ نْنَفْيُ وَقَدْ ... يَجُوْزُ نَحْوُ فَائِزُنْ أُوْلُوْ رْرَشَدْ
وَقِسْ وَكَس-ْتِفْهَامِنِ نْ-نَفْيُ وَقَدْ ... يَجُوْزُ نَحْ-وُ فَائِزُنْ- أُوْلُوْ رْرَشَدْ
مَفَاعِلُنْ - مُسْتَفْعِلُنْ - مُفْتَعِلُنْ ... مَفَاعِلُنْ - مَفَاعِلُنْ - مُسْتَفْعِلُنْ
المخبونة - السالمة - المطويّة ... المخبونة - المخبونة - الصحيح

READ MORE - Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 3

Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 2

وَأَوَّلٌ مُبْتَدَأٌ وَالثَّانِي ... فَاعِلٌ اغْنَى فِي أَسَارٍ ذَانِ
وَأَوْوَلُنْ مُبْتَدَئُنْ وَ ثْثَانِيْ ... فَاعِلُن غْنَى فِي أَسَارِنْ دَانِي
وَأَوْوَلُنْ - مُبْتَدَئُنْ - وَ ثْثَانِيْ ... فَاعِلُن غْ - نَى فِي أَسَا - رِنْ دَانِي
مَفَاعِلُنْ - مُفْتَعِلُنْ - مَفْعُوْلُنْ ... مُفْتَعِلُنْ - مُسْتَفْعِلُنْ - مَفْعُوْلُنْ
المخبونة - المطويّة - المقطوعة ... المطويّة - السالمة - المقطوع

READ MORE - Nadzom Bahar Rojaz: Jawaban Soal Latihan No. 2

Nadzom Bahar Rojaz : Jawaban Soal Latihan No. 1

مُبْتَدَأٌ زَيْدٌ وَعَاذِرٌ خَبَرْ ... إِنْ قُلْتَ زَيْدٌ عَاذِرٌ مَنِ اعْتَذَرْ
مُبْتَدَئُنْ زَيْدُنْ وَعَاذِرُنْ خَبَرْ ... إِنْ قُلْتَ زَيْدُنْ عَاذِرُنْ مَنِ عْتَذَرْ
مُفْتَعِلُنْ - مُسْتَفْعِلُنْ - مَفَاعِلُنْ ... مُسْتَفْعِلُنْ - مُسْتَفْعِلُنْ - مَفَاعِلُنْ
المطويّة - السالمة - المخبونة ... السالمة - السالمة - المخبون

READ MORE - Nadzom Bahar Rojaz : Jawaban Soal Latihan No. 1

Friday, March 4, 2011

VB6 Code - Code Generator: Add Ocx Add Dll

Yang dimaksud kode generator disini adalah sebuah aplikasi yang digunakan untuk membuat sebuah project. Adapun tujuan utamanya ialah untuk menghemat waktu, tenaga, dan biaya sedangkan tujuan lainnya yang tidak kalah penting adalah kecepatan.

Kode generator sangat baik sekali digunakan untuk men-generate aplikasi-aplikasi database, karena aplikasi database hampir memliki kode-kode yang sama (insert-update-delete-dsb) hanya objeknya saja yang berbeda. Maka jika kita ingin membuat belasan aplikasi database dengan objek yang berbeda, pembuatan kode generator dengan rancangan yang baik sangat layak untuk dipertimbangkan.

Hanya sebagai contoh saja, Anda dapat mendownload kode generator yang kurang baik disini. Walaupun kurang baik, tapi coba perhatikan apakah keistimewaanya?

Membuat aplikasi kode generator, tentunya harus memiliki kemampuan menambahkan sembarang OCX dan referensi DLL yang support VB6.0. Bagaimanakah caranya? Di bawah ini merupakan potongan dari kode generator tersebut, gunanya untuk menambahkan referensi DLL dan OCX.
'------------------------------------------------------------------------------- 
'http://khoiriyyah.blogspot.com 
'Asep Hibban 
'------------------------------------------------------------------------------- 
 
Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 

Public Function InsertOCX(ProgID As String) As Boolean 
On Error GoTo ErrHandler 
    'Add OCX 
     VBInstance.ActiveVBProject.AddToolboxProgID ProgID 
    InsertOCX = True 
Exit Function ErrHandler: 
    InsertOCX = False 
End Function 

Public Function InsertReferences(GUID As String, Mayor As Long, Minor As Long) As Boolean 
On Error GoTo ErrHandler 
    'Add dll references 
    VBInstance.ActiveVBProject.References.AddFromGuid GUID, Mayor, Minor 
    InsertReferences = True ErrHandler: 
    InsertReferences = False 
End Function 

Private Sub Command1_Click() 
    'Add ListView to VB6 project 
    InsertOCX "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}" 
    'Add TreeView 
    InsertOCX "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}" 
    'Add MSFlexGrid 
    InsertOCX "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}" 
End Sub 

Private Sub Command2_Click() 
    'Add scrun.dll Microsoft Scripting Runtime) 
    InsertReferences "{420B2830-E718-11CF-893D-00A0C9054228}", 1#, 0 
    'Add msado15.dll Microsoft ActiveX Data Objects 2.8 Library)  
    InsertReferences "{2A75196C-D9EB-4129-B803-931327F72D5C}", 2, 8 
End Sub 
Adapun cara menggunakan kode di atas telah saya bahas disini dan disini. Semoga bermanfaat.
READ MORE - VB6 Code - Code Generator: Add Ocx Add Dll

Visual Basic 6.0 - Kesalahan Penulisan Variable Yang Umum

Mengenai masalah kesalahan penulisan variable Visual Basic 6.0 yang sering ditemui - Seringkali kita menemui penulisan variable seperti di bawah ini:
Option Explicit 

Private Sub Form_Load() 
    Dim i, a, b, c, s As String    'Kode selanjutnya 
End Sub 
Penulisan variable seperti di atas seakan-akan menunjukan bahwa i, a, b, c memiliki tipe data string, Padahal dalam kenyataanya variable i, a, b, c di atas memiliki type data variant, hanya variable s saja dari contoh di atas yang memiliki type data string. Darimana kita mengetahuinya? mari kita lanjutkan.... rubahlah kode di atas sehingga menjadi:
Option Explicit 

Private Sub Form_Load() 
    Dim i, a, b, c, s As String    'Kode selanjutnya ... 
    'TypeName digunakan untuk mengetahui data type sebuah variable 
    Debug.Print TypeName(i) 'Empty -> data type variant 
    Debug.Print TypeName(b) 'Empty -> data type variant 
    Debug.Print TypeName(c) 'Empty -> data type variant 
    Debug.Print TypeName(s) 'String -> data type string 
End Sub  

Sebelum menjalankan kodenya, pijit CTRL + G untuk memunculkan Immediate Window untuk melihat hasilnya.
READ MORE - Visual Basic 6.0 - Kesalahan Penulisan Variable Yang Umum

Tuesday, March 1, 2011

VB6 Code - ToolBar, TabStrip, ListView, TreeView XP Style

Mengenai cara membuat toolbar, tabstrip, listview dengan tampilan XP tanpa kode - Bagaimana dengan ToolBar, TabStrip, TreeView, dan ListView, Apakah memungkinkan untuk dibuat style XP tanpa menggunakan kode, dan hanya menggunakan file manifest saja?

Seperti yang kita ketahui, menggunakan file manifest biasanya tidak memberikan efek/pengaruh pada komponen-komponen di atas. Tetapi coba perhatikan gambar di bawah:

Gambar 1, 2 ToolBar, TabStrip, ListView, TreeView Style XP

Bagaimana caranya? bisa Anda download file di bawah ini:

READ MORE - VB6 Code - ToolBar, TabStrip, ListView, TreeView XP Style

Monday, February 28, 2011

VB6 Code - Save As MHTML

Mengenai cara menyimpan halaman dengan format MHTML menggunakan Visual Basic 6.0 - Menyimpan file dalam format MHTML tentunya memiliki banyak keuntungan, salah satu dari banyak keuntungan tersebut ialah terintegrasinya seluruh gambar dan file dengan baik, sehingga kita bisa mendownload halaman situs/blog yang kita kunjungi utuh dengan seluruh gambarnya.
Option Explicit  

Public Function
SaveWebPageToMHTFile(url As String, filepath As String)

On Error GoTo
ErrHandler

Dim
msg As New CDO.Message
Dim
stm As New ADODB.Stream

msg.MimeFormatted = True
msg.CreateMHTMLBody url, CDO.CdoMHTMLFlags.cdoSuppressNone, "", ""
'//Pilih charset yang sesuai
stm.Charset = "utf-8"
Set
stm = msg.GetStream()
stm.SaveToFile filepath, ADODB.SaveOptionsEnum.adSaveCreateOverWrite
Set
msg = Nothing
stm.Close

Exit Function

ErrHandler:

MsgBox Err.Description

End Function
Contoh pemanggilan prosedur fungsi di atas:
Private Sub Command1_Click()  
'//Coba menyimpan file dalam bentuk MHTML </i>
SaveWebPageToMHTFile "http://www.planet-source-code.com/vb/default.asp?lngWId=1", "c:\psc.MHTML"
End Sub
Catatan: Sebelum Anda menggunakan fungsi di atas, tambahkan referensi Microsoft ActiveX Data Objects 2.8 Liblary dan Microsoft CDO for Windows 2000 Liblary
READ MORE - VB6 Code - Save As MHTML