История создания англо-русских и русско-английских словарей в России

              Рис. 2

На данной форме располагаются элементы управления:

1)      TextBox;

2)      CommandButton.

Блок-схема

Действия, выполняемые при загрузке формы.

              нет

        да

17

              нет

              да

17

Действия, выполняемые при нажатии на Command1.(Form1)

              нет

              да

              нет

да

              нет

              да

              нет

да

17

Действия, выполняемые при нажатии на Command2. (Form1)

              нет

да

              нет

да

              нет

да

Действия, выполняемые при нажатии на Command1. (Form2)

17

Действия, выполняемые при нажатии на Command1. (Form3)

17

Вывод

В работе реализована программа англо-русский и русско-английский словарь. Результат работы соответствует постановки задачи и критерию оценки. В данной программе использовалась среда разработки Microsoft Visual Basic 6.0.

Список используемой литературы

1.       Мельникова О.И., Бонюшкина А.Ю.. Программирование на языке высокого уровня: Учебное пособие. Дубна: Международный университет природы, общества и человека «Дубна», 2001.

2.       Англо-русский и русско-английский словарь

3.        http://dic.academic.ru/dic.nsf/ruwiki/2494

4.        http://window.edu.ru/window_catalog/pdf2txt?p_id=11063&p_page=3

5.        http://www.izvestia.ru/russia/article16142/

Выполнил (а):

«              »                            201__г.              Сычева М.А.              ___________________

                                                                                                                (подпись)

Проверил:

«              »                            201__г.              Деобольд А.В._________                            _________

                                                                                                  (оценка)                            (подпись)

17

Приложение

Dim str As String, slovo As String, str1 As String

Dim d As Integer

Dim qwe As Integer

Dim s As String

Dim c As Integer

Dim c1 As Integer

Dim s1 As String

Private Sub Command1_Click()

Text2.Text = ""

d = 0

Dim mesto As Integer

Dim slovar() As String

slovar() = Split(str, vbCrLf)

slovo = Text1.Text

For i = 0 To c - 1

    If slovar(i) <> "" Then

        If Mid(slovar(i), 1, InStr(slovar(i), ":") - 1) = slovo Then

            d = d + 1

            mesto = i

        End If

    End If

Next i

If d = 1 Then

Text2.Text = Mid(slovar(mesto), InStr(slovar(mesto), ":") + 1, Len(slovar(mesto)) - InStr(slovar(mesto), ":"))

Else

MsgBox ("нет такого слова")

Form2.Show

End If

End Sub

Private Sub Command2_Click()

Text4.Text = ""

d = 0

Dim mesto As Integer

Dim slovar() As String

slovar() = Split(str1, vbCrLf)

slovo = Text3.Text

For i = 0 To c1 - 1

    If slovar(i) <> "" Then

        If Mid(slovar(i), 1, InStr(slovar(i), ":") - 1) = slovo Then

           d = d + 1

           mesto = i

        End If

    End If

Next i

If d = 1 Then

Text4.Text = Mid(slovar(mesto), InStr(slovar(mesto), ":") + 1, Len(slovar(mesto)) - InStr(slovar(mesto), ":"))

Else

MsgBox ("нет такого слова")

Form3.Show

End If

End Sub

Public Sub Form_Load()

str = ""

c = 0

Open App.Path & "\1.txt" For Input As #1

Do Until EOF(1)

    Line Input #1, s

    str = str & s & vbCrLf

    c = c + 1

Loop 

Close #1

str1 = ""

c1 = 0

Open App.Path & "\2.txt" For Input As #2

Do Until EOF(2)

    Line Input #2, s1

    str1 = str1 & s1 & vbCrLf

    c1 = c1 + 1

Loop

Close #2

End Sub

Private Sub Command1_Click()

Dim stri As String

Dim asd As String

zxc = Text1.Text

asd = Form1.Text1.Text

stri = asd & ":" & zxc

Open App.Path & "\1.txt" For Append As #1

Print #1, stri

Close #1

Call Form1.Form_Load

Form2.Hide

End Sub

Private Sub Command1_Click()

Dim stri As String

Dim asd As String

zxc = Text1.Text

asd = Form1.Text3.Text

stri = asd & ":" & zxc

Open App.Path & "\2.txt" For Append As #2

Print #2, stri

Close #2

Call Form1.Form_Load

Form3.Hide

End Sub

17