Syair Arab Visual Basic 6.0 Blogging

Download Software Speech/Voice Recognition

2012-01-05T23:40:00.000+07:00

Ini merupakan software pembelajaran untuk melatih mengucapkan frase-frase pendek dalam percakapan. Adapun yang menjadi lawan bicaranya adalah sebuah komputer.

Cara menggunakan:

Isi terlebih dahulu database percakapan yang terdapat pada C:\Program Files\Speech\dbase.mdb. Isi dari percakapan tersebut disesuaikan dengan kebutuhan Anda atau anak didik Anda.
Siapkan mikrofon berkualitas baik
Atur volume
Bacalah frase-frase pendek yang telah Anda isi ke dalam database yang terdapat pada sisi kiri. Selanjutnya komputer akan menjawabnya.

Keunggulan dari software ini adalah sangat sederhana, sehingga sangat mudah untuk digunakan. Disamping itu ukurannya sangat kecil, sekitar 400kb lebih. Nah, selamat berlatih dan bercakap-cakap dengan komputer dan Insya Allah dikembangkan jika ada waktu.

Download: Speech 1.5

Software Kamus Bahasa Inggris Freeware 1.0

2011-11-23T13:35:00.005+07:00

Kamus Bahasa Inggris Freeware 1.0

Ini merupakan aplikasi kamus bahasa inggris versi pertama, kosakatanya belum begitu banyak hanya ada sekitar 23 ribuan. Merupakan pengembangan dari cara membuat kamus bahasa inggris yang telah dijelaskan secara panjang lebar. Kelebihan dan kekurangannya bisa Anda lihat pada link tersebut.

Download: Kamus Bahasa Inggris Freeware 1.0

Jika Anda tertarik dengan source codenya, harganya Rp. 100.000

Alternate Color/Zebra Color Untuk Listview Codejock - VB6

2011-11-22T15:21:00.002+07:00

Di bawahi ini merupakan module untuk memberi warna-warni (alternate color/zebra color) pada row listview codejock di bawah versi 15.x.x (versi yang belum mendukung property TextBackColor.

Option Explicit 
 
'--------------------------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com 
' Module Alternate Color Listview Codejock untuk versi di bawah 15.x.x 
'--------------------------------------------------------------------------------------------- 
 
Private Const NOERROR = &H0& 
Private Const S_OK = &H0&  
Private Const S_FALSE = &H1& 
Private Const LVM_FIRST = &H1000 
Private Const LVM_SETBKIMAGE = (LVM_FIRST + 68) 
Private Const LVM_SETTEXTBKCOLOR = (LVM_FIRST + 38) 
Private Const LVBKIF_SOURCE_URL = &H2 
Private Const LVBKIF_SOURCE_HBITMAP As Long = &H1 
Private Const LVBKIF_STYLE_TILE = &H10 
Private Const CLR_NONE = &HFFFFFFFF 
  
Private Type LVBKIMAGE 
    ulFlags As Long 
    hbm As Long 
    pszImage As String 
    cchImageMax As Long 
    xOffsetPercent As Long 
    yOffsetPercent As Long 
End Type 
 
Private Declare Sub CoUninitialize Lib "OLE32.DLL" () 
Private Declare Function CoInitialize Lib "OLE32.DLL" (ByVal pvReserved As Long) As Long 
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As  Long, ByVal lParam As Long) As Long 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
 
Private Const LVM_GETITEMRECT As Long = (LVM_FIRST + 14) 
Private Const LVIR_BOUNDS As Long = 0 
 
Private Type RECT 
    Left As Long 
    Top As Long 
    Right As Long 
    Bottom As Long 
End Type 
 
Public  Const vbBackColor As Long = &HFCD5C2 
 
'//Ambil satu tinggi listitem codejock untuk dibuat acuan/referensi 
Private Function ListItemHeight(lvw As XtremeSuiteControls.ListView) As Long 
    Dim rc As RECT, i As Long, c As Long, dy As Long 
    c = lvw.ListItems.Count 
    If c = 0 Then Exit Function 
    rc.Left = LVIR_BOUNDS 
    SendMessage lvw.hWnd, LVM_GETITEMRECT, ByVal 0&, rc 
    dy = rc.Bottom - rc.Top  
    ListItemHeight = (dy * Screen.TwipsPerPixelY) 
End Function 
 
'//Bikin dummy picture dari tinggi item codejock yang telah diketahui dari fungsi di atas 
Public Sub SetLvCodeJockTextBKColor(Lv As XtremeSuiteControls.ListView, ByVal BackColorOne As OLE_COLOR, ByVal BackColorTwo As OLE_COLOR, Optional bGradient As Boolean) 
 
    Dim lH As Long 
    Dim lSM As Byte 
    Dim picAlt As PictureBox 
 
    With Lv 
        If .View = xtpListViewReport And .ListItems.Count Then 
            Set picAlt = Lv.Parent.Controls.Add("VB.PictureBox", "picAlt") 
            lSM = .Parent.ScaleMode 
            .Parent.ScaleMode = vbTwips 
            lH = ListItemHeight(Lv) '.ListItems(1).Height 
            With picAlt 
                .BackColor = BackColorOne 
                .AutoRedraw = True 
                 .Height = lH * 2 
                .BorderStyle = 0 
                .Width = 10 * Screen.TwipsPerPixelX 
                If bGradient Then 
                    FadeVertical picAlt, vbWhite, BackColorTwo, lH, lH * 2 
                Else 
                    picAlt.Line (0, lH)-(.ScaleWidth, lH * 2), BackColorTwo, BF 
                End If 
            End With 
            picAlt.Visible = True 
            picAlt.ZOrder 
             Lv.Parent.ScaleMode = lSM 
        End If 
    End With 
 
    SavePicture picAlt.Image, App.Path & "\alternate_color.bmp" 
 
    Lv.Parent.Controls.Remove "picAlt" 
    Set picAlt = Nothing 
    SetBackground Lv 
 
End Sub 
 
'//Jadikan gambar dummy menjadi background listview secara tile (LVBKIF_STYLE_TILE) 
'//Coba hilangkan Constanta LVBKIF_STYLE_TILE, dan lihat apa yang terjadi 
Private Sub SetBackground(lvwTest As XtremeSuiteControls.ListView) 
     Dim sI As String 
    Dim lHDC As Long 
 
    sI = App.Path & "\alternate_color.bmp" 
 
    If (Len(sI) > 0) Then 
        If (InStr(sI, "")) = 0 Then 
            sI = App.Path & "" & sI 
        End If 
        On Error Resume Next 
        If (Dir(sI) <> "") Then 
            If (Err.Number = 0) Then 
                ' Set background - tile 
                Dim tLBI As LVBKIMAGE 
                tLBI.pszImage = sI & Chr$(0) 
                tLBI.cchImageMax = Len(sI) + 1 
                tLBI.ulFlags = LVBKIF_SOURCE_URL Or LVBKIF_STYLE_TILE 
                SendMessage lvwTest.hWnd, LVM_SETBKIMAGE, 0, tLBI 
                'jadikan transparan 
                SendMessageLong lvwTest.hWnd, LVM_SETTEXTBKCOLOR, 0, CLR_NONE 
            Else 
                MsgBox "Error with File '" & sI & "' :" &  Err.Description & ".", vbExclamation 
            End If 
        Else 
            MsgBox "File '" & sI & "' not found.", vbExclamation 
        End If 
    End If 
 
End Sub 
 
'//Membuat warna gradient Start(R,G,B) to End (R,G,B) 
'//FadeVertical picAlt, 255, 255, 255, 266, 233, 216, 0, lH - 20 
Private Sub FadeVertical(ByVal pic As PictureBox, iColorStart As Long, iColorEnd As Long, ByVal start_y, ByVal end_y) 
    Dim start_r As Single, start_g As  Single, start_b As Single 
    Dim end_r As Single, end_g As Single, end_b As Single 
    Dim hgt As Single 
    Dim wid As Single 
    Dim r As Single 
    Dim g As Single 
    Dim b As Single 
    Dim dr As Single 
    Dim dg As Single 
    Dim db As Single 
    Dim Y As Single 
    ColorCodeToRGB iColorEnd, end_r, end_g, end_b 
    ColorCodeToRGB iColorStart, start_r, start_g, start_b 
    wid = pic.ScaleWidth 
    hgt = end_y - start_y 
    dr = (end_r - start_r) / hgt 
    dg = (end_g - start_g) / hgt 
    db = (end_b - start_b) / hgt 
    r = start_r 
    g = start_g 
    b = start_b 
    For Y = start_y To end_y 
        pic.Line (0, Y)-(wid, Y), RGB(r, g, b) 
        r = r + dr 
        g  = g + dg 
        b = b + db 
    Next Y 
End Sub 
 
Public Function ColorCodeToRGB(lColorCode As Long, iRed As Single, iGreen As Single, iBlue As Single) As Boolean 
    Dim lColor As Long 
    lColor = lColorCode      'work long 
    iRed = lColor Mod &H100  'get red component 
    lColor = lColor \ &H100  'divide 
    iGreen = lColor Mod &H100 'get green component 
    lColor = lColor \ &H100  'divide 
    iBlue = lColor Mod &H100 'get blue component 
    ColorCodeToRGB = True 
End Function

Contoh penggunaan:

SetLvCodeJockTextBKColor lvSuppliers, vbWhite, vbBackColor, True 'True untuk gradient

Contoh Source Code: http://www.i-bego.com/post32199.html#p32199

ADO Database dan Progress Bar - VB6 Source Code

2011-11-22T14:36:00.008+07:00

Umumnya pada saat kita me-load database, seluruh form akan menjadi freeze (beku). Hal ini disebabkan kompiler hanya melakukan satu eksekusi kode dalam satu waktu. Ini tentu saja mempengaruhi terhadap splash form (form loading) yang dilengkapi unlimited progress bar. Pada dasarnya progress bar tersebut tidak akan pernah ditampilkan dengan baik, dan akan ditampilkan setelah database ter-load secara sempurna dan hal ini bisa dikategorikan sebagai sebuah humor dalam pemrograman. Nah, agar kompiler dapat mengeksekusi 2 kode dalam waktu bersamaan (load database/recordset dan tampilan progress bar) maka load-lah database tersebut menggunakan mode Asyncron. Nah, Asyncron ini merupakan kata kuncinya.

Memahami Bookmark Pada Microsoft ADO - VB6 Souce Code

2011-11-22T14:28:00.000+07:00

Masing-masing record akan memiliki bookmark. Bookmark itu sifatnya unik (berbeda satu sama lainnya). Bookmark tidak dapat dilihat. Bookmark hanya bisa ditampung dalam datatype variant. Bookmark itu ... dan lain sebagainya.

Di bawah ini merupakan contoh sederhana untuk memudahkan memahami penggunaan bookmark pada Microsoft ADO:

Download: Contoh Penggunaan Bookmark

Mengcopy Seluruh Folder Beserta Isinya - VB6 Source

2011-11-22T13:57:00.001+07:00

Berikut merupakan contoh source code untuk mengcopy folder beserta seluruh isi yang terdapat di dalamnya. Menggunakan Microsoft Scripting Runtime. Untuk lebih memudahkan penggunaan Anda dapat merubahnya menjadi Function.

Sumber: http://www.i-bego.com/visual-basic/copy-folder-pada-vb-t3616.html

Private Sub CopyFolder() 
    Dim fso 
    Dim sfol As String, dfol As String 
    sfol = "c:\MyFolder" ' change to match the source folder path 
    dfol = "e:\MyFolder" ' change to match the destination  folder path 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    If Not fso.FolderExists(dfol) Then 
        fso.CopyFolder sfol, dfol 
    Else 
        MsgBox dfol & " already exists!", vbExclamation, "Folder Exists" 
    End If 
End Sub

Drag And Drop Pada Dua ListBox - VB6 Souce Code

2011-11-22T13:49:00.001+07:00

Terkadang dalam memprogram kita membutuhkan operasi drag and drop antara dua object ListBox, contohnya untuk pembuatan wizard dan lain sebagainya. Di bawah ini merupakan contoh source codenya. Dibuat oleh Luciano Esteban Lodola pemilik situs: http://www.recursosvisualbasic.com.ar

Option Explicit 
' --------------------------------------------------------------------------------------- 
' \ -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar 
' --------------------------------------------------------------------------------------- 
 
' \ -- funciNn de windows para poder obtener un elemento (Indice) de un control de lista a partir de  la psiciNn del mouse 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long 
                 
' -- Constante / mensaje para recupera el Item a partir de la posiciNn del mouse ( con SendMessage ) 
Private Const LB_ITEMFROMPOINT = &H1A9 
Public iX As Integer 
' -------------------------------------------------------------------------------------- 
'\ -- Inicio 
' -------------------------------------------------------------------------------------- 
Private Sub Form_Load() 
 
    Dim i As Byte 
    ' -- Agregar elementos de muestra para el ejemplo 
    With List1 
        .AddItem "Impresora Epson" 
        .AddItem "Impresora Lexmark" 
        .AddItem "Monitor LG" 
        .AddItem "Monitor Samsung" 
        .AddItem "PC Pentium Dual Core" 
        .AddItem "PC Pentium Core Duo" 
        .AddItem "Impresora  lDser HP - MonocromDtica" 
        .AddItem "Impresora lDser Epson - MonocromDtica" 
        .AddItem "Impresora lDser color" 
    End With 
    ' -- Importante !!!! Habilitar el Drag con el método OLEDragMode, y el Drop para el List2 
    List1.OLEDragMode = 1 
    List2.OLEDropMode = 1 
End Sub 
 
' -------------------------------------------------------------------------------------- 
'\ -- FunciNn que retorna el Jndice del Item del List2 ( Donde se encuentra el mouse ) 
'  -------------------------------------------------------------------------------------- 
Private Function pvGetItemFromPoint(X As Single, Y As Single, lBox As ListBox) As Long 
 
    Dim indice      As Long 
    Dim XPoint      As Long 
    Dim YPoint      As Long 
    Dim ZPoint      As Long 
     
    ' -- Valor por defecto de retorno de la funciNn ( NingRn item estD seleccionado) 
    indice = -1 
     
    XPoint = CLng(X / Screen.TwipsPerPixelX)  
    YPoint = CLng(Y / Screen.TwipsPerPixelY) 
    ZPoint = CLng(YPoint * &H10000 + XPoint) 
    With lBox 
         ' -- Recupera el item seleccionado (el Jndice ) 
         indice = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, ByVal ZPoint) 
         If indice >= 0 And indice <= .ListCount Then 
            pvGetItemFromPoint = indice 
         End If 
    End With 
End Function  
' -------------------------------------------------------------------------------------- 
'\ -- Iniciar Drag del item 
' -------------------------------------------------------------------------------------- 
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    iX = X 
    List1.OLEDrag 
End Sub 
 
' -------------------------------------------------------------------------------------- 
'\ -- evento que se produce al soltar el item  
' -------------------------------------------------------------------------------------- 
Private Sub List2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 
     
    Dim lIndex As Long 
    ' -- Obtener el Jndice pasando a la funciNn 
    lIndex = pvGetItemFromPoint(X, Y, List2) 
    ' -- Agregar con el método Additem en la posiciNn indicada por el Jndice 
    If lIndex >= 0  Then 
        List2.AddItem Data.GetData(1), lIndex 
    Else 
        List2.AddItem Data.GetData(1) 
    End If 
    ' -- seleccionar el dato 
    If lIndex <> -1 Then List2.Selected(lIndex) = True 
    ' -- Opcional - eliminar el elemento del List 
    List1.RemoveItem (List1.ListIndex) 
 
End Sub

Memiliki Akun Google Adsense Itu Mudah - Blogging

2011-11-21T22:21:00.000+07:00

Artikel ini, untuk yang memahami permainan google adsense tetapi tidak/belum/gagal memiliki akun google adsense, dan sedikitnya telah memahami mengenai dunia blogging.

Mengirim artikel dan diterima menjadi publisher google adsense itu tidaklah sulit, yang sangat sulit adalah memperoleh penghasilan darinya.Sebelum Anda mengirimkan blog/artikel, ada beberapa hal yang harus diperhatikan yakni pada saat kita mengirimkan sebuah blog/artikel sebenarnya blog yang kita kirimkan tersebut pada dasarnya tidak langsung direview oleh manusia, tetapi harus melewati mesin pemindai yang dilengkapi auto respond dan sistem pakar terlebih dahulu. Jika blog yang Anda kirim tidak sesuai kreteria google (sesuai dengan sistem pakar yang diprogramkan), maka si mesin tersebut akan mengirimkan email penolakan sesuai dengan kreteria kesalahan yang terdapat pada blog tersebut (sistem pakar). Hal ini dilakukan untuk menekan biaya, tenaga, waktu, terlebih kecepatan. Kesimpulannya Google akan mengandalkan mesin bagi tugas-tugas yang seratus persen dapat diselesaikan oleh sebuah mesin. Contoh sederhananya adalah masalah yang berkenaan dengan broken link, dll.

Nah, setelah kita mengetahui bahwa Google mengandalkan mesin untuk tugas yang seratus persen bisa dilakukan mesin tersebut, lalu bagaimana dengan peran manusianya?.

Pada jaman modern dan canggih menurut versi kita sekarang (bukan versi 200 tahun mendatang), ketahuilah masih banyak sekali hal-hal yang menurut manusia sangat sederhana akan tetapi menjadi sangat-sangat rumit bahkan mustahil dilakukan oleh sebuah mesin. Contoh sederhananya mengidentifikasi gambar. Terlebih mengenai detail dari gambar tersebut, apakah wajahnya terlihat bahagia atau sedih? laki-laki atau perempuan (keduanya memiliki rambut yang sama panjang)?. Adapun kaitan dengan tulisan di atas, bagaimana jika blog yang kita submit memuat konten-konten yang tidak diperbolehkan? apakah mesin dapat menyelesaikannya? tentu saja tidak, tetapi manusia yang melakukannya. Ini sekedar contoh sederhana saja mengenai peran manusia di dalamnya.

Setelah kita memahami dua hal di atas, maka untuk mudah diterima menjadi publisher adsense ikuti langkah berikut:

buatlah email baru di gmail.com
buatlah blog baru di blogger menggunakan akun gmail tadi (bukankah harus berumur 6 bulan dengan domain sendiri?)
gantilah template dengan minima, ini untuk menangkal penolakan karena navigasi yang sulit
pastikan untuk mengisi data secara lengkap
buatlah beberapa belas atau beberapa puluh artikel.
gunakan Bahasa Inggris.

Mengenai artikel, perhatikan:

tidak ada broken link (penolakan kebanyakan bukan berada di sini)
bukan duplikat konten (100% copy paste tanpa edit)
Konten yang berhubungan antara judul, sub judul, isi/artikel menurut versi mesin bukan menurut versi manusia (penolakan kebanyakan berada di sini).

Dari sekian baris tulisan di atas, konten yang tidak berhubungan inilah yang paling banyak dan menjadi penyebab utama penolakan, bukan masalah domain, bukan masalah umur yang 6 bulan itu, bukan masalah Bahasa Inggris, bukan masalah duplikat konten, juga bukan masala broken link karena kita telah yakin dan memastikan serta mematuhi semuanya.

Konten yang berhubungan menurut versi manusia, belum tentu berhubungan menurut versi mesin, disinilah letak permasalahan utamanya, mengapa terjadi demikian? Ini disebabkan karena mesin tersebut bekerja dengan cara menumpuk keyword-keyword dari artikel yang kita kirimkan dan membandingkannya dengan judul-judul blog tersebut, kemudian mesin tersebut membuat keputusan sebagai blog yang memiliki konten berhubungan atau sebaliknya, dan hasilnya kebanyakan adalah blog dengan konten yang tidak memiliki hubungan menurut versi mesin, dan hasil akhirnya adalah ditolak. Nah, jika sudah demikian, bagaimana cara mengatasinya? seret dan giring saja si mesin pemindai tersebut ke daerah (blog/artikel) yang sangat sempit. Sebuah daerah (blog/artikel) yang kemungkinan peluang salah terjemahnya sangat kecil. Jika Anda memahami salah satu bahasa pemrogrman tentu hal ini lebih mudah, yakni dengan membuat artikel dari awal sampai akhir hanya berisi kode-kode saja (saya menyarankan yang ini).

Link/tautan di bawah merupakan salah satu contoh blog dari seluruh penjelasan di atas, tidak pernah di rubah baik template maupun judul-judulnya semenjak diterima menjadi publisher adsense tahun 2009. Karena tidak pernah dikelola dan sepi pengunjung, di dalamnya hanya ada satu dollar saja, padahal sudah dua tahun ya? tidak apa-apa, setidaknya rasa penasaran itu sudah terobati.

http://4basic-vb.blogspot.com

Anda diperbolehkan mengcopy paste seluruh artikel yang terdapat pada http://4basic-vb.blogspot.com
tanpa menyebutkan sumbernya, yang perlu Anda lakukan adalah mengganti judul-judul artikelnya dan mengganti header-headernya saja, agar tidak terjadi duplikat konten. Untuk memastikan tidak terdapat duplikat konten, ujilah judul-judul dan header-header yang telah Anda ganti melalui search engine google dengan memberi tanda petik di kiri dan kanan.

Blog yang baru Anda buat dan submit pertama kali tersebut harus langsung diterima menjadi publisher google adsense, jika masih ragu, pastikan sekali lagi bahwa seluruhnya telah terselesaikan dengan baik. Waktu tersedia banyak dan google sabar menunggu.

Catatan Penting:
Hindari membuat beberapa akun (misalnya Anda dan teman-teman Anda) dalam ip adress yang sama, jika satu akun dibanned, kemungkinan akan dibanned seluruhnya. Karena yang diperhitungkan mesin di sini lebih kepada IP Adress, tetapi ini hanya sekedar kemungkinan saja.

KBA Editor 1.0

2011-11-14T19:44:00.001+07:00

Ini merupakan kelanjutan dari posting sebelumnya, mengenai cara menambahkan kosakata ke dalam Kamus Bahasa Arab v3.0.

Selain aplikasi-aplikasi yang bisa digunakan untuk menambah kosakata (notepad, wordpad, word, dll) kita pun dapat membuat sendiri aplikasi kecil untuk lebih mempermudah mengisi kosakta, dan ini merupakan salah satu contohnya, saya namakan dengan KBA Editor. Apabila ada kekurangan/bug/error Anda dapat memperbaikinya melalui source codenya.

Download: KBA Editor 1.0 (Setup)
Download: KBA Editor 1.0 (Source Code)

Catatan:
Satukan folder KBA Editor 1.0 dengan Kamus Bahasa Arab v3.0 pada saat proses installasi.
Apabila Anda telah memiliki banyak kosatakata yang disimpan dalam file tambahan.txt, jangan lupa untuk mem-backup (mengkopi salinan) file tambahan.txt.

Huruf ن s/d ي - Kosakata Belum Terdata

2011-11-12T20:57:00.000+07:00

Isim Mufrad dan Jama Taksirnya Diambil dari Kamus Mu'jamul Wasith:

