Петраков Игорь Александрович :
другие произведения.
Срля, 2-3 курс
Самиздат:
[
Регистрация
] [
Найти
] [
Рейтинги
] [
Обсуждения
] [
Новинки
] [
Обзоры
] [
Помощь
|
Техвопросы
]
Ссылки:
Школа кожевенного мастерства: сумки, ремни своими руками
Оставить комментарий
© Copyright
Петраков Игорь Александрович
(
petrak-igor@yandex.ru
)
Размещен: 14/09/2017, изменен: 14/09/2017. 157k.
Статистика.
Справочник
:
События
Скачать
FB2
Ваша оценка:
не читать
очень плохо
плохо
посредственно
терпимо
не читал
нормально
хорошая книга
отличная книга
великолепно
шедевр
Аннотация:
Код к моей программе по СРЛЯ для 2-3 курса филфака ОмГПУ.
Private Sub CommandButton1_Click()
энциклопедия.Show
End Sub
Private Sub CommandButton2_Click()
энциклопедия.Show
End Sub
Private Sub cap_1_Click()
If стиль_а.Caption = "Письмо" Then
энциклопедия_во.Show
Else
энциклопедия_иж.Show
End If
End Sub
Private Sub cap_2_Click()
If стиль_а.Caption = "Письмо" Then
энциклопедия_во.Show
Else
энциклопедия_в.Show
End If
End Sub
Private Sub Label11_Click()
End Sub
Private Sub Label_11_Click()
энциклопедия_эль.Show
End Sub
Private Sub Label5_Click()
картина_а.Visible = True
картина_б.Visible = True
картина_в.Visible = True
картина_д.Visible = True
картина_ж.Visible = True
картина_и.Visible = True
картина_к.Visible = True
картина_а.Caption = "Введение в грамматику"
картина_б.Caption = "Морфемика"
картина_в.Caption = "Морфология продолжается"
картина_д.Caption = "Основа слова"
картина_ж.Caption = "Морфонологи- чес. процессы"
картина_и.Caption = "Исторические изменения стр."
картина_к.Caption = "Словообразо- вание"
картина_л.Caption = "Системные отн. в словообраз - нии"
стиль_а.Visible = False
стиль_б.Visible = False
стиль_в.Visible = False
стиль_и.Visible = False
стиль_к.Visible = False
стиль_л.Visible = False
стиль_о.Visible = False
стиль_т.Visible = False
стиль_ф.Visible = False
стиль_та.Visible = False
стиль_то.Visible = False
стиль_э.Visible = False
cap_1.Visible = False
cap_2.Visible = False
Label_11.Visible = True
End Sub
Private Sub Label7_Click()
картина_а.Visible = True
картина_б.Visible = True
картина_в.Visible = True
картина_д.Visible = True
картина_ж.Visible = True
картина_и.Visible = True
картина_к.Visible = True
картина_л.Visible = True
картина_о.Visible = False
картина_р.Visible = False
картина_т.Visible = False
стиль_а.Visible = False
стиль_б.Visible = False
стиль_в.Visible = False
стиль_и.Visible = False
стиль_к.Visible = False
стиль_л.Visible = False
стиль_о.Visible = False
стиль_т.Visible = False
стиль_ф.Visible = False
стиль_та.Visible = False
стиль_то.Visible = False
стиль_э.Visible = False
картина_а.Caption = "Наречие"
картина_б.Caption = "Вопросы слова, категория состояния"
картина_в.Caption = "О служ.частях речи, предлог"
картина_д.Caption = "Союзы, их характеристика"
картина_ж.Caption = "Частица"
картина_и.Caption = "Модальные слова, связка"
картина_к.Caption = "Междометия, звукоподражания"
картина_л.Caption = "Веселые песни о.."
cap_1.Visible = False
cap_2.Visible = False
End Sub
Private Sub Label8_Click()
картина_а.Visible = True
картина_б.Visible = True
картина_в.Visible = True
картина_д.Visible = True
картина_ж.Visible = True
картина_и.Visible = True
картина_к.Visible = True
картина_л.Visible = True
картина_о.Visible = True
картина_р.Visible = True
картина_т.Visible = True
стиль_а.Visible = False
стиль_б.Visible = False
стиль_в.Visible = False
стиль_и.Visible = False
стиль_к.Visible = False
стиль_л.Visible = False
стиль_о.Visible = False
стиль_т.Visible = False
стиль_ф.Visible = False
стиль_та.Visible = False
стиль_то.Visible = False
стиль_э.Visible = False
картина_а.Caption = "Морфология, раздел грамматики"
картина_б.Caption = "Имя существительное"
картина_в.Caption = "Имя прилагательное"
картина_д.Caption = "Имя числительное"
картина_ж.Caption = "Местоимение"
картина_и.Caption = "Глагол"
картина_к.Caption = "Переходность и залог гл"
картина_л.Caption = "Категория наклонения гл"
картина_о.Caption = "Категория времени гл"
картина_р.Caption = "Категория лица, спряжение"
картина_т.Caption = "Причастие, деепричастие"
cap_1.Visible = False
cap_2.Visible = False
End Sub
Private Sub Label9_Click()
энциклопедия_л.Show
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub картина_а_Click()
If картина_а.Caption = "Введение в курс СРЛЯ" Then
стиль_а.Visible = True
стиль_б.Visible = True
стиль_в.Visible = True
стиль_и.Visible = True
стиль_к.Visible = True
стиль_л.Visible = True
стиль_о.Visible = True
стиль_т.Visible = False
стиль_ф.Visible = False
стиль_та.Visible = False
стиль_то.Visible = False
стиль_э.Visible = False
стиль_а.Caption = "Русский язык - национал.язык народа"
стиль_б.Caption = "Что такое современный язык?"
стиль_в.Caption = "Что такое литературный язык?"
стиль_и.Caption = "Литературный язык - язык нормированный"
стиль_к.Caption = "О механизме языкового развития"
стиль_л.Caption = "Функциональные стили"
стиль_о.Caption = "Основные пособия по курсу"
Label9.Visible = True
ElseIf картина_а.Caption = "Введение в грамматику" Then
стиль_а.Visible = True
стиль_б.Visible = True
стиль_в.Visible = True
стиль_и.Visible = True
стиль_к.Visible = True
стиль_л.Visible = True
стиль_о.Visible = True
стиль_т.Visible = False
стиль_ф.Visible = False
стиль_та.Visible = False
стиль_то.Visible = False
стиль_э.Visible = False
стиль_а.Caption = "Грамматика и ее единицы"
стиль_б.Caption = "Словообразование как наука о языке,"
стиль_в.Caption = "ее место в кругу лингвист. дисциплин"
стиль_и.Caption = "Лексическое и грамматическ. 'значен'"
стиль_к.Caption = "Способы и средства выражения г.з."
стиль_л.Caption = "Словобразование и 'формообразование'"
стиль_о.Caption = ""
ElseIf картина_а.Caption = "Морфология, раздел грамматики" Then
стиль_а.Visible = True
стиль_б.Visible = True
стиль_в.Visible = True
стиль_и.Visible = True
стиль_к.Visible = True
стиль_л.Visible = False
стиль_о.Visible = False
стиль_т.Visible = False
стиль_ф.Visible = False
стиль_та.Visible = False
стиль_то.Visible = False
стиль_э.Visible = False
стиль_а.Caption = "Понятие и задачи морфорлогии"
стиль_б.Caption = "Грамматическое значен. и форма"
стиль_в.Caption = "морфонологическая парадигма"
стиль_и.Caption = "Граматические 'категории'"
стиль_к.Caption = "Основа классификации частей речи"
ElseIf картина_а.Caption = "Наречие" Then
стиль_а.Visible = True
стиль_б.Visible = True
стиль_в.Visible = True
стиль_и.Visible = True
стиль_к.Visible = False
стиль_л.Visible = False
стиль_о.Visible = False
стиль_т.Visible = False
стиль_ф.Visible = False
стиль_та.Visible = False
стиль_то.Visible = False
стиль_э.Visible = False
стиль_а.Caption = "Наречие как часть речи"
стиль_б.Caption = "разряды наречий по значению"
стиль_в.Caption = "степени сравнения наречий"
стиль_и.Caption = "словообразование наречий"
End If
cap_1.Visible = False
cap_2.Visible = False
End Sub
Private Sub картина_б_Click()
If картина_б.Caption = "Фонетическое членение речи" Then
стиль_а.Visible = True
стиль_б.Visible = True
стиль_в.Visible = True
стиль_и.Visible = True
стиль_к.Visible = True
стиль_л.Visible = True
стиль_о.Visible = True
стиль_т.Visible = True
стиль_ф.Visible = True
стиль_та.Visible = True
стиль_то.Visible = True
стиль_э.Visible = True
стиль_а.Caption = "Фонетика как наука"
стиль_б.Caption = "Краткие сведения из истории изучения"
стиль_в.Caption = "Ф.ч.р. - ф. фраза и ф-ий такт"
стиль_и.Caption = "ф-ий слог понятие слога"
стиль_к.Caption = "О слогообразующих звуках"
стиль_л.Caption = "О трех теориях слогоделения"
стиль_о.Caption = "Типы слогов в русском языке"
стиль_т.Caption = "звуки в речи, фонемы"
стиль_ф.Caption = "Устройство речевого аппарата"
стиль_та.Caption = "Суперсегментые языковые еденицы"
стиль_то.Caption = "Интонация"