دیکشنری باVB

[pa_darya]

برنامه دیکشنری را به زبانMicrosoft Visual Basic 6.0میخواهم کسی داره؟با سورس کامل و اجرا

 

[saeed_1369]

داداش اگه داشتیم هم نمی دادیم !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[asadi_keyhan]

چه پر رو!!!!!!!!!!!!!!!!!!!!!!!!!!!!!:hmm:

 

[saeed_1369]

داداش اینکه می خواهی طرف بیکار نیست که کلیه لغات رو واسطه تو در vb بعنوان یه دیکشنری قرار بده . نه غلام

 

[H_R]

دوستان خونسردی خودتون رو حفظ کنید ! من این تاپیک رو میفرستم توی قسمت VB6 !

 

[NEWVGAc12]

نه اونقدر ها هم سخت نیست!!!
فقط باید یه دیتا بیس بسازی از لغاتی که میخوای البته باید جوری طراحی کنی که همه اش بار گیری نشه ...
بعد هم یه پروژه بسازی که اونو اجرا کنه به نظر من مرحله به مرحله سوال کن از ساخت دیتا بیس و انتخاب دیتا بیس با امنیت نصبتاً با لا شروع کن
:happy:

 

[Mamylo]

داداش اینکه می خواهی طرف بیکار نیست که کلیه لغات رو واسطه تو در vb بعنوان یه دیکشنری قرار بده . نه غلام

سعید جون، لطفاً ادب رو رعایت کنید

دوست من، ساخت دیکشنری اصلاً کار سختی نیست. سختش وقتیه که بخوای کلمات رو وارد کنی که اونجاس که دادت در میاد!

 

[Mehdi]

توی سایت پلنت کد سرچ کن , اونجا زیاد هست , انواع مختلفش با سورس !!

 

[1408]

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "SELECT * FROM Farsi"
Adodc1.Refresh
End Sub

Private Sub cmdTranslate_Click()
Dim i As Long
Adodc1.RecordSource = "SELECT * FROM English WHERE English_Word LIKE('" & Text1 & "%')"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
Text1 = Adodc1.Recordset.Fields("English_Word")
i = Adodc1.Recordset.Fields("Word_ID")
Adodc1.RecordSource = "SELECT * FROM Farsi WHERE English_ID=" & i
Adodc1.Refresh
Text2 = ""
While Not Adodc1.Recordset.EOF
Text2 = Text2 & Adodc1.Recordset.Fields("Farsi_Word")
Adodc1.Recordset.MoveNext
Wend
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Else
Text2 = "يافت نشد"
End If
End Sub

 

[Khepele Sibilo]

تاریخ پست ها رو !
به به ! به به !
خیلییییی ممنونم !