الأنبوب والأنبوبة : ما بين العقدتين في القصب والقنا وكل مستدير أجوف كالقصب و ( أنبوب الحوض ) مسيل مائه ( ج ) أنابيب و ( أنابيب الرئة ) مخارج النفس منها
النبوت : الفرع النابت من الشجر ويطلق على العصا الطويلة المستوية مصرية ة كما في ( التاج ) ( ج ) نبابيت
النابعة : مسيل العرق من الجسم ( ج ) نوابع ويقال نضحت النوابع بالعرق
النبوة : الواحدة من النبو والجفوة يقال بينهما نبوة وهو يشكو نبوة الدهر خطبه ( ج ) نبوات
المنتوجة : الأشياء المستثمرة ( ج ) منتوجات
النجيبة : مؤنث النجيب ( ج ) نجائب ويقال نجائب الإبل خيارها ونجائب الأشياء لبابها وخالصها
النجخة : دفعة الماء في جوانب الساحل ( ج ) نجخات ونجخات الماء دفعه
المنحت : يقال هو من منحت صدق أصل صدق ومكان عمل النحات ( محدثة ) ( ج ) مناحت
المنحت : المنحات ( ج ) مناحت
المنخوب : الذاهب اللحم الهزيل ( ج ) مناخيب
الناخذاة : مالك السفينة أو ربانها ( ج ) نواخذة ( مع )
المنخور : المنخر ( ج ) مناخير
المنخس والمنخاس : ما ينخس به الدابة لتنشط ( ج ) مناخس ومناخيس
النخاف : الخف ( ج ) أنخفة
النادبة : المرأة تبكي الرجل وتعدد محاسنه ( ج ) نوادب
النادس : من الرماح الطاعن ( ج ) نوادس
النادل : من يقوم على خدمة القوم في الأكل أو الشراب ( ج ) ندل ( مج )
المنزاح : الذي يكثر الاغتراب إلى بلاد بعيدة ( ج ) منازيح يقال قوم منازيح
المنزع : المكان الذي ينزع منه والنزوع إلى الغاية ( ج ) منازع
النازغ : المغتاب ( ج ) نزغ وهي نازغة ( ج ) نوازغ
النازف : يقال عرق نازف لا يسيل منه الدم ( ج ) نزف
المنزه : الموضع البعيد ( ج ) منازه
النازه : يقال فلان نازه النفس عفيف متكرم ( ج ) نزاه
الناسور : قرحة تمتد في أنسجة الجسم على شكل أنبوبة ضيقة الفتحة وكثيرا ما تكون حول المقعدة وهو قرحة لا تزال تنتقض وقد يستعصي شفاؤها فكلما برئ جزء منها عاوده الفساد ( مج ) ( ج ) نواسير
النسعة : القطعة من النسع ( ج ) نسع
الناسغ : الحاذق في الطعن ( ج ) نسغ
النسفة : حجارة سود ذات نخاريب ينسف بها الوسخ عن الأقدام في الحمامات ( ج ) نسف ونساف ونسف
الناشرة : أحد الأوردة تحت الجلد في باطن الذراع ( ج ) نواشر
الناشغة : مجرى الماء إلى الوادي ( ج ) نواشغ
النشغة : وتنفسة من تنفس الصعداء وفواقة خفية جدا عند الموت ( ج ) نشغات
النشقة : الحلقة أو الربقة تجعل في أعناق الدواب ( ج ) نشق
الأنصوبة : علم جعل على الطريق يهتدى به ( ج ) أناصيب
النصيبة : إحدى الأحجار التي تنصب حول الحوض تجعل عضائد وما نصب فجعل علما ( ج ) نصائب
الناصور : الناسور ( ج ) نواصير
النصة : ما أقبل على الجبهة من الشعر القصة ( ج ) نصص ونصاص
الأنصولة : نور نصل البهمي ( ج ) أناصيل
النضحة : الشيء اليسير المتفرق من المطر ( ج ) نضحات
النطع والنطع : بساط من الجلد كثيرا ما كان يقتل فوقه المحكوم عليه بالقتل يقال علي بالسيف والنطع وكسا بيت الله بالأنطاع ( ج ) أنطاع ونطوع وأنطع وظهر الغار الأعلى وهو موضع اللسان من الحنك ويقال هذا من الحروف النطعية التي تخرج من هذا الموضع وهي ( الطاء والدال والتاء ) ( ج ) نطوع
المنطلة : المعصرة ( ج ) مناطل
الإنظام : كل خيط نظم خرزا ومن البيوض خيط في بطنها منظوم بيضا يقال في بطن السمكة إنظامان والبيض المنتظم نفسه ومن الرمل ما تعقد منه ( ج ) أناظيم
الأنظومة : الإنظام ( ج ) أناظيم
النظيم : المنظوم ومن كل شيء ما تناسقت أجزاؤه على نسق واحد يقال نظيم من لؤلؤ ( ج ) نظم
النظيمة : من الحبل إحدى طرائقه ( ج ) نظائم
المنعت : الوصف ( ج ) مناعت يقال له مناعت جميلة
النعف : مكان يرتفع قليلا و يكون فيه صعود وهبوط ( ج ) نعاف
المنعى والمنعاة : خبر الموت ( ج ) مناع يقال ما كان منعاه منعاة واحدة ولكنه كان مناعي
النغبة : الجرعة يقال سقاه نغبة من لبن ( ج ) نغب
النغنغ : اللحمة في الحلق عند اللهازم وما نتأ تحت منقار الديك كاللحية والورم فيه استرخاء والأحمق الضعيف ( ج ) نغانغ
المنفج والمنفجة : ما تعظم به المرأة عجيزتها ( ج ) منافج
النفيج : الأجنبي يدخل بين القوم لا يصلح ولا يفسد ( ج ) نفج ( على غير قياس )
النفيجة : القوس من النبع ( ج ) نفائج
الإنفحة : شجرة كالباذنجان وجزء من معدة صار العجول والجداء ونحوهما ومادة خاصة تستخرج من الجزء الباطني من معدة الرضيع من العجول أو الجداء أو نحوهما بها خميرة تجبن اللبن ( ج ) أنافح ويقال جاءت الإبل كالإنفحة ملاء رواء
المنفحة : الإنفحة ( ج ) منافح
النفخاء : أعلى عظم الساق وأرض مرتفعة طيبة ليس فيها رمل ولا حجارة تنبت قليلا من الشجر ( ج ) نفاخى
النفيخ : الموكل بنفخ النار ( ج ) نفخاء
النفذة : الخرزة ( ج ) نفذ يقال قارب الخراز بين النفذ
النفرور : العصفور ( ج ) نفارير
النفصة : الدفقة من الدم ( ج ) نفص
الأنفوضة : ما تساقط من الثمر في أصول الشجر ( ج ) أنافيض يقال أصبنا اليوم أنافيض
المنفى : مكان النفي ( ج ) مناف
المنقدة : ما ينقد به الجوز وجريرة ينقد عليها الجوز ( ج ) مناقد
الناقد الفني : كاتب عمله تمييز العمل الفني جيده من رديئه وصحيحه من زيفه ( ج ) نقاد و نقدة
النقيذة : النقيذ يقال هو نقيذة بؤس مستنقذ منه والدرع لأنها تنقذ صاحبها من الطعن ( ج ) نقائذ
النقيلة : رقعة يصلح بها الشيء الخلق كالنعل أو الخف وشريحة من جلد الإنسان تنقل إلى موضع آخر منه لتصلحه ( مج ) ( ج ) نقائل ونقيل
النقنيق : الخشبة التي يكون عليها المصلوب ( ج ) نقانيق
المنقية : من النوق ذات الشحم ( ج ) مناق
النقاواة : نبات من الحمض تغسل به الثياب ( ج ) نقاوى
المنكور : المجهول ( ج ) مناكير
المنكوش : يقال سفط منكوش أخرج ما فيه ( ج ) مناكيش
النكوع : المرأة القصيرة ( ج ) نكع
النميم : الصوت الخفي من حركة شيء أو وطء قدم والوشاية ( ج ) نمائم
النهبرة : من النساء الطويلة المهزولة والمشرفة على الهلاك ( ج ) نهابر
النهبرة : ما ارتفع من الأرض وحبل من رمل صعب المرتقى والحفرة بين الآكام ( ج ) نهابر ونهابير
النهبور : النهبرة ( ج ) نهابير
المنهر : موضع يحتفره الماء وشق في الحصن نافذ يجري منه الماء ( ج ) مناهر و مناهير
النهسر : الذئب و الخفيف السريع من الرجال والحريص الأكول للحم ( ج ) نهاسر
الناهق : أحد عظمين شاخصين من ذي الحافر في مجرى الدمع ومخرج النهيق من حلق الحمار والحصان ( ج ) نواعق
الناعقة : واحد عروق اكتنفت خياشيم الدابة يخرج منها النهيق ( ج ) نواهق
الناهلة : المترددة على المناهل ( ج ) نواهل ويقال إبل نواهل جياع
المنهام : الدابة تطيع على الزجر ( ج ) مناهيم
التنهاء : منتهى الماء من الوادي ( ج ) تناه
التنهاة : ما يرد به وجه السيل من تراب و نحوه ( ج ) تناه
الناهية : يقال امرأة ناهيتك من امرأة غاية فيما تطلب ( ج ) نواه
النهاة : الخرزة ( ج ) نهى ويقال نفس نهاة عن الشيء منتهية
النائق : الذي ينقي الشحم من اللحم لليهود ( ج ) نوقة
الأنيب : الغليظ الناب وهي نيباء ( ج ) نيب
النيرنج : أخذ كالسحر وليس به ( ج ) نيرنجات ونيارج
المهباب : من الفحول الكثير الصياح والهياج للضراب ( ج ) مهابيب
الهبوة : الغبرة ( ج ) أهباء ( على غير قياس )
الهتي : من الليل الطائفة منه ( ج ) أهتاء يقال مضى هتي من الليل
الهجنف : الطويل العريض ( ج ) هجانيف
الهدهدة : صوت الهدهد وصوت هدير الحمام ( ج ) هداهد
الهربذ : الكاهن المجوسي القائم على بيت النار وحاكم المجوس ( فارسي معرب وهو بالفارسية هربد ) ( ج ) هرابذة
الهربع : الخفيف من الذئاب والخفيف من اللصوص ( ج ) هرابع
الهرجة : القوس اللينة ( ج ) هرج
الهرجول : الطويل من الناس والضخم من الإبل ( ج ) هراجيل
الهرمول : القطعة من الشعر ونحوه تبقى في نواحي الرأس ( ج ) هراميل
الهازمة : الداهية ( ج ) هوازم
الهزهزة : الفتنة يهتز فيها الناس ويبتلون ( ج ) هزاهز
الأهضوبة : الرابية والمطرة الدائمة العظيمة القطر ( ج ) أهاضيب
الهقلس : السيئ الخلق من الناس والثعلب ( ج ) هقالس
الهالب : اليوم المطير ويقال ليلة هالبة ( ج ) هوالب
الهلوب : المرأة المتقربة من زوجها تحبه وتقصي غيره ( ج ) هلب والصفة المحمودة
المهمر : المهمار ( ج ) مهامر
الهامز : الغماز والعياب في الغيب ( ج ) هماز
الهميان : ) شداد السراويل والمنطقة وكيس للنفقة يشد في الوسط ( مع ) ( ج ) هماين وهمايين
المهنأ : ما يأتيك فتسيغه و تقبله طبيعتك ( ج ) مهانئ
الهندوز : رجل هندوز مجرب جيد النظر صحيحه ( ج ) هنادزة ويقال هم هنادزة هذا الامر علماء به
الهندوس : يقال هو هندوس هذا الأمر عالم به ( ج ) هنادسة
الهنة : مؤنث الهن ( ج ) هنات وهنوات وفي الحديث ( ستكون هنات وهنات ) أي شرور وفساد
الهوقة : حفرة يجتمع فيها الماء ويكثر فيها الطين وتألفها الطير ( ج ) هوق
الهونة : من النساء المتئدة والمطاوعة و الضعيفة من خلقتها كأنها رجل في مظهرها والتسكين والصلح ( ج ) هون
الموتمة : الأسطوانة ( ج ) مواتم
الموجبة : الكبيرة من الذنوب التي توجب النار ومن الحسنات التي توجب الجنة ( ج ) موجبات
الوجذ : النقرة في الجبل تمسك الماء و الحوض ( ج ) وجذان ووجاذ
الوجعاء : الدبر ( ج ) وجعاوات
الوحيش : ما لا يستأنس من دواب البر والجانب الوحيش الوحشي ( ج ) وحشان
الوخوم : الوخم ( ج ) وخم وأرض وخوم موخمة
الميداعة : الرجل الذي يحب الدعة ( ج ) موادع
الوراك : الموضع من الرحل يجعل عليه الراكب رجله وقادمة الرحل والنمرقة التي تلبس مقدم الرحل ثم تثنى تحته ( ج ) ورك وورك
الميساق : الطائر يصفق بجناحيه إذا طار ومن الحمام الوافر الجناح ( ج ) مياسيق ومآسيق
الوشيجة : عرق الشجرة وعرق الأذن والقرابة المشتبكة المتصلة و ليف يفتل ثم يشبك بين خشبتين ينقل فيها البر المحصود وغيره ( ج ) وشائج
الوشيزة : الوسادة الكثيرة الحشو ( ج ) وشائز
الوصع : جنس طير من الفصيلة الوصعية ورتبة العصفوريات وهي طيور مناقيرها قصيرة وأجنحتها مستديرة وأذنابها قصيرة مستديرة عمودية على جسمها تستوطن أوربة ومن أنواعه الوصع الأوربي وهو يهاجر شتاء إلى الأردن ومصر ( مج ) ( ج ) وصعان
الوصع : الوصع ( ج ) وصعان
الوصاة : الوصية ( ج ) وصى وجريدة النخل يشد به
الميضنة : وعاء كالجوالق يتخذ من خوص ( ج ) مواضين
الميطان : موضع يوطن لترسل منه الخيل في السباق ( ج ) مياطين
الوطواط : الخفاش وضرب من خطاطيف الجبال والضعيف العقل والبدن من الرجال والذي يقارب كلامه و الضعيف الجبان والصياح ( ج ) وطاويط
الوعساء : مؤنث الأوعس والأرض اللينة ذات الرمل تنبت البقول الجيدة والسهل اللين من الرمل تغيب فيه الأرجل ( ج ) وعس
المستوقد : موضع اشتعال النار ( ج ) مواقد
الموقذ : طرف من البدن كالكعب والمنكب والمرفق والركبة ( ج ) مواقذ يقال ضربه على موقذ من مواقذه
الوقيذة : الحجارة المفروشة ( ج ) وقائذ
المتكأ : ما يجلس عليه للاتكاء وكرسي منجد له ذراعان وظهر ( مج ) ( ج ) متكآت
الواكن : الجالس والطائر حيثما وقع على حائط أو عود أو شجر وهي واكنة ( ج ) وكون
الوليدة : مؤنث الوليد والأمة والصبية إلى أن تبلغ والمولودة بين العرب ( ج ) ولائد
المينى : مرفأ السفن ( مذكر ) وجوهر الزجاج وطلاء تغشى به المعادن وغيرها ( مو ) ( ج ) موان
الوهتة : ما انحدر من الأرض ( ج ) وهت
التهمة والتهمة : الاتهام وما يتهم عليه ( ج ) تهم وتهمات
الواهنة : الوهن والضعف ( يكون مصدرا كالعافية ) ومؤنث الواهن ( ج ) وهن وفقرة في القفا ومرض يأخذ في عضد الرجل وأسفل الأضلاع وأول جوانح الصدر من الفرس ويقال إنه لشديد الواهنتين شديد الصدر والمقدم
اليؤيؤ : طائر من جوارح الطير كالباشق وهو طائر صغير قصير الذنب ( ج ) يآيي
اليبسة : من الشياه اليبس ويقال أتان يبسة يابسة ضامرة ( ج ) يباس
الميتمة : من الحروب ونحوها ما تسبب اليتم ومنه ( الحرب ميتمة مأيمة ) تهلك الرجال فيصير أولادهم يتامى ونساؤهم أيامى وجمع اليتيم ( ج ) مياتم
اليتيمة : مونث اليتيم والرملة المنفردة من الرمال ومن الدرر ونحوها الثمينة التي لا نظير لها و ( الجمعة اليتيمة ) ( عند المصريين ) آخر جمعة في شهر رمضان ( ج ) يتامى ويتائم
الموسر : ذو اليسار والغنى ( ج ) مياسير
اليافع : من شارف الاحتلام وهو دون المراهق ( ج ) يفعة و أيفاع ويفعان ويقال مجد أو شرف يافع رفيع سام
اليفعة : يقال غلام يفعة شاب وفتاة يفعة أيضا وجمع يافع يقال غلمان يفعة ( ج ) أيفاع
اليفن : الشيخ الكبير أو الفاني والثور المسن والعجل إذا أربع أي دخل في السنة الرابعة والمتفنن أي المضطرب ( ج ) يفن
اليلمق : القباء ( مع ) ( ج ) يلامق

Huruf غ s/d م - Kosakata Belum Terdata

2011-11-12T20:53:00.000+07:00

Isim Mufrad dan Jama Taksirnya Diambil dari Kamus Mu'jamul Wasith:

