Знакомство с программой архивации файлов и папок WinRar
Меню программы и темы интерфейса WinRar. Добавление файлов и папок в архив. Извлечение архива в указанную папку. Добавление архивного комментария. Требования к функциональным характеристикам, к транспортированию и хранению, к программной документации.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 21.04.2014 |
| Размер файла | 3,7 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
If ListBox2.Items.Count = 2 And ListBox3.Items.Count = 3 And ListBox4.Items.Count = 3 Then
If ListBox2.Items(0).Text = "Сохранять данные о правах доступа" And ListBox2.Items(1).Text = "Сохранять файловые потоки" And ListBox4.Items(0).Text = "Архивировать в фоновом режиме" And ListBox4.Items(1).Text = "Ждать, если работает другая копия WinRAR" 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 = 2 And ListBox3.Items.Count = 3 And ListBox4.Items.Count = 3 Then
If ListBox2.Items(0).Text = "Сохранять данные о правах доступа" And ListBox2.Items(1).Text = "Сохранять файловые потоки" And ListBox4.Items(0).Text = "Архивировать в фоновом режиме" And ListBox4.Items(1).Text = "Ждать, если работает другая копия WinRAR" 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 вопрос3_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_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 Раздел_4
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 Подраздел 4_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 вопрос4_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 вопрос4_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 = "Выбор типа архива, для которого WinRAR будет сконфигурирован в Windows как средство просмотра" And ListBox2.Items(1).Text = "Указание дополнительных файлов расширения для архивных форматов, поддерживаемых WinRAR" And ListBox2.Items(2).Text = "Создание групп программ WinRAR" And ListBox2.Items(3).Text = "Использование контекстного меню для обработки архивов, поддерживаемых WinRAR." 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 = "Выбор типа архива, для которого WinRAR будет сконфигурирован в Windows как средство просмотра" And ListBox2.Items(1).Text = "Указание дополнительных файлов расширения для архивных форматов, поддерживаемых WinRAR" And ListBox2.Items(2).Text = "Создание групп программ WinRAR" And ListBox2.Items(3).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
Label2.Visible = False
Else
Button3.Visible = True
Label2.Visible = True
End If
End Sub
End Class
Partial Class вопрос4_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 вопрос4_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 вопрос4_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(5).Selected And CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(4).Selected And (Not CheckBoxList1.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 CheckBoxList1.Items(0).Selected And CheckBoxList1.Items(1).Selected And CheckBoxList1.Items(5).Selected And CheckBoxList1.Items(3).Selected And CheckBoxList1.Items(4).Selected And (Not CheckBoxList1.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 вопрос4_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(1).Text + ListBox1.Items(5).Text + ListBox1.Items(9).Text
st2 = ListBox1.Items(0).Text + ListBox1.Items(2).Text + ListBox1.Items(3).Text
st3 = ListBox1.Items(4).Text + 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 = 4 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(1).Text + ListBox1.Items(5).Text + ListBox1.Items(9).Text
st2 = ListBox1.Items(0).Text + ListBox1.Items(2).Text + ListBox1.Items(3).Text
st3 = ListBox1.Items(4).Text + 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 = 4 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 вопрос4_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(1).Text And ListBox2.Items(1).Text = ListBox1.Items(3).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 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(1).Text And ListBox2.Items(1).Text = ListBox1.Items(3).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 вопрос4_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 = "меню" And TextBox2.Text = "меню" And TextBox3.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 TextBox1.Text = "меню" And TextBox2.Text = "меню" And TextBox3.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 вопрос4_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 = 4 Then
If ListBox2.Items(0).Text = "C архивом CAB" And ListBox2.Items(1).Text = "C архивом RAR" And ListBox2.Items(2).Text = "C архивом ZIP" And ListBox3.Items(0).Text = "Добавить значок WinRAR в меню Пуск" And ListBox3.Items(1).Text = "Добавить значок WinRAR на Рабочий стол" And ListBox3.Items(2).Text = "Создать группу программ WinRAR" And ListBox4.Items(0).Text = "Вложенные контекстные меню" And ListBox4.Items(1).Text = "Встроить WinRAR в оболочку ОС" 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 = 3 And ListBox3.Items.Count = 3 And ListBox4.Items.Count = 4 Then
If ListBox2.Items(0).Text = "C архивом CAB" And ListBox2.Items(1).Text = "C архивом RAR" And ListBox2.Items(2).Text = "C архивом ZIP" And ListBox3.Items(0).Text = "Добавить значок WinRAR в меню Пуск" And ListBox3.Items(1).Text = "Добавить значок WinRAR на Рабочий стол" And ListBox3.Items(2).Text = "Создать группу программ WinRAR" And ListBox4.Items(0).Text = "Вложенные контекстные меню" And ListBox4.Items(1).Text = "Встроить WinRAR в оболочку ОС" 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
Partial Class вопрос4_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 Об_авторе
Inherits System.Web.UI.Page
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click Server.Transfer(Session("Page_URL"))
End Sub
End Class
Partial Class Результаты_тестирования
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
Label1.Text = "Количество правильных ответов - " + CStr(Session("kol_yes"))
Label2.Text = "Количество неправильных ответов - " + CStr(Session("kol_no"))
Dim othenka As Double
othenka = Math.Round(CInt(Session("kol_yes")) / 8)
If othenka < 2 Then othenka = 2
Label3.Text = "Ваша оценка - " + CStr(othenka)
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 Статистика
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
If Page.IsPostBack = False Then
Dim othenka As Double
othenka = Math.Round(CInt(Session("kol_yes")) / 8)
If othenka < 2 Then othenka = 2
Session("Оценка_обучаемого") = othenka
AccessDataSource1.InsertCommand = " INSERT INTO [Данные_обучаемых] (ФИО, [Количество_yes],[Количество_no],Оценка, [Дата_обучения]) VALUES ('" + Session("ФИО_обучаемого") + "'," + CStr(Session("kol_yes")) + "," + CStr(Session("kol_no")) + "," + CStr(Session("Оценка_обучаемого")) + ",'" + Format(Now(), "dd-MM-yyyy г. HH:mm:ss") + "')"
AccessDataSource1.Insert()
End If
End Sub
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Server.Transfer("Выход.aspx")
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 Выход
Inherits System.Web.UI.Page
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 Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Session("Page_URL") = Request.RawUrl
End Sub
End Class
Partial Class Справка
Inherits System.Web.UI.Page
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 Справка_обучение
Inherits System.Web.UI.Page
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 Справка_контроль
Inherits System.Web.UI.Page
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
Размещено на Allbest.ru
Подобные документы
Обзор особенностей работы с программой 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
