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

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

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

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

Симулятор статистики футбольного турнира из 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 = "01232031031210320213302199"
Private Sub Turnir4x_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'вносим начальные названия команд, если вдруг игроку это неохота делать
komanda(0) = "Калинино"
komanda(1) = "Малмыж"
komanda(2) = "Россия"
komanda(3) = "Уругвай"
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
spisok_igr.Text = spisok_igr.Text + komanda(homeigra) + " " + Str(schethome) + " : " + Str(schetgost) + " " + komanda(gostigra) + vbNewLine
'переписываем текстовую таблицу результатов
tabl.Text = ""
For i = 0 To 3
tabl.Text = tabl.Text + vbNewLine + komanda(i)
For ii = 0 To 6
tabl.Text = tabl.Text + " " + Str(tablica(i, ii))
Next
Next
udar = 0
counter = counter + 1
igrat.Text = "Начать новую игру"
End If
End Sub
End Class
Скачать файл:
Скачать 10 Кбскачан 11 раз
23:20
RSS
Нет комментариев. Ваш будет первым!

Список групп

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