الغبيثة : أقط يخطط ويلت بسمن ( ج ) غبائث
الغبران : بسرتان أو رطبتان في قمع واحد ( ج ) غبارين
الغبغب : الغبب وهو ما يتدلى تحت الحنك من الإسنان وغيره وخص بعضهم به الديكة والشاء والبقر ( ج ) غباغب
الغبقان : شارب الغبوق وهي غبقى ( ج ) غباقى
الغبياء : شجرة غبياء ملتفة ( ج ) غبي
الأغثر : ما كثر صوفه ووبره من الأكسية والطحلب ( ج ) غثر
المغثار : شيء كالصمغ يسيل من بعض الشجر حلو كالعسل وله رائحة كريهة ( ج ) مغاثير
المغثر : المغثار ( ج ) مغاثر
المغثور : المغثار ( ج ) مغاثير
الغدرة : الغدارة ( ج ) غدر
الغربيب : نوع جيد من العنب والشيخ يسود شيبه بالخضاب والشديد السواد ( و كثيرا ما يجيء تأكيدا فيقال أسود غربيب ) ( ج ) غرابيب وفي التنزيل العزيز ) ومن الجبال جدد بيض وحمر مختلف ألوانها وغرابيب سود (
الغراد : ضرب من الفطر من الفصيلة الكمئية ( مج ) ( ج ) غراد
التغريز : ما حول من صغار النخل و غيره إلى موضع آخر وغرز فيه ( ج ) تغاريز
المغرز : موضع بيض الجراد ( ج ) مغارز
المغرز : كل موضع غرز فيه أصل شيء يقال مغرز الضلع ومغرز الضرس ومغرز الريش ونحوها ( ج ) مغارز
الإغريض : ما ينشق عنه الطلع من الحبيبات البيض والبرد وكل أبيض طري ( ج ) أغاريض
الغارم : الذي يلتزم ما ضمنه وتكفل به وفي الحديث ( الدين مقضي والزعيم غارم ) ( ج ) غرام
الغرانق : نبات شجيري معمر من الفصيلة الجارونية ينبت في المناطق المعتدلة أوراقه مزغبة طويلة العنق مستديرة النصل تقريبا نورته شبه خيمة والثمرة جافة منشقة ذات منقار طويل ( مج ) والشاب الأبيض الناعم الجميل ( ج ) غرانق وغرانيق ويقال امرأة غرانق
المغزاة : الغزوة ( ج ) مغاز
الغسمة : القطعة من السحاب ( ج ) غسم
الغسنة : خصلة الشعر من العرف والناصية والغدائر ( ج ) غسن
المغفار : صمغ حلو يسيل من شجر العرفط يؤكل أو يوضع في ثوب ثم ينضح بالماء فيشرب ( ج ) مغافير
الغفى : التبن في بيدره وما يكون في البر ونحوه من أشياء غريبة كدقاق الحصى والتبن في البر والرديء من كل شيء وآفة تصيب النخل وهو شبه الغبار يقع على البسر فيمنعه من الإدراك والنضج ويمسخ طعمه وقشر صغير يعلو البسر وما ينفونه من إبلهم والسفلة من الناس ( ج ) أغفاء
الأغلوج : الغصن الناعم ( ج ) أغاليج
الإغليق : المفتاح ( ج ) أغاليق
الغلوة : مقدار رمية سهم وتقدر بثلاث مئة ذراع إلى أربع مئة ( ج ) غلاء وغلوات
المغمز : العيب والمطعن يقال ما فيه مغمز لغامز ( ج ) مغامز
الغنبة : دائرة تكون في شدق الغلام المليح أو في ذقنه ( ج ) غنب
الأغنوجة : ما تتغنج به المرأة من عبارات وحركات تزيدها ملاحة ( ج ) أغانيج
المغوثة : المعونة والنصرة ( ج ) مغاوث
المفآد والمفأد والمفأدة : أداة يشوى بها اللحم وأداة يحرك بها التنور ( ج ) مفائيد ومفائد
الفؤمة : القطعة ( ج ) فؤم يقال قطعوه فؤما
الفتخ : باطن ما بين العضد والذراع وكل خلخال لا يصلصل ( ج ) فتوخ
الفحث : فحث الكرش شيء متصل بها ذو أطباق وأجواف ( ج ) أفحاث
الأفحوص : حفرة تحفرها القطاة أو الدجاج في الأرض لتبيض وترقد فيها ( ج ) أفاحيص
المفحص : الأفحوص ( ج ) مفاحص
الفحال : ذكر النخل ( ج ) فحاحيل
الفحم والفحم : مادة سوداء ذات مسام تتخلف من إحراق الخشب والعظام ونحوهما إحراقا جزئيا ( ج ) فحام وفحوم و ( الفحم النباتي ) ما تخلف من إحراق النبات خاصة
الفخذ والفخذ : ما فوق الركبة إلى الورك ( مؤنث ) وفي العشيرة إحدى فصائل البطن ( مذكر ) ( ج ) أفخاذ
المفخر والمفخرة : ما فخر به ( ج ) مفاخر
الإفرير : ما يبرز عن جدران العمائر أو المباني في هيئة حافة أفقية ( مج ) ( ج ) أفاريز
المفراض : الحديدة التي يحز بها ( ج ) مفاريض
المفرض : المفراض ( ج ) مفارض
الفرقود : الفرقد ( ج ) فراقيد
الفسكول : الفرس الذي يجيء آخر الحلبة ومن الرجال التابع المتأخر ( ج ) فساكيل
الفيشلة : الحشفة ورأس كل مملس ومدور ( ج ) فياشل
الفصفصة : الفصفص ( ج ) فصافص
الفيصل : الحاكم أو القاضي والماضي القاطع يفصل بين الحق والباطل يقال حكومة فيصل وقضاء فيصل وقول فيصل وطعنة فيصل ( ج ) فياصل
المفضخة : الإناء ينبذ فيه الفضيخ ومن الدلاء الواسعة ( ج ) مفاضخ
الأفعولة : الأمر العجيب يستنكر ( ج ) أفاعيل
الفكرى : الفكر ( ج ) فكريات
الأفكوهة : الأعجوبة ( ج ) أفاكيه
الفلوجة : الأرض المصلحة للزرع ( ج ) فلاليج
المفلوك : الفقير ( مو ) ( ج ) مفاليك
الفلاة : الأرض الواسعة المقفرة ( ج ) فلا وفلوات
الفلو والفلو : الجحش أو المهر يفطم أو يبلغ السنة ( ج ) أفلاء
الفنيق : من الإبل الفحل ( ج ) فنق
الفازة : مظلة من نسيج أو غيره تمد على عمود أو عمودين ( ج ) فاز
الفائج والفائجة : المنبسط من الأرض بين مرتفعين ( ج ) فوائج
الفيشة : أعلى الهامة ( ج ) فيش
القابصة : الجماعة ( ج ) قوابص
المقبص : الحبل يمد بين أيدي الخيل في الحلبة إذا سوبق بينها ( ج ) مقابص
القبطية : ثياب من كتان بيض رقاق كانت تنسج بمصر وهي منسوبة إلى القبط ( على غير قياس ) ( ج ) قباطي وقباطي
القابعة : من خيول السبق التي بقيت مسبوقة خلف السابق ( ج ) قوابع
القابول : سقيفة بين دارين أو حائطين تحتها ممر نافذ ( ج ) قوابيل
المقتوي : الخادم ( ج ) مقاتية ومقتوون
القثوم : الجموع للخير ( ج ) قثم
القحر : المسن وفيه بقية من شباب وجلد ( ج ) أقحر و قحور
المقحفة : الخشبة يذرى بها الحب ( المذراة ) ( ج ) مقاحف
المقحمة : يقال لفظة مقحمة زائدة لا تناسب السياق ( ج ) مقحمات
المقدام والمقدامة : الكثير الإقدام على العدو الجريء في الحرب ج مقاديم
القادية : جماعة قليلة وهم أول من يفد على الإنسان يقال أتتنا قادية من الناس ( ج ) قواد
القذاذة : من كل شيء ما قذ منه وسقط كالريش وأطراف الذهب والفضة وغير ذلك ( ج ) قذاذات
القذفة : القذف ( ج ) قذف وقذاف وقذفات ومن الجبل ما برز وأشرف من جانبه أومن رأسه ويقال بلغ قذفة الجبل وقذفاته وأقذافه أعاليه ونواحيه البعيدة وشرفة البناء
المقذفة : المقذف ج مقاذف
القربوس : حنو السرج و هما قربوسان ( ج ) قرابيس
القرشب : من الرجال الأكول ( ج ) قراشب
المقرص : وعاء يقرص فيه ( ج ) مقارص
القرموص : القرمص وحفرة الصائد ( ج ) قراميص
القرملة : نبات حولي قصير الساق وله زهرة صغيرة شديدة الصفرة من الفصيلة الرطريطية ( ج ) قرمل ومن أمثالهم ( ذليل عاذ بقرملة ) يضرب للذليل يستعين بمن هو أضعف منه
القرناس : ما يلف عليه الصوف ليغزل ( ج ) قرانيس و القرانيس أوائل السيل مع الغثاء
القيسبة : شجيرة تنبت خيوطا من أصل واحد وترتفع قدر الذراع ونورتها كنورة البنفسج ويستوقد برطوبتها كما يستوقد اليبيس ( ج ) قيسب
الأقسومة : الحظ والنصيب ( ج ) أقاسيم
المقشط : آلة القشط ( ج ) مقاشط
القشوة : قفة تجعل فيها المرأة طيبها وحاجتها ( ج ) قشوات وقشاء وحقة للنفساء
التقصيبة : الخصلة الملتوية من الشعر ( ج ) تقاصيب
القصدة : القطعة من الشيء إذا انكسر ونصفه إذا كسر نصفين ( ج ) قصد
الأقصوصة : القصة القصيرة ( ج ) أقاصيص ( مو )
القاصعاء : جحر يحفره اليربوع فإذا دخل فيه سد فمه لئلا يدخل عليه حية أو دابة ( ج ) قواصع
القصماء : من المعز التي انكسر قرناها من طرفيهما إلى المشاشة ( ج ) قصم
القضام : النخلة تطول حتى يخف أو يجف ثمرها ويقل واحدتها قضامة ( ج ) قضاضيم
المقطلة : حديدة يقطع بها ( ج ) مقاطل
القافصة : التلعة المرتفعة الصاعدة في السماء ( ج ) قوافص
القلت : النقرة في أرض أو بدن يقال قلت السيل للحفرة في صخر يستنقع فيها ماؤه وقلت العين نقرتها وقلت الخاصرة حق الورك وقلت الركبة عينها ويقال رجل قلت قليل اللحم ( ج ) قلات
المقلات : التي لا يعيش لها ولد والتي تضع واحدا ثم لا تحمل ( ج ) مقاليت
المقلتة : المهلكة والمكان المخوف ( ج ) مقالت
الإقليد : حلقة في أنف الناقة يلوى طرفاها حتى يستمسكا والمفتاح ( ج ) أقاليد والعنق ( ج ) أقلاد
القلة : ضد الكثرة ( ج ) قلل
القلة : إناء من الفخار يشرب منها وقلة كل شيء قمته وأعلاه ( ج ) قلل وقلال
القامسة : الداهية ( ج ) قوامس
القمصة : البعوضة الصغيرة تطير فوق الماء ( ج ) قمص
القمقمة : وعاء من نحاس له عروتان ( ج ) قماقم
القملة : حشرة تتولد على البدن عند دفعه العفونة إلى الخارج ( ج ) القمل
القنة : قنة كل شيء أعلاه والجبل المنفرد المرتفع في السماء ( ج ) قنن وقنان
القنة : القوة من قوى الحبل أو من حبل الليف خاصة ( ج ) قنن
القهقرة : حنطة قهقرة اسودت بعد الخضرة ( ج ) قهقر
القوت : ما يقوم به بدن الإنسان من الطعام ( ج ) أقوات
القوة : ضد الضعف و الطاقة من طاقات الحبل وتمكن الحيوان من الأعمال الشاقة والمؤثر الذي يغير أو يميل إلى تغيير حالة سكون الجسم أو حالة حركته بسرعة منتظمة في خط مستقيم ( مج ) ومبعث النشاط والنمو والحركة وتنقسم إلى طبيعية وحيوية وعقلية كما تنقسم إلى باعثة وفاعلة ( ج ) قوى وقوات ويقال رجل شديد القوى شديد أسر الخلق والقوات المسلحة فيالق الجيش في البر والبحر والجو ( محدثة )
الكباسة : القنو التام من النخل بشماريخه وبسره ( ج ) كبائس
الكبينة : حجرة في السفينة ينام فيها المسافر أو على شاطئ البحر يخلع فيها المستحم ثيابه أو يلبسها ( ج ) كبائن ( د )
الكتد : مجتمع الكتفين من الإنسان والفرس أو الكاهل ( ج ) أكتاد وكتود
الكتد : الكتد ( ج ) أكتاد
الكحلة : عشب حولي أو معمر ينبت في المناطق المعتدلة مغطى بشعر وبري وله نورة برتقالية اللون ( ج ) أكاحل ( مج )
الكداة : كل ما جمع من تراب ونحوه فجعل كثبة ( ج ) الكدى
الكرديد : ما يبقى في أسفل الجلة من جانبيها من التمر ( ج ) كراديد
الكردوس : كل عظم تام ضخم ورأس العظم ذي المخ وكل عظمين التقيا في مفصل نحو المنكبين والركبتين والوركين ( ج ) كراديس
الكردينال : أحد الأحبار وهم صحابة البابا ومستشاروه ولهم الحق في انتخابه من بينهم ( ج ) كرادلة ( د )
الكرسوع : طرف الزند الذي يلي الخنصر وهو الناتئ عند الرسغ ومن الشاة عظيم يلي الرسغ من وظيفها وكرسوع القدم مفصلها من الساق ( مذكر ) ( ج ) كراسيع
الأكسوم : من الرياض المتراكمة النبت ( ج ) أكاسم وأكاسيم
الكعيت : طائر من جنس البلبل صغير الحجم جم النشاط لا يكف عن الحركة طول اليوم وهو من أحسن الطيور في العالم تغريدا رأسه ورقبته و أعلى صدره سود يوجد في مصر والسودان ويكثر بالمناطق التي توجد بها الحدائق و البساتين ( ج ) كعتان
الكعس : عظم السلامى وعظام البراجم من الأصابع ( ج ) كعاس
الكفة : كل شيء مستدير وكفة الميزان ما يجعل فيها الموزون أو ما يوزن به عند الوزن وللميزان كفتان أو كفة ودائرة الوشم وحبالة الصائد ونقرة يجتمع فيها الماء ( ج ) كفف وكفاف
الكفة : حاشية كل شيء ومن القميص ما استدار حول الذيل وجانبه الذي لا هدب فيه ومن الليل حيث يلتقي الليل وال نهار إما في المشرق وإما في المغرب يقال جثته في كفة الليل ومن الشجر منتهاه حيث ينقطع ومن الدرع أسفلها ( ج ) كفف وكفاف
الكفية : قوت الكفاية يقال قنعت بالكفية ( ج ) الكفى
الكلكلة : الجماعة ( ج ) كلاكل
الكميت : من الخيل ( للمذكر والمؤنث ) ما كان لونه بين الأسود والأحمر وهو تصغير أكمت ترخيما ( ج ) كمت والخمر لما فيها من سواد وحمرة
الكامح : الذي يروض الخيل ويدربها ( ج ) كمحة
الكنوف : الناقة تستتر بالإبل من البرد إذا أصابها والناقة تعتزل الإبل وتبرك في كنفها الخاص ومن الغنم القاصية لا تمشي مع القطيع ( ج ) كنف
الكنينة : امرأة الرجل ( ج ) كنائن
الكوساء : أرض كوساء كثيرة النبت ملتفة متراكمة ( ج ) كوس
الكيلجة : كيل لأهل العراق يسع منا وسبعة أثمان منا ( ج ) كيالجة وكيالج
الكيميائي والكيمياوي : المتخصص في علم الكيمياء أو في تطبيق قواعده تطبيقا عمليا ( ج ) كيميائيون وكيمياويون والتفاعل الكيميائي أن تؤثر مادة في مادة أخرى فتغير تركيبها الكيميائي أو هو تغيير كيميائي يحدث في المادة بتأثير الحرارة أو الكهرباء ونحوهما
اللأي : الشدة والجهد والحاجة إلى الناس ( ج ) ألآء
التلبيب : ما في موضع اللبب من الثياب ويعرف بالطوق ( ج ) تلابيب يقال أخذ فلان بتلبيب فلان وبتلابيبه
اللابن : الكثير اللبن وذو اللبن كقولك تامر ذو تمر ( ج ) لوابن
اللجح : شبه ثقب ضيق فمه متسع أسفله يكون في أسفل البئر والجبل والوادي ولجح العين النقرة التي هي فيها ( ج ) ألجاح
الملحوجة : يقال خطة ملحوجة مخلطة عوجاء والطريق الضيقة في الجبل ( ج ) ملاحيج
الملحظ : اللحظ أو موضعه ( ج ) ملاحظ
اللخصة : شحمة العين من أعلى وأسفل ( ج ) لخاص
اللدينة : مادة مرنة تقبل التشكل ( مج ) ( ج ) لدائن
اللاصبة : البئر الضيقة البعيدة القعر ( ج ) لواصب
اللطعة : بيض دودة القطن تضعه على باطن الورقة ( ج ) لطع ( محدثة )
اللعموظ واللعموظة : اللعمظ والطفيلي والذي يخدم بطعام بطنه ( ج ) لعاميظ
اللعو : السيء الخلق والفسل الذي لا خير فيه والشره الحريص ( ج ) لعاء
اللغن : ناحية من اللهاة مشرفة على الحلق ( ج ) ألغان
اللغنون : اللغن والخيشوم ( ج ) لغانين
الملفظ : ما يلفظ به من الكلام ( ج ) ملافظ
اللفى : الشيء المطروح ( ج ) ألفاء
اللقوة : داء يعرض للوجه يعوج منه الشدق والعقاب الخفيفة السريعة الاختطاف ( ج ) لقاء وألقاء
الملهاة : مسرحية منثورة أو منظومة تصف معايب الناس ورذائلهم في صور مضحكة ( محدثة ) ( ج ) الملاهي
اللابة : الإبل المجتمعة السود والحرة من الأرض وهي الأرض ذات الحجارة السود ( ج ) لابات ولاب
اللوبة : القوم يكونون مع القوم فلا يستشارون في شيء والحرة من الأرض ( ج ) لوب وقالوا أسود لوبي منسوب إلى اللوبة وهي الحرة
الملام والملامة : اللوم ( ج ) الملاوم
المأق والماق : طرف العين مما يلي الأنف وهو مجرى الدمع ( ج ) آماق وأمآق
المؤق والموق : المأق ومن الأرض نواحيها الغامضة من أطرافها ( ج ) آماق وأمواق
المائة : عشر عشرات وهو اسم وقد يوصف به يقال مررت برجل مائة إبله ( ج ) مئات ومئون والنسبة إلى مائة مئوي و ( النسبة المئوية ) نسبة أي عدد كان إلى المائة فيقال مثلا زكاة المال اثنان ونصف في المائة
الأمدوحة : ما يمتدح به ( ج ) أماديح
المرت : مفازة لا نبات فيها ويقال أرض مرت ومكان مرت قفر لا نبات فيه ( ج ) أمرات ومروت ورجل مرت الحاجب ليس على حاجبه شعر ورجل مرت الجسد لا شعر عليه
الممرث : الحليم الصبور على الخصام ( ج ) ممارث
المرة : العقل أو شدته و الأصالة والإحكام يقال إنه لذو مرة عقل وأصالة وإحكام والقوة وفي التنزيل العزيز ) علمه شديد القوى ذو مرة فاستوى ( وإحكام الفتل وخلط من أخلاط البدن وهو المسمى المزاج ( انظر المزاج ) ( ج ) مرر وأمرار
المرة : مؤنث المر ضد الحلوة ( ج ) مرائر ( على غير قياس ) وأبو مرة كنية إبليس
المرز : الحباس الذي يحبس الماء ( مع ) ( ج ) مروز
الأمزر : المزير من الرجال ( ج ) أمازر
المازي : للجبار ( ج ) مزاة ويقال قعد عني مازيا مخالفا بعيدا
الأمسوح : كل خشبة طويلة في السفينة ( ج ) أماسيح
المسكة : البخيل ومن إذا أمسك الشيء لم يقدر على تخليصه منه والذي لا ينازله منازل فيفلت ( ج ) مسك
المشج والمشيج : كل شيئين مختلطين أو كل لونين اختلطا ( ج ) أمشاج وفي التنزيل العزيز ) إنا خلقنا الإنسان من نطفة أمشاج ( والأمشاج الأوساخ التي تجتمع في السرة و ( في علم الأحياء ) تطلق الأمشاج على الخلايا الذكرية كالحيوان المنوي والخلايا الأنثوية كالبيضة قبل أن تندمجا لتكوين اللاقحة
الممشط : المشط ( ج ) مماشط
الماضغة : الماضغ وهما ماضغتان ( ج ) مواضغ والمواضغ الأضراس
المغص والمغص : وجع في الأمعاء والتواء فيها ( ج ) أمغاص
الأملولة : الملل ( ج ) أماليل
المهرية : إبل مهرية نجائب تسبق الخيل منسوبة لقبيلة مهرة بن حيدان ( ج ) المهاري ( بالياء مشددة ومخففة ) والمهارى

Huruf ص s/d ع - Kosakata Belum Terdata

2011-11-12T20:48:00.002+07:00

Isim Mufrad dan Jama Taksirnya Diambil dari Kamus Mu'jamul Wasith:

الإصبع و الأصبع :  أحد أطراف الكف أو القدم ( ج ) أصابع و تطلق الإصبع على الأثر يقال عليه من الله إصبع حسنة أثر نعمة و هو حسن الإصبع في ماله و له في هذا الأمر إصبع و ( في الكيمياء ) مادة مشكلة على هيئة عود أسطواني
الصبغي :  شكل تتخذه المادة في نواة الخلية في أثناء الانقسام غير المباشر و الانقسام الاختزالي ( ج ) صبغيات و عدد الصبغيات
الصحابي :  من لقي النبي e مؤمنا به و مات على الإسلام ( ج ) صحابة
الصحصاح و الصحصح :  الأرض المستوية الواسعة ( ج ) صحاصح
الصديرة :  أعلى الوادي و صدره ( ج ) صدائر
الصريدة :  النعجة التي أضر بها البرد ( ج ) صرائد
المصراد :  أرض مصراد مجدبة من شدة البرد و رجل مصراد سريع الإحساس بالبرد و ريح مصراد شديدة البرد ( ج ) مصاريد
المصطب :  سندان الحداد ( ج ) مصاطب
المصعب :  من الرجال المسود و من الإبل الفحل يعفى من الركوب ( ج ) مصاعب
الصعدة :  القناة تثبت مستوية فلا تحتاج إلى تثقيف و القصبة ( ج ) صعاد
الصاقورة :  الصاقور و باطن الجمجمة المشرف على  الدماغ ( ج ) صواقير
الإصليت :  الماضي في الأمور ( ج ) أصاليت
الصلت :  البارز و الأملس و جبين صلت واضح في سعة و بريق و سيف أو سكين صلت صقيل ماض ( ج ) أصلات
الصلتان :  الشديد القوي و النشيط الماضي في الأمور ( ج ) صلتان
المصلاد :  يقال ناقة مصلاد إذا ولدت و ليس لها لبن ( ج ) مصاليد
المصلادة :  المصلاد ( ج ) مصاليد
الصلاعة :  الصخرة الصلبة الشديدة العريضة ( ج ) صلاع
الصليف :  الصلف و صفحة العنق و جانبه و هما صليفان ( ج ) صلائف
الصلة :  الجلد اليابس المنتن ( ج ) صلال
الأصلم :  المقطوع الأذن و الصغير الأذن خلقة كأنها مقطوعة ( ج ) صلم
الصلماء :  مؤنث الأصلم ( ج ) صلم
المصماد :  يقال ناقة مصماد قوية على احتمال القر و الجدب ( ج ) مصاميد
الصمة :  الشجاع و يقال رجل صمة و الصمام و أنثى القنافذ ( ج ) صمم
الصنجة :  السنجة ( ج ) صنج
المصهر :  مكان الصهر ( ج ) مصاهر
الصهوة :  موضع السرج من ظهر الفرس و من كل شيء أعلاه و البرج يتخذ فوق الرابية و مكان متطامن من الأرض تأوي إليه ضوال الإبل و منبع الماء في الجبل ( ج ) صهاء و صها
الصوت :  الأثر السمعي الذي  تحدثه تموجات ناشئة من اهتزاز جسم ما ( مج ) و اللحن يقال غنى صوتا ( وهو مذكر و قد أنثه بعضهم ) و الذكر الحسن و الرأي تبديه كتاية أو مشافهة في موضوع يقرر أو شخص ينتخب ( محدثة ) ( ج ) أصوات و ( اسم الصوت ) ( عند النحاة ) كل لفظ حكي به صوت أو صوت به لزجر أو دعاء أو تعجب أو توجع أو تحسر
المصول :  ما تنقى به السنابل بعد دوسها مما خالطها من العيدان و نحوها و ما ينقع فيه الحنظل لتذهب مرارته ( ج ) مصاول
الصوة :  ما غلظ و ارتفع من الأرض و ما نصب من الحجارة ليستدل به على الطريق ( ج ) صوى و أصواء و في الحديث ( إن للدين صوى و منارا كمنار الطريق )
الصائحة :  صيحة المناحة و الفزع ( ج ) صوائح
المصيد و المصيدة :  ما يصاد به ( ج ) مصايد
المصياف :  من الناس الذي لا يتزوج حتى يكبر و من النوق و نحوها التي تعودت أن تلد في الصيف و من الأرض التي لا تنبت إلا في الصيف ( ج ) مصاييف
الضابئة :  الحمل الثقيل لا يكاد حامله يرفعه عن الأرض و يقال غرارة ضابئة مثقلة لمن يحملها أو تخفيه تحتها ( ج ) ضوابئ
الضبعان :  الذكر من الضباع ( ج ) ضباعين
الأضحاة :  شاة و نحوها يضحى بها في عيد الأضحى ( ج )  أضحى
الأضخومة :  ما تعظم به المرأة عجيزتها ( ج ) أضاخيم
الضريحة :  الضريح ( ج ) ضرائح
التضريس :  تحزيز في الشيء يشبه الضرس ( ج ) تضاريس و ( تضاريس الأرض ) ما على سطح الأرض من مرتفعات و منخفضات ( مع )
الضاري :  من الجوارح و الكلاب المدرب على الصيد و من السباع المولع بأكل اللحم و من الماشية المعتاد رعي زروع الناس ( ج ) ضوار
الضعفان :  الضعيف ( ج ضعافى
الضعوف :  الشديد الضعيف ( ج ) ضعف
الضغون :  الذي يجري كأنه يرجع القهقرى ( ج ) ضغن
الضاغية :  الصائحة و الضغاء ( ج ) ضواغ
الضالع :  الأعوج ( ج ) ضوالع
الضمادة :  كل ما يضمد به الجرح و غيره و حرفة الضامد أو المضمد ( ج ) ضمائد و يقال أنا على ضمادة من الأمر أي أشرفت عليه
المضمدة :  خشبة تجعل على عنقي الثورين في طرفها ثقبان و هي النير ( ج ) مضامد
الضميلة :  المرأة الزمنة و العرجاء ( ج ) ضمائل
الضامنة :  ما اشتملت عليه القرية من النخيل و نحوه ( ج ) ضوامن
المضمان :  الضامن أو الحامل ( ج ) مضامين
الضهباء :  القوس عملت فيها النار ( ج ) ضهب
الضاهلة :  من العيون القليلة الماء ( ج ) ضواهل
الضوج :   منعطف الوادي و منحناه ( ج ) أضواج
الضوع :  طائر من طير الليل كالهامة إذا أحس بالصباح صدح و صرخ ( ج ) أضواع و ضيعان
الضيون :  السنور الذكر ( ج ) ضياون
الضواة :  غ دة أو شبهها تحت شحمة الأذن فوق النكفة و كل ورم جامد و السلعة في البدن ( ج ) ضوى
المضيعة :  الإهمال و المفازة المنقطعة يضيع فيها الإنسان و غيره و ما يجلب الضياع و الفساد من لهو و لعب و نحوه ( ج ) مضايع
الطابون :  الموضع الذي تطبن فيه النار أي تدفن فيه لئلا تطفأ ويطلق الآن على المخبز أو الفرن و في استعمال المحدثين الطابونة ( ج ) طوابين
المطحان :  الأفعى المستديرة المترحية ( ج ) مطاحين
المطحن :  آلة الطحن ومكانه ( ج ) مطاحن
المطخة :  اسم آلة من ( طخ ) ( ج ) مطاخ
الطربيل :  النورج الذي يدق به ما يحصد ( ج ) طرابيل
المطرحة :  أداة يطرح بها الخبز في الفرن ( مو ) ( ج ) مطارح
الطرور :  طرة الجارية ونحوها ( ج ) طرر وطرار
الطراطير :  دردي الخمر معرب ( ترتير ) باليونانية هذا أصله ثم استعمل في كل دردي ( ج ) طراطير و ( في الكيمياء ) حمض الدردي ( حمض الطرطريك ) وهو حمض عضوي توجد منه أنواع متناظرة والنوع  العادي بلوراته شفافة يذوب في الماء والكحول ويوجد عادة في أنسجة الخضر والفاكهة ( مج )
الأطروفة :  الملحة والتحفة والمستحدث المعجب ( ج ) أطاريف
الطست :  إناء كبير مستدير من نحاس أو نحوه يغسل فيه ( معرب تشت بالشين ) يؤنث ويذكر ( ج ) طسوت
الطس :  الطست ( ج ) طسوس وأطساس
الطسة :  المرة من طس والطست والظفر ( ج ) طساس وأطساس
الطسة :  الطست ( ج ) طساس وطسس
الطعومة :  من الماشية ونحوها التي تحبس للأكل ( ج ) طعائم
الطعين :  المطعون ( ج ) طعن
المطفئة :  أداة تطفئ النار بسائل أو بالهواء ومطفئة الرضف الشاة السمنية والداهية العظيمة تنسي ما قبلها لشدتها ( ج ) مطافئ
الطلساء :  مؤنث الأطلس ( ج ) طلس
الطالعة :  من الإبل و نحوها أولها ( ج ) طوالع
الطالق :  يقال امرأة طالق محررة من قيد الزواج وناقة أو شاة طالق مرسلة ترعى حيث شاءت ( ج ) طلق وطوالق
الطالقة :  من النساء أو النوق أو الشياه الطالق ومن الليالي الخالية من الحر والبرد وكل أذى ( ج ) طوالق
المطلاق :  الطلقة ومن النوق ونحوها الطالق ( ج ) مطاليق
الطلاة :  العنق أو صفحته ( ج ) طلي
الطلية :  الطلاة وصوفة  ونحوها يدهن بها الجرب ونحوه وخرقة الحائض ( ج ) طلي
المطملة :  المطلمة وهي خشبة أو نحوها يوسع بها الخبز ( ج ) مطامل
الطنء :  الشك والاتهام والفجور وبقية الماء في الحوض ونحوه وبقية الروح والرمق والرماد الهامد والمنزل يبنى من حجارة ونحوها في الصحراء للمبيت فيه ومصيدة لصيد السباع كالزبية ( ج ) أطناء
الإطنابة :  سير يعقد إلى الإبزيم والمظلة والجماعة من الخيل أو الطير ونحوها ( ج ) أطانيب ويقال خيل أطانيب يتبع بعها بعضا وحاجات أطانيب طويلة كثيرة لا تكاد تنقضي وغارات أطانيب متصلة لا آخر لها
الطنيب :  من كان طنب خيمته إلى جانب طنب خيمتك ومن وجبت عليك إجارته وحمايته ( محدثة ) ( ج ) طنباء وهن طنائب
المطناب :  من الجيوش العظيم الجرار ( ج ) مطانيب
الطنج :  الصنف والنوع و الفن والكراسة أو الصحيفة ( ج ) طنوج
الطنجير :  الطنجرة ( مع ) والجبان اللئيم أو كناية عن الحضري لأنه يأكل في قدور النحاس وصحونه ( ج ) طناجير
المطنزة :  موضع الطنز ويقال قوم مطنزة هانت عليهم أنفسهم لا خير فيهم ( ج ) مطانز
الطهمل :  الجسيم القبيح الخلقة ( ج ) طهامل
المطاح :  اسم مكان من طاح والمسلك  الوعر المهلك ( ج ) مطاوح
المطاد :  المطاح والمطاحة والمفازة البعيدة ما بين الطرفين ( ج ) مطاود
المطيبة :  مكان الطيب ( ج ) مطايب
الظبظبة :  الصوت والجلبة ( ج ) ظاظب
الظر :  الحجر المضرس له حد كحد السكين واحدته ظرة وقطع من الصوان كانت تستعمل في الأزمنة القديمة على أشكال حراب ونصال وفؤوس وما شاكلها ( ج ) ظران وظرار
الظعنة :  السفرة القصيرة ( ج ) ظعن
الأظفور :  مادة قرنية في أطراف الأصابع ( ج ) أظافير وأظافر
الظليمة :  ما أخذ منك ظلما ( ج ) ظلائم
المظلام :  الشديد الظلمة يقال يوم مظلام وأمر مظلام لا يدرى من أين يؤتى ( ج ) مظاليم
الظمء :  ما بين الشربين ( ج ) أظماء وفي المثل ( لم يبق منه إلا قدر ظمء الحمار ) لم يبق من عمره إلا اليسير لأن الحمار قليل الصبر على الظمأ
الظنبوب :  حرف الساق من قدم ويقال قرع لهذا الأمر ظنبوبه جد فيه ولم يفتر ( ج ) ظنابيب ويقال قرع ظنابيب الأمر ذلله وسهله
العبيط :  يقال لحم عبيط طري غير ناضج ودم عبيط طري وزعفران عبيط طري خالص ورجل عبيط أبله غير ناضج ( محدثة ) ( ج ) عبط وعباط
الأعتوبة :  ما تعوتب به ( ج ) أعاتيب
العتيرة :   ذبيحة كانوا يذبحونها لآلهتهم في الجاهلية ( ج ) عتائر
العاثم :  المجبر ( ج ) عثم
العثوة :  اللمة الطويلة ( ج ) عثي
المعجاج :  كل ما يثير الغبار ( للمذكر والمؤنث ) ( ج ) معاجيج
العجار :  ثوب تلفه المرأة على استدارة رأسها ( ج ) عجر
العرجون :  ما يحمل التمر والعذق وهو من النخل كالعنقود من العنب ( ج ) عراجين
العرزال :  المتاع القليل يقال احتمل عرزاله وعريسة الأسد وموضع يتخذه الناطور فوق أطراف النخل والشجر يحتمي فيه من الأسد وفم المزادة والفرقة من الناس ( ج ) عرازيل
المعراض :  التورية والفحوى وأصله الستر يقال عرفت هذا في معراض كلامه ( ج ) معاريض وفي الحديث ( إن في المعاريض لمندوحة عن الكذب )
العسقول :  ضرب من الكمأة أبيض اللون ( ج ) عساقل وعساقيل و ( في علم الزراعة ) جزء من ساق نباتية أو من جذر نباتي يكون جاسيا مكتنزا منتفخا محتويا على مواد غذائية مختزنة كالبطاطس ( مج )
العسيل :  مكنسة العطار التي يكنس بها بلاطه من العطر ( ج ) عسل
العسلاج :  ما لان واخضر من قضبان الشجر والكرم أول ما ينبت ( ج ) عساليج
المعشاب :  أرض معشاب كريمة منبات ذات عشب ( ج )  معاشيب
العشارة :  القطعة من كل شيء ( ج ) عشارات يقال صار القوم عشارات متفرقين في كل مكان
المعش :  المطلب ( ج ) معاش
المعشة :  الأرض الغليظة ( ج ) معاش
العشعش :  العش المتراكب بعضه فوق بعض ( ج ) عشاعش
المعصد :  ما تحرك به العصيدة عند طبخها ( ج ) معاصد
المعصار :  ما يجعل فيه الشيء فيعصر حتى يتحلب ماؤه ( ج ) معاصير
العصعوص :  العصعص ( ج ) عصاعيص
العاطر :  محب العطر ( ج ) عطر
العفريت :  الخبيث المنكر والنافذ في الأمر مع دهاء ( ج ) عفاريت
العفيفة :  المتصفة بالعفة والسيدة الخيرة ( ج ) عفائف
العقبول :  الشديد من الأمور وبقية العلة والعداوة والعشق وما يخرج على الشفة على أثر الحمى ( ج ) عقابيل والعقابيل الدواهي
العقاص :  خيط تشد به أطراف الذوائب ( ج ) عقص
المعقص :  السهم المعوج وآلة يعقص بها الشعر ( محدثة ) ( ج ) معاقص
العاقل :  المدرك ( ج ) عقال وعقلاء وهي عاقلة وعاقل وهن عواقل ودافع الدية ( ج ) عاقلة وعاقلة الرجل عصبته وهم القرابة من جهة الأب الذين يشتركون في دفع ديته
العقاة :  الموضع المتسع أمام الدار أو المحلة أو حولهما ( ج ) عقا
العقي :   شيء يخرج من بطن المولود حين يولد ( ج ) أعقاء
العليف :  ما يعلف للسمن من الدواب ولا يرسل للرعي ( ج ) علائف وهي عليفة ( ج ) علائف
العلول :  ما يعلل به المريض من الطعام الخفيف ( ج ) علل
العلماد :  ما يلف عليه الغزل ( ج ) علامدة وعلاميد
العميت :  الظريف الجريء والحافظ العالم الفطن ( ج ) أعمتة
العميتة :  لفافة الصوف المستطيلة أو المستديرة ( ج ) عمت وأعمتة
العمادة :  الأبنية المرتفعة ( تذكر وتؤنث ) ( ج ) عماد وأهل العماد أصحاب الأبنية العالية الرفيعة ومنصب العميد في الجامعة ( محدثة )
العمروس :  الغلام السمين في غلظ والخروف ( ج ) عماريس
العنصاة :  كل قليل متفرق من نبت وشعر و غيرهما ( ج ) عناص والبقية من كل شيء إذا ذهب معظمه وقطعة من إبل أو غنم
العنصوة :  العنصاة ( ج ) عناص
العنظاب :  الجراد الضخم الأصفر ( ج ) عناظب
المعناق :  الفرس الجيد العنق ( ج ) معانيق
العنيك :  الرمل الكثير المتعقد ( ج ) عنك
العنة :  عجز يصيب الرجل فلا يقدر على الجماع والاعتراض بالفضول والخيمة تتخذ من أغصان الشجر ( ج ) عنن وعنان ويقال لقيته عين عنة اعتراضا في الساعة من غير أن  تطلبه وأعطيته ذلك عين عنة أي خاصة من بين أصحابه
العانية :  مؤنث العاني ( ج ) عوان وفي الحديث ( اتقوا الله في النساء فإنهن عندكم عوان ) أسرى أو كالأسرى
المعادة :  المناحة المعزى ( ج ) معاود يقولون خرجوا إلى المعاود لأنهم يعودون إليها مرة بعد أخرى
العانة :  القطيع من حمر الوحش والشعر النابت في أسفل البطن حول الفرج ( ج ) عون
الأعيس :  من الإبل الذي يخالط بياضه شقرة والكريم منها ( ج ) عيس
العيقة :  الفناء من الأرض وساحل البحر وناحيته ( ج ) عيقات
المعيان :  العيون ( ج ) معايين

Huruf د s/d ش - Kosakata Belum Terdata

2011-11-12T20:42:00.000+07:00

Isim Mufrad dan Jama Taksirnya Diambil dari Kamus Mu'jamul Wasith:

الدؤدؤ : الدأداء ( ج ) دآدي
الدبدبة : كل صوت كوقع الحافر على الأرض الصلبة و مشية العجروف من النمل و عجروف النمل نفسه و الدبداب ( ج ) دبادب
الدبارة : قطعة أرض تستصلح للزرع ( ج ) دبار
الدبسي : ضرب من الحمام ( ج ) دباسي
المدباة : الأرض الكثيرة الدبى ( ج ) مداب
الدجوج : الدجاجي ( ج ) دجج
الدحادح : من الرجال القصير الغليظ البطن ( ج ) دحادح
الدحداحة : مؤنث الدحداح و الدحادح ( ج ) دحاديح
الدحروجة : ما تدحرج و ما يدوره الجعل من فضلاته كالبندقة ( ج ) دحاريج
الداحض : يقال فلان داحض لا ثبات له و لا عزيمة في الأمور ( ج ) دحض
المدحاض : المزلق ( ج ) مداحيض
الداحق : الحامل يخرج رحمها بعد الولادة ( ج ) دواحق
الداحول : ما ينصبه صائد الظباء و غيرها من الخشب و نحوه ليصيدها ( ج ) دواحيل
الدحمسة : يقال ليلة دحمسة مظلمة أو شديدة الظلمة ( ج ) وحامس
الأدحوة : موضع بيض النعام و تفريخه ( ج ) أداح
الأدحي : الأدحوة و أربعة نجوم في وسط النهر مع الخمسة التي في جانبها الآخر ( ج ) أداح
المدحاة : خشبة يدحو بها الصبي فتمر على الأرض لا تأتي على شيء إلا اجتحفته و لعبة يلعب بها أهل مكة و هي أحجار كالأقراص و تحفر حفرة بقدرها يتنحون عنها قليلا ثم يدحون بتلك الأحجار إلى تلك الحفرة فإن وقع فيها الحجر فقد غلب صاحبها و إن لم يقع غلب ( ج ) مداح
الدخرص : ما يوصل به بدن الثوب أو الدرع ليتسع و الداخل في الأمور العالم بها ( ج ) دخاريص
الدخرصة : ما يوصل به بدن الثوب أو الدرع ليتسع و الجماعة ( ج ) دخاريص
الدوخلة : زبيل من خوص يجعل فيه التمر ( ج ) دواخل
الدردح : العجوز و الشيخ الهرم ( للمذكر و المؤنث ) و الذي ذهبت أسنانه و من الإبل التي فيها بقية و قد أسنت و المولع بالشيء ( ج ) درادح
الدردحة : المرأة التي طولها و عرضها سواء ( ج ) درادح
الدردق : الصغير من كل شيء ( ج ) درادق يقال ولدان دردق و درادق
الدرزية : طائفة من الإسماعيلية يقدسون الحاكم بأمر الله الفاطمي ينسبون إلى أبي محمد عبدالله الدرزي ( ج ) دروز و درزة
المدراس : الموضع يدرس فيه كتاب الله و منه مدراس اليهود و دارس كتب اليهود و في حديث اليهودي الزاني ( فوضع مدراسها كفه على آية الرجم ) ( ج ) مداريس
الدرفسة : من النوق الدرفس ( ج ) درافس
الدريكة : الطريدة ( ج ) درائك
الداعرة : المرأة الفاجرة و من النخل التي لم تقبل اللقاح ( ج ) مداعير
الدعص : قطعة من الرمل مستديرة ( ج ) دعصة و أدعاص
الدعصة : الدعص ( ج ) دعص ( جج ) أدعاص
المدعص : يقال رجل مدعص بالرمح طعان و الرمح ( ج ) مداعص
الدافة : الجيش يدف نحو العدو و الجماعة من الناس تقبل من بلد إلى بلد ( ج ) دواف
الدقلة : شاة دقلة ضاوية قميئة ( ج ) دقال
الدقيلة : الدقلة من الشاء ( ج ) دقال و دقائل
الدكداك و الدكدك : أرض فيها غلظ و رمل ذو تراب متلبد ( ج ) دكادك
الدلاخ : من النساء العظيمة العجز ( ج ) دلاخ
الدولع : الدليع و هو الطريق الواسع و يقا طريق دولع سهل في مكان حزن لا صعود فيه و لا هبوط ( ج ) دوالع
الدالي : الهابط و أحد الدلاة و هم قبيلة من الأكراد ( ج ) دلاة و بسر يعلق فإذا أرطب أكل
الدملج و الدملوج : سوار يحيط بالعضد و الحجر الأملس ( ج ) دمالج و دماليج
الدملوق و الدمالق : الأملس التام الاستدارة ( ج ) دماليق
الدهداه : صغار الإبل و الكثير منها ( ج ) دهاده
الدهوك : الرحى ( ج ) دهك
المدهنة : ما يجعل فيه الدهن و نقرة في الجبل يستنقع فيها الماء و كل موضع حفرة سيل ( ج ) مداهن
الديرة : ما استدار من الرمل ( ج ) دير
الديس : الشجاع الشديد الذي يدوس كل من نازله ( ج ) ديسة و جنس أعشاب مائية من الفصيلة السعدية يصنع منه الحصر
المدوسة : خشبة يشد عليها مسن يدوس بها الصيقل السيف حتى يجلوه ( ج ) مداوس
المدوام : ما يسكن به غليان القدر من ماء و عود ( ج ) مداويم
المدوم : المدوام ( ج ) مداوم
المذراع : من الدابة قائمتها و الفرس السابق و من الوادي ناحيته و من المصر ما داناه من القرى الصغار ( ج ) مذارع و مذاريع
المذرف : المدمع ( ج ) مذارف
الذميمة : من الآبار الذمة و زمانة تمنع من الخروج ( ج ) ذمام
المذهل : ما يشغل ( ج ) مذاهل يقال لي مشاغل و مذاهل
الرائس : رأس الوادي و كل مشرف و الوالي و المتقدم من السحاب و رائس الكلاب كبيرها الذي لا تتقدمه في القنص ( ج ) روائس
الرؤمة : الغراء الذي يلصق به ( ج ) رؤم
الربيدة : ما يصان فيه الكتب و السجلات ( ج ) ربائد
الرابض : الأسد و المريض و يقال أسد رابض و رجل رابض و في المثل ( كلب جوال خير من أسد رابض ) ( ج ) ربوض
الريبال : الرئبال و هو الأسد و الذئب و يقال لص رئبال جريء مترصد بالشر و النبات الملتف الطويل و الذي تلده أمه وحده ( ج ) ربابيل و ريابلة
المربال : الأرض الكثيرة الربل ( ج ) مرابيل
الأرت : الألثغ ( ج ) رت
الأرت : البالي ( ج ) رث
الرثنة : الرثمة و هي المطر الخفيف المتقطع ( ج ) رثان
الرجاح : يقال امرأة رجاح عجزاء و امرأة رجاح أيضا رزان و جفنة رجاح مملوءة و كتيبة رجاح جرارة ثقيلة ( ج ) رجح
المرجاح : الحليم و من الشجر الثقيلة الحمل و ما يترجح في سيره و يقال جمل مرجاح و ناقة مرجاح ( ج ) مراجيح
المرجوحة : الأرجوحة ( ج ) مراجيح
الراجعة : الغدير و نوع من الحمى تذهب و ترجع ( ج ) رواجع و الرياح الرواجع المختلفة لمجيئها و ذهابها
الرجاع : الزمام و ما وقع منه على أنف البعير ( ج ) أرجعة و رجع
الإرجاف : الخبر الكاذب المثير للفتن و الاضطراب ( ج ) أراجيف و الأراجيف ( في السوق التجارية ) شوائع تنشر للتأثير في الأسعار ( مج )
المرجونة : وعاء صغير من خوص واسع الأسفل ضيق الأعلى ( ج ) مراجين و يقال هم في مرجونة في اختلاط و ارتباك لا يدرون أيقيمون أم يظعنون
المرحضة : شيء يتوضأ فيه ( ج ) مراحيض
الراحول : الراحل ( ج ) رواحيل
الرحم و الرحم و الرحم : موضع تكوين الجنين و وعاؤه في البطن و القرابة أو أسبابها ( يذكر و يؤنث ) ( ج ) أرحام و ذوو الأرحام الأقارب الذين ليسوا من العصبة و لا من ذوي الفروض كبنات الإخوة و بنات الأعمام
الرحا و الرحى : الأداة التي يطحن بها و هي حجران مستديران يوضع أحدهما على الآخر و يدار الأعلى على قطب ( ج ) أرح و أرحاء و رحي و أرحية و الصدر و من الظفر ما حوله و الضرس ( ج ) أرحاء و رحى الحرب حومتها و يقال دارت رحى الحرب نشبت و دارت عليه رحى الموت مات و جماعة العيال و من الإبل الكثيرة المزدحمة و رحى القوم سيدهم الذي يصدرون عن رأيه و رحى السحاب المستدير منها و من الأرض المستديرة المشرفة على ما حولها
الأرخية : ما أرخي من شيء ( ج ) أراخي
الردب : الطريق الذي لا ينفذ كالدرب و ( في التشريح ) جيب يخرج من عضو أنبوبي ( مج ) ( ج ) ردوب
الردج : أول ما يخرج من بطن الصبي و المهر و السخلة قبل أن يأكل شيئا ( ج ) أرداج
الردوح : من النساء الرداح ( ج ) ردح
الرديد : المردود و القبيح يقال وجه رديد و السحاب أريق ماؤه و العضو المكتنز المجتمع ( ج ) ردد
الأردع : من الغنم الذي صدره أسود و باقيه أبيض ( ج ) ردع
الرادع : القميص به أثر طيب ( للمذكر و المؤنث ) ( ج ) روادع
الردعاء : مؤنث الأردع ( ج ) ردع
الرادفة : النفخة الثانية في الصور يوم القيامة و في التنزيل العزيز ) يوم ترجف الراجفة تتبعها الرادفة ( و العجز ( ج ) روادف
الرديمة : مؤنث الرديم و ثوبان يخلط بعضهما ببعض نحو اللفاق ( ج ) ردم
الروذق : الحمل الذي يسمط صوفه بالماء الحار ليشوى بما فيه و ما طبخ من لحم و خلط بالتوابل و الجلد المسموط ( ج ) رواذق
المرزيح : الصوت ( ج ) مرازيح
المرزخة : كل ما طعن به ( ج ) مرازخ
الرزقة : الرزق و ما يعطاه الجند في المرة الواحدة ( ج ) رزقات
الرزقة : أرض أو غيرها مما يغل يصرف ريعها على المسجد و خدمه ( مو ) ( ج ) رزق
المرزام : العصا القصيرة ( ج ) مرازيم
المرسب : من السيوف الرسوب ( ج ) مراسب
الرستاق : الرزداق ( مع ) ( ج ) رساتيق
الزس : المعدن و البئر التي لم تطو و بئر كانت لثمود و بدء الشيء يقال به رس الحمى أول مسها و رس الحب بقيته و أثره و رس من الخبر طرف منه أو أوله ( ج ) رساس
المرسن : الأنف و موضع الرسن من أنف الدابة و يقال فعلت ذلك على رغم مرسنه و يقال سلس مرسنه سلس قياده ( ج ) مراسن
الرسوة : السوار المنبسط غير الملوى و السوار من الخرز ( ج ) رسوات
المرشف : موضع الرشف ( ج ) مراشف
الراشوم : الطابع ( ج ) رواشيم
الروشم : أول ما يظهر من النبت و الطابع أو الخاتم الذي تختم به الحبوب و نحوها أو اللوح الذي ترشم به الحبوب المجموعة ( ج ) رواشم ( و انظر الروسم )
المرشم : الأرشم ( ج ) مراشم
الرصفة : واحدة الرصاف أو الرصف و في حديث المغيرة ( لحديث من عاقل أحب إلي من الشهد بماء الرصفة ) و الرصافة و عصبة في رضفة الركبة أو عين الركبة و هما رصفتان ( ج ) رصف ( جج ) أرصاف
الراصن : المحكم الثابت ( ج ) رواصن
المرضب : الريق العذب ( ج ) مراضب
المرضاح : ما يرضح به أي يرض و يكسر ( ج ) مراضيح
المرضحة : المرضاح ( ج ) مراضح
المرضخة : المرضاخ ( ج ) مراضخ
الرضوعة : المرضعة يقال شاة رضوعة ( ج ) رضائع
المرضافة : الرضفة يكوى بها ( ج ) مراضيف
الرضمة : الحجر أو الصخرة العظيمة ( ج ) رضم و رضام
الرضمة : ( ج ) رضم و رضام
الأرعب : القصير ( ج ) رعب
المرعبة : موضع الرعب و الفزع و الوثبة المخيفة و هي أن يثب أحد فيقعد عندك و أنت غافل عنه فتفزع ( ج ) مراعب
الرعبب : من النساء الرعبوب ( ج ) رعابيب
الأرعوثة : حجر في أعلى البئر يقف عليه المستقي ( ج ) أراعيث
الراعوثة : الأرعوثة ( ج ) رواعيث
الرعثاء : يقال شاة رعثاء تحت أذنيها زنمتان و عنب له حب طوال ( ج ) رعث
الراعد : يقال سحاب راعد ذو رعد و هي راعدة يقال سحابة راعدة و في المثل ( رب صلف تحت الراعدة ) لمن يكثر الكلام و لا خير عنده ( ج ) رواعد و ذات الرواعد الداهية
الرعديدة : الرعديد من الرجال و النساء ( ج ) رعاديد
الأرعوفة : صخرة بارزة تكون على رأس البئر يستقى عليها أو في أسفلها يجلس عليها منقي البئر أو في داخلها كالأنف لا يمكن إزالتها ( ج ) أراعيف
الرغس : النماء و الخير و البركة ( ج ) أرغاس
الرغس : الغرس و هو المشيمة أو ما يخرج مع المولود كأنه مخاط ( ج ) أرغاس
الرغلة : الجلدة التي تقطع في الختان ( ج ) رغل
الرغاوى : ما يعلو السوائل عند غليانها أو رجها أو ذوبان شيء فيها ( ج ) دغاوى
الرفيدة : تقول هو رفيدة صدق عون ( ج ) رفائد
الرفرفة : واحدة الرفرف ( على أنه اسم جمع ) و في التنزيل العزيز ) متكئين على رفرف خضر وعبقري حسان ( على وسائد و نمارق يقال أقعدني على رفرفة بين يديه ( ج ) رفارف
الرفوس : يقال دابة رفوس شأنها الرفس ( يستوي فيه المذكر و المؤنث ) ( ج ) رفس ( للمذكر ) و رفس و رفائس ( للمؤنث )
المرفس : المدق ( ج ) مرافس
المرفض : مجرى الماء و مسيله و مسقطه ( ج ) مرافض
الرفغ : اللين و السهولة و السعة و الخصب و المكان الخصب أو الجدب و كل موضع يجتمع فيه الوسخ من البدن و اللئيم السافل ( ج ) أرفغ و رفوغ
الرفغ : كل موضع يجتمع فيه الوسخ من البدن ( ج ) أرفغ و رفوغ
الرفافة : التي تجعل أسفل بيضة الرأس ( ج ) رفائف
المرفلة : الحلة الطويلة يرفل فيها ( ج ) مرافل
المرقبة : المرقب ( ج ) مراقب
المرقصة : المرقص ( ج ) مراقص
الراقن : الحسن اللون و هي راقنة ( ج ) رواقن
الرقوة : الرقو و الدرجة ( ج ) رقا
الراكبة : مؤنث الراكب ( ج ) رواكب و رواكب الشحم طرائق متراكبة في مقدم السنام و من النخل الراكب
الراكوب : من النخل الراكب ( ج ) رواكيب و رواكب الشحم رواكبه
الركح : الركن و الناحية و الجانب و الناحية المشرفة على فضاء و الساحة و الفناء و الأساس و بيت الراهب ( ج ) أركاح و ركوح
الركحاء : الأرض الغليظة المرتفعة ( ج ) ركح
الركحة : الساحة و الفناء و قطعة من الثريد تبقى في الإناء ( ج ) ركح و ركح
المركاح : الذي يتأخر عن ظهر الدابة يقال رجل مركاح و سرج مركاح و هي مركاح أيضا ( ج ) مراكيح
الراكدة : الأثفية ( ج ) رواكد و يقال رياح رواكد ساكنة
الركاس : حبل يشد في خطم الجمل إلى يده أو يديه فيضيق عليه فيبقى رأسه معلقا ليذل ( ج ) ركس و أركسة
المركضة : الركاضة أو الفرس التي تركض الأرض بحوافرها و من القوس مركضها و هما مركضتان ( ج ) مراكض
الرامس : من الطير و الدواب ما يطير و ما يخرج في الليل ( ج ) روامس
الرامسة : الريح التي تثير التراب و تدفن الآثار ( ج ) روامس
المر ماة : سهم صغير ضعيف أو سهم يتعلم به الرمي و الظلف ( ج ) مرام
الرهابة : غضروف كاللسان معلق في أسفل الصدر مشرف على البطن ( ج ) رهاب
الرهينة : ما يرهن و في التنزيل العزيز ) كل نفس بما كسبت رهينة ( ( ج ) رهائن و أنا لك رهينة بكذا ضامن
المرهاة : السريعة السير يقال فرس مرهاة ( ج ) مراه
الروبان : من الرجال الرائب ( ج ) روبى
المرواح : ما يذرى به القمح في الريح ( ج ) مراويح
الراوول : الرائل و اللعاب ( ج ) رواويل
المروى : القناة يسقى منها الزرع ( ج ) مراو
المروي : الرواء ( ج ) المراوي
الرائطة : الملاءة كلها نسج واحد و قطعة واحدة و كل ثوب لين رقيق و يقال خرج مشتملا بريطة الظلماء و يقال أيضا فلان يجر رياط الحمد ( ج ) ريط و رياط
الريع : المرتفع من الأرض و الطريق ( ج ) ريوع و أرياع و رياع
الزبرقان : البدر ليلة تمامه و الخفيف اللحية و من الشيء بريقه ( ج ) زباريق
الزجال : الرامي ( ج ) زجالة و ناظم الزجل
الزربية : الوسادة تبسط للجلوس عليها ( ج ) زرابي و في التنزيل العزيز ) وزرابي مبثوثة ( و زرابي النبات ما بدا فيه اليبس فاحمر أو اصفر و فيه خضرة
المزلاج : المغلاق إلا أنه يفتح باليد و المغلاق لا يفتح إلا بالمفتاح و يقال امرأة مزلاج قليلة لحم الوركين و الفخذين ( ج ) مزاليج
المزلف : المرقاة ( ج ) مزالف
الزلقوم : الحلقوم و الخرطوم للفيل ( ج ) زلاقيم
الزلية : نوع من البسط ( ج ) زلالي
الزاملة : مؤنث الزامل و ما يحمل عليه من الإبل و غيرها ( ج ) زوامل و تسند إلى العقلاء فيقال هو زاملة من زوامل القلم و الدواة أو الشعر و النثر على التشبيه في التحمل أو عدم الدراية
المزواج : الكثير الزواج و يقال امرأة مزواج أيضا ( ج ) مزاويج
الزوعة : الخفيف السريع و الفرقة من الناس و القبضة من اللحم و اللمعة من النبات ( ج ) زوع
الزانة : شبه مزراق كان يرمى بها الديلم و ( في الرياضة البدنية ) عمود أسطواني يحفظ به التوازن أو يستعان به على القفز ( محدثة ) ( ج ) زان
الأسبوية : ما يتساب به ( ج ) أسابيب
السببية : الثوب الرقيق و الخصلة من الشعر و الشقة الرقيقة من الكتان ( ج ) سبائب يقال امرأة طويلة السبائب الذوائب و سبائب الدم طرائقه
السبت : يوم من أيام الأسبوع و الدهر أو برهة منه يقال أقمنا سبتا و الراحة و النوم و الكثير النوم و الغلام الجريء و من الخيل ما كان جوادا كثير العدو ( ج ) سبوت و أسبت
السبيخة : القطعة من القطن تعرض ليوضع فيها الدواء و توضع فوق الجرح أو القطن المنفوش و ما لف منه بعد الندف للغزل و ما تناثر من ريش الطائر ( ج ) سبيخ و سبائخ
السبروت : الشيء القليل التافه و الفقير و المسكين و الغلام الأمرد و من الأرض القفر وهي سبروتة ( ج ) سباريت و يقال أيضا أرض سباريت كما يقال ثوب أخلاق
السبريت : السبرات و هي سبريتة ( ج ) سباريت
السبيع : السبع ( ج ) أسباع
التسبغة : تسبغة الخوذة ما توصل به من حلق الدروع فتستر العنق ( ج ) تسابيغ
السابياء : المشيمة التي تخرج مع الولد و المواشي و نتاجها و كثرتها و كثرة المال و الرجال ( ج ) سوابي
الساجدة : مؤنث الساجد و يقال عين ساجدة فاترة و نخلة ساجدة مائلة ( ج ) سواجد
المسجرة : المسجر ( ج ) مساجر
السجاف : الستر و ما يركب على حواشي الثوب ( محدثة ) ( ج ) سجف
السحتوت : السويق القليل الدسم و المفازة اللينة التربة و الثوب الخلق ( ج ) سحاتيت
السحوف : السمينة التي يقشر الشحم عن ظهرها ( ج ) سحف و صوت الرحى و صوت اللبن عند الحلب
السحوق : الطويل و الطويلة يقال عود سحوق و نخلة سحوق و امرأة سحوق ( ج ) سحق
المسحن : أداة يدلك بها الخشب حتى يملاس ( ج ) مساحن
الأسحية : كل قشرة على مضائغ اللحم من الجلد ( ج ) أساحي
السخاب : القلادة تتخذ من قرنفل وسك و محلب ليس فيها من اللؤلؤ و الجوهر شيء و يقال وجدته مارث السخاب أي وجدته مثل الطفل لا علم له ( ج ) سخب
السادحة : السحابة الشديدة ( ج ) سوادح
السروح : من الإبل و الخيل السريعة المشي ( ج ) سرح
السريحة : كل قطعة من خرقة ممزقة و دم سائل مستطيل يابس ( ج ) سريح و سرائح و الطريقة الظاهرة المستوية من الأرض الضيقة و هي أكثر نبتا و شجرا مما حولها فتراها مستطيلة شجيرة و ما حولها قليل الشجر ( ج ) سرائح
السارقة : الغل و مسمار في القيد ( ج ) سوارق
السراة : سراة كل شيء أعلاه و وسطه و معظمه و سراة النهار وقت ارتفاعه و وسطه و سراة الطريق معظمه ووسطه و سراة الفرس أعلى متنه ( ج ) سروات ( ولا يكسر )
السراويل : يغطي السرة و الركبتين و ما بينهما ( يذكر و يؤنث ) ( ج ) سراويلات
السطاع : أطول عمود في الخيمة ( ج ) أسطعة و سطع
السغن : الغذاء الرديء ( ج ) أسغان يقال هم يتعيشون بالأسغان
السفسافة : الريح التي تثير التراب و تجري فويق الأرض ( ج ) سفاسيف
السفيفة : النسيجة من الخوص ( ج ) سفائف
السفكة : ما يتعلل به من طعام قبل الغداء ( ج ) سفك
المسفن : السفن ( ج ) مسافن
السقد : الفرس المضمر ( ج ) أسقاد
السقدة : طائر من القواطع صغير الحجم رشيق الجسم له منقار صلب أسود يلتقط به الحشرات ظهره رمادي و أطراف ريشه بنية و البطن أبيض و الصدر و العجز و الذيل و الأقدام حمر و يستوطن أوربة و سيبيرية ( مج ) ( ج ) سقد
المسقار : من النخيل التي يسيل سقرها ( ج ) مساقير
السقالة : ( انظر إسقالة في باب الهمزة ) ( ج ) سقائل
المسقمة : أرض مسقمة تكثر فيها الأسقام ( ج ) مساقم
المسكبة : أداة السكب يقال أرسل الماء في المسكبة ( ج ) مساكب
السكة : السطر المصطف من الشجر و النخيل و الطريق المستوي و سكة الحديد طريق معبد عليه قضيبان من الحديد متوازيان تسير عليهما القطر الآلية ( محدثة ) و الزقاق و حديدة منقوشة تضرب عليها النقود و حديدة المحراث التي يحرث بها و يقال أخذ الأمر بسكته أي في حين إمكانه و فلان صعب السكة لا يقر لنزق فيه ( ج ) سكك و أصحاب السكك رجال البريد
السكل : سمكة سوداء ضخمة في طول ( ج ) أسكال و سكلة
الساكنة : مؤنث الساكن ( ج ) سواكن و سكان الدار
الأسلت : الأجدع ( ج ) سلت
السليجة : الساجة التي يشق منها الباب ( ج ) سلائج
السالخ : من الحيات الأسود الشديد السواد يقال أسود سالخ ( ولا يقال للأنثى سالخة و إنما يقال أسودة ) و هو أقتل ما يكون من الحيات سمي بذلك لأنه يسلخ جلده كل عام ( ج ) سوالخ و سلخ و جرب يسلخ جلود الجمال و نحوها
المسلق : السلاق ( ج ) مسالق
السلة : المرة من السل يقال أتيناهم عند السلة أي عند استلال السيوف و السرقة يقال ( الخلة تدعو إلى السلة ) الفقر أو الاحتياج يدعو إلى السرقة و شقوق في الأرض تسرق الماء و من الفرس دفعته في السير أو السباق و السل ( ج ) سلال
السلهاب : المرأة الجريئة و المقدمة ( ج ) سلاهيب
السلهم : الضامر و الناقة من المرض ( ج ) سلاهم
المسلى : السلو ( ج ) مسال
المسماح : الكثير السماح ( ج ) مساميح
السمحاق : جلدة أو قشرة رقيقة فوق عظم الرأس و السلى على الجنين و يقال عل ثرب الشاة و نحوها سماحيق من شحم شيء رقيق كالقشر و القطعة الرقيقة من الغيم ( على التشبيه ) و الشجة التي بلغت الجلدة الرقيقة فوق العظم و أثر الختان ( ج ) سماحيق و سمحاق سنوخ الأسنان الغشاء المبطن للتجويف السنخي الذي يغطي جذور الأسنان ( مج )
السمحوق : الطويل الدقيق و النخلة الطويلة ( ج ) سماحيق
السمرج : تقسيط الخراج ثلاثة أقساط في السنة ( ج ) سمارج ( مع )
السمطاء : من القصائد المسمطة ( ج ) سمط
السميق : السميقان عودان في النير قد لوقي بين طرفيهما يحيطان بعنق الثور كالطوق ( ج ) أسمقة
السمة : كل شيء كالودع يستخرج من البحر و ينظم للزينة و سفرة من الخوص تبسط تحت النخلة إذا جذت ليسقط ما تناثر من الرطب و التمر عليها و القرابة الخاصة و جمارة النخلة ( ج ) سمم و سمام
السنب : من الخيل الكثير الجري الجواد ( ج ) سنوب
السنبوك : السنبوق ( ج ) سنابيك
السنسن : العطش و رأس المحالة و حرف فقار الظهر و طرف الضلع التي في الصدر ( ج ) سناسن و يقال جاءت الريح سناسن أي على وجه واحد و طريقة واحدة
السنسنة : رأس المحالة و حرف قفار الظهر و طرف الضلع التي في الصدر ( ج ) سناسن
السنعبة : ابن عرس و اللحمة الناتئة في وسط باطن الشفة العليا ( ج ) سناعب
المسناف : المتقدم في السير و الضامر الهزيل ( ج ) مسانف
السنيق : البيت المجصص و كوكب أبيض ( ج ) سنانيق
السنام : كتل من الشحم محدبة على ظهر البعير و الناقة و من كل شيء أعلاه و من الأرض وسطها و من القوم شريفهم و يقال سنام الرجل علوه و شوكته ( ج ) أسنمة
السنمة : من النبات ما يعلو رأسه كالسنبل و نوره و رأس شجرة من دق الشجر يكون على رأسها كهيئة ما يكون على رأس القصب إلا أنه لين تأكله الإبل خضما و كل شجرة لا تحمل و ذلك إذا جفت أطرافها و تغيرت ( ج ) سنم
السهبة : البئر البعيدة القعر ( ج ) سهاب
المسهاف : الشديد العطش يقال ناقة مسهاف ( ج ) مساهيف
المسهفة : مدعاة السهف يقال طعام مسهفة إذا كان يبعث على كثرة الشرب و ممر الريح ( ج ) مساهف
المسوجة : اسم آلة للحائك يسوج بها نسيجه و المرشة ( ج ) مساوج
السودق : الصقر أو الشاهين ( مع ) ( ج ) سوادق
المسورة : المسور ( ج ) مساور
المسواط : خشبة أو غيرها يحرك بها ما في القدر و غيرها ليختلط و فرس لا يعطى حضره إلا بالسوط ( ج ) مساويط
المسوط : المسواط ( ج ) مساوط
المسياع : المضياع يقال هو مسياع مضياع و الناقة التي تذهب في المرعى بلا راع ( ج ) مساييع
السيقة : ما يساق من الدواب و ما استاقه العدو من الدواب و يقال المرء و نحوه سيقه القدر يسوقه القدر إلى ما قدر له لا بعدوه ( يستوي فيه المذكر و غيره ) و الدريئة يستتر فيها الصائد ( ج ) سيائق
المسوق : البعير يستتر به الصائد ليختل الصيد ( ج ) مساوق
المسوقة : عصا تساق بها الدابة ( ج ) مساوق
المسواك : السواك ( ج ) مساويك
المسياح : الذي يسيح في الأرض بالنميمة و الشر ( ج ) مساييح
الشؤبوب : الدفعة من المطر و الشدة من كل شيء و شؤبوب الشمس شدة حرها و شؤبوب الفرس شدة عدوه ( ج ) شآبيب
الشتيت : المتفرق و ثغر شتيت مفلج ( ج ) شتى و يقال أشياء شتى من غير جنس واحد و في التنزيل العزيز ) إن سعيكم لشتى ( و قوم شتى و في التنزيل العزيز ) تحسبهم جميعا وقلوبهم شتى (
الشاجن : الوادي الكثير الشجر و الطريق في الوادي ( ج ) شواجن
الشخبة : الشخب ( ج ) شخاب
الشادي : المغني و طالب الأدب و العلم ( ج ) شداة
الشريجة : وعاء ينسج من سعف النخل يحمل فيه البطيخ و ما أشبهه و جديلة من قصب تتخذ للحمام ( ج ) شرائج
المشرطة : المشرط ( ج ) مشارط
المشرعة : شريعة الماء ( ج ) مشارع
الشاروف : المكنسة ( مع ) ( ج ) شواريف
المشريق : شعاع من الضوء يدخل من شق الباب و نحوه و الشق نفسه ( ج ) مشاريق
الش راك : الطريقة من الكلأ الأخضر تكون منقطعة عن غيرها و سير النعل على ظهر القدم ( ج ) شرك و أشرك
الشزيب : القضيب من الشجر قبل أن يصلح ( ج ) شزوب
الشعيل : المشتعل و هي شعيلة ( ج ) شعل و شعائل
المشعال : اسم آلة الشعل و الإيقاد و الإضرام ( ج ) مشاعل
الشقدة : عشبة كثيرة اللبن و الإهالة و يقال لها القشدة أيضا ( ج ) شقذ
الشقدف : مركب أكبر من الهودج يستعمله العرب و كان يركبه الحجاج إلى بيت الله الحرام ( ج ) شقادف
المشقر : من الرمل الصلب الجامد و الممتد داخل الأرض ( ج ) مشاقر
المشكار : الحلوب الغزيرة اللبن ( ج ) مشاكير
المشكرة : من العشب و غيره ما تتغذى به الدواب فيسمنها و يغزر لبنها ( ج ) مشاكر
الشاكوش : المطرقة الصغيرة ( ج ) شواكيش ( د )
الشامذ : العقرب لرفعها ذنبها ( ج ) شمذ و شوامذ
الشمذة : شجرة تعد لتمتد عليها شجرة متسلقة ( ج ) شمذ و شماذ
المشمعة : المزاح و الطرب و مصنع الشمع ( ج ) مشامع
المشمال : الشملة يتلفف بها ( ج ) مشاميل
الشنباء : من الرمان التي ليس لحبها بزر ( ج ) شنب
الأشنج : المتقبض ( ج ) شنج
الشنعاء : يقال فعلة شنعاء قبيحة بالغة القبح ( ج ) شنع
الشانة : مسيل الماء إلى الوادي ( ج ) شوان
الشاهين : طائر من جوارح الطير وسباعها من جنس الصقر ( مع ) و عمود الميزان ( مع ) ( ج ) شواهين و شياهين
الشائبة : الشيء الغريب يختلط بغيره و يقال ما فيه شائبة ليس فيه شبهة و الدنس و القذر و نحوهما ( ج ) شوائب و يقال فلان بريء من الشوائب ليس فيه ما يعيبه
الشائل : كل ما ارتفع و الناقة اللاقح التي تشول بذنبها للفحل ( ج ) شول و شوال
الشائلة : مؤنث الشائل و يقال فرس شائلة و من النوق التي خف لبنها فارتفع ضرعها بعد الوضع أو الحمل ( ج ) شوائل
المشوال : آلة الرفع ( ج ) مشاويل
المشولة : المشول ( ج ) مشاول
المشوى : موضع الشي ( ج ) مشاو
الأشيب : ذو الشيب و يقال جبل أشيب سقط عليه الثلج و يوم أشيب فيه غيم و برد و هي شيباء ( ج ) شيب و الليلة الشيباء آخر ليلة من الشهر
الشيظم : الأسد و الطويل و الطلق الوجه ( ج ) شياظم وشياظمة
الشائعة : الخبر ينتشر و لا تثبت فيه ( ج ) شوائع
المشياع : مبالغة في المشيع ( ج ) مشاييع

Huruf ت s/d خ - Kosakata Belum Terdata

2011-11-12T20:36:00.000+07:00

Isim Mufrad dan Jama Taksirnya Diambil dari Kamus Mu'jamul Wasith:

التوءم : التؤم و يقال هما توءم و هما توءمان ( ج ) توائم و تؤام و يجمع في العقلاء جمعا سالما أيضا و توائم النجوم و اللآلئ ما تشابك منها
التوءمة : مركب من مراكب النساء أصغر من الهودج لا ظلة له ( ج ) توائم
التاجرة : مؤنث التاجر و يقال سلعة تاجرة رائجة ( ج ) تواجر
الترتور : التورور ( ج ) تراتير
الأترور : التورور و الغلام الصغير ( ج ) أتارير
الترمسة : واحدة الترمس و السرداب تحت الأرض ( ج ) ترامس
المتفحة : بستان التفاح ( ج ) متافح
المتفلة : الوعاء يبصق فيه ( ج ) متافل
التولب : ولد الأتان من الحمار الوحشي إذا استكمل الحول و الجحش ( ج ) توالب
التلتلة : الشدة و غلاف الطلع يجعل إناء للشرب ( ج ) تلاتل و كسر حرف المضارعة في لغة بهراء
المتلاف : المتلف ( ج ) متالف و يقال فلان مخلاف متلاف مخلف متلف
المتلة : المتلفة من الفلوات ( ج ) متاله
المتلهة : المتلة ( ج ) متاله
التنبالة : التنبال ( ج ) تنابيل
التنتال : القصير ( ج ) تناتيل
التنتيل : التنتال ( ج ) تناتيل
التنبالة : التنبال ( ج ) تنابيل
التنتال : القصير ( ج ) تناتيل
التنتيل : التنتال ( ج ) تناتيل
الثبت : الحجة و الصحيفة يثبت فيها الأدلة و ثبت المحدث ما يجمع فيه مروياته و أسماء شيوخه و فهرس الكتاب و رجل ثبت حجة يوثق به ( ج ) أثبات
الثبان : ما تثنيه من طرف ثوبك فتجعل فيه شيئا تحمله ( ج ) ثبن
الثبنة : وعاء تحفظ فيه الفاكهة ( ج ) ثبن
الثبين : الثبان ( ج ) أثبنة
الثبة : الجماعة و الجماعة من الفرسان خاصة ( ج ) ثبون وثبات و في التزيل العزيز ) فانفروا ثبات أو انفروا جميعا (
الأثجر : السهم الغليظ الأصل القصير ( ج ) ثجر
الثعر : ما يسيل من شجر السمر كالصمغ و هو سم قاتل و إذا قطر في العين منه شيء مات الإنسان وجعا ( ج ) أثعار
الثعلول : السن الزائدة على الأسنان و ذات الضرع زادت حلماتها على طبيعتها و الرجل الغضبان ( ج ) ثعاليل
الثغامة : شجرة بيضاء الثمر و الزهر تنبت في قنة الجبل و إذا يبست اشتد بياضها ( ج ) ثغام
الثفاءة : حبة الخردل ( ج ) ثفاء و في الحديث ( ماذا في الأمرين من الشفاء الصبر و الثفاء )
الثفروق : قمع التمرة و علاقة ما بين النواة و القمع و الشمروخ يبقى عليه قليل من التمر ( ج ) ثفاريق
الثلث الثلث : جزء من ثلاثة أجزاء من الواحد ( ج ) أثلاث و خط الثلث ضرب من ضروب الخط العربي عرض قطته ثماني شعرات من شعر البرذون و هو ثلث خط الطومار
الثليث : الثلث ( ج ) أثلاث
الثملة : الثمالة و الصوفة أو الخرقة تغمر في الدهان فيدهن بها ( ج ) ثمل
المثمة : المثم ( ج ) مثام
الثمن الثمن : الجزء الواحد من ثمانية ( ج ) أثمان
الجئاوة : شيء من جلد و نحوه توضع عليه القدر ( ج ) جئاء
الجثيثة : فسيلة النخل ( ج ) جثيث
الجحة : الشجرة تنبسط على وجه الأرض ( ج ) جح
الجحشة : أنثى الجحش و حلقة من صوف أو وبر تجعل في الذراع و تغزل ( ج ) جحاش
المجداب : الأرض التي لا تكاد تخصب ( ج ) مجاديب
المجذ : طرف المرود ( ج ) مجاذ
المجذام : رجل مجذام قاطع للأمور فيصل و سريع القطع للمودة و رجل مجذام الركض في الحرب سريع الركض فيها ( ج ) مجاذيم
الجذاة : أصل الشجرة العظيمة ( ج ) جذاء
الجرعاء : الأجرع ( ج ) جرعاوات
الجازئة : من النخل التي استغنت عن السقي ( ج ) جوازي
الجزأة : أصل مغرز الذنب و مقبض السكين و خشبة يرفع بها الكرم عن الأرض ( ج ) جزأ
الجزوز : ما يجز من الغنم ( يستوي فيه المذكر و المؤنث ) ( ج ) جزر
الجازية : الثواب و العقاب ( ج ) جواز
الجاسة : الحاسة ( من الحواس الخمس ) ( ج ) جواس
الجشء : الكثير و القوس الخفيفة الكثيرة الإرنان ( ج ) أجشاء
الجعثن : أصول الشجر و النبات ( ج ) جعائن
الجعثنة : واحدة الجعثن و من الرجال الجبان الثقيل ( ج ) جعائن
الجعيلة : الجعل ( ج ) جعائل
الجالبه : الآفة و الشدة ( ج ) جوالب
الجلباب : القميص و الثوب المشتمل على الجسد كله و الخمار و ما يلبس فوق الثياب كالملحفة و الملاءة تشتمل بها المرأة ( ج ) جلابيب و في التنزيل العزيز ) يدنين عليهن من جلابيبهن (
المجلاح : السنة التي تذهب بالمال ( ج ) مجاليح
الجليفة : الجالفة و المجلوفة ( ج ) جلائف
الجلمدة : من الأرض ذات الحجارة و من الرجال الجلمد و البقرة ( ج ) جلامد
الجلمق : القباء ( ج ) جلامق
الجلاهق : الطين المدور الأملس و البندق الذي يرمى به ( ج ) جلاهق ( فارسي معرب )
الجمزة : كم النبت الذي فيه الحبة و الكتلة من التمر و الأقط ( ج ) جمز
الجمهرة : من كل شيء معظمه ( ج ) جماهر
الجمهورة : من الرمل جمهوره ( ج ) جماهير
الجنجن و الجنجن : عظم الصدر ( ج ) جناجن
الجنجنة و الجنجنة : الجنجن ( ج ) جناجن
الجنجون : الجنجن ( ج ) جناجين
المجنحة : قطعة جلد تطرح على مقدم الرحل يجتنح الراكب عليها ( ج ) مجانح
المجنونة : النخلة المفرطة الطول ( ج ) مجانين
الجهباذ : النقاد الخبير بغوامض الأمور ( مع ) ( ج ) جهابذة
الجهيرة : جهيرة الإنسان علانيته ( ج ) جهائر
الجاهضة : الجحشة الحولية ( ج ) جواهض
المجوعة : المجاعة ( ج ) مجاوع
الجوافة : ضرب من السمك و ليس من جيده ( ج ) جواف و في حديث مالك بن دينار ( أكلت رغيفا و رأس جوافة فعلى الدنيا العفاء ) و ضرب من الفاكهة يشبه الكمثرى دخلت مصر حديثا من أمريكة ( د ) ( وتفتح العامة جيمها )
الجامة : الجام ( ج ) جام و جامات
الحباتر و الحبتر : القصير ( ج ) حباتر
الحباسة : شبه حوض يجمع فيه الماء ( ج ) حبائس
الأحبش : الحبش ( ج ) أحابش
الأحبوش و الأحبوشة : الجماعة من الناس اختلفت أجناسهم ( ج ) أحابيش و أحابيش قريش جماعة من قريش و كنانة و خزاعة اجتمعوا عند حبشي و هو جبل بأسفل مكة و تحالفوا
الأحبول و الأحبولة : المصيدة ( ج ) أحابيل
الحبناء : من الحمام التي لا تبيض ( ج ) حبن
الحبنة : الحبن ( ج ) حبن
الحتود : من العيون التي لا ينقطع ماؤها ( ج ) حتد و يقال عين حتد
الحاثياء : تراب جحر اليربوع و جحر اليربوع ( ج ) حواث
الحاجور : الحاجر و الحرام ( ج ) حواجير
الأحجوة : الكلمة يخالف معناها لفظها ( ج ) أحاجي
الحادور : الأحدور و القرط في الأذن و الدواء يمشي البطن ( ج ) حوادير
الأحدوة و الأحدية : الأغنية يحدى بها ( ج ) أحادي
الحذفار و الحذفور : الجانب و الناحية ( ج ) حذافير و يقال أخذ الشيء بحذافيره بأسره أو بجوانبه و نواحيه
المحذى : الشفرة التي يحذى بها ( ج ) محاذ
الحريبة : حريبة الرجل ماله الذي يعيش منه و السلب في الحرب ( ج ) حرائب
المحراث و المحرث : آلة الحرث و الحديدة تحرك بها النار و يقال هو محراث حرب مولع بإثارتها ( ج ) محاريث
المحراش : المحجن ( ج ) محاريش
الحرشف : فلوس السمك و ما يزين به السلاح من فضة و نحوها ( على التشبيه ) و صغار الطير و الحيوان و الجراد لم تنبت أجنحته و من الناس الشيوخ أو الضعفاء و من الجيش المشاة و جنس نبات خشن من الفصيلة المركبة ( و انظر خرشوف ) ( ج ) حراشف
الإحريض : العصفر و من الرجال الساقط الذي لا يقدر على النهوض و الذي لا خير فيه ( ج ) أحاريض
الحرضة : من الرجال الفاسد المتروك ( ج ) حرض
الحرقوص : دويبة نحو البرغوث و نواة البسرة الخضراء و طرف السوط ( ج ) حراقيص
الحرقفة : عظم رأس الورك ( ج ) حراقف
الحرككة : رأس الورك أو طرفه مما يلي الأرض حين القعود ( ج ) حراكك و حراكيك
المحرمة و المحرمة : ما يحرم انتهاكه من عهد أو ميثاق أو نحوهما و زوجة الرجل و عياله و ما يحميه ( ج ) محارم
الحرمس : الحرماس و يقال سنة حرمس شديدة مجدبة ( ج ) حرامس
المحران : من النحل ما حرن بالشهد فلم يبرحه و ما مات فيه ( ج ) محارين
الحزيز : من الرجال الحزاز و من الأرض الحز و الموضع تكثر فيه الحجارة و تحز كأنها السكاكين ( ج ) أحزة
الحازقة : مؤنث الحازق و الجماعة من كل شيء ( ج ) حوازق
المحزم المحزمة : الحزام ( ج ) محازم
المحشأة : كساء أبيض صغير يتخذونه مئزرا ( ج ) محاشي
الحشر الحشر : النخالة ( ج ) أحشار ( لغة يمانية )
المحشر : موضع الحشر و منه المحشر و هو المكان الذي يحشر فيه الناس يوم القيامة و ما يلبس كالصدار ( ج ) محاشر
المحشرة : ما بقي في الأرض من نبات بعد الحصد و ما اخضر منه يقال أرسلوا دوابهم في المحشرة ( ج ) محاشر
الأحشوش : الجنين اليابس في بطن أمه ( ج ) أحاشيش
الحشة : القمة العظيمة ينبت و يبيض فوقها الحشيش ( ج ) حشش
الحشاك : خشبة تشد في فم الجدي و نحوه لئلا يرضع ( ج ) حشك و أحشكة
الحشوك : يقال ناقة حشوك يجتمع اللبن في ضرعها سريعا ( ج ) حشك
الحشيم : المحتشم و المهيب و الجار و الضيف ( ج ) حشماء
الحشورة : مؤنث الحشور و جمعه و من النساء العجوز المتظرفة ( ج ) حشاور
المحصف و المحصف : من الدواب المحصاف ( ج ) محاصف
المحصل : المنخل ( ج ) محاصل
المحضن : المكان تجثم فيه الحمامة على بيضها ( ج ) محاضن
الحظوة الحظوة : سهم صغير قدر ذراع يلعب به الصبيان لتعلم الرمي ( ج ) حظاء يقال في المثل ( إحدى حظيات لقمان ) جمع حظية بالتصغير يضرب لمن عرف بالشر ثم ظهر منه الصلاح
الحظوة الحظوة : الحظة ( ج ) حظا و حظا و حظاء
الحفنة الحفنة : ملء الكف أو ملء الكفين من شيء و الحفرة ( ج ) حفن
المحفن : الكثير الحفن ( ج ) محافن
الحقب الحقب : المدة الطويلة من الدهر ثمانون سنة أو أكثر و في التنزيل العزيز ) لا أبرح حتى أبلغ مجمع البحرين أو أمضي حقبا ( ( ج ) حقاب و أحقاب و في التنزيل العزيز ) لابثين فيها أحقابا (
الحقب الحقب : المدة الطويلة من الدهر ثمانون سنة أو أكثر و في التنزيل العزيز ) لا أبرح حتى أبلغ مجمع البحرين أو أمضي حقبا ( ( ج ) حقاب و أحقاب و في التنزيل العزيز ) لابثين فيها أحقابا (
المحقان : الذي يحبس بوله فإذا بال أكثر ( ج ) محاقين
الحكاءة : الحكأة ( ج ) حكاء
الحاكل : المخمن ( ج ) حكل و حكال
الحكيلة : اللثغة ( ج ) حكائل
المحلأة : أداة يحلأ بها الجلد ( ج ) محالئ
المحلاق : من الكرم و نحوه الحالق ( ج ) محالق و محاليق
الحلقامة : البسرة بدا فيها النضج من قبل قمعها و البسرة بلغ الإرطاب ثلثيها ( ج ) حلقام
الحلقانة : الحلقامة ( ج ) حلقان
التحلمة : شاة تحلمة كثيرة الحلم ( ج ) تحالم
الحميت : الشديد من كل شيء و الزق يجعل فيه السمن أو العسل أو الزيت ( ج ) حمت
الحمارة الحمارة : حمارة القيظ و حمارته شدته ( ج ) حمار و حمار
المحموز : يقال رجل محموز البنان شديد ( ج ) محاميز
الحمسة : دابة بحرية من فصيلة سلاحف المناقع ( ج ) حمس
الحميسة : مؤنث الحميس و المقلاة و من اللحم النصيجة ( ج ) حمائس
الحميض : المكان الكثير الحمض ( ج ) حمض و هي حميضة ( ج ) حمائض
المحمض و المحمض : المرعى من الحمض ( ج ) محامض
المحماق : المرأة التي من عادتها ولادة الحمقى ( ج ) محاميق
المحمة : أرض محمة انتشرت فيها الحمى و طعام محمة يحم من يأكله ( ج ) محام
الحنبلي : من تقلد مذهب الإمام أحمد بن حنبل ( ج ) حنابلة
الحنتم : كل أسود أو أخضر و الخزف الأسود و الجرة الخضراء و السحاب السود و شجرة الحنظل ( ج ) حناتم
الحنفي : تابع مذهب أبي حنيفة و هم الحنفية ( ج ) أحناف
الحوت : السمكة صغيرة كانت أو كبيرة و جنس من الحيوانات الثديية من رتبة الحيتان ( ج ) حيتان و أحوات و برج من أبراج السماء
الحائجة : مؤنث الحائج و ما يفتقر إليه الإنسان و يطلبه ( ج ) حوائج
الحوراء : من النساء البيضاء لا يقصد بذلك حور عينيها و الكية المدورة حول عين الدابة لأن موضعها يبيض ( ج ) حور
الحائس : وصف ( ج ) حوس
الحومانة : الأرض الغليظة المنقادة ( ج ) حومان و حوامين
الحاوياء : حاوياء البطن أمعاؤه ( ج ) حوايا
الحيدة : يقال ما نظر إلي إلا نظر الحيدة نظر سوء فيه ميل و انصراف و العقدة في قرن الوعل و يقال ضربه على حيدة رأسه أو حيده و على حيدتي رأسه و هما العقدتان في جانبيه ( ج ) حيد
الخبة : خرقة طويلة كالعصابة تعصب بها اليد ( ج ) خبب و يقال ثوب خبب خلق متقطع
الخبة : الخبة ( ج ) خبب
الخبة : الخبة و بطن الوادي و أرض وسط لا مخصبة و لا مجدبة و مكان يستنقع فيه الماء فتنبت حواليه البقول ( ج ) خبب
الخبت : من الأرض ما انخفض و اتسع و المنخفض فيه رمل و الوادي العميق الممدود فيه نبات ( ج ) خبوت و أخبات
المخبط : ما يخبط به الشجر ( ج ) مخابط
الختيعة : جليدة يغطي بها الرامبي إبهامه ( ج ) ختاع
الخثرمة : طرف أرنبة الأنف إذا غلظت و الدائرة وسط الشفة العليا ( ج ) خثارم
الخثي : الخثى ( ج ) أخثاء و خثي
الخادبة : الشجة الشديدة ( ج ) خوادب
الخيدبة : الطريقة يقال أقبل على خيدبته و تركته و خيدبته و رأيه ( ج ) خيادب
المخداج : التي من عادتها أن تلقي ولدها قبل تمام أيامه ( ج ) مخاديج
الأخدور : الخدر ( ج ) أخادير
الخدوع : من النوق و نحوها التي تدر مرة و ترفع لبنها أخرى و من الطرق الخادع ( ج ) خدع
الخدفة : القطعة من الشيء و كنا في خدفة من الناس جماعة و مرت خدفة من الليل ساعة منه ( ج ) خدف
المخرؤة : المخرأة ( ج ) مخارئ
الخرباش : الاختلاط و الصخب ( ج ) خرابيش
الخرتة : الثقب و الحلقة في طرف السير ( ج ) خرت و خرت ( جج ) أخرات
الخردولة : العضو الوافر من اللحم ( ج ) خراديل
الخراش : سمة مستطيلة كاللذعة تكون في جلد الدابة ( ج ) أخرشة
المخرشة : المخراش ( ج ) مخارش
الخراص : الرمح و سنانه ( ج ) خرص
الخرصة : طعام النفساء و الرخصة ( ج ) خرص
المخراط : من ذوات الضرع التي من عادتها الخرط و آلة الخراطة ( ج ) مخاريط
المخرطة : المخرط ( ج ) مخارط
الخرعب : من الغصون الطويل الناعم الحديث النبت و من النساء الشابة الحسنة الخلق الناعمة ( ج ) خراعب
الخرعوب : الخرعب و من الجمال الطويل في حسن خلق و من النوق الغزيرة اللبن ( ج ) خزاعيب
الخرعوبة : الخرعب و القطعة من القثاء أو الشحم ( ج ) خراعيب
الخروفة : النخلة يحوزها الرجل ليلتقط ما عليها من رطب لنفسه و لعياله ( ج ) خرائف
الأخرم : الرابية تنهبط في وهدة و من الشعر ما حصل فيه الخرم و الغدير ( ج ) خرم و رجل أخرم الرأي ضعيفه و الأخرمان عظمان منخرمان في طرف الحنك الأعلى و أخرما الكتفين رأساهما من قبل العضدين و الأخرمان أيضا طرفا أسفل الكتفين اللذان اكتنفا كعبرتيهما ( ج ) أخارم
المخرم : الطريق في الجبل أو الرمل ( ج ) مخارم و في حديث الهجرة ( مرا بأسلم الأشجعي فحملهما على جمل و بعث معهما دليلا و قال اسلك بهما حيث تعلم من مخارم الطرق ) و مخرم الأكمة منقطعها و مخرم الجبل أنفه و يمين ذات مخارم ذات مخارج و مخارم الليل أوائله
الخرنفة : ثمرة العضاه ( ج ) خرانف
الخزومة : البقرة ( بلغة هذيل ) و المسنة القصيرة من البقر ( ج ) خزائم و خزم و خزوم
المخشلة : المصفاة ( ج ) مخاشل
الخصيصة : الصفة التي تميز الشيء و تحدده ( ج ) خصائص
الخصيفة : كل ذات لونين مجتمعين و كل طبقة من النعل و يقال كتيبة خصيفة لبياض الحديد و سواد الصدأ و اللبن الرائب يصب عليه الحليب ( ج ) خصيف و خصائف
الأخصوم : عروة الجوالق أو العدل ( ج ) أخاصيم
الخاضب : من البهائم ما أكل الخضب و هي خاضبة ( ج ) خواضب
المخضبة : المخضب ( ج ) مخاضب و المخاضب خرق الخضاب و خرق الحيض
الخضيرة : نخلة ينتثر بسرها و هو أخضر ( ج ) خضائر و من النساء التي لا تكاد تتم حملها حتى تسقطه
المخضار : الخضيرة ( ج ) مخاضير
المخضر : المخلب ( ج ) مخاضر
الخضارب : الماء يموج بعضه في بعض ( ج ) خضارب
الخضريج : المبطخة ( المكان الذي يكثر فيه البطيخ ) ( ج ) خضاريج
الخاطرة : الخاطر ( ج ) خواطر
المخطاط : ما يسوى به الخطوط ( ج ) مخاطيط
المخطوط : المكتوب بالخط لا بالمطبعة ( ج ) مخطوطات
الخطيفة : المخطوفة و لبن يذر عليه دقيق و يطبخ فيلعق و يختطف بالملاعق ( ج ) خطائف
المخطف : الخاطف و الخاطوف ( ج ) مخاطف
الخفية : الركية و الغيضة الملتفة ( ج ) خفايا و يقال به خفية لمم أو مس
المخلج : الطريق يتفرع من الطريق العام ( ج ) مخالج و في الحديث ( تنكب المخالج عن وضح السبيل )
المخناث : امرأة مخناث لينة متكسرة في مشيتها ( ج ) مخانيث
الخنذيذ : من الشعراء الشاعر المجيد المنقح و الخطيب البليغ المفوه و السيد الحليم و العالم بأيام العرب و أشعارهم و قبائلهم و الشجاع الذي لا يهتدى أين يؤتى لقتاله و السخي التام السخاء و البذيء اللسان الشتام و الفحل و الطويل الضخم من الخيل و الطويل المشرف الضخم من الجبال ( ج ) خناذيذ
الخنسير : الضعيف من الناس و الداهية ( ج ) خناسير
الخوشق : ما يبقى في العذق بعد أن يلقط ما فيه و الرديء من كل شيء ( ج ) خواشق
الخيش : ثياب تتخذ من مشاقة الكتان و من أردئه ( ج ) أخياش و خيوش و نسيج غليظ يتخذ من مشاقة الجوت تصنع منه الغرائر و الجوالق ( مو ) و الرجل الدنيء و يقال رجل خيش العمل سريعه
الخيفانة : من الجراد التي صارت فيها خطوط مختلفة بيض و صفر و التي لم يستو جناحاها و من النوق المهزولة الحمراء التي من نتاج عام أول و يقال ناقة خيفانة سريعة و فرس خيفانة خفيفة ضامرة شبهت بالجراد لخفتها و ضمورها ( ج ) خيفان يقال جراد خيفان اختلفت فيه الألوان و رأيت خيفانا من الناس كثرة منهم

Huruf أ s/d ب - Kosakata Belum Terdata

2011-11-12T20:29:00.001+07:00

Isim Mufrad dan Jama Taksirnya Diambil dari Kamus Mu'jamul Wasith:

الأبور : الطلع الذي يؤبر به النخل ( ج ) أبر
المأبر : قشر الطلع ( ج ) مآبر
المأباة : من الطعام و الشراب ما يؤبى تناوله و مدعاة الإباء ( ج ) مآب
المأثرة : المكرمة المتوارثة ( ج ) مآثر
المئثرة : أداة تترك في الشيء أثرا خاصا يتميز به ( ج ) مآثر
المئجنة : مدقة القصار ( ج ) مآجن
الأخذ و الإخذ : السيرة و الهدي يقال ذهبوا و من أخذ أخذهم و لو كنت منا لأخذت بأخذنا بطريقتنا و هدينا و ما حفره الإنسان كهيئة الحوض ( ج ) أخذان
المئخار : الكثير التأخر و من الشجر ما يتأخر نضج ثمره إلى آخر الموسم ( ج ) مآخير
الأدرة : انتفاخ الخصية لتسرب سائل فيها و الخصية المنتفخة ( ج ) أدر
المأدور : الآدر ( ج ) مآدير
الأذن الأذن : عضو السمع في الإنسان و الحيوان و تطلق على عروة الكوز و الأبريق و الجرة ( ج ) آذان و المستمع القابل لما يقال له ( يستوي فيه المذكر و المؤنث و فروعهما ) و بطانة الرجل و يقال هو أذن و أذن خير و يقال هو أذن قومه إذا كان ينصحهم و يقال لبست أذني له أعرضت عنه أو تغافلت ووجدته لابسا أذنيه متغافلا و جاء ناشرا أذنيه طامعا
الأرغول : مزمار ذو قصبتين مثقبتين إحداهما أطول من الأخرى ( ج ) أراغيل ( د )
الأرفة : علامة تنصب تبين الحد بين الأرضين ( ج ) أرف
الأرنبة : واحدة الأرانب و أرنبة الأنف طرفه و يقال جدع أرنبته أهانه ( ج ) أرانب و قوم شم الأرانب شامخون
الإسقاله : ما يربطه المهندسون من الأخشاب و الحبال ليصلوا بها إلى المحال المرتفعة ( ج ) أساقيل ( مج )
الأسينة : سير أو نحوه يضفر مع غيره فيجعل حبلا أو عنانا أو وترا ( ج ) آسن و أسائن
المأطورة : القوس ( ج ) مآطير
الأيطل : الخاصرة ( ج ) أياطل
الأطم الأطم : الحصن و البيت المرتفع ( ج ) آطام و أطوم
الأقة : ثقل قدره أربعمائة درهم أو ثمانية و أربعون و مئتان و ألف جرام و قد بطل استعمالها في مصر ( ج ) أقق ( د )
الإقليد : المفتاح ( ج ) أقاليد
الأكل الأكل : الثمر و في التنزيل العزيز في صفة الجنة ) أكلها دائم وظلها ( و الرزق الواسع ( ج ) آكال
الأكولة : ما يسمن ليذبح من الحيوان ( ج ) أكائل
المئكال : الملعقة و نحوها ( ج ) مآكيل
المأكم المأكم : الكفل ( ج ) مآكم
المألف : الموضع يؤلف ( ج ) مآلف
المألكة و المألكة : الرسالة ( ج ) مآلك
المئلاة : المنديل تمسكه المرأة عند النوح و تشير به و خرقة الحائض ( ج ) مآل
الأمت : المكان المرتفع و صغار التلال و الاختلاف في المكان ارتفاعا و انخفاضا و رقة و صلابة و الضعف و الوهن و الشك و العيب و العوج ( ج ) إمات و أموت
التأمور و التامور : الصومعة و الوعاء و عرين الأسد و وزير الملك و النفس و القلب يقال اجعل هذا الأمر في تأمورك و الدم و الخمر ويقال ما في البئر تأمور ماء و ما في الدار تأمور أحد ( ج ) تآمير
التأمورة و التامورة : الصومعة و عرين الأسد و الخمر ( ج ) تآمير
التؤمور : ما ينصب للهداية ( ج ) تآمير و يقال ما بالدار تؤمور أحد
الأمة : الوالدة و جماعة من الناس أكثرهم من أصل واحد و تجمعهم صفات موروثة و مصالح و أماني واحدة أو يجمعهم أمر واحد من دين أو مكان أو زمان يقال الأمة المصرية و الأمة العراقية و الجيل و الرجل الجامع لخصال الخير و في التنزيل العزيز ) إن إبراهيم كان أمة قانتا لله حنيفا ( و الدين و في التنزيل العزيز ) إنا وجدنا آباءنا على أمة ( والطريقة و الحين و المدة و في التنزيل العزيز ) ولئن أخرنا عنهم العذاب إلى أمة معدودة ليقولن ما يحبسه ( و القامة و مظهر الوجه من الحسن و عشيرة الرجل ( ج ) أمم و مجلس الأمة المجلس النيابي في مصر أنشئ بمرسوم عام 1957
الأمون : المطية المأمونة لا تعثر و لا تفتر ( ج ) أمن
الأمة : المرأة المملوكة خلاف الحرة و تقول يا أمة الله كما تقول يا عبدالله ( ج ) إماء و آم
الأنوس : الآنسة و من الكلاب الأليف غير العقور ( ج ) أنس
الإوان و الإيوان : مجلس كبير على هيئة صفة واسعة لها سقف محمول من الأمام على عقد يجلس فيها كبار القوم ( ج ) أون على التخفيف ( مع )
الأيكة : الشجر الكثير الملتف و يقال فلان فرع من أيكة المجد ( ج ) أيك
الأيل الأيل : الوعل ( ج ) أيايل و أيائل
البثعة : لحمة حمراء ناتئة تظهر في الشفة و اللثة و الجرح ( ج ) بثع
البثنة : الأرض السهلة اللينة الطيبة الإنبات و الروضة و الزبدة و المرأة الحسناء البضة و مصغرها بثينة و خفض العيش و نعيمه ( ج ) بثان
البثنة : الأرض السهلة اللينة الطيبة الإنبات ( ج ) بثن
الباحرة : مؤنث الباحر و الغزيرة اللبن من النوق و غيرها ( ج ) بواحر
البخدج : السمين ( ج ) بخادج
البدئ : وصف للمذكر و المؤنث و البئر الحادثة غير القديمة و أول الشيء يقال فعله بادئ بدئ و المخلوق و العجيب و السيد الأول في قومه ( ج ) بدو
البريئة البرية : و ترك الهمز أولى الخلق ( ج ) برايا
الإبريج : ممخضة اللبن ( ج ) أباريج
البرجاس : هدف ينصب على رمح أو سارية ( يونانية ) و معناه عندهم رمح أو سارية في أعلاه كرة من ذهب أو فضة يرميها الحذاق و هم على الجياد ( ج ) براجيس
البرطوم : خشبة غليظة يدعم بها البيت و يسقف ( ج ) براطيم
البرعم : كم ثمر الشجر و زهرة الشجرة قبل أن تتفتح و ( في علم النبات ) فرع ينتأ من وريقات ناقصة النمو أو أوراق زهرية متراكبة ( ج ) براعم
البرعمة : البرعم ( ج ) براعم
البرغيل : الأرض القريبة من الماء و البلد بين الريف و البرية ( ج ) براغيل
البرقوع : البرقع ( ج ) براقيع
البرة : حلقة من صفر أو غيره في أحد جانبي أنف البعير للتذليل أو في أنف المرأة للزينة و كل حلقة من سوار و قرط و خلخال و ما أشبه ذلك ( ج ) برات وبرى و برون في الرفع و برين في النصب و الجر
البازور : من الرجال المريب ( ج ) بوازير
المبزال : البزال و مصفاة الشراب ( ج ) مبازل
البازمة : الشدة ( ج ) بوازم
البزيمة : ( البزيم ) ( ج ) بزائم
البسباسة : شجرة من فصيلة جوز الطيب لها بزور و أغلفة بزور عطرية منبهة و يطلق على تركيب نباتي يوجد في طرف بعض النبات كالخروع ( ج ) البسباس
البسوس : الراعي و الناقة لا تدر إلا على الإبساس ( ج ) بسس و امرأة تسببت في حرب بين قبيلتين فضرب بها المثل في الشؤم فقيل ( أشأم من البسوس )
البسقة : الأرض ذات الحجارة السود ( ج ) بساق
البشور : من الرياح التي تبشر بالمطر ( ج ) بشر
البشامة : شجرة طيبة الريح و الطعم يستاك بها صغيرة الورق لا ثمر لها إذا قطع ورقها أو غصنها سال منها لبن أبيض ( ج ) بشام
البصلة : جسم نبتة محوري ينمو تحت الثرى و له جذور دقيقة تضرب تحته و أغصان ترتفع قليلا فوق سطح الأرض ومنه المغلف الذي بؤكل و غير المغلف كبصلة السوسن و بيضة الرأس ( ج ) بصل
البضيعة : ما يحمل عليه البضاعة ( ج ) بضائع
المبط : ما يبط به من مبضع و نحوه ( ج ) مباط
الأبطولة : ما لا ثبات له عند الفحص عنه ( ج ) أباطيل
البعكوكة : جماعة الناس أو الإبل في ازدحام و جلبة و آثار القوم حيث نزلوا و من الدار و نحوها وسطها و بعكوكة الصيف أو الشتاء اشتداد الحر أو البرد ( ج ) بعاكيك
البلبال و البلبالة : شدة الهم و الوسواس ( ج ) بلابل و بلابيل
البالوعة البلوعة : ثقب يعد لتصريف الماء ( ج ) بواليع و بلاليع
البلعم و البلعوم : مجرى الطعام في الحلق و مسيل للماء في داخل الأرض ( ج ) بلاعم و بلاعيم
التبلغة : حبل يوصل به الرشاء حتى يبلغ الماء ( ج ) تبالغ
البلية : البلاء و في الجاهلية الناقة يموت صاحبها فتحبس على قبره حتى تموت ( ج ) بلايا
البندار : التاجر يحتكر البضائع و يتربص بها غلاء السعر ( ج ) بنادرة ( د )
البنط : ( في اصطلاح الطباعة ) وحدة لقياس حجم الحرف يقال حرف ذو اثني عشر بنطا و ( في اصطلاح سوق العقود المصرية ) جزء من مائة جزء ينقسم إليها الريال ( ج ) بنوط ( د )
البانية : الضلع من أضلاع الصدر و حلقة من حلقات الزور و من البناء أساسه و قاعدته و من الدواب إحدى قوائمها ( ج ) بوان و يقال ألقى فلان بوانيه أقام بالمكان و اطمأن و ثبت و ألقى البلد بوانيه جاد بخيره و ما فيه من السعة و النعمة
البائجة : مؤنث البائج و ما اتسع من الرمل و الداهية ( ج ) بوائج
البائكة : النخلة الضخمة الثابتة ( ج ) بوائك
البو : ولد الناقة و جلد الحوار يحشى تبنا و يقرب من أمه لتدر عليه و الرماد و الأحمق ( ج ) أبواء

Menambah Kosakata Pada Kamus Bahasa Arab v3.0

2011-11-11T21:39:00.002+07:00

Berbeda dengan versi-versi sebelumnya, maka pada versi yang ketiga, Anda dapat menambahkan sendiri kosakata yang belum ada. Kosakata tersebut bisa Anda tambahkan dengan menggunakan Word, Excel, Access, Wordpad, ataupun Notepad.

File yang digunakan untuk keperluan ini terletak pada folder bersamaan dengan file aplikasinya (.exe). File tersebut saya namakan dengan tambahan.txt. Di dalamnya terdapat satu contoh kosakata. Terdiri dari 4 kolom, kolom tersebut secara berturut-turut kosakata, indeks, arti, fiil-bukan fiil.

Kosakata berisi kosakata arab yang hendak dicari.
Indeks berisi keyword dari kosakata di atas, bisa berisi satu atau lebih dengan menggunakan delimiter (pemisah) spasi.
Arti berisi arti dari kosakata di atas.
Fiil dan bukan fiil berisi data type boolean, angka satu mewakili fiil dan angka 0 mewakili bukan fiil (ism atau harf).

bersambung...

Contoh Kode Untuk Login dan Menambah User - MySQL Online

2011-10-20T23:21:00.004+07:00

Sebenarnya tidak ada yang istimewa mengenai hal ini. Setelah kita berhasil melakukan koneksi terhadap database yang tersimpan di server, tentu saja sekarang kita dapat melakukan manipulasi database seperti yang biasa kita lakukan di localhost. Berikut merupakan contoh sederhananya:

Login:

Private Sub cmdLogin_Click() 
 
On Error GoTo ErrHandler 
     
    Dim strSQL As String 
    Dim rsLogin As New ADODB.Recordset 
    Dim strUserName As String 
     
    If txtUserName.Text = "" Then 
        MsgBox "Please fill User ID", vbInformation, "Information"  
        txtUserName.SetFocus 
        Exit Sub 
    End If 
     
    If txtPassword.Text = "" Then 
        MsgBox "Please fill the password", vbInformation, "Information" 
        txtPassword.SetFocus 
        Exit Sub 
    End If 
     
    strSQL = "SELECT username FROM tbl_player_game WHERE username='" & rep(txtUserName.Text) & "'" 
    rsLogin.Open strSQL, conn 
     
    If rsLogin.RecordCount <= 0 Then 
        txtUserName.SetFocus 
         MsgBox "User belum tidak/belum terdaftar", vbInformation 
        Exit Sub 
    Else 
        strUserName = rsLogin!username 
    End If 
     
    rsLogin.Close 
     
    strSQL = "SELECT password,username FROM tbl_player_game WHERE password='" & rep(txtPassword.Text) & "' AND username='" & strUserName & "'" 
    rsLogin.Open strSQL, conn 
     
    If rsLogin.RecordCount <= 0 Then 
        txtPassword.SetFocus 
        MsgBox "Password salah", vbInformation 
        Exit Sub 
     End If 
     
    frmMain.Show 'show the Second form if login success! 
     
    Unload Me 
     
    Exit Sub 
     
ErrHandler: 
 
    MsgBox Err.Description 
     
End Sub 
 
Private Function rep(ByVal kata As String) As String 
    rep = Trim$(Replace(kata, "'", "''")) 
End Function

Menambah user:

Private Sub cmdAddOnlinePlayer_Click() 
 
On Error GoTo ErrHandler 
  
    Dim strSQL As String 
    Dim rsLogin As New ADODB.Recordset 
    Dim strUserName As String 
     
    If txtUserName.Text = "" Then 
        MsgBox "Please fill User ID", vbInformation, "Information" 
        txtUserName.SetFocus 
        Exit Sub 
    End If 
     
    If txtPassword.Text = "" Then 
        MsgBox "Please fill the password", vbInformation, "Information" 
        txtPassword.SetFocus 
        Exit Sub 
    End If  
     
    conn.Execute "INSERT INTO tbl_player_game(username, password)VALUES('" & rep(txtUserName.Text) & "', '" & rep(txtPassword.Text) & "')" 
     
Exit Sub 
     
    MsgBox Err.Description, vbInformation, "Fail add player/username" 
     
End Sub

Catatan: Database, table, field-nya harap diperhatikan dan disesuaikan.

Connection String Untuk Mengakses MySQL Online

2011-10-20T23:06:00.001+07:00

Sebelum mencoba kode di bawah, Anda harus mendaftar terlebih dahulu pada hosting yang membuka port defaulnya 3306 untuk diakses secara publik. Mengenai hal ini Anda bisa mencoba mendaftar pada link di samping http://www.freemysql.net/. Setelah mendaftar sekarang Anda memiliki UserName dan Password yang digunakan untuk mengakses MySQL online. Selanjutnya cobalah untuk membuat database sederhana dengan satu table, dan satu field (kelak Anda dapat membuat database, dan memperbanyak table dengan cara mengeksekusi syntax-syntax SQL).

Option Explicit 
 
Dim conn As New ADODB.Connection 
 
Private Sub Form_Load() 
    If ConnectToServer Then 
        Debug.Print "Sukses terkoneksi dengan  server" 
    Else 
        Unload Me 
    End If 
End Sub 
 
Private Function ConnectToServer() As Boolean 
 
On Error GoTo ErrHandler 
 
    Dim server As String, port As String, database As String 
    Dim username As String, password As String 
     
    '----------------------------------------------------------------- 
    'Sesuaikan! 
    server = <your server> 'nama server  
    port = "3306" 'default port 
    Database = <your database> 'database yang telah Anda buat 
    username = <your username> 'username pada saat Anda mendaftar 
    password = <your password> 'password pada saat Anda mendaftar 
    '----------------------------------------------------------------- 
     
    Set conn = New ADODB.Connection 
     conn.CursorLocation = adUseClient 
    conn.Mode = adModeReadWrite 
 
    conn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=" & server _ 
    & ";Port=" & port & ";Database=" & database & ";User=" & username & ";Password=" _ 
    & password & ";Option=3;default command timeout =20;writetimeout=300" 
 
    conn.Open 
     
    ConnectToServer = True 
    Exit Function 
 
ErrHandler: 
 
    MsgBox Err.Description,  vbCritical, "Error" 
 
End Function 
 
Private Sub Form_Unload(Cancel As Integer) 
    If conn.State <> adStateClosed Then 
        conn.Close 
    End If 
    Set conn = Nothing 
End Sub

ListBox Load Table - 10 s/d 20 X Lebih Cepat - Tips dan Trik VB6

2011-10-20T15:06:00.005+07:00

Tentu Anda sudah tidak asing lagi dengan potongan kode di bawah:

Do While Recordset.EOF = False 
    ListBox.AddItem Recordset!Field 
    Recordset.MoveNext 
Loop

Atau kode di bawah ini:

For i = 1 To Recordset.RecordCount 
    ListBox.AddItem Recordset!Field 
    Recordset.MoveNext 
Next

Kedua kode di atas digunakan untuk mem-populate (mengisi) ListBox atau ComboBox dengan Field dari sebuah database. Kode di atas bisa menjadi 10 s/d 20 kali lebih cepat dengan sedikit memodifikasi kodenya yakni dengan membuat satu variable yang diperlakukan sebagai buffer.

Coba Anda bandingkan dua kode di bawah ini:

Private Sub Command2_Click() 
 
    Dim L As Long 
    Dim v As Variant 
    Dim t As Double 
     
    t = GetTickCount 
    Set adoPrimaryRS = New Recordset 
    adoPrimaryRS.Open "SELECT isbn FROM [Title Author] ORDER BY isbn", db, adOpenStatic, adLockOptimistic 
     
    List1.Clear 
    List1.Visible = False 
     
    For L = 0 To adoPrimaryRS.RecordCount - 1 
        List1.AddItem adoPrimaryRS!isbn 
         adoPrimaryRS.MoveNext 
    Next 
     
    List1.Visible = True 
    Me.Caption = GetTickCount - t & " milliseconds" 
     
End Sub

Dengan kode di bawah ini:

Private Sub Command1_Click() 
 
    Dim L As Long 
    Dim v As Variant 
    Dim t As Double 
     
    t = GetTickCount 
    Set adoPrimaryRS = New Recordset 
    adoPrimaryRS.Open "SELECT isbn FROM [Title Author] ORDER BY isbn", db, adOpenStatic, adLockOptimistic 
     
    List1.Clear  
    List1.Visible = False 
    v = adoPrimaryRS.GetRows 
     
    For L = 0 To adoPrimaryRS.RecordCount - 1 
        List1.AddItem v(0, L) 
    Next 
     
    v = Empty 
     
    List1.Visible = True 
    Me.Caption = GetTickCount - t & " milliseconds" 
     
End Sub

Kode di atas itu, asumsinya Anda telah melakukan koneksi terlebih dahulu.

Catatan: Dua kode di atas digunakan untuk mengakses database BIBLIO.MDB.

Memahami License Key Pada Pembuatan OCX - Bisnis OCX?

2011-10-17T21:56:00.003+07:00

Apabila kita membuat sebuah OCX, maka pada VB6 IDE yaitu pada project properties >> tab General, kita akan mendapati tulisan "Require License Key" (sebelah kiri bawah). Nah, pertanyaannya apa yang terjadi bila checkbox tersebut kita beri centang? Untuk menjawab pertanyaan di atas, sebaiknya Anda membuat sebuah project ocx sederhana kemudian mencentang checkbox bertuliskan "Require License Key" dan mengcompile project tersebut serta memperhatikan pengaruhnya. Apakah ada pengaruhnya? sepertinya atau lebih tepatnya seakan-akan tidak ada.

Perlu diketahui dengan dicentangnya tulisan "Require License Key" maka pada saat mengkompail OCX, VB6 akan secara otomatis membuat satu dari beberapa key baru pada registry, yaitu pada alamat: HKEY\CLASSES_ROOT\Licenses\{OCX GUID Anda}. secara bersamaan VB6 juga mengenerate file yang berektensi *.VBL (bisa Anda buka menggunakan Notepad untuk melihat isinya). Nah, key inilah yang membuat kita bisa menggunakannya pada saat DesignTime.

Untuk memahaminya lebih baik, saya membuat sebuah simulasi penjualan Shadow.OCX. Ikuti langkah-langkah berikut:

Download terlebih dahulu Amazing Fade Effect - Shadow.OCX. Akan terdapat 3 file di dalamnya:

prjAmazingShadow.exe
Shadow.ocx
Install.bat

Klik Install.bat untuk meregistrasikan komponen OCX.
Klik prjAmazingShadow.exe untuk melihat demo shadow.ocx.

Langkah kedua:

Buat project baru.
Tambahkan komponen prjShadowCtl (Shadow.OCX).
Tambahkan ucShadow (Shadow.OCX) ke dalam Form. Apakah Anda bisa melakukannya? tidak, yang ada hanyalah pesan error/pemberitahuan seperti pada gambar di bawah ini:

Gambar: Error pada saat menambahkan OCX tanpa License.

Keterangan:
Shadow.ocx dibuat oleh Paul Caton. Shadow.ocx merupakan sebuah komponen untuk membuat effect bayangan dan efek fade-in fade-out pada aplikasi, keunggulannya adalah Anda hanya perlu menempelkannya ke dalam Form dan selesai (tanpa membutuhkan kode). Memiliki beberapa properties yang bisa Anda atur untuk disesuaikan dengan selera Anda. Menggunakan teknik SubClassing aman yang diperkenalkan oleh Paul Caton.

Menambahkan Item Ke dalam ListBox tanpa Duplikat - VB6

2011-10-17T14:29:00.000+07:00

Menggunakan fungsi API, sehingga kecepatannya bisa dikatakan sangat baik. Adapun kodenya adalah seperti di bawah ini:

Option Explicit 
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Private Const LB_FINDSTRINGEXACT As Long = &H1A2 
 
Private Function AddItemListUnix(lst As ListBox, ByVal sItem As String) As Boolean 
    If (SendMessage(lst.hwnd, LB_FINDSTRINGEXACT, -1&, ByVal sItem) > -1) Then Exit Function 
     lst.AddItem sItem 
End Function

Mengenai contoh penggunaannya:

Private Sub Command1_Click() 
    AddItemListUnix List1, "Test" 
    AddItemListUnix List1, "Test" 
    AddItemListUnix List1, "Form" 
    AddItemListUnix List1, "Test" 
    AddItemListUnix List1, "CommandButton" 
    AddItemListUnix List1, "CommandButton" 
End Sub

Cara Sederhana Mendeteksi Perubahan Resolusi Screen - Trik VB6

2011-10-17T14:27:00.001+07:00

Bagaimana kita mengetahui perubahan resolusi screen dengan hanya menggunakan beberapa baris kode saja? Mendeteksi Current OS (operating system yang sedang digunakan), mendeteksi Plug n Play Device (external hardisk, flashdisc, webcam, dll), mengetahui screen client area, perubahan konfigurasi system, mendeteksi perubahan waktu, dan sebagainya?.

Untuk keperluan yang telah dijelaskan di atas, kita bisa menggunakan SysInfo.OCX (Microsoft SysInfo Control 6.0). Sysinfo seakan-akan sesuatu yang mutlak diperlukan dalam membuat sebuah aplikasi yang baik. Mengapa demikian?

Di bawah ini merupakan contoh sederhananya:

Option Explicit 
 
Dim strOldResolution As String 
 
Private Sub Form_Load() 
    With Timer1 
        .Enabled = False 
         .Interval = 100 
    End With 
    strOldResolution = "Resolution: " & Screen.Width / Screen.TwipsPerPixelX & _ 
    " x " & Screen.Height / Screen.TwipsPerPixelY 
    Me.Caption = strOldResolution 
    Text1.Text = strOldResolution & vbCrLf 
End Sub 
 
Private Sub SysInfo1_DisplayChanged() 
    Timer1.Enabled = True 'delay time 
End Sub 
 
Private Sub Timer1_Timer() 
    Dim strText As String 'buffer variable 
    strText = Text1.Text 
    strText = strText & "Resolusi berubah menjadi: " & Screen.Width / Screen.TwipsPerPixelX & _ 
    " x " & Screen.Height / Screen.TwipsPerPixelY & vbCrLf 
    Text1.Text = strText 
    Timer1.Enabled = False 
End Sub

Dan tentu saja Anda bisa membuat banyak modifikasi/variasi untuk disesuaikan dengan kebutuhan, misalnya seperti kode di bawah ini (kode yang berasal dari posting sebelumnya):

Option Explicit 
 
Private Sub Form_Resize() 
    On Error Resume Next 
    With Form1 
        .Left = 0 
        .Top = 0 
        .Height = (Screen.Height * 0.5) 
        .Width = (Screen.Width * 0.5) 
    End With 
    With Command1 
        .Left = (Me.ScaleWidth *  0.68) 
        .Top = (Me.ScaleHeight * 0.78) 
        .Width = (Me.ScaleWidth * 0.2) 
        .Height = (Me.ScaleHeight * 0.1) 
    End With 
End Sub 
 
Private Sub SysInfo1_DisplayChanged() 
    If chkNonAktif.Value = vbChecked Then Exit Sub 
    Timer1.Enabled = True 
End Sub 
 
Private Sub Timer1_Timer() 
    Form_Resize 
    Timer1.Enabled = False  
End Sub

Selain Sysinfo.OCX yang dibuat oleh Microsoft, Anda bisa juga menggunakan SysInfo yang dibuat oleh Karl E. Peterson, dan menurut saya ini lebih baik. Terakhir, mengapa SysInfo yang dibuat Karl E. Peterson saya anggap lebih baik?

Control Yang Tidak Terpengaruh Oleh Resolusi Screen - Trik VB6

2011-10-14T20:34:00.000+07:00

Apabila Form diiperbandingkan kepada Screen, maka control harus diperbandingkan kepada Form. Maksudnya kepada .ScaleTop, .ScaleLeft, .ScaleWidth, .ScaleHeight seperti yang telah kita pelajari sebelumnya.

Baiklah, sekarang saya akan membuat sebuah contoh control yang tidak terpengaruh oleh perubahan resolusi screen. Dalam hal ini control diwakili oleh satu CommandButton.

Option Explicit 
 
Private Sub Form_Resize() 
    On Error Resume Next 
    With Form1 
        .Left = 0 
        .Top = 0 
        .Height = (Screen.Height * 0.5) 
        .Width =  (Screen.Width * 0.5) 
    End With 
    With Command1 
        .Left = (Me.ScaleWidth * 0.68) 
        .Top = (Me.ScaleHeight * 0.78) 
        .Width = (Me.ScaleWidth * 0.2) 
        .Height = (Me.ScaleHeight * 0.1) 
    End With 
End Sub

Nah, sekarang bagaimana jika di dalam Form tersebut terdapat 31 control, Apakah kita harus mengkodenya satu persatu? tentu saja tidak, di atas hanyalah dasar-dasar atau kode dasar untuk memudahkan pemahaman bagaimana agar form dan control tidak terpengaruh oleh resolusi screen. Adapun dalam kenyataanya, Anda harus memodifikasi dan membuatnya menjadi .Class, .Module, .OCX, .DLL agar mudah digunakan.

Lho Mas, tombol Add, Edit, Savenya pada kemana?. Di bawah layar!

Agar Form Tidak Terpengaruh Resolusi Screen - Tips dan Trik VB

2011-10-13T18:51:00.003+07:00

Setelah memahami perbedaan .Top, .Left, .Width, .Height dengan .ScaleTop, .ScaleLeft, .ScaleWidth, .ScaleHeight maka kita sekarang melangkah pada bagian selanjutnya mengenai tampilan yang tidak terpengaruh oleh resolusi layar.

Sederhanya agar sebuah form memiliki ukuran relatif sama adalah membagi ukurannya lebar dan tinggi berdasarkan persentase. Perhatikan baris kode di bawah:

Option Explicit 
 
Private Sub Form_Resize() 
    With Form1 
        .Left = 0 
        .Top = 0 
        .Height = Screen.Height 
        .Width = Screen.Width 
    End With  
End Sub

Kode di atas akan membuat sebuah form memiliki ukuran sama dengan tinggi dan lebar layar, berapapun resolusinya. Maka kode di bawah akan membuat form memiliki ukuran 1/2 dari ukuran layar baik tinggi maupun lebarnya, berapapun resolusi layar yang Anda setting.

Option Explicit 
 
Private Sub Form_Resize() 
    With Form1 
        .Left = 0 
        .Top = 0 
        .Height = (Screen.Height * 0.5) 'Ini akan membuat tinggi Form setengahnya dari layar 
        .Width = (Screen.Width *  0.5) 'Ini akan membuat lebar Form setengahnya dari layar. 
    End With 
End Sub

Sekarang coba Anda rubah resolusi layar ke posisi paling ektrim terbesar atau ke posisi ektrim terendah, Apakah tinggi dan lebar Form tersebut berubah? tidak, dia tetap setengahnya dari layar. Lalu apa yang harus Anda lakukan selanjutnya, melakukan resize terhadap seluruh control (CommandButton, TextBox, Label, dan lain-lain. Nah, bagaimana caranya?

Perbedaan .ScaleWidth dan .Width pada Form - Tips dan Trik VB6

2011-10-13T16:52:00.002+07:00

Apakah perbedaan property .ScaleWidth dan .Width pada Form? sebenarnya bukan hanya Form, tetapi objek apa saja yang memiliki property .Width dan .ScaleWidth misalnya PictureBox. Form.Width adalah lebar dari ujung kiri sampai ujung kanan. Sedangkan .ScaleWidth adalah lebar ujung kiri sampai ujung kanan - border sisi kiri dan sisi kanan. Dengan kata lain .ScaleWidth adalah seluruh daerah Form yang bisa digunakan untuk menyimpan control, demikian pula .ScaleTop, .ScaleHeight, dan .ScaleLeft. Untuk memahaminya lebih baik maka:

Buatlah project baru
Tempatkan satu TextBox pada Form
Copy dan pastekan kode di bawah ini:

Option Explicit 
 
Private Sub Form_Resize() 
    With Text1 
        .Top = Me.ScaleTop 
        .Left = Me.ScaleLeft 
        .Width =  Me.ScaleWidth 
        .Height = Me.ScaleHeight 
    End With 
End Sub

Jalankan.

dan tentu saja akan berbeda dengan kode di bawah ini:

Private Sub Form_Resize() 
    With Text1 
        .Top = 0 
        .Left = 0 
        .Width = Me.Width 
        .Height = Me.Height 
    End With 
End Sub

Apalagi yang ini:

Option Explicit 
 
Private Sub Form_Resize() 
    With Text1 
        .Top = Me.Top 
        .Left = Me.Left 
        .Width = Me.Width 
        .Height = Me.Height 
    End With 
End Sub

Coba Anda perhatikan dengan seksama apakah perbedaannya?

Catatan: Settinglah property Text1 .MultiLine = True dan .ScrollBar = 3 -Both

Memahami Property .Default dan .Cancel - Tips dan Trik VB6

2011-10-13T16:22:00.001+07:00

Jika Anda membuat sebuah form pada aplikasi VB6 kemudian menambahkan 1 CommandButton maka pada property CommandButton akan terdapat property .Defaul = False dan .Cancel = False (nilai defaultnya adalah False). Perbedaan antara CommandButton dengan property .Defaut = False atau True bisa dilihat dari border yang terdapat pada CommandButton, CommandButton dengan set property .Default = True akan memiliki border yang lebih tebal (coba Anda praktikan). Lalu apakah kegunaan dari property .Default dan .Cancel ini?

Property .Default pada CommandButton

Untuk memahaminya dengan baik, buatlah project baru, tempatkan satu CommandButton dan satu TextBox, selanjutnya copy dan pastekan kode di bawah ini:

Option Explicit 

Private Sub Command1_Click() 
    MsgBox "Property .Default" 
End Sub 

Private Sub Form_Load() 
    Command1.Default = True 'mencoba propery .Default 
     Text1.TabIndex = 0 'agar memperoleh focus pada saat pertama kali dijalankan 
End Sub

Selanjutnya tulislah sesuatu pada Text1 dan tekanlah tombol Enter. Lalu apa yang terjadi?
Sekarang gantilah kode di atas dengan kode di bawah ini:

Option Explicit 
 
Private Sub Command1_Click() 
    MsgBox "Property .Default" 
End Sub 
 
Private Sub Form_Load() 
    'property .Default pada CommandButton = False 
    Text1.TabIndex = 0 'agar memperoleh focus pada saat pertama kali dijalankan 
End Sub

Ketiklah sesuatu pada Text1 dan tekanlah tombol Enter. Lalu apa yang terjadi? bisa Anda tarik kesimpulan?

Property .Cancel pada CommandButton

Sekarang gantilah kode di atas dengan kode di bawah ini:

Option Explicit 
 
Private Sub Command1_Click() 
    Unload Me 
End Sub 
 
Private Sub Form_Load() 
    Command1.Cancel = True 
    Text1.TabIndex = 0 'agar memperoleh focus pada saat pertama kali dijalankan 
End Sub

Jalankan, sekarang bukan tombol Enter yang harus Anda tekan tetapi tombol Escape (Esc). Lalu apa yang terjadi? sekarang gantilah kode di atas dengan kode di bawah ini:

Option Explicit 
 
Private Sub Command1_Click() 
     Unload Me 
End Sub 
 
Private Sub Form_Load() 
    'Command1.Cancel = True .Cancel = False 
    Text1.TabIndex = 0 'agar memperoleh focus pada saat pertama kali dijalankan 
End Sub

Jalankan, kemudian tekanlah tombol Escape (Esc). Apa yang terjadi? bisa Anda tarik kesimpulan?

Catatan:Setting .Defaul = True atau .Cancel = True akan sangat bermanfaat pada saat membuat Form untuk Log-In, Dialog Options, dan lain-lain. Terutama untuk memicu (fire/trigger) event click pada tombol OK dan Cancel tanpa harus menuliskan kode

Update: My Source Online 2.0 - Online MySQL Database

2011-09-29T22:37:00.002+07:00

Rupanya pada versi yang sebelumnya terjadi beberapa kegagalan, diantaranya:

Gagal dalam mengecek koneksi internet, modul yang digunakan adalah -[memeriksa keberadaan koneksi internet]- sehingga selalu menampilkan pesan error "Mohon maaf, tidak ada koneksi internet".
Gagal dalam meregistrasikan COMDLG32.OCX (CommonDialog ActiveX), kemungkinan masalah versi.

Kedua masalah tersebut telah saya perbaiki, pertama dengan mengganti modul check koneksi internet masalah kedua diatasi dengan cara mengganti COMDLG32.OCX dengan class yang diembed langsung pada aplikasi.

Catatan: karena aplikasi ini tidak dilengkapi dengan file-file runtime (hanya dua ActiveX yang disertakan vbSendMail dan CMAX20.OCX [Syntax Hightlighter]), maka sebaiknya Anda lengkapi dulu runtimenya dan beberapa file untuk mengakses database MySQL, atau Anda rujuk pada link di bawah ini:

Aplikasi Minimarket (menggunakan database MySQL, lengkap beserta file-file runtime yang dibutuhkan)
MySQL ODBC 3.51 Driver

Nah, setelah menjalankan dua file di atas, seharusnya Anda sudah dapat mengakses database MySQL secara online menggunakan VB6.

Download: My Source Online 2.0

Software My Source Online 1.0 - Menggunakan Database MySQL

2011-09-25T16:08:00.013+07:00

My Source Online 1.0 merupakan sebuah aplikasi untuk menyimpan kode VB6 ke dalam database MySQL secara online.

Download: http://khoiriyyah.vacau.com/source_online.zip

Agar tidak terjadi error pastikan Anda telah menginstall ODBC MySQL Connector 3.51 juga hal-hal yang dibutuhkan untuk melakukan koneksi ke database MySQL.

Catatan: karena database MySQL-nya disimpan secara online di sebuah provider maka jaringannya (menurut kata yang dibesar-besarkan) adalah seluruh dunia (bukan lokal), tentu saja Anda dapat membuat akun disana (software ini). Cobalah, mungkin agak sedikit menarik.

Aplikasi iImsyakiyah Dari http://www.diajar.com

2011-09-06T13:49:00.002+07:00

Aplikasi iImsyakiyah (Indonesia-Imsyakiyah) ini dibuat oleh saudara Agung Novian pemiliki situs http://www.diajar.com. Aplikasi ini digunakan untuk memberitahukan jadwal sholat lima waktu.

Keterangan mengenai Aplikasi iImsyakiyah:

Dibuat menggunakan bahasa pemrograman Visual Basic 6.
Portable, artinya tidak memerlukan penginstallan.
GUI yang menarik dan serasi.
Dilengkapi dengan tray icon.
Alarm untuk memberitahukan waktu imsyak, dan adzan untuk memberitahukan waktu shalat (bisa dirubah settingannya).
Dilengkapi fasilitas shutdown dan hibernate
Walaupun aplikasi hanya mencantumkan tiga daerah (Jakarta, Bandung, dan Cirebon) tetapi Anda dapat dengan mudah menambahkan nama daerah, dengan terlebih dahulu menyesuaikan settingannya, seperti tampak pada gambar di bawah ini:

Gambar: fasilitas untuk menambah daerah dengan menyesuaikan setting yang dibutuhkan

Bagi Anda yang berminat memiliki aplikasinya, Anda dapat mengunjungi tautan di samping http://www.diajar.com/#/aplikasi-iimsakiyahv1-1. Kritik dan saran mengenai aplikasi ini bisa Anda kirimkan ke alamat email disamping:

pujanggabageur[at]yahoo.com (ganti [at] dengan @)

Terima kasih semoga bermanfaat.

Just One Click - LaVolpe's Manifest Creator - Tools VB6

2011-08-09T23:59:00.001+07:00

Tools VB6 ini - [VB6] XP/Vista/Win7 Manifest Creator - diambil dari sebuah Thread milik LaVolpe yang terdapat di situs VBForums - Setelah beberapa kali mencoba Manifest Creator yang dibuat oleh LaVolpe ternyata hasilnya sangat baik dan memuaskan dengan adanya fitur merger terhadap file resource yang telah ada. Walaupun demikian dalam penggunaannya sedikit merepotkan, terutama jika Anda memiliki banyak project yang harus ditambahkan manifest resouce. Akhirnya saya berinisiatif untuk merubahnya menjadi sebuah Add-Ins, sehingga sekarang memiliki fitur tambahan 'Just One Click'.

Download: LaVolpe's Manifest Creator.

Cara penggunaan:

Ekstrak file, double klik install.bat untuk meregistrasikan komponen
Buka project baru, atau project yang telah Anda buat.
Klik menu Add-Ins >> ManifestCreator >> Create Manifest.

Ucapan terima kasih kepada LaVolpe yang telah membuat tools yang sangat bermanfaat ini.

Membuat Frame Dari CommandButton Standar - Visual Basic 6

2011-08-09T23:25:00.003+07:00

Penjelasan mengenai pembuatan objek Frame dari CommandButton standar - Guna mendukung pekerjaan pada posting sebelumnya , yakni mengenai pembuatan dialog options yang wajar, standar, profesional seperti kebanyakan software-software lainnya (themed TabStrip, themed PictureBox, transparent CheckBox, transparent Frame, transparent OptionButton), ada baiknya Anda mengetahui beberapa fakta berikut dengan memperhatikan gambar di bawah ini:

Gambar: Dialog Mouse Properties yang diambil dari Control Panel Windows XP

Gambar di atas memiliki tiga objek Frame. Nah, disini ada pertanyaan, apakah Frame tersebut benar-benar sebuah Class Frame? Apakah Frame tersebut merupakan sebuah Container? ternyata Frame tersebut bukanlah frame sebenarnya tetapi objek yang berasal dari Class Button dan juga bukan sebuah Container, ini bisa dibuktikan dengan cara melakukan spy terhadap tiga objek frame di atas. [Download EliteSpy+ Andrea Batina]. Dari pengetahuan ini kita bisa meniru tingkah laku properties dialog di atas.

Nah, untuk membuat frame dari CommandButton Anda membutuhkan module API di bawah ini:

'Simpan pada form 

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ 

        ByVal hWnd As Long, _ 

        ByVal wMsg As Long, _ 

        ByVal wParam As Long, _ 

        lParam As Any) As Long 

         

Private Const BM_SETSTYLE As Long =  &HF4 

Private Const BS_GROUPBOX As Long = &H7& 

 

'Contoh penggunaan 

Private Sub Form_Load() 

    SendMessage Command1.hWnd, BM_SETSTYLE, BS_GROUPBOX, 0 

End Sub

Sampai disini, mungkin Anda memiliki pertanyaan, mengapa tidak menggunakan objek Frame standar dan malah menggunakan Frame yang berasal CommandButton? tentu saja jawabannya sederhana, karena CommandButton terhook dengan 'ComCtl32.dll' sehingga ia bisa mengikuti warna TabStrip atau themed PictureBox yang telah dijelaskan terdahulu. bersambung ..

Catatan: Selain Frame yang berasal dari CommandButton, Anda pun bisa menggunakan Frame yang berasal dari XPControl.OCX yang dibuat oleh Mirko Marchese.

Akhirnya, saya ucapkan terima kasih kepada Giorgio Brausi (Gibra) pemilik situs VBCorner atas pengetahuan di atas.

Catatan Penting: Rubahlah property ClipControls pada Form menjadi False, ClipControls = False

PictureBox Yang Diberi Theme/Style - Visual Basic 6

2011-08-04T23:21:00.014+07:00

Menjelaskan mengenai cara memberi theme pada object PictureBox - Apabila kita memperhatikan pada posting sebelumnya mengenai ToolBar, TabStrip, TreeView, dan ListView XP Style Tanpa Kode, maka kita akan melihat jelas object TabStrip yang memiliki theme. Nah, object TabStrip tersebut umumnya (tidak selalu) membutuhkan beberapa PictureBox dalam melakukan tugasnya, yang menjadi persoalan sekarang PictureBox tersebut apabila digunakan bersamaan dengan TabStrip akan memiliki perbedaan warna yang mencolok dan ini menyebabkan rancangan GUI yang kurang baik, bagaimana kita mengatasi permasalahan ini? Perhatikan gambar Setting Winrar di bawah ini:

Gambar: Setting Winrar, bisakah VB6?

Setidaknya ada dua cara untuk mengatasi masalah PictureBox di atas, pertama memberi theme pada PictureBox, alternatif yang kedua adalah Fake Gradient dengan menyelaraskan warna PictureBox dengan warna TabStrip yang gradient.

Expand Code...

'--------------------------------------------------------------------------------------------------- 

'Author: Jottum  -- Simpan kode di bawah ini pada module -- 

'--------------------------------------------------------------------------------------------------- 

Option Explicit 

 

'API Declarations. 

 

Private Type RECT 

   Left As Long 

   Top As Long 

   Right As Long 

   Bottom As Long 

End Type 

 

Private Const LF_FACESIZE = 32 

 

Private Type FONTSLOG 

  flfHeight As Long 

  flfWidth As Long 

  flfEscapement As Long 

  flfOrientation As Long 

  flfWeight As Long 

  flfItalic As Byte 

  flfUnderline As Byte 

  flfStrikeOut As Byte 

  flfCharSet As Byte 

  flfOutPrecision As Byte 

  flfClipPrecision As Byte 

  flfQuality As Byte 

   flfPitchAndFamily As Byte 

  flfFaceName As String * LF_FACESIZE 

End Type 

 

Private Declare Function GetDC Lib "user32" _ 

   (ByVal hwnd As Long) As Long 

    

Private Declare Function ReleaseDC Lib "user32" _ 

   (ByVal hwnd As Long, ByVal hDC As Long) As Long 

 

Private Declare Function GetClientRect Lib "user32" _ 

   (ByVal hwnd As Long, lpRect As RECT) As Long 

 

Private Declare Function InflateRect Lib  "user32" _ 

   (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long 

 

Declare Function GetDesktopWindow Lib "user32" _ 

   () As Long 

    

Private Declare Function DrawEdge Lib "user32" _ 

   (ByVal hDC As Long, qrc As RECT, ByVal edge As Long, _ 

    ByVal grfFlags As Long) As Long 

 

Private Declare Function DrawText Lib "user32" _ 

   Alias "DrawTextA" (ByVal hDC As  Long, ByVal lpStr As String, _ 

   ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long 

 

Private Declare Function BitBlt Lib "gdi32" _ 

   (ByVal hdcDest As Long, ByVal xDest As Long, ByVal yDest As Long, _ 

    ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, _ 

    ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long  

     

Private Declare Function DrawFocusRect Lib "user32" _ 

   (ByVal hDC As Long, lpRect As RECT) As Long 

     

 

'Theme API Declarations. 

 

Private Declare Function GetThemeFont Lib "uxtheme.dll" ( _ 

   ByVal hTheme As Long, _ 

   ByVal hDC As Long, _ 

   ByVal iPartId As Long, _ 

   ByVal iStateId As Long, _ 

   ByVal iPropId As Long, _ 

   tLogFont As FONTSLOG) As Long 

 

Private Declare Function OpenThemeData Lib "uxtheme.dll" _ 

   (ByVal hwnd As Long, ByVal pszClassList As Long) As Long 

    

Private Declare Function IsThemeActive Lib "uxtheme.dll" _ 

   () As Boolean 

 

Private Declare Function CloseThemeData Lib "uxtheme.dll" _ 

   (ByVal hTheme As Long) As Long 

    

Private Declare Function DrawThemeBackground Lib "uxtheme.dll" _ 

   (ByVal hTheme As Long,  ByVal lHdc As Long, _ 

    ByVal iPartId As Long, ByVal iStateId As Long, _ 

    pRect As RECT, pClipRect As RECT) As Long 

     

Private Declare Function DrawThemeText Lib "uxtheme.dll" _ 

   (ByVal hTheme As Long, ByVal hDC As Long, ByVal iPartId As Long, _ 

    ByVal iStateId As Long, ByVal pszText As Long, _ 

    ByVal iCharCount As Long, ByVal dwTextFlag As Long, _  

    ByVal dwTextFlags2 As Long, pRect As RECT) As Long 

     

Private Declare Function GetThemeRect Lib "uxtheme.dll" ( _ 

   ByVal hTheme As Long, _ 

   ByVal iPartId As Long, _ 

   ByVal iStateId As Long, _ 

   ByVal iPropId As Long, _ 

   ByRef pRect As RECT) As Long 

     

'Types, Enums and Constants... 

         

'Tab constants.  

Private Enum ThemeTabParts 

   TAB_TABITEM = 1 

   TAB_TABITEMLEFTEDGE = 2 

   TAB_TABITEMRIGHTEDGE = 3 

   TAB_TABITEMBOTHEDGE = 4 

   TAB_TOPTABITEM = 5 

   TAB_TOPTABITEMLEFTEDGE = 6 

   TAB_TOPTABITEMRIGHTEDGE = 7 

   TAB_TOPTABITEMBOTEDGE = 8 

   TAB_PANE = 9 

   TAB_BODY = 10 

End Enum 

 

Private Enum ThemeTabItemStates 

   TIS_NORMAL = 1 

   TIS_HOT = 2 

   TIS_SELECTED = 3 

   TIS_DISABLED = 4 

   TIS_FOCUSED = 5 

End Enum 

 

Private Enum ThemeTabItemLeftEdgeStates 

   TILES_NORMAL = 1 

   TILES_HOT = 2 

   TILES_SELECTED = 3 

    TILES_DISABLED = 4 

   TILES_FOCUSED = 5 

End Enum 

 

Private Enum ThemeTabItemRightEdgeStates 

   TIRES_NORMAL = 1 

   TIRES_HOT = 2 

   TIRES_SELECTED = 3 

   TIRES_DISABLED = 4 

   TIRES_FOCUSED = 5 

End Enum 

 

Private Enum ThemeTabItemBotEdgeStates 

   TIBES_NORMAL = 1 

   TIBES_HOT = 2  

   TIBES_SELECTED = 3 

   TIBES_DISABLED = 4 

   TIBES_FOCUSED = 5 

End Enum 

 

Private Enum ThemeTopTabItemStates 

   TTIS_NORMAL = 1 

   TTIS_HOT = 2 

   TTIS_SELECTED = 3 

   TTIS_DISABLED = 4 

   TTIS_FOCUSED = 5 

End Enum 

 

Private Enum ThemeTopTabItemLeftEdgeStates 

   TTILES_NORMAL  = 1 

   TTILES_HOT = 2 

   TTILES_SELECTED = 3 

   TTILES_DISABLED = 4 

   TTILES_FOCUSED = 5 

End Enum 

 

Private Enum ThemeTopTabItemRightEdgeStates 

   TTIRES_NORMAL = 1 

   TTIRES_HOT = 2 

   TTIRES_SELECTED = 3 

   TTIRES_DISABLED = 4 

   TTIRES_FOCUSED = 5 

End Enum 

 

Private Enum ThemeTopTabItemBotEdgeStates 

   TTIBES_NORMAL = 1 

   TTIBES_HOT = 2 

   TTIBES_SELECTED = 3 

   TTIBES_DISABLED = 4 

   TTIBES_FOCUSED = 5 

End Enum 

 

'DrawTabThemeBackground() constants. 

Public Const DTTB_HIDEPANE = True 

Public Const DTTB_SHOWPANE = False                    'Default if omitted 

Public Const  DTTB_SHOWERRMSG = True 

Public Const DTTB_HIDERRMSG = False                   'Default if omitted 

Public Const DTTB_HIDEBODY = True                     'Default is False, show the body 

 

'IsThemed() constant. 

Public Const IT_SHOWERRMSG = True 

 

'Miscellaneous 

Private Const DT_LEFT = &H0 

Private Const DT_TOP = &H0 

Private Const DT_CENTER = &H1  

Private Const DT_RIGHT = &H2 

Private Const DT_VCENTER = &H4 

Private Const DT_BOTTOM = &H8& 

Private Const DT_SINGLELINE = &H20 

 

Private Const TMT_FONT = 210 

 

'\DrawEdge 

Private Const BDR_RAISEDOUTER = &H1 

Private Const BDR_SUNKENOUTER = &H2 

Private Const BDR_RAISEDINNER = &H4 

Private Const BDR_SUNKENINNER = &H8 

 

Private Const BDR_OUTER = &H3 

Private Const BDR_INNER = &HC 

Private Const BDR_RAISED = &H5 

Private Const BDR_SUNKEN = &HA 

 

Private Const EDGE_RAISED = (BDR_RAISEDOUTER Or BDR_RAISEDINNER) 

Private Const EDGE_SUNKEN = (BDR_SUNKENOUTER Or BDR_SUNKENINNER) 

Private Const EDGE_ETCHED = (BDR_SUNKENOUTER Or  BDR_RAISEDINNER) 

Private Const EDGE_BUMP = (BDR_RAISEDOUTER Or BDR_SUNKENINNER) 

 

Private Const BF_LEFT = &H1 

Private Const BF_TOP = &H2 

Private Const BF_RIGHT = &H4 

Private Const BF_BOTTOM = &H8 

 

Private Const BF_TOPLEFT = (BF_TOP Or BF_LEFT) 

Private Const BF_TOPRIGHT = (BF_TOP Or BF_RIGHT) 

Private Const BF_BOTTOMLEFT = (BF_BOTTOM Or BF_LEFT) 

Private Const BF_BOTTOMRIGHT = (BF_BOTTOM Or BF_RIGHT) 

Private Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM) 

' --/ 

' 

'Public 

 

'******************************************************************************************************* 

'******************************************** 

'*********************          Function DrawTabThemeBackground  

'** 

'* 

'* Author: Jottum 

'* Date  : 07/15/2007 (mm/dd/yyyy) 

'* Site  : http://www.uitdeschriften.com/files/VB6 

'* 

'* The function DrawTabThemeBackground draws a Tab pane, body, pane and body, or a fake tab on any 

'* object with a DC. 

'* 

'* Usage example: 

'* ¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 

'*    DrawTabThemeBackground Me                          'Draws on object Me, Pane + Body, no Error Messages. 

'*  

'*    DrawTabThemeBackground Picturebox1, DTTB_HIDEPANE  'Draws on Picturebox1, just the gradient, not the pane 

'* 

'*    DrawTabThemeBackground Form2, , DTTB_SHOWERRMSG    'Draws Pane + Body on Form2 and displays errors (If any). 

'* __________________ 

'* End Usage example: 

'* 

'* Note: 

'* ¯¯¯¯¯ 

'* This is just an example function to show how UxTheme.Dll can be used from VB6. 

'* _________ 

'* End Note: 

'*  

'* Syntax: 

'* ¯¯¯¯¯¯¯ 

'*   DrawTabThemeBackground Object, Flag, Flag, Header   'Any object with a hDc property. 

'*                                                       '1st True is gradient only (Body). 

'*              Or                                       '2nd True is show errors. (If any) 

'*                                                       '3rd fakes a tab control. 

'*   DrawTabThemeBackground Object 

'* 

'*   Returns: True or False, this enables you to check by code if executed successful. 

'*  

'*   If DrawTabThemeBackground(Me, DTTB_SHOWPANE, DTTB_SHOWERRMSG, "Fake Tab", DTTB_HIDEBODY) then 

'* 

'*      'Magic coding here. 

'* 

'*   Else 

'* 

'*      'Perform a miracle. ;) 

'* 

'*   End If 

'* ___________ 

'* End Syntax: 

'* 

'** 

'********************* 

'******************************************** 

'******************************************************************************************************* 

 

Public Function DrawTabThemeBackground(Obj As Object, _ 

                                       Optional lBodyOnly As Boolean = False, _ 

                                       Optional ShowErrMsg As Boolean = False, _ 

                                       Optional TabTitle As String = vbNullString, _ 

                                       Optional lNoBody As Boolean = False) As Boolean  

 

On Error GoTo ThemeError                              'Catch errors. 

 

   Dim hTheme As Long                                 'Declare local variables 

   Dim lR As Long 

   Dim tR As RECT 

   Dim tR2 As RECT 

   Dim tTextR As RECT 

   Dim cControl As Control 

   Dim lTmp As Long 

   Dim strLength As Long 

    

   If lBodyOnly And lNoBody Then 

      Err.Raise 520, _ 

                "DrawTabThemeBackground", _ 

                "Error in function call, check parameters:   " & _ 

                vbCrLf & vbCrLf & "    lBodyOnly and lNoBody are both true.   " & _ 

                vbCrLf 

   End If 

    

   'The only reason you can cause this problem is the design of this function, 

   'which in this case is a feature and not a bug. ;) It gives me the chance 

   'to demonstrate Error Raising in user functions.  

   ' 

   'I could have taken a little different aproach in function design or just 

   'validate the other variables passed, and act accordingly. 

   ' 

   'For example if TabTitle <> vbNullString, the developer wants to fake a 

   'Tab Control and that *has* to have a Tab pane. In any other situation 

   'I could have used the first True and set the conflicting variable to False. 

   '  

   'When the developer looks at the form at runtime, he'll notice the Tab isn't 

   'what he expected it to be. He can now do two things, say the function sucks 

   'and move on, or look at the way he's calling it... <g> 

   ' 

   'Error raising can be usefull if your function isn't generating any errors 

   'as far as the compiler's concern, but to you as developer and therefore the 

   'enduser. But let's get on with it. 

       

   If ThemeSysFont <> vbNullString Then 

    

      On Error Resume Next 

      Obj.Font.Name = ThemeSysFont                          'Or it looks real bad!... well, 

      On Error GoTo 0                                       'to me that is of course... ;) 

       

   End If 

       

   GetClientRect Obj.hwnd, tR                               'Get the drawing area rectangle 

       

   If Not TabTitle = vbNullString Then                       'Some calculating... 

    

      tR.Top = 165 / Screen.TwipsPerPixelY                  'Top margin 

      tR.Left = 135 / Screen.TwipsPerPixelX                 'Left margin 

      tR.Right = tR.Right - (120 / Screen.TwipsPerPixelX)   'Right margin 

      tR.Bottom = tR.Bottom - (650 /  Screen.TwipsPerPixelY) 'Button margin below the Tab. 

    

      tR2.Top = 150 / Screen.TwipsPerPixelY                 'Tab text. 

      tR2.Left = 135 / Screen.TwipsPerPixelX 

      tR2.Bottom = 435 / Screen.TwipsPerPixelY 

      tR2.Right = (Obj.TextWidth(TabTitle) / Screen.TwipsPerPixelX) + 24 

      tR.Top = tR.Top + (tR2.Bottom -  tR2.Top) - 2          ' Make some space for header. 

       

      strLength = (Obj.TextWidth(TabTitle) / Screen.TwipsPerPixelX) 

                                                            'Get length of TabTitle. 

   End If 

       

   If IsThemed_(Obj.hwnd) Then                              'Check for theme presence 

       

      Obj.Cls                                               'Clear Objects surface. 

      Obj.AutoRedraw  = True                                 'Make sure AutoRedraw = True 

      Obj.BackColor = vbButtonFace                          'Should be default with a Tab 

                                                            'Control. 

      hTheme = OpenThemeData(Obj.hwnd, StrPtr("Tab"))       'Open with correct theme item 

 

      If Not lBodyOnly Then                                 'They want the gradient... 

       

          If TabTitle = vbNullString Then                    '...but not to fake a tab. 

          

            tR.Top = tR.Top + 1                             'Zero doesn't paint the top and 

            tR.Left = tR.Left + 1                           'left borders on a visible part 

                                                            'of Obj. 

         End If 

    

         lR =  DrawThemeBackground(hTheme, Obj.hDC, _ 

                                  TAB_PANE, _ 

                                  TIS_NORMAL, _ 

                                  tR, tR)                   'Draw the Tab Pane (No gradient 

                                                            'background) 

          

         If Not lNoBody Then 

          

             

            InflateRect tR, -3, -3                          'Adjust the rectangle size, to 

                                                             'Draw the Tab body (Gradient) 

                                                            'inside the Tab Pane. 

            lR = DrawThemeBackground(hTheme, Obj.hDC, _ 

                                     TAB_BODY, _ 

                                     TIS_NORMAL, _ 

                                     tR, tR)                'Draw Tab body (Gradient 

         End If                                             'background) 

                           

      Else 

                                                                 

         If Not lNoBody Then 

                   

            lR = DrawThemeBackground(hTheme, Obj.hDC, _ 

                                     TAB_BODY, _ 

                                     TIS_NORMAL, _ 

                                     tR, tR)                'Draw Tab body (Gradient 

                                                            'background) 

         End If 

                                                       

      End If 

 

      InflateRect tR2, 0, 1                                  'A little adjustment ... 

 

      If Not TabTitle = vbNullString Then 

       

         lR = DrawThemeBackground(hTheme, Obj.hDC, _ 

                                  TAB_TOPTABITEM, _ 

                                  TIBES_SELECTED, _ 

                                  tR2, tR2)                 'Draw Tab Header 

                                            

         lR = DrawThemeBackground(hTheme, Obj.hDC, _ 

                                  TAB_TOPTABITEMRIGHTEDGE, _  

                                  TTIRES_SELECTED, _ 

                                  tR2, tR2)                 'Draw Tab Header Right Edge 

                                   

         lR = DrawThemeBackground(hTheme, Obj.hDC, _ 

                                  TAB_TOPTABITEMLEFTEDGE, _ 

                                  TILES_SELECTED, _ 

                                  tR2, tR2)                 'Draw Tab Header Left Edge 

                                            

         tR2.Top = tR2.Top + 4                              'A little smuggling ... 

                                                                     

         lR = DrawThemeText(hTheme, _ 

                            Obj.hDC, _ 

                            TAB_TOPTABITEM, _ 

                            TTIBES_SELECTED, _ 

                            StrPtr(TabTitle), _ 

                            -1, _ 

                            DT_CENTER Or DT_VCENTER, _ 

                            0, _ 

                             tR2)                            'Draw the text. 

 

       

      End If 

                                                       

      CloseThemeData hTheme                                 'Release Handle 

      DrawTabThemeBackground = True                         'Success, return True. 

       

      Exit Function 

    

   Else                                                     'Draw legacy fake tab. 

    

      GetClientRect Obj.hwnd, tR                               'Get the drawing area rectangle 

 

      tR.Top = 120 / Screen.TwipsPerPixelY                  'Top margin 

      tR.Left = 120 / Screen.TwipsPerPixelX                 'Left margin 

      tR.Right = (Obj.Width / Screen.TwipsPerPixelX) - (215 / Screen.TwipsPerPixelX)   'Right margin 

      tR.Bottom = tR.Bottom - (630  / Screen.TwipsPerPixelY)  'Button margin below the Tab. 

    

      tR2.Top = 135 / Screen.TwipsPerPixelY                 'Tab text. 

      tR2.Left = 120 / Screen.TwipsPerPixelX 

      tR2.Bottom = 465 / Screen.TwipsPerPixelY 

      tR2.Right = (Obj.TextWidth(TabTitle) / Screen.TwipsPerPixelX) + 25 

      tR.Top = tR.Top + (tR2.Bottom - tR2.Top) '- 2          ' Make some space for header. 

       

      DrawEdge Obj.hDC, tR, EDGE_RAISED, BF_RECT 

       

      If Not TabTitle = vbNullString Then 

       

         DrawEdge Obj.hDC, tR2, EDGE_RAISED, BF_RIGHT 

          

         DrawEdge Obj.hDC, tR2, EDGE_RAISED, BF_LEFT 

                                                 

         DrawEdge Obj.hDC, tR2, EDGE_RAISED, BF_TOP 

          

         'Since whe're only drawing the borders, the legacy fake Tab is fully 

          'Transparent. With the below function, I'm smuggling  a little again 

         'by copying a small part just below the frame top edge and draw it 

         'over the frame top edge where the caption will be drawn. 

          

         lR = BitBlt(Obj.hDC, tR2.Left + 2, tR2.Bottom - 1, strLength + 15, tR2.Left + 3, _ 

                     Obj.hDC, tR2.Left + 2, tR2.Bottom + 1, vbSrcCopy) 

                   

         tR2.Right =  tR2.Right - 8 

         tR2.Top = tR2.Top + 6 

          

         DrawText Obj.hDC, TabTitle, Len(TabTitle), tR2, vbButtonText 

          

      End If 

          

      DrawTabThemeBackground = True 

 

      Exit Function 

    

   End If 

    

ThemeError: 

 

   DrawTabThemeBackground = False                           'Function failed... 

 

   If ShowErrMsg Then 

 

      If MsgBox("An Error occurred in Function DrawTabThemeBackground:    " & vbCrLf & vbCrLf & _ 

                "Return value" & vbTab & ": " & Str$(lR) & vbCrLf & _ 

                "Error number" & vbTab & ": " & Err.Number & vbCrLf & _ 

                "Error description" & vbTab & ": " & Err.Description & "   " & vbCrLf & _ 

                "Error Object" & vbTab & ": " & Obj.Name & vbCrLf & _ 

                "Error source" & vbTab & ": " & Err.Source & vbCrLf & vbCrLf & _ 

                "Would you like to try to continue executing this function?   ", _ 

                 vbExclamation + vbYesNo) = vbYes Then 

       

         Resume Next 

          

      Else 

       

         Resume AllNotSoWell 

       

      End If 

        

   Else 

    

      Resume AllNotSoWell 

        

   End If 

 

AllNotSoWell: 

 

   Exit Function 

 

End Function 

 

'******************************************************************************************************* 

'******************************************** 

'*********************              FUNCTION ISTHEMED_ 

'** 

'* 

'* Author: Jottum 

'* Date  : 07/15/2007 (mm/dd/yyyy) 

'* Site  : http://www.uitdeschriften.com/files/VB6 

'* 

'* The function IsThemed_ checks if there's any theming going on, if so it tries to get a 

'* handle from the function OpenThemeData. If this succeeds the hTheme variable contains 

'* that handle, otherwise it's 0. (If it's 0 you can't use the theming functions.) 

'* 

'* Usage example:  

'* ¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 

'* If IsThemed_([hWnd], [bShowErrorMessage]) then 

'* 

'*    'Draw/Do theme stuff 

'* 

'* Else 

'* 

'*    'Draw/Do legacy stuff 

'* 

'* End If 

'* ______________ 

'* Usage example: 

'* 

'* Note: 

'* ¯¯¯¯¯ 

'* - I renamed the function from  IsThemed to IsThemed_ and declared it private to avoid any 

'*   possible conflicts with an existing, equally named public declared function. If you would 

'*   like to have this function globally available, Copy and Paste the entire function to one 

'*   of your .BAS modules, change Private to Public and remove all Underscores (6 of them... I think;). 

'* 

'* - You can now call IsThemed() from anywhere in your application. 

'* 

'* - The hWnd parameter is optional, the default is the Desktop's. Me.hWnd is just an example, 

'*   any valid hWnd - or none at all, it'll fetch the desktop's - will do.  

'* _________ 

'* End Note: 

'* 

'* The IT_SHOWERRMSG (bShowErrorMessage) parameter is optional, the default is False which means 

'* it doesn't show the errors (if any) it traps. It could be useful - for example when debuging 

'* unexpected behavior in your application, or while still developing - to set it to true. 

'* 

'* Syntax: 

'* ¯¯¯¯¯¯¯ 

'*    Dim bShowErrorMessage As Boolean                'If declared Public in a module, you can 

'*                                                     'set this flag application wide 

'*    Dim bReturnValue As Boolean 

'* 

'*    bShowErrorMessage = True 

'* 

'*    bReturnValue = IsThemed([ANY_VALID_HWND], [bShowErrorMessage]) 

'* 

'*                   Or                               'No hWnd, static show Error Messages. 

'* 

'*    bReturnValue = IsThemed( , [IT_SHOWERRMSG]) 

'* 

'*                   Or                               'hWnd and show Error Messages 

'*  

'*    bReturnValue = IsThemed([ANY_VALID_HWND], [IT_SHOWERRMSG]) 

'* 

'*                   Or                               'hWnd, no Error Messages 

'* 

'*    If IsThemed_([ANY_VALID_HWND]) Then .... 

'* 

'*                   Or                               'Use all defaults (Desktop hWnd), 

'*                                                    ,no Error Messages 

'*    If IsThemed_() Then .... 

'* ___________ 

'* End Syntax: 

'*  

'** 

'********************* 

'******************************************** 

'******************************************************************************************************* 

 

Public Function IsThemed_(Optional hwnd As Long = 0, Optional ShowErrMsg As Boolean = False) As Boolean 

 

On Error GoTo ThemeError                              'Catch errors, like calling a DLL                                                  'Catch errors... 

                                                      'function and no  DLL in sight. (W2K ?) 

   Dim hTheme As Long                                 'Declare variable for Theme Handle 

    

   If IsThemeActive() Then                            'Aha, theming! Now try to get a handle. 

    

      If hwnd = 0 Then                                'But first make sure we've got a valid 

                                                      'hWnd passed, and if not get the 

         hwnd = GetDesktopWindow                       'Desktop's 

       

      End If 

    

      hTheme = OpenThemeData(hwnd, StrPtr("Status"))  'Any pszClasslist item will do, I 

                                                      'just picked "Status" at random. 

      If (hTheme <> 0) Then                           'We've got a handle 

    

         CloseThemeData hTheme                        'Release handle. 

         IsThemed_ = True                              'Return Success. 

          

         Exit Function                                'We don't want to bump into 

                                                      'ThemeError. ;) 

      Else 

          

         IsThemed_ = False                            'Can't get a handle, so nothing is open. 

          

         Exit Function                                'Let's split! 

          

      End If 

    

   Else 

    

      IsThemed_ = False                                'No theming! 

       

      Exit Function                                   'Let's split here too! 

    

   End If 

 

ThemeError: 

 

   IsThemed_ = False                                  'Don't forget to set flag to false. 

 

   If ShowErrMsg Then                                 '... display MessageBox with Error 

    

      MsgBox "An Error occurred in Function IsThemed_: " & vbCrLf & vbCrLf & _ 

             "Error number" &  vbTab & ": " & Err.Number & vbCrLf & _ 

             "Error description" & vbTab & ": " & Err.Description & "   " & vbCrLf & _ 

             "Error source" & vbTab & ": " & Err.Source & vbCrLf & vbCrLf & _ 

             "Code execution has stopped for this call.   ", vbExclamation 

 

   End If 

 

   Resume AllNotSoWell 

 

AllNotSoWell: 

 

   Exit Function 

 

End Function 

 

'See WhatIsThemeFont just below. 

 

Public Function ThemeSysFont() As String 

 

   Dim lHwnd As Long 

   Dim lHdc As Long 

   Dim lKind As Long 

   Dim lState As Long 

 

   lHwnd = GetDesktopWindow 

   lHdc = GetDC(lHwnd) 

   lKind = 4     '4 = PB_GROUPBOX 

   lState = 1    '1 = PBS_NORMAL 

 

   ThemeSysFont = WhatIsThemeFont("Button", lHwnd, lHdc, lKind, lState) 

     

   ReleaseDC lHwnd, lHdc 

 

End Function 

 

'This function needs more attention. Will do that later. 

' 

'WhatIsThemeFont will return just a string containing the 

'font name, not the font object. 

 

Public Function WhatIsThemeFont(pszClassListItem As String, lHwnd As Long, lHdc As Long, iPartId As Long, iState As Long) As String 

 

   On Error Resume Next 

 

   Dim tLogFont As FONTSLOG 

   Dim hTheme  As Long 

 

   If IsThemed_(lHwnd) Then 

 

      hTheme = OpenThemeData(lHwnd, StrPtr(pszClassListItem)) 

 

      If hTheme <> 0 Then 

 

         GetThemeFont hTheme, lHdc, iPartId, iState, TMT_FONT, tLogFont 

 

            If tLogFont.flfFaceName <> "" Then 

 

               WhatIsThemeFont = tLogFont.flfFaceName 

 

            Else 

 

               WhatIsThemeFont = "MS Sans Serif"       'Just to be safe. 

  

            End If 

 

         CloseThemeData hTheme 

 

      Else 

 

         WhatIsThemeFont = "MS Sans Serif" 

 

            'Not good if you get here, so show a message. 

 

            MsgBox "An Error occured retrieving a theme handle from OpenThemeData():   " & vbCrLf & vbCrLf & _ 

                   " - Function" & vbTab & ": WhatIsThemeFont   " & vbCrLf & _ 

                   " - Module  " & vbTab & ": DrawTabBckgrnd.bas   ", vbCritical 

 

      End If 

 

   Else 

  

      WhatIsThemeFont = "MS Sans Serif"               'Default on any none themed OS, this is 

                                                      'the dirty way, I know. :) 

   End If 

 

   On Error GoTo 0                                    'Reset normal error trapping 

 

End Function

Contoh penggunaan:

Private Sub Form_Load() 

    DrawTabThemeBackground Picture1 'memberi theme pada PictureBox 

End Sub

Apakah pekerjaan kita selesai sampai disini? Tidak! setidaknya ada pekerjaan lagi yang harus dilakukan, pertama: melakukan transparansi terhadap object Frame, kedua: melakukan transparansi terhadap object OptionButton dan CheckBox. Mungkin pada posting selanjutnya.

Modul Agar Aplikasi Ter-pin Dengan Desktop - Visual Basic 6

2011-08-04T22:16:00.003+07:00

Menjelaskan mengenai cara agar sebuah aplikasi terpin dengan desktop - Pin terhadap dekstop artinya memindahkan parent sebuah aplikasi yang semula parentnya "ExploreWClass" menjadi "Progman", mungkin timbul pertanyaan pada diri kita, apakah tujuannya? Masih ingatkah Anda dengan aplikasi jam dinding desktop, kalender desktop, agenda desktop, reminder desktop, atau aplikasi-aplikasi lain yang serba desktop, karena terjadi perbedaan parent, maka aplikasi-aplikasi desktop tersebut akan selalu berada di belakang atau seolah-olah menempel dengan desktop.

'Simpan kode di bawah pada module 

Option Explicit 

 

'--------------------------------------------------------------------------------------- 

' 

' Module    : modPinToDesktop  

' DateTime  : 28/06/2005 09:14 PM 

' Update    : 29/06/2005 02:11 PM (Added unpin sub) 

' Author    : Carlos Alberto S. 

' Purpose   : Module to easily pin or stick an application to Windows' desktop. 

'             It will work with "Active Desktop" on or off and with "Show desktop icons" 

'             on or off too. The WinKey+D or WinKey+M won't minimize the pinned application. 

'             Tested only in Windows XP. 

' Credits   : Original code by Jesse Seidel (Dr. Fire). The original code works 

'              just when Active Desktop is on. Thanks  "herd" for the explanation. 

'              http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=57755&lngWId=1 

' Article   : http://msdn.microsoft.com/msdnmag/issues/0600/w2kui2/ 

' 

'--------------------------------------------------------------------------------------- 

 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal  lpsz1 As String, ByVal lpsz2 As String) As Long 

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long 

 

Public Sub PinToDesktop(FormToPin As Form) 

 

    '"Progman" would be the parent window of the SHELLDLL_DefView class that 

    '   itself would be either hosting the SysListView32 in classic view 

    '   or the Internet Explorer_Server in Active Desktop view. 

     

    Dim progman As Long 

    progman = FindWindow("Progman", vbNullString) 

    SetParent FormToPin.hWnd, progman 

 

End Sub 

 

Public Sub UnPinFromDesktop(FormToUnPin As Form) 

 

    Dim lngExplorer As Long 

     

    lngExplorer = FindWindow("ExploreWClass", vbNullString) 

    SetParent FormToUnPin.hWnd, lngExplorer 

 

End Sub 

 

'Another way to pin or stick to desktop (limitation: if the application is running and the user 

'   set the desktop to "Show icons" the  application will be hidden). 

 

Public Sub StickToDesktop(FormToStick As Form) 

 

    Dim progman As Long 

    Dim shelldlldefview As Long 

    Dim tDesktop As Long 

     

    progman = FindWindow("progman", vbNullString) 

    shelldlldefview = FindWindowEx(progman, 0&, "shelldll_defview", vbNullString) 

    SetParent FormToStick.hWnd, shelldlldefview 

 

End Sub

Contoh penggunaan:

'Simpan kode di bawah pada form 

Private Sub Command1_Click() 

    PinToDesktop Me 'menempelkan aplikasi terhadap desktop 

End Sub 

 

Private Sub Command2_Click() 

    UnPinFromDesktop Me 'mengeluarkan aplikasi dari desktop 

End Sub

Download Koleksi Ribuan Icon Format .ICO .PNG .GIF

2011-08-03T20:30:00.005+07:00

Apabila Anda sedang merancang sebuah project dan merasa kekurangan dengan icon yang Anda miliki, mungkin koleksi icon di bawah ini cukup untuk menambahnya. Dibagi menjadi 5 bagian, masing-masing bagian memiliki ukuran sekitar 25.6 MB, terdiri dari format .ICO .PNG dan .GIF.

Semoga b

Memasukan Gambar ke Dalam OCX - Teka-Teki VB6

2011-07-18T17:35:00.000+07:00

Setelah teka-teki ShellContextMenu (untuk mengintegrasikan aplikasi dengan Windows Explorer), sekarang saya memiliki teka-teki sederhana yang lain, yakni mengenai cara memasukan gambar ke dalam .OCX (default VB atau third party).

Seperti yang kita ketahui, untuk membuat generator code yang baik salah satunya kita harus dapat memasukan gambar ke dalam .OCX yang kita butuhkan. Untuk .OCXnya saya menggunakan ImageList saja (bukan third party, pada dasarnya ia bisa digunakan untuk segala macam .OCX yang membutuhkan gambar).

Teka-tekinya sederhana, hanya memasukan gambar ke dalam objek ImageList, tentu Anda dapat memecahkannya. Apabila Anda menyukai teka-tekinya silakan download pada link di bawah ini:

Download: Teka-Teki Pemrograman VB6

theBatch Add-Ins, Mengatasi Beberapa Masalah Manifest Resource

2011-07-16T23:32:00.002+07:00

Ini merupakan aplikasi VB6 Add-Ins, saya namakan dengan theBatch, karena ia dapat menyelesaikan masalah form yang disebabkan manifest resource secara bersamaan/sekaligus berapapun banyaknya form tersebut. Modul utamanya milik Eduardo A. Morcillo and Vlad Vissoultchev (pembuat Hook Menu).

Beberapa masalah manifest tersebut, diantaranya:

Flickering pada frame
Hilangnya mnemonic (shorcut underline), ini sangat mengganggu dalam aplikasi database.
CommandButton yang ditempatkan pada frame akan memiliki border hitam disekelilingnya
CommandButton dengan property Style = 1 - Graphical, tidak bisa ditheme XP
OptionButton yang dtempatkan pada frame akan memiliki background hitam

Perhatikan gambar di bawah ini:

Download: theBatch dan Sample UI.

Shell Context Menu Yang Disertai Icon - VB6 Shell Programming

2011-07-16T22:46:00.001+07:00

Ini hanya sekedar teka-teki (mudah-mudahan Anda menyukai teka-teki) mengenai Shell Context Menu yang disertai icon. Seperti yang kita ketahui shell context menu sangat berguna untuk mempermudah penggunaan aplikasi tertentu, sebut saja: FTP software seperti Filezilla, AntiVirus seperti Smadav, Editor seperti Notepad++, Compressor seperti Winzip, Winrar, dsb.

Seperti yang disebutkan di atas, saya pun memiliki ShellContextMenu yang disertai icon (menggunakan Third Party sebenarnya), ShellContextMenu tersebut saya gunakan untuk mengupload file ke server 000webhost.com atau mengirimkan gambar ke picasa album (blogger) secara batch.

Nah, di bawah ini merupakan ShellContextMenu yang saya gunakan tapi sudah dimodifikasi, asumsinya kita membuat sebuah software AntiVirus namanya Sang-AV, Shell Context Menunya memiliki lima opsi, diantaranya: light scan, normal scan, deep scan, hard scan, terakhir quarantine.

Untuk melihat kinerja ShellContextMenu tersebut, lakukan langkah berikut:

Download terlebih dahulu Shell Context Menu pada link disamping: ShellContextMenu
Extract, maka akan terdapat 4 file, masing-masing: Install.bat berguna untuk meregistrasikan MyExtentions.dll, MyExtention.dll, IconLib (Icon Library untuk shell context menu), ShellExtentions.exe.
Klik Install.bat
Klik ShellExtentions.exe
Cobalah menuju Windows Explorer, dan klik kanan, apakah aplikasinya sudah terintegrasi dengan Windows Explorer? seperti gambar di bawah ini (jika belum lakukan restart):

Gambar: Shell Context Menu dengan Icon pada Windows XP

Catatan: jika sudah bosan bermain-main dengan context menu dan sudah menemukan jawaban dari teka-tekinya, Anda dapat menghapusnya dengan cara mengklik tombol 'Hapus ShellContext'. Semoga Bermanfaat.

WordWrap Class Selector Untuk Beberapa Browser - Blogging

2011-07-16T21:52:00.003+07:00

Menjelaskan mengenai cara menambahkan Word Wrap pada class selector - Pada saat memposting, adakalanya kita perlu menambahkan wordwrap, penyebabnya karena kode-kode tersebut harus dituliskan satu baris (tanpa karakter CrLf, jika dibuat beberapa baris akan merusak tampilannya karena blogger akan secara otomatis menambahkan tag <br>), misalnya mengenai cara membuat spoiler yang telah saya jelaskan terdahulu. Perhatikan kode di bawah (yang diambil dari cara membuat spoiler ala wikipedia).

<div style="padding: 10px; border:1px solid #ccc;background:#f9f9f9"><div style="margin-bottom: 0px;font-family: arial;font-size:12px;"><b>Spoiler Title:</b><input value="Show" style="border:0px solid #000;margin:0px;color:#0000FF;font-family: arial; font-size: 12px; height:16; background:#f9f9f9" onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display !=  '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" type="button"> </div><div style="margin: 0 10px 0px 10px; padding: 0px; border: 0px inset #fff;"><div style='display:none'><br/>Text Spoiler</div></div></div>

Yang di atas itu menggunakan kode seperti di bawah ini (kode di atas itu jika Anda copy dan pastekan ke dalam notepad++ sebenarnya satu baris, tetapi dalam class selectornya ditambahkan wordwrap agar terlihat seluruhnya.):

.codehtml
{
    font-size:90%;
    font-family:"Courier New", "Times New Roman", Georgia, Serif;
    padding:6px;
    border:1px solid #234;
    background:#FAFAFA;
    line-height:150%;
    border-color:#BBBBBB;
    overflow:clip;
    white-space: pre;            /* CSS 2.0 */
    white-space: pre-wrap;      /* CSS 2.1 */
    white-space: pre-line;      /* CSS 3.0 */
    white-space: -pre-wrap;     /* Opera 4-6 */
    white-space: -o-pre-wrap;   /* Opera 7 */
    white-space: -moz-pre-wrap; /* Mozilla */
    white-space: -hp-pre-wrap;  /* HP Printers */
    word-wrap: break-word;      /* IE 5+ */
}

Catatan: yang diberi warna merah di atas yang harus anda tambahkan ke dalam kelas selector untuk menambahkan fasilitas wordwrap.

Collapsable Text - Solusi Menulis Kode Yang Panjang Pada Posting

2011-07-16T01:02:00.001+07:00

Mengenai cara membuat expand/collapse pada class selector - Apa yang dimaksud dengan expand/collapse text itu? perhatikan di bawah, klik Expand Code untuk mencobanya(asumsinya kita memiliki satu atau beberapa kode yang panjang dalam sebuah posting):

Expand Code...

Option Explicit 
 
'------------------------------------------------------------------------------- 
' ucTextBox (User Control TextBox for Database) 
' http://khoiriyyah.blogspot.com 
' -- Asep Hibban -- 
'------------------------------------------------------------------------------- 
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long 
 
Private Const EM_SETMARGINS = &HD3 
Private Const EC_LEFTMARGIN = &H1 
Private Const EC_RIGHTMARGIN = &H2 
 
Private Type RECT 
    Left As Long 
    Top As Long 
    Right As Long 
    Bottom As Long 
End Type 
 
Private Type COMBOBOXINFO 
    cbSize As Long 
    rcItem As RECT 
    rcButton As RECT 
    stateButton  As Long 
    hwndCombo  As Long 
    hwndEdit  As Long 
    hwndList As Long 
End Type 
 
Private Const ECM_FIRST As Long = &H1500 
Private Const EM_SETCUEBANNER As Long = (ECM_FIRST + 1) 
 
Public Enum eTextConvertion 
    [GeneralConvertion] = 0 
    [UpperCase] = 1 
    [LowerCase] = 2 
    [ProperCase] = 3 
End Enum 
 
Public Enum eTextValidation 
    [GeneralValidation] = 0 
    [Alphabet] = 1 
    [AlphaNumeric] = 2 
    [Numeric] = 3 
End Enum 
 
Public Enum eAppearance 
    [Flat] = 0 
    [3D] = 1 
End Enum 
 
Public Enum eStyle 
    [Classic] = 0 
    [XP] = 1 
End Enum 
 
Public Enum eAlignment 
    [Left Justify] = 0 
    [Right Justify] = 1 
    [Center] = 2 
End Enum 
 
Public Enum eBorderStyle 
    [None] = 0 
    [Fixed Single] = 1 
End Enum 
 
Public Enum eDragMode 
    [Manual] = 0 
    [Automatic] = 1 
End Enum 
 
Public Enum eLinkMode 
    [None] = 0 
    [Automatic] = 1 
    [Manual] = 2 
    [Notify] = 3 
End Enum 
 
Public Enum eOLEDropMode 
    [None] = 0 
    [Manual] = 1 
    [Automatic] = 2 
End Enum 
 
Public Enum eOLEDragMode 
    [Manual] = 0 
    [Automatic] = 1 
End Enum 
 
Public Enum eScrollBars 
    [None] = 0 
    [Horizontal] = 1 
    [Vertical] = 2 
    [Both] = 3 
End Enum 
 
Public Enum eScaleMode 
    [User] = 0 
    [Twip] = 1 
    [Point] = 2 
    [Pixel] = 3 
    [Character] = 4 
    [Inch] = 5 
    [Millimeter] = 6 
    [Centimeter] = 7 
End Enum 
 
Public Enum eMousePointer 
    [Default] = 0 
    [arrow] = 1 
    [Cross] = 2 
    [i -Beam] = 3 
    [Icon] = 4 
    [Size] = 5 
    [Size NE SW] = 6 
    [Size N S] = 7 
    [Size NW SE] = 8 
    [Size W E] = 9 
    [Up arrow] = 10 
    [Hourglass] = 11 '(wait) 
    [No Drop] = 12 
    [Arrow and Hourglass] = 13 
    [Arrow and Question] = 14 
    [Size All] = 15 
    [Custom] = 99 
End Enum 
 
Public AutoSelection As Boolean 
Public AutoTab As Boolean 
Public TextConvertion As eTextConvertion 
Public TextValidation As eTextValidation 
Public AllowDecimal As Boolean 
Public Required As Boolean 
Public Information As Variant 
Private m_marginLeft As Integer 
Private m_marginRight As Integer 
Private m_CueBanner As String 
 
Event Click() 
Event DblClick() 
Event KeyDown(KeyCode As Integer, Shift As Integer) 
Event KeyPress(KeyAscii As Integer) 
Event KeyUp(KeyCode As Integer, Shift As Integer) 
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
 
Public Property Get BackColor() As OLE_COLOR 
    BackColor = Text1.BackColor 
End Property 
 
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR) 
    Text1.BackColor() = New_BackColor 
    PropertyChanged "BackColor" 
End Property 
 
Public Property Get ForeColor() As OLE_COLOR 
    ForeColor = Text1.ForeColor 
End Property 
 
Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR) 
    Text1.ForeColor() = New_ForeColor 
    PropertyChanged "ForeColor" 
