exchanging

دیکشنری باVB

شروع موضوع توسط pa_darya ‏17 جولای 2007 در انجمن Visual Basic 6

  1. pa_darya

    pa_darya کاربر تازه وارد

    تاریخ عضویت:
    ‏11 ژوئن 2007
    نوشته ها:
    19
    تشکر شده:
    0
    برنامه دیکشنری را به زبانMicrosoft Visual Basic 6.0میخواهم کسی داره؟با سورس کامل و اجرا
     
  2. saeed_1369

    saeed_1369 کاربر تازه وارد

    تاریخ عضویت:
    ‏7 دسامبر 2007
    نوشته ها:
    53
    تشکر شده:
    0
    داداش اگه داشتیم هم نمی دادیم !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     
  3. asadi_keyhan

    asadi_keyhan کاربر تازه وارد

    تاریخ عضویت:
    ‏27 ژانویه 2008
    نوشته ها:
    1
    تشکر شده:
    0
    چه پر رو!!!!!!!!!!!!!!!!!!!!!!!!!!!!!:hmm:
     
  4. saeed_1369

    saeed_1369 کاربر تازه وارد

    تاریخ عضویت:
    ‏7 دسامبر 2007
    نوشته ها:
    53
    تشکر شده:
    0
    داداش اینکه می خواهی طرف بیکار نیست که کلیه لغات رو واسطه تو در vb بعنوان یه دیکشنری قرار بده . نه غلام:p
     
  5. H_R

    H_R مدیر بازنشسته

    تاریخ عضویت:
    ‏30 مارس 2005
    نوشته ها:
    3,285
    تشکر شده:
    15
    محل سکونت:
    North Pole
    دوستان خونسردی خودتون رو حفظ کنید ! من این تاپیک رو میفرستم توی قسمت VB6 !
     
  6. NEWVGAc12

    NEWVGAc12 Registered User

    تاریخ عضویت:
    ‏23 سپتامبر 2007
    نوشته ها:
    70
    تشکر شده:
    0
    محل سکونت:
    Iran
    نه اونقدر ها هم سخت نیست!!!
    فقط باید یه دیتا بیس بسازی از لغاتی که میخوای البته باید جوری طراحی کنی که همه اش بار گیری نشه ...
    بعد هم یه پروژه بسازی که اونو اجرا کنه به نظر من مرحله به مرحله سوال کن از ساخت دیتا بیس و انتخاب دیتا بیس با امنیت نصبتاً با لا شروع کن
    :happy:
     
  7. Mamylo

    Mamylo کاربر فعال بازیهای کامپیوتری کاربر فعال

    تاریخ عضویت:
    ‏19 مارس 2005
    نوشته ها:
    947
    تشکر شده:
    12
    محل سکونت:
    In the heart of any lover in the world
    سعید جون، لطفاً ادب رو رعایت کنید;)

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

    Mehdi مدیر بازنشسته

    تاریخ عضویت:
    ‏1 آگوست 2004
    نوشته ها:
    5,569
    تشکر شده:
    49
    محل سکونت:
    Anywhere
    توی سایت پلنت کد سرچ کن , اونجا زیاد هست , انواع مختلفش با سورس !!
     
  9. 1408

    1408 Registered User

    تاریخ عضویت:
    ‏6 سپتامبر 2008
    نوشته ها:
    990
    تشکر شده:
    39
    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
     
  10. Khepele Sibilo

    Khepele Sibilo کاربر تازه وارد

    تاریخ عضویت:
    ‏2 ژانویه 2008
    نوشته ها:
    1,624
    تشکر شده:
    16
    تاریخ پست ها رو !
    به به ! به به !
    خیلییییی ممنونم !