Знакомство с программой архивации файлов и папок WinRar
Меню программы и темы интерфейса WinRar. Добавление файлов и папок в архив. Извлечение архива в указанную папку. Добавление архивного комментария. Требования к функциональным характеристикам, к транспортированию и хранению, к программной документации.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 21.04.2014 |
| Размер файла | 3,7 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
End Sub
Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim st1, st2, st3 As String
st1 = ListBox1.Items(1).Text + ListBox1.Items(2).Text
st2 = ListBox1.Items(1).Text
st3 = ListBox1.Items(0).Text + ListBox1.Items(2).Text
Dim i As Integer
Dim k1, k2, k3 As Integer
k1 = 0 : k2 = 0 : k3 = 0
Dim flag1, flag2, flag3 As Boolean
flag1 = False : flag2 = False : flag3 = False
For i = 0 To ListBox2.Items.Count - 1
If st1.IndexOf(ListBox2.Items(i).Text) > -1 Then
k1 += 1
End If
Next i
If k1 = ListBox2.Items.Count And k1 = 2 Then flag1 = True
For i = 0 To ListBox3.Items.Count - 1
If st2.IndexOf(ListBox3.Items(i).Text) > -1 Then
k2 += 1
End If
Next i
If k2 = ListBox3.Items.Count And k2 = 1 Then flag2 = True
For i = 0 To ListBox4.Items.Count - 1
If st3.IndexOf(ListBox4.Items(i).Text) > -1 Then
k3 += 1
End If
Next i
If k3 = ListBox4.Items.Count And k3 = 2 Then flag3 = True
If flag1 And flag2 And flag3 Then
Label4.Text = "Вы ответили правильно"
Else
Label4.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox4.Items.Count - 1
If ListBox4.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox4.Items.Add(ListBox1.SelectedItem)
ListBox4.ClearSelection()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox3.Items.Count - 1
If ListBox3.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox3.Items.Add(ListBox1.SelectedItem)
ListBox3.ClearSelection()
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
ListBox3.Items.Remove(ListBox3.SelectedItem)
End Sub
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
ListBox4.Items.Remove(ListBox4.SelectedItem)
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Dim st1, st2, st3 As String
st1 = ListBox1.Items(1).Text + ListBox1.Items(2).Text
st2 = ListBox1.Items(1).Text
st3 = ListBox1.Items(0).Text + ListBox1.Items(2).Text
Dim i As Integer
Dim k1, k2, k3 As Integer
k1 = 0 : k2 = 0 : k3 = 0
Dim flag1, flag2, flag3 As Boolean
flag1 = False : flag2 = False : flag3 = False
For i = 0 To ListBox2.Items.Count - 1
If st1.IndexOf(ListBox2.Items(i).Text) > -1 Then
k1 += 1
End If
Next i
If k1 = ListBox2.Items.Count And k1 = 2 Then flag1 = True
For i = 0 To ListBox3.Items.Count - 1
If st2.IndexOf(ListBox3.Items(i).Text) > -1 Then
k2 += 1
End If
Next i
If k2 = ListBox3.Items.Count And k2 = 1 Then flag2 = True
For i = 0 To ListBox4.Items.Count - 1
If st3.IndexOf(ListBox4.Items(i).Text) > -1 Then
k3 += 1
End If
Next i
If k3 = ListBox4.Items.Count And k3 = 2 Then flag3 = True
If flag1 And flag2 And flag3 Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button7.Visible = False
Label4.Visible = False
Else
Button7.Visible = True
Label4.Visible = True
End If
End Sub
End Class
Partial Class вопрос1_6
Inherits System.Web.UI.Page
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox2.Items.Count = ListBox1.Items.Count Then
If ListBox2.Items(0).Text = ListBox1.Items(3).Text And ListBox2.Items(1).Text = ListBox1.Items(1).Text And ListBox2.Items(2).Text = ListBox1.Items(2).Text And ListBox2.Items(3).Text = ListBox1.Items(0).Text Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox2.Items.Count - 1
If ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items.Count = ListBox1.Items.Count Then
If ListBox2.Items(0).Text = ListBox1.Items(3).Text And ListBox2.Items(1).Text = ListBox1.Items(1).Text And ListBox2.Items(2).Text = ListBox1.Items(2).Text And ListBox2.Items(3).Text = ListBox1.Items(0).Text Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label2.Visible = False
Else
Button3.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос1_7
Inherits System.Web.UI.Page
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox1.Text = "WinRar" And TextBox2.Text = "WinRar" And TextBox3.Text = "WinRar" Then
Label4.Text = "Вы ответили правильно"
Else
Label4.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If TextBox1.Text = "WinRar" And TextBox2.Text = "WinRar" And TextBox3.Text = "WinRar" Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label4.Visible = False
Else
Button3.Visible = True
Label4.Visible = True
End If
End Sub
End Class
Partial Class вопрос1_8
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim n_select As Integer = ListBox2.SelectedIndex
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox1.ClearSelection()
ListBox2.Items.RemoveAt(n_select)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox3.Items.Add(ListBox1.SelectedItem)
ListBox3.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim n_select As Integer = ListBox3.SelectedIndex
ListBox1.Items.Add(ListBox3.SelectedItem)
ListBox1.ClearSelection()
ListBox3.Items.RemoveAt(n_select)
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox4.Items.Add(ListBox1.SelectedItem)
ListBox4.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim n_select As Integer = ListBox4.SelectedIndex
ListBox1.Items.Add(ListBox4.SelectedItem)
ListBox1.ClearSelection()
ListBox4.Items.RemoveAt(n_select)
End Sub
Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
If ListBox2.Items.Count = 4 And ListBox3.Items.Count = 4 And ListBox4.Items.Count = 4 Then
If ListBox2.Items(0).Text = "Выделить группу" And ListBox2.Items(1).Text = "Выход" And ListBox2.Items(2).Text = "Открыть архив" And ListBox2.Items(3).Text = "Установить пароль по умолчанию" And ListBox3.Items(0).Text = "Добавить файлы в архив" And ListBox3.Items(1).Text = "Извлечь в указанную папку" And ListBox3.Items(2).Text = "Печать файла" And ListBox3.Items(3).Text = "Просмотреть файл" And ListBox4.Items(0).Text = "Восстановить архив(ы)" And ListBox4.Items(1).Text = "Найти файлы" And ListBox4.Items(2).Text = "Показать информацию" And ListBox4.Items(3).Text = "Преобразовать архив(ы)" Then
Label4.Text = "Вы ответили правильно"
Else
Label4.Text = "Вы ответили неправильно"
End If
Else
Label4.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items.Count = 4 And ListBox3.Items.Count = 4 And ListBox4.Items.Count = 4 Then
If ListBox2.Items(0).Text = "Выделить группу" And ListBox2.Items(1).Text = "Выход" And ListBox2.Items(2).Text = "Открыть архив" And ListBox2.Items(3).Text = "Установить пароль по умолчанию" And ListBox3.Items(0).Text = "Добавить файлы в архив" And ListBox3.Items(1).Text = "Извлечь в указанную папку" And ListBox3.Items(2).Text = "Печать файла" And ListBox3.Items(3).Text = "Просмотреть файл" And ListBox4.Items(0).Text = "Восстановить архив(ы)" And ListBox4.Items(1).Text = "Найти файлы" And ListBox4.Items(2).Text = "Показать информацию" And ListBox4.Items(3).Text = "Преобразовать архив(ы)" Then
Session("Kol_yes") = CStr(CInt(Session("Kol_yes")) + 1)
Else
Session("Kol_yes") = CStr(CInt(Session("Kol_yes")) + 1)
End If
Else
Session("Kol_no") = CStr(CInt(Session("Kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button7.Visible = False
Label4.Visible = False
Else
Button7.Visible = True
Label4.Visible = True
End If
End Sub
End Class
winrar интерфейс программа архив
Partial Class вопрос1_9
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim n_select As Integer = ListBox2.SelectedIndex
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox1.ClearSelection()
ListBox2.Items.RemoveAt(n_select)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox2.Items.Count = 6 Then
If ListBox2.Items(0).Text = "Файл" And ListBox2.Items(1).Text = "Команды" And ListBox2.Items(2).Text = "Операции" And ListBox2.Items(3).Text = "Избранное" And ListBox2.Items(4).Text = "Параметры" And ListBox2.Items(5).Text = "Справка" Then
Label1.Text = "Вы ответили правильно"
Else
Label1.Text = "Вы ответили неправильно"
End If
Else
Label1.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items.Count = 6 Then
If ListBox2.Items(0).Text = "Файл" And ListBox2.Items(1).Text = "Команды" And ListBox2.Items(2).Text = "Операции" And ListBox2.Items(3).Text = "Избранное" And ListBox2.Items(4).Text = "Параметры" And ListBox2.Items(5).Text = "Справка" Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label1.Visible = False
Else
Button3.Visible = True
Label1.Visible = True
End If
End Sub
End Class
Partial Class вопрос1_10
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n_select As Integer = ListBox2.SelectedIndex
Dim st As String = ListBox2.SelectedItem.Text
If n_select > 0 Then
ListBox2.Items(n_select).Text = ListBox2.Items(n_select - 1).Text
ListBox2.Items(n_select - 1).Text = st
End If
ListBox2.SelectedIndex = n_select - 1
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim n_select As Integer = ListBox2.SelectedIndex
Dim st As String = ListBox2.SelectedItem.Text
If n_select < ListBox2.Items.Count - 1 Then
ListBox2.Items(n_select).Text = ListBox2.Items(n_select + 1).Text
ListBox2.Items(n_select + 1).Text = st
End If
ListBox2.SelectedIndex = n_select + 1
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox2.Items(0).Text = "Установить пароль по умолчанию" And ListBox2.Items(1).Text = "Печать файла" And ListBox2.Items(2).Text = "Создать отчёт" And ListBox2.Items(3).Text = "Упорядочить избранное" And ListBox2.Items(4).Text = "Список файлов" And ListBox2.Items(5).Text = "Содержание" Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items(0).Text = "Установить пароль по умолчанию" And ListBox2.Items(1).Text = "Печать файла" And ListBox2.Items(2).Text = "Создать отчёт" And ListBox2.Items(3).Text = "Упорядочить избранное" And ListBox2.Items(4).Text = "Список файлов" And ListBox2.Items(5).Text = "Содержание" Then
Session("Kol_yes") = CStr(CInt(Session("Kol_yes")) + 1)
Else
Session("Kol_no") = CStr(CInt(Session("Kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label2.Visible = False
Else
Button3.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class Раздел_2
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Session("Page_URL") = Request.RawUrl
End Sub
Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
Server.Transfer("Об_авторе.aspx")
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Session("номера_вопросов") = ""
Session("диспетч_форма") = "Диспетч_форма_раздел_2.aspx"
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
End Class
Partial Class Подраздел 2_1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Session("Page_URL") = Request.RawUrl
End Sub
Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
Server.Transfer("Об_авторе.aspx")
End Sub
End Class
Partial Class вопрос2_1
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButtonList1.Items(0).Selected Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If RadioButtonList1.Items(0).Selected Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button1.Visible = False
Label2.Visible = False
Else
Button1.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос2_10
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n_select As Integer = ListBox2.SelectedIndex
Dim st As String = ListBox2.SelectedItem.Text
If n_select > 0 Then
ListBox2.Items(n_select).Text = ListBox2.Items(n_select - 1).Text
ListBox2.Items(n_select - 1).Text = st
End If
ListBox2.SelectedIndex = n_select - 1
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim n_select As Integer = ListBox2.SelectedIndex
Dim st As String = ListBox2.SelectedItem.Text
If n_select < ListBox2.Items.Count - 1 Then
ListBox2.Items(n_select).Text = ListBox2.Items(n_select + 1).Text
ListBox2.Items(n_select + 1).Text = st
End If
ListBox2.SelectedIndex = n_select + 1
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox2.Items(0).Text = "Множитель 1024" And ListBox2.Items(1).Text = "Множитель 1" And ListBox2.Items(2).Text = "1048576 байт" And ListBox2.Items(3).Text = "1073741824 байт" And ListBox2.Items(4).Text = "Множитель 1 000 000 000" Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items(0).Text = "Множитель 1024" And ListBox2.Items(1).Text = "Множитель 1" And ListBox2.Items(2).Text = "1048576 байт" And ListBox2.Items(3).Text = "1073741824 байт" And ListBox2.Items(4).Text = "Множитель 1 000 000 000" Then
Session("Kol_yes") = CStr(CInt(Session("Kol_yes")) + 1)
Else
Session("Kol_no") = CStr(CInt(Session("Kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label2.Visible = False
Else
Button3.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос2_2
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButtonList1.Items(1).Selected Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If RadioButtonList1.Items(1).Selected Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button1.Visible = False
Label2.Visible = False
Else
Button1.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос2_3
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim st As String = TextBox1.Text
If st.IndexOf("RAR") > -1 Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Dim st As String = TextBox1.Text
If st.IndexOf("RAR") > -1 Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button1.Visible = False
Label2.Visible = False
Else
Button1.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос2_4
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBoxList1.Items(0).Selected And CheckBoxList1.Items(1).Selected And CheckBoxList1.Items(2).Selected And CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(5).Selected And (Not CheckBoxList1.Items(4).Selected) Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If CheckBoxList1.Items(0).Selected And CheckBoxList1.Items(1).Selected And CheckBoxList1.Items(2).Selected And CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(5).Selected And (Not CheckBoxList1.Items(4).Selected) Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button1.Visible = False
Label2.Visible = False
Else
Button1.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос2_5
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox2.Items.Count - 1
If ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox3.Items.Count - 1
If ListBox3.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox3.Items.Add(ListBox1.SelectedItem)
ListBox3.ClearSelection()
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
ListBox3.Items.Remove(ListBox3.SelectedItem)
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox4.Items.Count - 1
If ListBox4.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox4.Items.Add(ListBox1.SelectedItem)
ListBox4.ClearSelection()
End Sub
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
ListBox4.Items.Remove(ListBox4.SelectedItem)
End Sub
Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim st1, st2, st3 As String
st1 = ListBox1.Items(0).Text + ListBox1.Items(1).Text + ListBox1.Items(2).Text
st2 = ListBox1.Items(3).Text + ListBox1.Items(4).Text + ListBox1.Items(5).Text
st3 = ListBox1.Items(6).Text + ListBox1.Items(7).Text + ListBox1.Items(8).Text
Dim i As Integer
Dim k1, k2, k3 As Integer
k1 = 0 : k2 = 0 : k3 = 0
Dim flag1, flag2, flag3 As Boolean
flag1 = False : flag2 = False : flag3 = False
For i = 0 To ListBox2.Items.Count - 1
If st1.IndexOf(ListBox2.Items(i).Text) > -1 Then
k1 += 1
End If
Next i
If k1 = ListBox2.Items.Count And k1 = 3 Then flag1 = True
For i = 0 To ListBox3.Items.Count - 1
If st2.IndexOf(ListBox3.Items(i).Text) > -1 Then
k2 += 1
End If
Next i
If k2 = ListBox3.Items.Count And k2 = 3 Then flag2 = True
For i = 0 To ListBox4.Items.Count - 1
If st3.IndexOf(ListBox4.Items(i).Text) > -1 Then
k3 += 1
End If
Next i
If k3 = ListBox4.Items.Count And k3 = 3 Then flag3 = True
If flag1 And flag2 And flag3 Then
Label4.Text = "Вы ответили правильно"
Else
Label4.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Dim st1, st2, st3 As String
st1 = ListBox1.Items(0).Text + ListBox1.Items(1).Text + ListBox1.Items(2).Text
st2 = ListBox1.Items(3).Text + ListBox1.Items(4).Text + ListBox1.Items(5).Text
st3 = ListBox1.Items(6).Text + ListBox1.Items(7).Text + ListBox1.Items(8).Text
Dim i As Integer
Dim k1, k2, k3 As Integer
k1 = 0 : k2 = 0 : k3 = 0
Dim flag1, flag2, flag3 As Boolean
flag1 = False : flag2 = False : flag3 = False
For i = 0 To ListBox2.Items.Count - 1
If st1.IndexOf(ListBox2.Items(i).Text) > -1 Then
k1 += 1
End If
Next i
If k1 = ListBox2.Items.Count And k1 = 3 Then flag1 = True
For i = 0 To ListBox3.Items.Count - 1
If st2.IndexOf(ListBox3.Items(i).Text) > -1 Then
k2 += 1
End If
Next i
If k2 = ListBox3.Items.Count And k2 = 3 Then flag2 = True
For i = 0 To ListBox4.Items.Count - 1
If st3.IndexOf(ListBox4.Items(i).Text) > -1 Then
k3 += 1
End If
Next i
If k3 = ListBox4.Items.Count And k3 = 3 Then flag3 = True
If flag1 And flag2 And flag3 Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button7.Visible = False
Label4.Visible = False
Else
Button7.Visible = True
Label4.Visible = True
End If
End Sub
End Class
Partial Class вопрос2_6
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox2.Items.Count - 1
If ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox2.Items.Count = ListBox1.Items.Count Then
If ListBox2.Items(0).Text = ListBox1.Items(2).Text And ListBox2.Items(1).Text = ListBox1.Items(3).Text And ListBox2.Items(2).Text = ListBox1.Items(0).Text And ListBox2.Items(3).Text = ListBox1.Items(1).Text Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items.Count = ListBox1.Items.Count Then
If ListBox2.Items(0).Text = ListBox1.Items(2).Text And ListBox2.Items(1).Text = ListBox1.Items(3).Text And ListBox2.Items(2).Text = ListBox1.Items(0).Text And ListBox2.Items(3).Text = ListBox1.Items(1).Text Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label2.Visible = False
Else
Button3.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос2_7
Inherits System.Web.UI.Page
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox4.Text = "архивами" And TextBox5.Text = "архива" And TextBox6.Text = "архиве" Then
Label4.Text = "Вы ответили правильно"
Else
Label4.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If TextBox4.Text = "архивами" And TextBox5.Text = "архива" And TextBox6.Text = "архиве" Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label4.Visible = False
Else
Button3.Visible = True
Label4.Visible = True
End If
End Sub
End Class
Partial Class вопрос2_8
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim n_select As Integer = ListBox2.SelectedIndex
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox1.ClearSelection()
ListBox2.Items.RemoveAt(n_select)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox3.Items.Add(ListBox1.SelectedItem)
ListBox3.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim n_select As Integer = ListBox3.SelectedIndex
ListBox1.Items.Add(ListBox3.SelectedItem)
ListBox1.ClearSelection()
ListBox3.Items.RemoveAt(n_select)
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox4.Items.Add(ListBox1.SelectedItem)
ListBox4.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim n_select As Integer = ListBox4.SelectedIndex
ListBox1.Items.Add(ListBox4.SelectedItem)
ListBox1.ClearSelection()
ListBox4.Items.RemoveAt(n_select)
End Sub
Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
If ListBox2.Items.Count = 3 And ListBox3.Items.Count = 3 And ListBox4.Items.Count = 3 Then
If ListBox2.Items(0).Text = "Автоопределение" And ListBox2.Items(1).Text = "CD700" And ListBox2.Items(2).Text = "Zip100" And ListBox4.Items(0).Text = "Добавить электронную подпись" And ListBox4.Items(1).Text = "Заблокировать архив" And ListBox4.Items(2).Text = "Создать непрерывный архив" And ListBox3.Items(0).Text = "Добавить с обновлением файлов" And ListBox3.Items(1).Text = "Обновить существующие файлы" And ListBox3.Items(2).Text = "Синхронизировать содержимое архива" Then
Label4.Text = "Вы ответили правильно"
Else
Label4.Text = "Вы ответили неправильно"
End If
Else
Label4.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items.Count = 3 And ListBox3.Items.Count = 3 And ListBox4.Items.Count = 3 Then
If ListBox2.Items(0).Text = "Автоопределение" And ListBox2.Items(1).Text = "CD700" And ListBox2.Items(2).Text = "Zip100" And ListBox4.Items(0).Text = "Добавить электронную подпись" And ListBox4.Items(1).Text = "Заблокировать архив" And ListBox4.Items(2).Text = "Создать непрерывный архив" And ListBox3.Items(0).Text = "Добавить с обновлением файлов" And ListBox3.Items(1).Text = "Обновить существующие файлы" And ListBox3.Items(2).Text = "Синхронизировать содержимое архива" Then
Session("Kol_yes") = CStr(CInt(Session("Kol_yes")) + 1)
Else
Session("Kol_yes") = CStr(CInt(Session("Kol_yes")) + 1)
End If
Else
Session("Kol_no") = CStr(CInt(Session("Kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button7.Visible = False
Label4.Visible = False
Else
Button7.Visible = True
Label4.Visible = True
End If
End Sub
End Class
Partial Class вопрос2_9
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim n_select As Integer = ListBox2.SelectedIndex
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox1.ClearSelection()
ListBox2.Items.RemoveAt(n_select)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox2.Items.Count = 5 Then
If ListBox2.Items(0).Text = "Выделить архив" And ListBox2.Items(1).Text = "Выбрать меню Операции" And ListBox2.Items(2).Text = "В меню Операции выбрать команду Восстановить архив(ы)" And ListBox2.Items(3).Text = "В диалоговом окне Восстановление выбрать тип архива, который необходимо восстановить" And ListBox2.Items(4).Text = "Нажать кнопку ОК" Then
Label1.Text = "Вы ответили правильно"
Else
Label1.Text = "Вы ответили неправильно"
End If
Else
Label1.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items.Count = 5 Then
If ListBox2.Items(0).Text = "Выделить архив" And ListBox2.Items(1).Text = "Выбрать меню Операции" And ListBox2.Items(2).Text = "В меню Операции выбрать команду Восстановить архив(ы)" And ListBox2.Items(3).Text = "В диалоговом окне Восстановление выбрать тип архива, который необходимо восстановить" And ListBox2.Items(4).Text = "Нажать кнопку ОК" Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label1.Visible = False
Else
Button3.Visible = True
Label1.Visible = True
End If
End Sub
End Class
Partial Class Раздел_3
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Session("Page_URL") = Request.RawUrl
End Sub
Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
Server.Transfer("Об_авторе.aspx")
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Session("номера_вопросов") = ""
Session("диспетч_форма") = "Диспетч_форма_раздел_3.aspx"
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
End Class
Partial Class Подраздел 3_1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Session("Page_URL") = Request.RawUrl
End Sub
Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
Server.Transfer("Об_авторе.aspx")
End Sub
End Class
Partial Class вопрос3_1
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButtonList1.Items(1).Selected Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If RadioButtonList1.Items(0).Selected Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button1.Visible = False
Label2.Visible = False
Else
Button1.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос3_10
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n_select As Integer = ListBox2.SelectedIndex
Dim st As String = ListBox2.SelectedItem.Text
If n_select > 0 Then
ListBox2.Items(n_select).Text = ListBox2.Items(n_select - 1).Text
ListBox2.Items(n_select - 1).Text = st
End If
ListBox2.SelectedIndex = n_select - 1
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim n_select As Integer = ListBox2.SelectedIndex
Dim st As String = ListBox2.SelectedItem.Text
If n_select < ListBox2.Items.Count - 1 Then
ListBox2.Items(n_select).Text = ListBox2.Items(n_select + 1).Text
ListBox2.Items(n_select + 1).Text = st
End If
ListBox2.SelectedIndex = n_select + 1
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox2.Items(0).Text = "Сохранять файловые потоки" And ListBox2.Items(1).Text = "Делать паузу после каждого тома" And ListBox2.Items(2).Text = "Архивировать в фоновом режиме" And ListBox2.Items(3).Text = "Открытие диалога Дополнительные параметры сжатия" And ListBox2.Items(4).Text = "Эта кнопка позволяет установить пароль для шифрования файлов" And ListBox2.Items(5).Text = "Позволяет выбрать модуль самораспаковки " Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items(0).Text = "Сохранять файловые потоки" And ListBox2.Items(1).Text = "Делать паузу после каждого тома" And ListBox2.Items(2).Text = "Архивировать в фоновом режиме" And ListBox2.Items(3).Text = "Открытие диалога Дополнительные параметры сжатия" And ListBox2.Items(4).Text = "Эта кнопка позволяет установить пароль для шифрования файлов" And ListBox2.Items(5).Text = "Позволяет выбрать модуль самораспаковки " Then
Session("Kol_yes") = CStr(CInt(Session("Kol_yes")) + 1)
Else
Session("Kol_no") = CStr(CInt(Session("Kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label2.Visible = False
Else
Button3.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос3_2
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButtonList1.Items(2).Selected Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If RadioButtonList1.Items(2).Selected Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button1.Visible = False
Label2.Visible = False
Else
Button1.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос3_3
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim st As String = TextBox1.Text
If st.IndexOf("Гбайт") > -1 Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Dim st As String = TextBox1.Text
If st.IndexOf("Гбайт") > -1 Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button1.Visible = False
Label2.Visible = False
Else
Button1.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос3_4
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBoxList1.Items(0).Selected And CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(2).Selected And (Not CheckBoxList1.Items(1).Selected) Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If CheckBoxList1.Items(0).Selected And CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(2).Selected And (CheckBoxList1.Items(1).Selected) Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button1.Visible = False
Label2.Visible = False
Else
Button1.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос3_5
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox2.Items.Count - 1
If ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox3.Items.Count - 1
If ListBox3.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox3.Items.Add(ListBox1.SelectedItem)
ListBox3.ClearSelection()
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
ListBox3.Items.Remove(ListBox3.SelectedItem)
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox4.Items.Count - 1
If ListBox4.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox4.Items.Add(ListBox1.SelectedItem)
ListBox4.ClearSelection()
End Sub
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
ListBox4.Items.Remove(ListBox4.SelectedItem)
End Sub
Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim st1, st2, st3 As String
st1 = ListBox1.Items(2).Text + ListBox1.Items(5).Text
st2 = ListBox1.Items(0).Text + ListBox1.Items(1).Text + ListBox1.Items(4).Text
st3 = ListBox1.Items(3).Text + ListBox1.Items(6).Text + ListBox1.Items(7).Text
Dim i As Integer
Dim k1, k2, k3 As Integer
k1 = 0 : k2 = 0 : k3 = 0
Dim flag1, flag2, flag3 As Boolean
flag1 = False : flag2 = False : flag3 = False
For i = 0 To ListBox2.Items.Count - 1
If st1.IndexOf(ListBox2.Items(i).Text) > -1 Then
k1 += 1
End If
Next i
If k1 = ListBox2.Items.Count And k1 = 2 Then flag1 = True
For i = 0 To ListBox3.Items.Count - 1
If st2.IndexOf(ListBox3.Items(i).Text) > -1 Then
k2 += 1
End If
Next i
If k2 = ListBox3.Items.Count And k2 = 3 Then flag2 = True
For i = 0 To ListBox4.Items.Count - 1
If st3.IndexOf(ListBox4.Items(i).Text) > -1 Then
k3 += 1
End If
Next i
If k3 = ListBox4.Items.Count And k3 = 3 Then flag3 = True
If flag1 And flag2 And flag3 Then
Label4.Text = "Вы ответили правильно"
Else
Label4.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Dim st1, st2, st3 As String
st1 = ListBox1.Items(2).Text + ListBox1.Items(5).Text
st2 = ListBox1.Items(0).Text + ListBox1.Items(1).Text + ListBox1.Items(4).Text
st3 = ListBox1.Items(3).Text + ListBox1.Items(6).Text + ListBox1.Items(7).Text
Dim i As Integer
Dim k1, k2, k3 As Integer
k1 = 0 : k2 = 0 : k3 = 0
Dim flag1, flag2, flag3 As Boolean
flag1 = False : flag2 = False : flag3 = False
For i = 0 To ListBox2.Items.Count - 1
If st1.IndexOf(ListBox2.Items(i).Text) > -1 Then
k1 += 1
End If
Next i
If k1 = ListBox2.Items.Count And k1 = 2 Then flag1 = True
For i = 0 To ListBox3.Items.Count - 1
If st2.IndexOf(ListBox3.Items(i).Text) > -1 Then
k2 += 1
End If
Next i
If k2 = ListBox3.Items.Count And k2 = 3 Then flag2 = True
For i = 0 To ListBox4.Items.Count - 1
If st3.IndexOf(ListBox4.Items(i).Text) > -1 Then
k3 += 1
End If
Next i
If k3 = ListBox4.Items.Count And k3 = 3 Then flag3 = True
If flag1 And flag2 And flag3 Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button7.Visible = False
Label4.Visible = False
Else
Button7.Visible = True
Label4.Visible = True
End If
End Sub
End Class
Partial Class вопрос3_6
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim flag As Boolean = False
For i = 0 To ListBox2.Items.Count - 1
If ListBox2.Items(i).Text = ListBox1.SelectedItem.Text Then
flag = True
End If
Next
If flag = False Then ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox2.Items.Count = ListBox1.Items.Count Then
If ListBox2.Items(0).Text = ListBox1.Items(4).Text And ListBox2.Items(1).Text = ListBox1.Items(0).Text And ListBox2.Items(2).Text = ListBox1.Items(3).Text And ListBox2.Items(3).Text = ListBox1.Items(1).Text And ListBox2.Items(4).Text = ListBox1.Items(2).Text Then
Label2.Text = "Вы ответили правильно"
Else
Label2.Text = "Вы ответили неправильно"
End If
Else
Label2.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If ListBox2.Items.Count = ListBox1.Items.Count Then
If ListBox2.Items(0).Text = ListBox1.Items(4).Text And ListBox2.Items(1).Text = ListBox1.Items(0).Text And ListBox2.Items(2).Text = ListBox1.Items(3).Text And ListBox2.Items(3).Text = ListBox1.Items(1).Text And ListBox2.Items(4).Text = ListBox1.Items(2).Text Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label2.Visible = False
Else
Button3.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос3_7
Inherits System.Web.UI.Page
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox1.Text = "ZIP" And TextBox2.Text = "ZIP" And TextBox3.Text = "ZIP" Then
Label4.Text = "Вы ответили правильно"
Else
Label4.Text = "Вы ответили неправильно"
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
If TextBox1.Text = "ZIP" And TextBox2.Text = "ZIP" And TextBox3.Text = "ZIP" Then
Session("kol_yes") = CStr(CInt(Session("kol_yes")) + 1)
Else
Session("kol_no") = CStr(CInt(Session("kol_no")) + 1)
End If
Server.Transfer(CStr(Session("диспетч_форма")))
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If CStr(Session("режим_обучения")) = "Контроль" Then
Button3.Visible = False
Label4.Visible = False
Else
Button3.Visible = True
Label4.Visible = True
End If
End Sub
End Class
Partial Class вопрос3_8
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox2.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim n_select As Integer = ListBox2.SelectedIndex
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox1.ClearSelection()
ListBox2.Items.RemoveAt(n_select)
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox3.Items.Add(ListBox1.SelectedItem)
ListBox3.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim n_select As Integer = ListBox3.SelectedIndex
ListBox1.Items.Add(ListBox3.SelectedItem)
ListBox1.ClearSelection()
ListBox3.Items.RemoveAt(n_select)
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim n_select As Integer = ListBox1.SelectedIndex
ListBox4.Items.Add(ListBox1.SelectedItem)
ListBox4.ClearSelection()
ListBox1.Items.RemoveAt(n_select)
End Sub
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim n_select As Integer = ListBox4.SelectedIndex
ListBox1.Items.Add(ListBox4.SelectedItem)
ListBox1.ClearSelection()
ListBox4.Items.RemoveAt(n_select)
End Sub
Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
Подобные документы
Обзор особенностей работы с программой Total Commander. Создание папок, копирование файлов на флеш-карту. Вызов контекстного меню. Определение структуры файлов. Переименование группы файлов. Помещение файлов в архив. Разделение архива на несколько частей.
лабораторная работа [1,9 M], добавлен 08.04.2014Описание назначения всех команд меню WinRar. Создание и распаковывание архивов для текстовых, графических и системных файлов. Примеры создания архивов с опциями: пароль, многотомный и самораспаковывающийся архивы. Теоретические основы сжатия файлов.
контрольная работа [2,3 M], добавлен 07.07.2013Программы для создания архивов. Эффективность сжатия данных как важнейшая характеристика архиваторов. Основные методы сжатия данных. Характеристика программы для упаковки текстов и программ WinRar. Распаковка файлов, упаковка файлов и папок в общий архив.
реферат [21,0 K], добавлен 05.04.2010Создание и переименование папок. Копирование в папку файлов или других папок, их перемещение в другие папки. Удаление из папки перемещенных в нее файлов. Возобновление в папке удаленный ранее объект. Выделение нескольких несмежных объектов и удаление.
контрольная работа [1,2 M], добавлен 22.05.2007Архив – файл с информацией из одного или нескольких сжатых файлов. Теоретические основы сжатия данных: объекты, обратимость; программные средства и требования к ним. Архиваторы под Windows: WinZip, WinRar; поддержка алгоритмов компрессии JPEG, LZMA.
реферат [18,4 K], добавлен 30.11.2011Основные действия при работе с архивами. Архиваторы как программы, осуществляющие сжатие (упаковку файлов). Понятие избыточности информации. Архивация с помощью оболочки WinRAR. Кодирование информации наиболее естественным, но не экономичным способом.
презентация [416,5 K], добавлен 14.03.2015Требования к функциональным характеристикам программы, составу и параметрам технических средств, программной совместимости. Особенности программирования в среде Access. Описание интерфейса программы, ввод и редактирование данных, добавление новых книг.
курсовая работа [1,5 M], добавлен 17.11.2010Теоретические положения использования архиваторов. Основные возможности программы WinRar и ее ограничения. Режимы управления файлами и архивами. Поддержка технологии перетаскивания. Тестовые примеры использования WinRar. Использование контекстных меню.
реферат [654,9 K], добавлен 22.11.2009Утилиты архивации для создания резервных копий файлов путем помещения их в архив в сжатом виде. Операции над архивами. Алгоритмы архивации. Универсальные алгоритмы уплотнения. Формат задания команд. Степень сжатия файлов. Основные виды архиваторов.
презентация [241,0 K], добавлен 13.08.2013Изучение понятия архивации, сжатия файлов с целью экономии памяти и размещения сжатых данных в одном архивном файле. Описания программ, выполняющих сжатие и восстановление сжатых файлов в первоначальном виде. Основные преимущества программ-упаковщиков.
контрольная работа [534,7 K], добавлен 11.01.2015
