Чтобы написать пост, нужно авторизоваться с помощью:

Турнир 4-х. Версия 0.5

Программирование

Турнир 4-х. Версия 0.5

Обновление программы.

Симулятор статистики футбольного турнира из 4-х команд.

Пишется на языке Visual Basic .NET 14 в среде Visual Studio 2017 Community

Код:

Public Class Turnir4x
Public komanda(3) As String
Public tablica(3, 6) As Integer
Public i As Integer
Public ii As Integer
Public udar As Integer
Public s As Integer
Public counter As Integer
Public schethome As Integer
Public schetgost As Integer
Public ohome As Integer
Public homeigra As Integer
Public gostigra As Integer
Public raspisanieigr As String

Private Sub Turnir4x_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'вносим начальные названия команд и значения переменных
raspisanieigr = "01232031031210320213302199"
komanda(0) = "Калинино"
komanda(1) = "Малмыж"
komanda(2) = "Россия"
komanda(3) = "Уругвай"
hkom.Text = ""
sht.Text = ""
kom.Text = ""
ochki.Text = ""
vnp.Text = ""
zabil.Text = ""
prop.Text = ""
igr.Text = ""
counter = 0
udar = 0
End Sub

Private Sub Schet()
Dim a As Integer
Dim v As Integer = 0
s = 0
'разыгрываем количество попыток
For i = 0 To ii
Randomize()
a = Math.Ceiling(Rnd() * 100)
If a > 50 Then
v = v + 1
End If
Next
'забиваем голы
For i = 0 To v
Randomize()
a = Math.Ceiling(Rnd() * 100)
If a > 50 Then
s = s + 1
End If
Next
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'применить введенные пользователем названия команд
komanda(0) = TextBox1.Text
komanda(1) = TextBox2.Text
komanda(2) = TextBox3.Text
komanda(3) = TextBox4.Text
End Sub

Private Sub igrat_Click(sender As Object, e As EventArgs) Handles igrat.Click

If udar = 0 Then
'запускаем новую игру
'обнуляем текстовый блок игры
t1h.Text = "0"
t2h.Text = "0"
t1g.Text = "0"
t2g.Text = "0"
homeschet.Text = "0"
gostschet.Text = "0"
schethome = 0
schetgost = 0
'расставляем команды в Хозяева и Гостей
homeigra = Val(raspisanieigr(index:=counter))
counter = counter + 1
gostigra = Val(raspisanieigr(index:=counter))
'проверяем счетчик игр на окончание турнира
If counter > 23 Then
xoz.Text = ""
gosti.Text = ""
igrat.Text = "Турнир окончен!"
udar = 9
Exit Sub
End If
xoz.Text = komanda(homeigra)
gosti.Text = komanda(gostigra)
igrat.Text = "Первый тайм. Бьют Хозяева"
udar = udar + 1
Exit Sub
End If

If udar = 1 Then
'Хозяева первый тайм
ii = 3
Schet()
schethome = schethome + s
t1h.Text = Str(s)
igrat.Text = "Первый тайм. Бьют Гости"
udar = udar + 1
Exit Sub
End If

If udar = 2 Then
'Гости первый тайм
ii = 2
Schet()
schetgost = schetgost + s
t1g.Text = Str(s)
igrat.Text = "Второй тайм. Бьют Хозяева"
udar = udar + 1
Exit Sub
End If

If udar = 3 Then
'Хозяева второй тайм
ii = 3
Schet()
schethome = schethome + s
t2h.Text = Str(s)
igrat.Text = "Второй тайм. Бьют Гости"
udar = udar + 1
Exit Sub
End If

If udar = 4 Then
'Гости второй тайм
ii = 2
Schet()
schetgost = schetgost + s
t2g.Text = Str(s)
homeschet.Text = Str(schethome)
gostschet.Text = Str(schetgost)
igrat.Text = "Внести игру в таблицу"
udar = udar + 1
Exit Sub
End If

