آموزش ساخت نرم افزار فرهنگ لغت

[ROSTAM2]

در این مجموعه آموزشی نحوه ایجاد یک نرم افزار فرهنگ لغت بصورت ابتدائی توضیح داده شده....

بخش اول: https://www.aparat.com/v/zwfUB

بخش دوم: https://www.aparat.com/v/hF7g2

بخش سوم: https://www.aparat.com/v/HYnFB

بخش چهارم: https://www.aparat.com/v/ujV3h

بخش پنجم: https://www.aparat.com/v/GC4jI

بخش ششم: https://www.aparat.com/v/4LDIe

Dictionary 01.jpg

        If Me.ToolStripTextBox1.TextLength = 0 Then Exit Sub

        Dim ID As Guid = Nothing

        ID = Guid.NewGuid

        Dim Row As DataRow = Nothing

        Dim Word As String = Me.ToolStripTextBox1.Text

        Select Case Me.ToolStripComboBox1.SelectedIndex

            Case 1

                If Me.EnTableAdapter1.CountOf(Word) > 0 Then

                    MsgBox("این کلمه در جدول موجود است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)

                    Exit Select

                End If

                With Me.EnTableAdapter1

                    .InsertQuery(ID, Word, "")

                    Row = .GetDataByID(ID).Rows(0)

                End With

            Case 0

                If Me.FaTableAdapter1.CountOf(Word) > 0 Then

                    MsgBox("این کلمه در جدول موجود است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)

                    Exit Select

                End If

                With Me.FaTableAdapter1

                    .InsertQuery(ID, Word, "")

                    Row = .GetDataByID(ID).Rows(0)

                End With

        End Select

        If Row Is Nothing Then Exit Sub





        With If(Me.ToolStripComboBox1.SelectedIndex = 0, Me.ListBox1, Me.ListBox3)

            .Items.Add(Row)

        End With

[ROSTAM2]

بخش هفتم: https://aparat.com/v/OtYvE

بخش هشتم: https://aparat.com/v/n0CQy

Dictionary 08.jpg

        Dim TranslateIDs As String = ""

       

                Select Case selectedLanguage

                    Case "en"

                        Dim EnRow As DictionaryDataSet.enRow = Me.ListBox1.SelectedItem

                        Dim faRow As DictionaryDataSet.faRow = Me.ListBox3.SelectedItem

                TranslateIDs = Me.EnTableAdapter1.GetTranslateIDs(EnRow.ID)

                If TranslateIDs.Contains(faRow.ID.ToString) Then

                    MsgBox("این مفهوم برای کلمه قبلا ثبت شده است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)

                    GoTo NoAdd

                End If

                TranslateIDs = Me.EnTableAdapter1.GetTranslateIDs(EnRow.ID) + "," + faRow.ID.ToString

                Me.EnTableAdapter1.UpdateQuery(TranslateIDs, EnRow.ID, EnRow.Word)

                Me.ListBox2.Items.Add(faRow)

NoAdd:

                TranslateIDs = Me.FaTableAdapter1.GetTranslateIDs(faRow.ID)

                If TranslateIDs.Contains(EnRow.ID.ToString) Then

                    MsgBox("این مفهوم برای کلمه قبلا ثبت شده است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)

                    Exit Select

                End If

                TranslateIDs = Me.FaTableAdapter1.GetTranslateIDs(faRow.ID) + "," + EnRow.ID.ToString

                With Me.FaTableAdapter1

                    .UpdateQuery(TranslateIDs, faRow.ID, faRow.Word)

                End With





            Case "fa"

                Dim EnRow As DictionaryDataSet.enRow = Me.ListBox3.SelectedItem

                Dim faRow As DictionaryDataSet.faRow = Me.ListBox1.SelectedItem

                TranslateIDs = Me.FaTableAdapter1.GetTranslateIDs(faRow.ID)

                If TranslateIDs.Contains(EnRow.ID.ToString) Then

                    MsgBox("این مفهوم برای کلمه قبلا ثبت شده است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)

                    GoTo NoAdd1

                End If

                TranslateIDs = Me.FaTableAdapter1.GetTranslateIDs(faRow.ID) + "," + EnRow.ID.ToString

                With Me.FaTableAdapter1

                    .UpdateQuery(TranslateIDs, faRow.ID, faRow.Word)

                End With

                Me.ListBox2.Items.Add(EnRow)

NoAdd1:

                TranslateIDs = Me.EnTableAdapter1.GetTranslateIDs(EnRow.ID)

                If TranslateIDs.Contains(faRow.ID.ToString) Then

                    MsgBox("این مفهوم برای کلمه قبلا ثبت شده است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)

                    Exit Select

                End If

                TranslateIDs = Me.EnTableAdapter1.GetTranslateIDs(EnRow.ID) + "," + faRow.ID.ToString

                Me.EnTableAdapter1.UpdateQuery(TranslateIDs, EnRow.ID, EnRow.Word)

        End Select