Messages

151

Teknologi Informasi / Re: Digital Universal Buddhist Dictionary (Beta Release)

« on: 17 April 2010, 09:36:45 PM »

sekedar saran u/ samanera. coba register di esnips.

http://www.esnips.com

Ini kan masih versi beta. Jadi mau melihat bagaimana bagaimana kamus ini bekerja di komputer lain. Setelah seminggu nanti dan helpnya sudah selesai, mungkin akan release yang jadinya dan akan saya post di permanent website. Saya rencanakan juga untuk membuat website untuk kamus digital ini.

152

Teknologi Informasi / Digital Universal Buddhist Dictionary (Beta Release)

« on: 17 April 2010, 06:11:17 PM »

Setelah bekerja keras selama berbulan-bulan, mengatasi segala rintangan, merepoti teman-teman di DC dengan segala pertanyaan (semoga saja tidak ada yang kapok), akhirnya hari ini saya merelease versi percobaan Digital Universal Buddhist Dictionary.

Berikut ini adalah linknya:
https://www.yousendit.com/download/bFFPRGwwdVVGOFR2Wmc9PQ

Versi ini hanya bisa di download oleh 100 orang dalam jangka 7 hari. Setelah itu, file akan dihapus dari server.

Untuk sementara ini, saya masih menulis manual help (cara penggunaan kamus ini). so, pintar-pintar saja menggunakannya. Databasenya terdiri dari 78.000+ entry dibagi dalam empat kamus yaitu:

• Pāli-English Dictionary (Edisi P.T.S)
• Concise Pāli-English Dictionary (A.P. Buddhadatta)
• English-Pāli Dictionary
• Dictionary Pāli Proper Names (G.P. Malalasekera)

System requirement:

• O.S: Windox XP, Windows 7, Vista
• Memory: tidak tahu cara mengukurnya
• .Net Framework 2 atau lebih baik 3,5

Screenshot:

Main screen


Main Screen query


Editor:


Editor query + Update:


Penambahan Kamus:


Help (masih dalam process):


Saya yakin ada banyak programmer di DC. Karena itu, saya mohon review, komentar dan kritik terhadap kamus digital ini. Ayo ambil bagian teman-teman untuk kemajuan Buddhist studies.
Thank you.

153

Kesehatan / Re: (SHARE) SAKIT MAAG...pengalaman..pencegahan dan cara mengatasinya...

« on: 13 April 2010, 02:56:41 PM »

Saya dulu kena maag juga tetapi sekarang makan teratur. Maag itu hilang sendiri. Kalau di keluarga kami, kami makan ubi kayu yang masih mentah. Ubi itu cukup dikupas dan dicuci lalu dimakan. Tujuannya adalah agar kanjinya mengendap di perut kita dan itu akan menjadi obat. Kakak saya sih sembuh dengan cara begitu dan tidak terkena maag lagi. Ya, yang teratur saja jam makannya. Jangan makan sesuka hati, alias makan tidak pakai jadwal yang tepat.

154

Teknologi Informasi / Re: Mohon bantuan untuk backspace

« on: 13 April 2010, 12:03:50 PM »

Sudah dibantu oleh bro syncmetal. Berikut adalah solusinya. Sorry bro ga bisa kirim pm krn pm bro lagi penuh. Sekali lagi a lot of thanks. Saya akan publish kamusnya segera setelah selesai.

Code: [Select]

Private Sub txtfind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfind.TextChanged
Dim combo As String = ComboBox1.SelectedItem
   if textbox1.text<>"" then
        Dim find As String = txtfind.Text
        sql = "SELECT * FROM Entry WHERE Entrylists LIKE '" + CStr(find) + "%' and DictLists LIKE '" + CStr(combo) + "%'"
       
        Call listLoad()
        If txtfind.TextLength = -1 Then
            txtfind.Focus()
        End If
        Dim curItem As String = txtfind.Text.ToString()
        Dim index As Integer = ListBox1.FindString(curItem)
        ' If the item was not found in ListBox 2 display a message box, otherwise select it in ListBox2.
        If index = -1 Then
            Dim frm As New XtraMsgVocNot
            frm.ShowDialog()

        Else
            ListBox1.SetSelected(index, True)
        End If
   else
        listbox1.items.clear()
   end if
end sub

155

Teknologi Informasi / Re: Mohon bantuan untuk backspace