End Property 
 
Public Property Get Enabled() As Boolean 
    Enabled = Text1.Enabled 
End Property 
 
Public Property Let Enabled(ByVal New_Enabled As Boolean) 
    Text1.Enabled() = New_Enabled 
    PropertyChanged "Enabled" 
End Property 
 
Public Property Get Font() As Font 
    Set Font = Text1.Font 
End Property 
 
Public Property Set Font(ByVal New_Font As Font) 
    Set Text1.Font = New_Font 
    PropertyChanged "Font" 
End Property 
 
Public Property Get BorderStyle() As eBorderStyle 
    BorderStyle = Text1.BorderStyle 
End Property 
 
Public Property Let BorderStyle(ByVal New_BorderStyle As eBorderStyle) 
    Text1.BorderStyle() = New_BorderStyle 
    PropertyChanged "BorderStyle" 
End Property 
 
Public Sub Refresh() 
    Text1.Refresh 
End Sub 
 
Private Sub Text1_Click() 
    RaiseEvent Click 
End Sub 
 
Private Sub Text1_DblClick() 
    RaiseEvent DblClick 
End Sub 
 
Private Sub Text1_GotFocus() 
    On Error Resume Next 
    If AutoSelection Then 
        Text1.SelStart = 0 
        Text1.SelLength = Len(Text1.Text) 
    End If 
