Форматирование текста в формате «за кадром» Cricket?

Question

Я делаю проект VB6, чтобы показать статистику крикетного матча. В текстовом поле «overs» я хочу показать текущий овер и шарики в формате «over.ball» (например: - 6.2, 12.5). В настоящее время я установил кнопку «вверх», которая добавляет «0.1» в текстовое поле. при нажатии. Когда я нажимаю кнопку «вверх», если текущее значение текстового поля равно «0,5», оно должно стать «1» [или «1,0»] вместо «0,6».

Вот код, который я добавил для команды «вверх».

Private Sub up_Click()
overs.Text = overs.Text + 0.1
End Sub

Предварительный просмотр приложения
Код для команды «вверх»

Итак, какой формат я должен использовать в текстовом поле, чтобы показать кадры, как указано выше?

Примечание: извините! Я новичок в VB6. Поэтому, пожалуйста, скажите мне, если вам нужна дополнительная информация по этому вопросу. Надеюсь, ответ от вас. Спасибо!

Answer 1

Я сделал это в Excel, так как у меня нет VB6, но вы можете извлечь из него что-то полезное.Я создал новый модуль класса, названный Innings:

Private m_Over As Integer
Private m_Ball As Integer
Public Sub BowlDelivery()
    If m_Ball = 5 Then
        m_Ball = 0
        m_Over = m_Over + 1
    Else
        m_Ball = m_Ball + 1
    End If
End Sub
Public Function ToString() As String
    ToString = Format(m_Over, "##0") + "." + Format(m_Ball, "0")
End Function
Private Sub Class_Initialize()
    m_Over = 0
    m_Ball = 0
End Sub

Этот класс инкапсулирует поведение доставки в боулинг и то, как это влияет на избыточное число и шар внутри него.Затем метод ToString форматирует эти значения для обычного способа отображения на счете.

Затем вы можете использовать этот класс следующим образом:

Public Sub TestInnings()
    Dim EnglandFirstInnings As New Innings
    Dim i As Integer
    For i = 1 To 100
        Debug.Print EnglandFirstInnings.ToString()
        EnglandFirstInnings.BowlDelivery
    Next
End Sub

Если вы не использоваливаши собственные классы в VB6, возможно, стоит почитать некоторые темы на эту тему, поскольку они являются отличным способом скрыть сложность.