« on: 13 April 2010, 10:45:49 AM »

Bro, boleh tau gak message errornya seperti apa.
biar letak masalahnya lebih jelas dimana.
 

Saya kirim PM bro. Mohon dicek.

156

Teknologi Informasi / Re: Mohon bantuan untuk backspace

« on: 13 April 2010, 10:12:21 AM »

Dim find As String = txtfind.Text
        sql = "SELECT * FROM Entry WHERE Entrylists LIKE '" + CStr(find) + "%' and DictLists LIKE '" + CStr(combo) + "%'"
        if txtfind.text.length > 0 then Call listLoad()
       
If txtfind.TextLength = -1 Then
            txtfind.Focus()
        End If

itu yg diitalic buat apa yah

mank bisa yah panjang text sampe minus

Sorry, kan saya selalu melakukan percobaan. so, saya pikir dengan cara itu akan dapat teratasi, tetapi nyatanya tidak.

157

Teknologi Informasi / Re: Mohon bantuan untuk backspace

« on: 13 April 2010, 10:03:14 AM »

Code: [Select]

If index = -1 andalso txtfind.text.length > 0  Then
            Dim frm As New XtraMsgVocNot
            frm.ShowDialog()

        Else
            ListBox1.SetSelected(index, True)
        End If


Metode ini sudah hampir bisa menghindari pemanggilan msgbox tetapi masih memanggil listload [Call listLoad()]. Bagaimana caranya biar listboxnya juga tidak terpanggil? Maunya saya, kalau  txtfind.text.length > 0 then do nothing. Tetapi saya sulit menemukan kodenya.
Sorry ya saya selalu merepoti.

158

Teknologi Informasi / Re: Mohon bantuan untuk backspace

« on: 13 April 2010, 09:06:46 AM »

 [at]  Forte: Apakah yang dimaksud adalah store procedure? Kalau yang dimaksud adalah store procedure, sqlite tidak mendukung store procedure.
Maaf nih, jujur saja saya tidak banyak mengerti istilah-istilah teknik. Saya hanya tabrak sana, tabrak sini dan jadi hahaha

159

Teknologi Informasi / Re: Mohon bantuan untuk backspace

« on: 12 April 2010, 11:20:14 PM »

Sepertinya masalahnya terletak di query sql-nya: "select * from tb where kondisi like '%str%'". Jika str = '' (blank/kosong) atau length(str) = 0,maka hasil query-nya akan blank (kalau tidak error) karena like '%%' itu tidak bisa dijalankan (sintaks salah).

Mungkin lebih baik dibuat:
If str = blank maka sql = "select * from tb" (ambil semua data)
Else
sql = "select * from tb where kondisi like '%str%'"
Setelah itu baru dilakukan eksekusi query utk pencarian data.

Maaf,cuma pakai psedocode,gak pakai sintaks vb.net karena basic saya bukan di vb.net.

Semoga bisa membantu

Cara yang saya bold akan menimbulkan slow loading di listbox karena entrynya cukup bayak.

160

Teknologi Informasi / Re: Mohon bantuan untuk backspace

« on: 12 April 2010, 11:15:17 PM »

Saya melihat cara ini lebih cepat dalam pencarian. Kalau menggunakan OnPressEnter atau Button.OnClick kita harus klik button lebih dahulu atau press enter. Tetapi dengan cara yang ada di atas, begitu kita mengetik suatu huruf, apabila huruf itu ada di dalam database, huruf itu akan langsung ditampilkan di lixbox. Ini semacam autocomplate listbox begitu atau tidak tahu apa teknical termnya.

161

Teknologi Informasi / Re: Mohon bantuan untuk backspace

« on: 12 April 2010, 12:26:57 PM »

Code: [Select]

Private Sub txtfind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfind.TextChanged
        Dim combo As String = ComboBox1.SelectedItem
        Dim find As String = txtfind.Text
        sql = "SELECT * FROM Entry WHERE Entrylists LIKE '" + CStr(find) + "%' and DictLists LIKE '" + CStr(combo) + "%'"
        Call listLoad()
     
        Dim curItem As String = txtfind.Text.ToString()
        Dim index As Integer = ListBox1.FindString(curItem)
        ' If the item was not found in ListBox 2 display a message box, otherwise select it in ListBox2.
        If index = -1 Then
            Dim frm As New XtraMsgVocNot
            frm.ShowDialog()

        Else
            ListBox1.SetSelected(index, True)
        End If

    End SubYang saya bold seharusnya tidak diikutkan karena itu adalah percobaan.
  If txtfind.TextLength = -1 Then
            txtfind.Focus()
        End If

