Форма «Реєстрації»
Public Class Регистрация
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then 'если введено пустое значение
MessageBox.Show("Введите Ваше имя") 'вывод сообщения
Else
fum = TextBox1.Text 'присваивание переменной fam значение TextBox1.Text
Игра.Show() 'активация формы
Me.Hide() 'скрытие формы
End If
AxWindowsMediaPlayer1.close()
End Sub
Private Sub Регистрация_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWindowsMediaPlayer1.URL = Application.StartupPath + "/" + "9.Три белых коня (Чародеи).mp3" 'воспоизведение звукового файла
End Sub
End Class
Головна форма гри «Игра»
Structure vopr
<VBFixedString(100)> Public вопрос As String
<VBFixedString(100)> Public A As String
<VBFixedString(100)> Public B As String
<VBFixedString(100)> Public C As String
<VBFixedString(100)> Public D As String
<VBFixedString(100)> Public правильный As String
End Structure
Public Class Игра
Dim L As String
Private masx(74) As Integer
Private n As Integer = 0
Private Sub Игра_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWindowsMediaPlayer1.URL = Application.StartupPath + "/" + "Песенка Паровозика.mp3" 'воспоизведение звукового файла
Dim файл As vopr
Dim x As Double
Dim a As Integer
FileOpen(1, "vopr.txt", OpenMode.Random, OpenAccess.Read, OpenShare.Shared, Len(файл))
Randomize()
x = Rnd()
a = Int(x * 75) + 1
masx(n) = a
n += 1
Dim recordnamber As Long = a
FileGet(1, файл, recordnamber)
Label1.Text = файл.вопрос
RadioButton1.Text = файл.A
RadioButton2.Text = файл.B
RadioButton3.Text = файл.C
RadioButton4.Text = файл.D
L = файл.правильный
FileClose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim файл As vopr
Dim x As Double
Dim a As Integer
'k_prav = 0
'k_neprav = 0
If RadioButton1.Checked = True Then
If RadioButton1.Text = L Then
k_prav += 1
Правильно.Show()
Else
k_neprav += 1
Не_правильно.Show()
End If
End If
If RadioButton2.Checked = True Then
If RadioButton2.Text = L Then
k_prav += 1
Правильно.Show()
Else
k_neprav += 1
Не_правильно.Show()
End If
End If
If RadioButton3.Checked = True Then
If RadioButton3.Text = L Then
k_prav += 1
Правильно.Show()
Else
k_neprav += 1
Не_правильно.Show()
End If
End If
If RadioButton4.Checked = True Then
If RadioButton4.Text = L Then
k_prav += 1
Правильно.Show()
Else
k_neprav += 1
Не_правильно.Show()
End If
End If
FileOpen(1, "vopr.txt", OpenMode.Random, OpenAccess.Read, OpenShare.Shared, Len(файл))
Randomize()
x = Rnd()
a = Int(x * 75) + 1
Do While Array.IndexOf(masx, a) <> -1
x = Rnd()
a = Int(x * 75) + 1
Loop
Dim recordnamber As Long = a
masx(n) = a
n += 1
FileGet(1, файл, recordnamber)
Label1.Text = файл.вопрос
RadioButton1.Text = файл.A
RadioButton2.Text = файл.B
RadioButton3.Text = файл.C
RadioButton4.Text = файл.D
L = файл.правильный
FileClose()
End Sub
Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub РекордыToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles РекордыToolStripMenuItem1.Click
Рекорды.Show()
Me.Close()
End Sub
End Class