السلام عليكم:
انا حابه اعمل دكشنري مربوط بقاعده بيانات بحيث انه بس انحط كلمه بحث يظهرلي معنى الكلمه بالانجلش والعكس
وذلك بالإعتماد على راديو بوتن بحيث إذا نقرت على راديوا بوتن العربي يكتب المستخدم الكلمة بالتيكست إنجليزي وتظهر بالليسته إنجليزي والعكس
وشكرا
السلام عليكم
تفضلي المشروع .. بالتوفيق ( رغم أني عارف إنه ما راح يشتغل معاكي بسبب إختلاف النسخة )
في المثال يتضح المقال
السلام عليكم
شكرا الك
مادامك عارف
لو سمحت وتكرمت اطبعلي الكود حتى يكون ظاهر هون وشكرررررررررررررررررررراااااااااااااااااااااااا
وراح ادور على اصدار جديد إن شاء الله يزبط
وشكرا مره تانيه
السلام عليكم
فقط قومي بإدراج عنصر من نوع Windows form ثم امسحي ما به و ألصقي الكود التالي
Imports System.Data.OleDb
Public Class Translator
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents radbtnEnglish As System.Windows.Forms.RadioButton
Friend WithEvents radbtnArabic As System.Windows.Forms.RadioButton
Friend WithEvents btnSearch As System.Windows.Forms.Button
Friend WithEvents lsBox As System.Windows.Forms.ListBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtSearch As System.Windows.Forms.TextBox
Friend WithEvents chboxSound As System.Windows.Forms.CheckBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.lsBox = New System.Windows.Forms.ListBox
Me.radbtnEnglish = New System.Windows.Forms.RadioButton
Me.radbtnArabic = New System.Windows.Forms.RadioButton
Me.txtSearch = New System.Windows.Forms.TextBox
Me.btnSearch = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.chboxSound = New System.Windows.Forms.CheckBox
Me.SuspendLayout()
'
'lsBox
'
Me.lsBox.Location = New System.Drawing.Point(8, 40)
Me.lsBox.Name = "lsBox"
Me.lsBox.Size = New System.Drawing.Size(144, 212)
Me.lsBox.TabIndex = 0
'
'radbtnEnglish
'
Me.radbtnEnglish.Location = New System.Drawing.Point(152, 64)
Me.radbtnEnglish.Name = "radbtnEnglish"
Me.radbtnEnglish.Size = New System.Drawing.Size(56, 24)
Me.radbtnEnglish.TabIndex = 1
Me.radbtnEnglish.Tag = "arabic"
Me.radbtnEnglish.Text = "انجليزي"
'
'radbtnArabic
'
Me.radbtnArabic.Location = New System.Drawing.Point(160, 40)
Me.radbtnArabic.Name = "radbtnArabic"
Me.radbtnArabic.Size = New System.Drawing.Size(48, 24)
Me.radbtnArabic.TabIndex = 2
Me.radbtnArabic.Tag = "english"
Me.radbtnArabic.Text = "عربي"
'
'txtSearch
'
Me.txtSearch.Location = New System.Drawing.Point(8, 8)
Me.txtSearch.Name = "txtSearch"
Me.txtSearch.Size = New System.Drawing.Size(144, 20)
Me.txtSearch.TabIndex = 3
Me.txtSearch.Text = ""
'
'btnSearch
'
Me.btnSearch.Location = New System.Drawing.Point(160, 8)
Me.btnSearch.Name = "btnSearch"
Me.btnSearch.Size = New System.Drawing.Size(48, 23)
Me.btnSearch.TabIndex = 4
Me.btnSearch.Text = "بحث"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(177, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 256)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(144, 23)
Me.Label1.TabIndex = 5
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'chboxSound
'
Me.chboxSound.Location = New System.Drawing.Point(160, 88)
Me.chboxSound.Name = "chboxSound"
Me.chboxSound.Size = New System.Drawing.Size(48, 24)
Me.chboxSound.TabIndex = 6
Me.chboxSound.Text = "صوت"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(216, 302)
Me.Controls.Add(Me.chboxSound)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnSearch)
Me.Controls.Add(Me.txtSearch)
Me.Controls.Add(Me.radbtnArabic)
Me.Controls.Add(Me.radbtnEnglish)
Me.Controls.Add(Me.lsBox)
Me.Name = "Form1"
Me.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.ResumeLayout(False)
End Sub
#End Region
Private Cnn As OleDbConnection
Dim sp As New ACTIVEVOICEPROJECTLib.DirectSS
#Region " Loading Form Event "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
sp.Speed = 200
'Establish The Connection String
Cnn = New OleDbConnection
Cnn.ConnectionString = _
"provider=Microsoft.Jet.OLEDB.4.0; data source=" & _
Application.StartupPath & "\DB.mdb"
Catch ex As Exception
MsgBox(ex.Message)
Finally
'In Case Connection should be Closed
Cnn.Close()
End Try
End Sub
#End Region
#Region " Load DATA "
Private Sub LoadData(ByVal ctriera As String, ByVal keyword As String)
Dim strSQL As String
Try
Cnn.Open()
strSQL = "SELECT * FROM dictionary WHERE " & ctriera & " LIKE'" & keyword & "%'"
Dim cmd As New OleDbCommand(strSQL, Cnn)
Dim rdr As OleDbDataReader = _
cmd.ExecuteReader(CommandBehavior.CloseConnection)
Me.Label1.Text = String.Empty
lsBox.Items.Clear()
With lsBox
.BeginUpdate()
Do While rdr.Read()
.Items.Add(rdr(ctriera).ToString)
Loop
.EndUpdate()
rdr.Close()
cmd.Dispose()
End With
Catch ex As Exception
Throw ex
Finally
Cnn.Close()
End Try
End Sub
Private Sub LoadDefinition(ByVal CurrentWord As String)
Dim word, keyword As String
If Me.radbtnArabic.Checked Then
word = Me.radbtnEnglish.Tag.ToString
keyword = Me.radbtnArabic.Tag.ToString
Else
word = Me.radbtnArabic.Tag.ToString
keyword = Me.radbtnEnglish.Tag.ToString
End If
Dim strSQL As String
Dim Def As String
Try
strSQL = "SELECT " & word & " FROM dictionary " & _
"WHERE " & keyword & "='" & CurrentWord & "'"
Dim cmd As New OleDbCommand(strSQL, Cnn)
Cnn.Open()
Def = cmd.ExecuteScalar.ToString
Cnn.Close()
Me.Label1.Text = Def.ToString
If Me.chboxSound.Checked Then
If Me.radbtnEnglish.Checked Then
sp.Speak(Label1.Text)
End If
End If
Catch ex As Exception
Throw ex
Finally
Cnn.Close()
End Try
End Sub
#End Region
#Region " solution Events "
Private Sub lsBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsBox.SelectedIndexChanged
Try
LoadDefinition(Me.lsBox.SelectedItem)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
Try
If Me.txtSearch.Text = "" Then
MsgBox("Please Fill the TextBox First")
Exit Sub
End If
If Me.radbtnArabic.Checked Then
LoadData(radbtnArabic.Tag.ToString, txtSearch.Text)
ElseIf Me.radbtnEnglish.Checked Then
LoadData(radbtnEnglish.Tag.ToString, txtSearch.Text)
Else
MsgBox("Please Choose which Language to translate")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub radbtnArabic_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radbtnArabic.CheckedChanged
DisabledArabicLangage()
Me.chboxSound.Enabled = False
Me.lsBox.Items.Clear()
Me.txtSearch.Text = String.Empty
End Sub
Private Sub radbtnEnglish_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radbtnEnglish.CheckedChanged
EnabledArabicLangage()
Me.chboxSound.Enabled = True
Me.lsBox.Items.Clear()
Me.txtSearch.Text = String.Empty
End Sub
#End Region
#Region " Functions "
Public Sub EnabledArabicLangage()
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New _
System.Globalization.CultureInfo("ar-AE"))
End Sub
Public Sub DisabledArabicLangage()
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New _
System.Globalization.CultureInfo("en"))
End Sub
#End Regionلا تنسي أن تجعلي قاعدة البيانات المرفقة مع البرنامج في مشروعك و بالتحديد من المجلد bin
بالتوفيق إن شاء الله يأ أختي
السلام عليكم
في المثال يتضح المقال
السلام عليكم شكرا كتير
هذا الموضوع مغلق.