End Sub 
 
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 
    RaiseEvent KeyDown(KeyCode, Shift) 
End Sub 
 
Private Sub Text1_KeyPress(KeyAscii As Integer) 
    Dim intSelStart As Integer 
    Dim strText As String 
 
    RaiseEvent KeyPress(KeyAscii) 
    If AutoTab Then 
        If KeyAscii = 13 Then SendKeys "{Tab}" 
    End If 
    If KeyAscii = 8 Then 
        Exit Sub 
    End If 
    Select Case TextConvertion 
        Case GeneralConvertion 
        Case UpperCase 
            KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase)) 
        Case LowerCase 
            KeyAscii = Asc(StrConv(Chr(KeyAscii), vbLowerCase)) 
        Case ProperCase 
            intSelStart = Text1.SelStart 
            strText = Text1.Text 
            strText = StrConv(strText, vbProperCase) 
            Text1.Text = strText 
            If Text1.SelLength = Len(Text1.Text) Then 
                Text1.SelStart = Len(Text1.Text) 
            Else 
                Text1.SelStart = intSelStart 
            End If 
    End Select 
 
    If TextValidation = Numeric Then 
        Dim intDummyDecimalSymbol As Integer 
        strText = Text1.Text 'hanya untuk mempercepat & mencegah dari terjadinya flick 
        intDummyDecimalSymbol = IIf(InStr(1, strText, Chr(GetDecimalSymbol)) = 0, GetDecimalSymbol, 0) 
        If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or _ 
        KeyAscii = 8 Or KeyAscii = 45 Or KeyAscii = intDummyDecimalSymbol) Then 
        KeyAscii = 0 
    End If 
    On Error Resume Next 
    Text1.Text = strText 
    Exit Sub 
