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

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

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

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

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

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

Код:

Public Class Turnir4x
Public komanda(3) As String
Public igra As Integer
Public spisokigr As String
Public tablica(3, 6) As Integer
Public i As Integer
Public ii As Integer
Public t As Integer
Public counter As Integer = 0
Public num As Integer
Public time1home As Integer
Public time1gost As Integer
Public time2home As Integer
Public time2gost As Integer
Public schethome As Integer
Public schetgost As Integer
Public ohome As Integer
Public ogost As Integer

Private Sub GetIgra()
igra = Val(grafik.Text(index:=counter))
counter = counter + 1
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 counter = 24 Then Exit Sub
'результат таймов
For t = 0 To 11
MsgBox("Хозяева Первый тайм")
Randomize()
time1home = (Math.Ceiling(Rnd() * 10) + Math.Ceiling(Rnd() * 2)) / 10
MsgBox("Гости Первый тайм")
Randomize()
time1gost = Math.Ceiling(Rnd() * 10) / 10
MsgBox("Хозяева 2-й тайм")
Randomize()
time2home = (Math.Ceiling(Rnd() * 10) + Math.Ceiling(Rnd() * 2)) / 10
MsgBox("Гости 2-й тайм")
Randomize()
time2gost = Math.Ceiling(Rnd() * 10) / 10
schethome = time1home + time2home
schetgost = time1gost + time2gost
If schethome > schetgost Then ohome = 3
If schethome = schetgost Then ohome = 1
If schethome < schetgost Then ohome = 0
If schethome > schetgost Then ogost = 0
If schethome = schetgost Then ogost = 1
If schethome < schetgost Then ogost = 3

GetIgra()
spisok_igr.Text = spisok_igr.Text + komanda(igra) + Str(schethome) + " : "
tablica(igra, 0) = tablica(igra, 0) + ohome
tablica(igra, 5) = tablica(igra, 5) + schethome
tablica(igra, 6) = tablica(igra, 6) + schetgost

GetIgra()
spisok_igr.Text = spisok_igr.Text + Str(schetgost) + komanda(igra) + vbNewLine
tablica(igra, 0) = tablica(igra, 0) + ogost
tablica(igra, 6) = tablica(igra, 6) + schethome
tablica(igra, 5) = tablica(igra, 5) + schetgost

ohome = 0
ogost = 0

'переписываем таблицу результатов
tabl.Text = ""
For i = 0 To 3
tabl.Text = tabl.Text + vbNewLine + komanda(i)
For ii = 0 To 6
tabl.Text = tabl.Text + vbTab + Str(tablica(i, ii))
Next
Next

Next

End Sub


End Class

Скачать файл:
Скачать 8 Кбскачан 11 раз
01:02
RSS
Нет комментариев. Ваш будет первым!

Список групп

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