If udar = 5 Then
If schethome > schetgost Then ohome = 3
If schethome = schetgost Then ohome = 1
If schethome < schetgost Then ohome = 0

Select Case ohome
Case = 3
tablica(homeigra, 1) = tablica(homeigra, 1) + 1
tablica(gostigra, 3) = tablica(gostigra, 3) + 1
tablica(homeigra, 0) = tablica(homeigra, 0) + 3
Case = 1
tablica(homeigra, 2) = tablica(homeigra, 2) + 1
tablica(gostigra, 2) = tablica(gostigra, 2) + 1
tablica(homeigra, 0) = tablica(homeigra, 0) + 1
tablica(gostigra, 0) = tablica(gostigra, 0) + 1
Case = 0
tablica(homeigra, 3) = tablica(homeigra, 3) + 1
tablica(gostigra, 1) = tablica(gostigra, 1) + 1
tablica(gostigra, 0) = tablica(gostigra, 0) + 3
End Select

tablica(homeigra, 4) = tablica(homeigra, 4) + schethome
tablica(homeigra, 5) = tablica(homeigra, 5) + schetgost
tablica(homeigra, 6) = tablica(homeigra, 6) + 1
tablica(gostigra, 4) = tablica(gostigra, 4) + schetgost
tablica(gostigra, 5) = tablica(gostigra, 5) + schethome
tablica(gostigra, 6) = tablica(gostigra, 6) + 1
'прописываем игру в список игр
hkom.Text = hkom.Text + komanda(homeigra) + vbNewLine
sht.Text = sht.Text + Str(schethome) + " : " + Str(schetgost) + " (" + t1h.Text + ":" + t1g.Text + ")(" + t2h.Text + ":" + t2g.Text + ") " + komanda(gostigra) + vbNewLine

'очищаем текстовую таблицу турнира
kom.Text = ""
ochki.Text = ""
vnp.Text = ""
zabil.Text = ""
prop.Text = ""
igr.Text = ""

'записываем название команды в текстовую таблицу
For i = 0 To 3
kom.Text = kom.Text + komanda(i) + vbNewLine
ochki.Text = ochki.Text + Str(tablica(i, 0)) + vbNewLine
vnp.Text = vnp.Text + Str(tablica(i, 1))
vnp.Text = vnp.Text + " " + Str(tablica(i, 2))
vnp.Text = vnp.Text + " " + Str(tablica(i, 3)) + vbNewLine
zabil.Text = zabil.Text + Str(tablica(i, 4)) + vbNewLine
prop.Text = prop.Text + Str(tablica(i, 5)) + vbNewLine
igr.Text = igr.Text + Str(tablica(i, 6)) + vbNewLine
Next

udar = 0
counter = counter + 1
igrat.Text = "Начать новую игру"
End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'очистка данных всех игр
igrat.Text = "Начать новую игру"
t1h.Text = "0"
t2h.Text = "0"
t1g.Text = "0"
t2g.Text = "0"
homeschet.Text = "0"
gostschet.Text = "0"
hkom.Text = ""
sht.Text = ""
kom.Text = ""
ochki.Text = ""
vnp.Text = ""
zabil.Text = ""
prop.Text = ""
igr.Text = ""
counter = 0
udar = 0
ReDim tablica(3, 6)
End Sub
End Class
Скачать файл:
Скачать 11 Кбскачан 12 раз
22:19
RSS
Нет комментариев. Ваш будет первым!

Список групп

Программирование
Выкладываем свои "доморощенные" программы, код, релизы.
1 участник
Английский язык
Учимся понимать английский язык.
1 участник
Спорт
Быстрее! Выше! Сильнее!
1 участник
Стоп фейк
Изобличаем пропаганду ненависти, опровергаем фейки.
1 участник
Куда сходить в Малмыже
Места отдыха, спортивные и культурные объекты города и района
57 участников
События, факты, комментарии
Политика, экономика, пропаганда современной России. Россия сегодня.
2 участника
1 участник
Мультфильмы
Складываем сюда все интересные и развивающие мультфильмы!
1 участник