End If 
 
Select Case TextValidation 
    Case Alphabet 
        If Not Chr(KeyAscii) Like "*[a-zA-Z]*" Then 
            KeyAscii = 0 
        End If 
    Case AlphaNumeric 
        If Not Chr(KeyAscii) Like "*[a-zA-Z0-9]*" Then 
            KeyAscii = 0 
        End If 
End Select 
 
End Sub 
 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) 
    RaiseEvent KeyUp(KeyCode, Shift) 
End Sub 
 
Private Sub Text1_LostFocus() 
    PropertyChanged "Text" 
End Sub 
 
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    RaiseEvent MouseDown(Button, Shift, X, Y) 
End Sub 
 
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    RaiseEvent MouseMove(Button, Shift, X, Y) 
End Sub 
 
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    RaiseEvent MouseUp(Button, Shift, X, Y) 
End Sub 
 
Public Property Get Alignment() As eAlignment 
    Alignment = Text1.Alignment 
End Property 
 
Public Property Let Alignment(ByVal New_Alignment As eAlignment) 
    Text1.Alignment() = New_Alignment 
    PropertyChanged "Alignment" 
End Property 
 
Public Property Get Appearance() As eAppearance 
    Appearance = Text1.Appearance 
End Property 
 
Public Property Let Appearance(ByVal New_Appearance As eAppearance) 
    Text1.Appearance() = New_Appearance 
    PropertyChanged "Appearance" 