162

Teknologi Informasi / Mohon bantuan untuk backspace

« on: 12 April 2010, 12:08:45 PM »

Teman-teman,
Digital Universal Buddhist Dictionary yang saya design sudah mendekati tahap akhir tetapi saya mendapatkan masalah baru setelah masalah slow loading di listbox terselesaikan. Masalah yang saya hadapi adalah kalau saya ingin mendelet huruf terakhir dalam seacrhbox, messegebox selalu muncul. Saya sudah mutar-mutar mencari solusi lewat Mbah Google tetapi tidak ketemu. Saya melihat caranya adalah dengan keypress event handler tetapi tidak ada yang cocok. Saya berharap teman-teman ada yang bisa membantu.
Berikut ini ada kodenya:

Code: [Select]

Private Sub txtfind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfind.TextChanged
        Dim combo As String = ComboBox1.SelectedItem
        Dim find As String = txtfind.Text
        sql = "SELECT * FROM Entry WHERE Entrylists LIKE '" + CStr(find) + "%' and DictLists LIKE '" + CStr(combo) + "%'"
        Call listLoad()
        If txtfind.TextLength = -1 Then
            txtfind.Focus()
        End If
        Dim curItem As String = txtfind.Text.ToString()
        Dim index As Integer = ListBox1.FindString(curItem)
        ' If the item was not found in ListBox 2 display a message box, otherwise select it in ListBox2.
        If index = -1 Then
            Dim frm As New XtraMsgVocNot
            frm.ShowDialog()

        Else
            ListBox1.SetSelected(index, True)
        End If

    End Sub

163

Pengembangan DhammaCitta / Re: Penyelesaian conflict RD & LW

« on: 10 April 2010, 07:54:41 PM »

dhammasiri:
registrasi dan start-over itu tidak bermasalah.

yang jadi masalah adalah ketika nickname tersebut sudah terikat dengan personal seseorang
Katakan namanya Kemenyan, realworld juga sudah terlalu banyak yang mengenal bahwa A adalah kemenyan

dan saat ini Kemenyan harus berganti nama menjadi Menyan.
dikarenakan Kemenyan tidak bisa digunakan (banned).
Kira-kira, bagaimana menurut anda dunia (vihara / temen / murid didik / etc) akan memandang "A"

Gampang banget. Kalau namamu adalah kemenyan ubah saja menjadi Kmenyan. Kan pronunciationnya masih sama

164

Pengembangan DhammaCitta / Re: Penyelesaian conflict RD & LW

« on: 10 April 2010, 07:12:59 PM »

Mungkin masalahnya kalau hanya reputasi saja, nanti akan ada pihak-pihak yang berkeberatan karena "hukuman terlalu ringan" dan akan muncul suara sumbang seperti: "mentang-mentang ex-mod, sanksi yang diberikan hanya reputasi minus, kalau bukan ex-mod, pasti di-banned" dan lain sebagainya. 

menurut saya malah ringan id banned... (tapi kalau ip banned terlalu kejam pula)
seolah suruh member2 tersebut terlahir kembali alias cuci tangan

Meskipun IP dibanned, tetap bisa kok online asal id tidak dibanned. So, kalau saya yang dibanned IP dan IDnya, hmmm saya akan register dengan ID baru. Saya tetap akan bisa. Karena itu, banned IP juga bukan masalah terlalu besar, kayaknya.

165

Pengembangan DhammaCitta / Re: Usul System Pemilihan Moderator Forum DC.

« on: 09 April 2010, 02:33:55 PM »

gua terima PM kalau sama Samanera harus lebih sopan...lalalala...



jadi keknya sudah tahu sendiri lah apa arti GRP dan BRP..

Saya sih orangnya biasa saja. Juga tidak gila kehormatan. Saya juga tidak suka yang terlalu formal. Saya tidak di forum ini tidak memperkanlkan diri sebagai samanera. Tuhan Medho ingin menambahkan gelar samanera tetapi saya tidak mau. Saya bilang sih biar aja orang memanggil saya sesukanya. Tidak ada yang perlu diributkan juga.