End Property 
 
Public Property Get CausesValidation() As Boolean 
    CausesValidation = Text1.CausesValidation 
End Property 
 
Public Property Let CausesValidation(ByVal New_CausesValidation As Boolean) 
    Text1.CausesValidation() = New_CausesValidation 
    PropertyChanged "CausesValidation" 
End Property 
 
Public Property Get HideSelection() As Boolean 
    HideSelection = Text1.HideSelection 
End Property 
 
Public Property Get LinkItem() As String 
    LinkItem = Text1.LinkItem 
End Property 
 
Public Property Let LinkItem(ByVal New_LinkItem As String) 
    Text1.LinkItem() = New_LinkItem 
    PropertyChanged "LinkItem" 
End Property 
 
Public Property Get LinkMode() As eLinkMode 
    LinkMode = Text1.LinkMode 
End Property 
 
Public Property Let LinkMode(ByVal New_LinkMode As eLinkMode) 
    Text1.LinkMode() = New_LinkMode 
    PropertyChanged "LinkMode" 
End Property 
 
Public Property Get LinkTimeout() As Integer 
    LinkTimeout = Text1.LinkTimeout 
End Property 
 
Public Property Let LinkTimeout(ByVal New_LinkTimeout As Integer) 
    Text1.LinkTimeout() = New_LinkTimeout 
    PropertyChanged "LinkTimeout" 
End Property 
 
Public Property Get LinkTopic() As String 
    LinkTopic = Text1.LinkTopic 
End Property 
 
Public Property Let LinkTopic(ByVal New_LinkTopic As String) 
    Text1.LinkTopic() = New_LinkTopic 
    PropertyChanged "LinkTopic" 
End Property 
 
Public Property Get Locked() As Boolean 
    Locked = Text1.Locked 
End Property 
 
Public Property Let Locked(ByVal New_Locked As Boolean) 
    Text1.Locked() = New_Locked 
    PropertyChanged "Locked" 
End Property 
 
Public Property Get MaxLength() As Long 
    MaxLength = Text1.MaxLength 
End Property 
 
Public Property Let MaxLength(ByVal New_MaxLength As Long) 
    Text1.MaxLength() = New_MaxLength 
    PropertyChanged "MaxLength" 
End Property 
 
Public Property Get MouseIcon() As Picture 
    Set MouseIcon = Text1.MouseIcon 
End Property 
 
Public Property Set MouseIcon(ByVal New_MouseIcon As Picture) 
    Set Text1.MouseIcon = New_MouseIcon 
    PropertyChanged "MouseIcon" 
End Property 
 
Public Property Get MousePointer() As eMousePointer 
    MousePointer = Text1.MousePointer 
End Property 
 
Public Property Let MousePointer(ByVal New_MousePointer As eMousePointer) 
    Text1.MousePointer() = New_MousePointer 
    PropertyChanged "MousePointer" 
End Property 
 
Public Property Get MultiLine() As Boolean 
    MultiLine = Text1.MultiLine 
End Property 
 
Public Property Get OLEDragMode() As eOLEDragMode 
    OLEDragMode = Text1.OLEDragMode 
End Property 
 
Public Property Let OLEDragMode(ByVal New_OLEDragMode As eOLEDragMode) 
    Text1.OLEDragMode() = New_OLEDragMode 
    PropertyChanged "OLEDragMode" 
End Property 
 
Public Property Get OLEDropMode() As eOLEDropMode 
    OLEDropMode = Text1.OLEDropMode 
End Property 
 
Public Property Let OLEDropMode(ByVal New_OLEDropMode As eOLEDropMode) 
    Text1.OLEDropMode() = New_OLEDropMode 
    PropertyChanged "OLEDropMode" 
End Property 
 
Public Property Get PasswordChar() As String 
    PasswordChar = Text1.PasswordChar 
End Property 
 
Public Property Let PasswordChar(ByVal New_PasswordChar As String) 
    Text1.PasswordChar() = New_PasswordChar 
    PropertyChanged "PasswordChar" 
End Property 
 
Public Property Get RightToLeft() As Boolean 
    RightToLeft = Text1.RightToLeft 
End Property 
 
Public Property Let RightToLeft(ByVal New_RightToLeft As Boolean) 
    Text1.RightToLeft() = New_RightToLeft 
    PropertyChanged "RightToLeft" 
End Property 
 
Public Property Get ScrollBars() As eScrollBars 
    ScrollBars = Text1.ScrollBars 
End Property 
 
Public Property Get SelLength() As Long 
    SelLength = Text1.SelLength 
End Property 
 
Public Property Let SelLength(ByVal New_SelLength As Long) 
    Text1.SelLength() = New_SelLength 
    PropertyChanged "SelLength" 
End Property 
 
Public Property Get SelStart() As Long 
    SelStart = Text1.SelStart 
End Property 
 
Public Property Let SelStart(ByVal New_SelStart As Long) 
    Text1.SelStart() = New_SelStart 
    PropertyChanged "SelStart" 
End Property 
 
Public Property Get SelText() As String 
    SelText = Text1.SelText 
End Property 
 
Public Property Let SelText(ByVal New_SelText As String) 
    Text1.SelText() = New_SelText 
    PropertyChanged "SelText" 
End Property 
 
Public Property Get Text() As String 
    Text = Text1.Text 
End Property 
 
Public Property Let Text(ByVal New_Text As String) 
    Text1.Text() = New_Text 
    PropertyChanged "Text" 
End Property 
 
Public Property Get WhatsThisHelpID() As Long 
    WhatsThisHelpID = Text1.WhatsThisHelpID 
End Property 
 
Public Property Let WhatsThisHelpID(ByVal New_WhatsThisHelpID As Long) 
    Text1.WhatsThisHelpID() = New_WhatsThisHelpID 
    PropertyChanged "WhatsThisHelpID" 
End Property 
 
Private Sub UserControl_Initialize() 
    AutoSelection = True 
    AutoTab = True 
    AllowDecimal = False 
End Sub 
 
Private Sub MoveTextBox() 
    Text1.Move 0, 0, ScaleWidth, ScaleHeight 
End Sub 
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 
    MoveTextBox 
    Text1.Text = PropBag.ReadProperty("Text", "Text1") 
    Text1.BackColor = PropBag.ReadProperty("BackColor", &H80000005) 
    Text1.ForeColor = PropBag.ReadProperty("ForeColor", &H80000008) 
    Text1.Enabled = PropBag.ReadProperty("Enabled", True) 
    Set Text1.Font = PropBag.ReadProperty("Font", Ambient.Font) 
    Text1.BorderStyle = PropBag.ReadProperty("BorderStyle", 1) 
    Text1.Alignment = PropBag.ReadProperty("Alignment", 0) 
    Text1.Appearance = PropBag.ReadProperty("Appearance", 1) 
    Text1.CausesValidation = PropBag.ReadProperty("CausesValidation", True) 
    Text1.LinkItem = PropBag.ReadProperty("LinkItem", "") 
    Text1.LinkMode = PropBag.ReadProperty("LinkMode", 0) 
    Text1.LinkTimeout = PropBag.ReadProperty("LinkTimeout", 50) 
    Text1.LinkTopic = PropBag.ReadProperty("LinkTopic", "") 
    Text1.Locked = PropBag.ReadProperty("Locked", False) 
    Text1.MaxLength = PropBag.ReadProperty("MaxLength", 0) 
    Set MouseIcon = PropBag.ReadProperty("MouseIcon", Nothing) 
    Text1.MousePointer = PropBag.ReadProperty("MousePointer", 0) 
    Text1.OLEDragMode = PropBag.ReadProperty("OLEDragMode", 0) 
    Text1.OLEDropMode = PropBag.ReadProperty("OLEDropMode", 0) 
    Text1.PasswordChar = PropBag.ReadProperty("PasswordChar", "") 
    Text1.RightToLeft = PropBag.ReadProperty("RightToLeft", False) 
    Text1.SelLength = PropBag.ReadProperty("SelLength", 0) 
    Text1.SelStart = PropBag.ReadProperty("SelStart", 0) 
    Text1.SelText = PropBag.ReadProperty("SelText", "") 
    Text1.WhatsThisHelpID = PropBag.ReadProperty("WhatsThisHelpID", 0) 
    AutoSelection = PropBag.ReadProperty("AutoSelection", True) 
    AutoTab = PropBag.ReadProperty("AutoTab", True) 
    TextConvertion = PropBag.ReadProperty("TextConvertion", 0) 
    TextValidation = PropBag.ReadProperty("TextValidation", 0) 
    AllowDecimal = PropBag.ReadProperty("AllowDecimal", False) 
    Required = PropBag.ReadProperty("Required", True) 
    Information = PropBag.ReadProperty("Information", "") 
    m_marginLeft = PropBag.ReadProperty("MarginLeft", 0) 
    m_marginRight = PropBag.ReadProperty("MarginRight", 0) 
    m_CueBanner = PropBag.ReadProperty("CueBanner", "") 
    SetCueBanner Text1, m_CueBanner 
    SetMargin 
End Sub 
 
Private Sub UserControl_Resize() 
    MoveTextBox 
End Sub 
 
Private Sub UserControl_Show() 
    UserControl.Refresh 
    Text1.Refresh 
End Sub 
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 
    Call PropBag.WriteProperty("BackColor", Text1.BackColor, &H80000005) 
    Call PropBag.WriteProperty("ForeColor", Text1.ForeColor, &H80000008) 
    Call PropBag.WriteProperty("Enabled", Text1.Enabled, True) 
    Call PropBag.WriteProperty("Font", Text1.Font, Ambient.Font) 
    Call PropBag.WriteProperty("BorderStyle", Text1.BorderStyle, 1) 
    Call PropBag.WriteProperty("Alignment", Text1.Alignment, 0) 
    Call PropBag.WriteProperty("Appearance", Text1.Appearance, 1) 
    Call PropBag.WriteProperty("CausesValidation", Text1.CausesValidation, True) 
    Call PropBag.WriteProperty("LinkItem", Text1.LinkItem, "") 
    Call PropBag.WriteProperty("LinkMode", Text1.LinkMode, 0) 
    Call PropBag.WriteProperty("LinkTimeout", Text1.LinkTimeout, 50) 
    Call PropBag.WriteProperty("LinkTopic", Text1.LinkTopic, "") 
    Call PropBag.WriteProperty("Locked", Text1.Locked, False) 
    Call PropBag.WriteProperty("MaxLength", Text1.MaxLength, 0) 
    Call PropBag.WriteProperty("MouseIcon", MouseIcon, Nothing) 
    Call PropBag.WriteProperty("MousePointer", Text1.MousePointer, 0) 
    Call PropBag.WriteProperty("OLEDragMode", Text1.OLEDragMode, 0) 
    Call PropBag.WriteProperty("OLEDropMode", Text1.OLEDropMode, 0) 
    Call PropBag.WriteProperty("PasswordChar", Text1.PasswordChar, "") 
    Call PropBag.WriteProperty("RightToLeft", Text1.RightToLeft, False) 
    Call PropBag.WriteProperty("SelLength", Text1.SelLength, 0) 
    Call PropBag.WriteProperty("SelStart", Text1.SelStart, 0) 
    Call PropBag.WriteProperty("SelText", Text1.SelText, "") 
    Call PropBag.WriteProperty("Text", Text1.Text, "") 
    Call PropBag.WriteProperty("WhatsThisHelpID", Text1.WhatsThisHelpID, 0) 
    Call PropBag.WriteProperty("AutoSelection", AutoSelection, True) 
    Call PropBag.WriteProperty("AutoTab", AutoTab, True) 
    Call PropBag.WriteProperty("TextConvertion", TextConvertion, 0) 
    Call PropBag.WriteProperty("TextValidation", TextValidation, 0) 
    Call PropBag.WriteProperty("Text", Text1.Text, "Text1") 
    Call PropBag.WriteProperty("AllowDecimal", AllowDecimal, False) 
    Call PropBag.WriteProperty("Required", Required, True) 
    Call PropBag.WriteProperty("Information", Information, "") 
    Call PropBag.WriteProperty("MarginLeft", m_marginLeft, 0) 
    Call PropBag.WriteProperty("MarginRight", m_marginRight, 0) 
    Call PropBag.WriteProperty("CueBanner", m_CueBanner, "") 
End Sub 
 
Private Sub Text1_Change() 
    PropertyChanged "Text" 
End Sub 
 
Public Function GetDecimalSymbol() As Integer 
    If AllowDecimal Then GetDecimalSymbol = Asc(Mid$(1 / 2, 2, 1)) 
End Function 
 
Public Property Get MarginLeft() As Integer 
    MarginLeft = m_marginLeft 
End Property 
 
Public Property Let MarginLeft(ByVal New_MarginLeft As Integer) 
    m_marginLeft = New_MarginLeft 
    PropertyChanged "MarginLeft" 
    SetMargin 
End Property 
 
Public Property Get MarginRight() As Integer 
    MarginRight = m_marginRight 
End Property 
 
Public Property Let MarginRight(ByVal New_MarginRight As Integer) 
    m_marginRight = New_MarginRight 
    PropertyChanged "MarginRight" 
    SetMargin 
End Property 
 
Private Sub SetMargin() 
    Dim long_value As Long 
    Dim s As String 
    long_value = m_marginRight * &H10000 + m_marginLeft 
    SendMessage Text1.hwnd, EM_SETMARGINS, EC_LEFTMARGIN Or EC_RIGHTMARGIN, long_value 
    s = Text1.Text 
    Text1.Text = "" 
    Text1.Text = s 
End Sub 
 
Public Property Get CueBanner() As String 
    CueBanner = m_CueBanner 
End Property 
 
Public Property Let CueBanner(ByVal New_CueBanner As String) 
    m_CueBanner = New_CueBanner 
    PropertyChanged "CueBanner" 
    SetCueBanner Text1, m_CueBanner 
End Property 
 
Private Sub SetCueBanner(obj As Object, str As String) 
    Dim s As String 
    s = StrConv(str, vbUnicode) 
    Call SendMessage(obj.hwnd, EM_SETCUEBANNER, 0&, ByVal s) 
End Sub

Untuk melakukannya dapat dengan cara melakukan link external atau secara internal (meng-embed-nya langsung pada template).

Cara Pertama (External):

Download link disamping: http://khoiriyyah.vacau.com/expander.js
Upload file expander.js kembali pada hosting Anda
Login ke blogger.com
Simpan di bawah tag <head> <script src='http://hostinganda/expander.js' type='text/javascript'></script>

Pada postingan tulislah kode di bawah:

<span style="color: #0000FF; text-decoration: underline; cursor: pointer;" onClick="toggleOverflowText('hiddenText1', this, 'Collapse Code...', 'Expand Code...', '200px');">Expand Code...</span>
<pre class="code" id="hiddenText1" style="height: 200px";>Tulisan/Code yang akan di-expand/collapse</pre>

Cara Kedua (Embed Pada Template Blogger):

Login ke blogger.com
Klik Rancangan >> Edit HTML

Simpan kode di bawah dimana saja antara tag <head> </head>

<script type='text/javascript'>
function toggleOverflowText (hiddenDivId, expander, expandText, collapseText, collapseHeight) {
    if (document.getElementById) {
        if (document.getElementById(hiddenDivId).style.height == &quot;&quot;) {
            document.getElementById(hiddenDivId).style.overflow = &quot;auto&quot;;
            document.getElementById(hiddenDivId).style.height = collapseHeight;
            expander.innerHTML = collapseText?collapseText:defaultHideText;
       } else {
            document.getElementById(hiddenDivId).style.overflow = &quot;auto&quot;;
           document.getElementById(hiddenDivId).style.height = &quot;&quot;;
           expander.innerHTML = expandText?expandText:defaultExpandText;
       }  
    }
}
</script>

Pada postingan tulislah kode di bawah:

<span style="color: #0000FF; text-decoration: underline; cursor: pointer;" onClick="toggleOverflowText('hiddenText1', this, 'Collapse Code...', 'Expand Code...', '200px');">Expand Code...</span>
<pre class="code" id="hiddenText1" style="height: 200px";>Tulisan/Code yang akan di-expand/collapse</pre>

Catatan: 200px adalah tinggi dari class selector, Anda dapat menggantinya sesuai dengan tinggi class selector yang diinginkan, Anda juga dapat mengganti tag <pre></pre> dengan <div></div>, silakan berinovasi.

Auto Checker Google Page Rank Monitor 1.0 - Blogger Tools

2011-07-15T15:27:00.003+07:00

Ini merupakan aplikasi untuk melihat Google Page Rank. Sebagian besar source codenya saya ambil dari situs milik Leandro Ascierto, saya hanya sedikit menambahkan kode agar kompatibel dengan Firefox.

Gambar: Auto Checker Google Page Rank Monitor 1.0

Fitur-Fitur Google Page Rank Monitor 1.0:

Portable
Automatic Checker (tanpa membutuhkan verifikasi yang merepotkan)
Kecil dan ringan
Bekerja dengan baik pada koneksi internet yang lambat
dan lain-lain

Kekurangannya:

Untuk sementara hanya bekerja pada Firefox.

Cara menggunakan:

Buka Firefox
Klik install.bat untuk meregistrasikan komponen PageRank.dll
Jalankan Google Page Rank Monitor 1.0
Selesai.

Download: Google Page Rank Monitor 1.0

Catatan: Pada dasarnya, kita dapat melihat dengan mudah Google Page Rank melalui Google ToolBar. Aplikasi ini hanya sekedar contoh, apabila kita ingin membuat browser sendiri yang dilengkapi dengan Google Page Rank, atau fasilitas-fasilitas yang terdapat pada Google Toolbar dengan cara melakukan request ke http://toolbar.google.com/.... (query).

Skin Form Yang Mengagumkan Ini milik Leandro Ascierto

2011-07-03T12:04:00.001+07:00

Selain Codejock dan Active Skin, skin form yang dibuat oleh Leandro Ascierto (argentina) ini layak sekali untuk dipertimbangkan. Memiliki banyak contoh skin, kurang lebih ada 16 skin. Apabila kita belum puas dengan tampilannya, kita bisa membuat custom skin, karena projectnya (terpisah) dilengkapi dengan fasilitas editor untuk membuat custom skin.
Adapun screenshoot dari skin form milik Leandro Ascierto bisa Anda lihat di bawah ini:

Skin form (open source dan lengkap beserta contohnya) dapat Anda download di: http://www.leandroascierto.com.ar/categoria/Skins%20para%20Formularios/articulo/M%C3%B3dulo.php

Selain skin form, di situs miliknya, kita akan mendapati resource-resource berupa uc(User Control) yang berkualitas.