Вычислительная математика

СегодняTextBox.Text = Val(NumericUpDown1.Text) + Val(NumericUpDown2.Text) + Val(NumericUpDown3.Text) + Val(NumericUpDown4.Text) + Val(NumericUpDown5.Text) + Val(NumericUpDown6.Text) + Val(NumericUpDown7.Text)
 If СегодняTextBox.Text >= 60 Then
 НеделяTextBox2.Text = +1
 End If

NumericUpDown.Value

If Cint(СегодняTextBox.Text) >= 60 Then

НеделяTextBox2.Text = Cint(НеделяTextBox2.Text)+1

НеделяTextBox2.Text = Cint(НеделяTextBox2.Text)+1

Public Class Form1
    Dim Segodny, Nedely As Integer
    Dim Zap As String = "Zap.txt"
    Dim Arr() As String
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IO.File.Exists(Zap) Then 'Проверяем есть ли фаил в БД и если да,то считываем из него
            Arr = IO.File.ReadAllLines(Zap, System.Text.Encoding.Default)
        Else 'Если файла нет создаем его
            Arr = {0, 0}
            IO.File.WriteAllLines(Zap, Arr, System.Text.Encoding.Default)
        End If
        'Заносим в поля данные из БД
        SegodnyTextBox1.Text = Arr(0)
        NedelyTextBox2.Text = Arr(1)
    End Sub
  
    Private Sub Запись_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Segodny = NumericUpDown1.Value + NumericUpDown2.Value + NumericUpDown3.Value + _
            NumericUpDown4.Value + NumericUpDown5.Value + NumericUpDown6.Value + NumericUpDown7.Value
 
        Segodny += Val(SegodnyTextBox1.Text)
        If Segodny >= 60 Then
            Nedely += 1
            Segodny -= 60
        End If
 
        SegodnyTextBox1.Text = Segodny
        NedelyTextBox2.Text = Nedely
        ' Запись в БД
        Arr = {Segodny, Nedely}
        IO.File.WriteAllLines(Zap, Arr, System.Text.Encoding.Default)
        'Обнуляем нумерики
        For i = 1 To 7
            Me.Controls("NumericUpDown" & i).Text = 0
        Next
    End Sub
End Class

    Nedely = Val(NedelyTextBox2.Text)

Private forDay1 As Integer
Private Sub Form8_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    forDay1 = 0
    TextBox1.ReadOnly = True
    TextBox2.ReadOnly = True
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    forDay1 += 10
    TextBox1.Text = forDay1
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    forDay1 += 9
    TextBox1.Text = forDay1
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    forDay1 += 14
    TextBox1.Text = forDay1
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    forDay1 += 7
    TextBox1.Text = forDay1
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    TextBox2.Text = forDay1 \ 60
    TextBox1.Text = forDay1 Mod 60 'если нужно
End Sub

Class UserVal
    Implements INotifyPropertyChanged
 
    Private _val As Integer
 
    Property Val() As Integer
        Get
            Return _val
        End Get
        Set(ByVal value As Integer)
            _val = value
            OnValueChanged(Nothing)
        End Set
    End Property
 
    Protected Overridable Sub OnValueChanged(ByVal e As EventArgs)
        NotifyPropertyChanged("Val")
    End Sub
 
    Public Event PropertyChanged As PropertyChangedEventHandler _
        Implements INotifyPropertyChanged.PropertyChanged
 
    Private Sub NotifyPropertyChanged(ByVal info As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
    End Sub
End Class

Dim PetrovVasya As New UserVal

Me.TextBox1.DataBindings.Add("Text", PetrovVasya, "Val")

Public Class Form1
    Dim Segodny, Nedely As Integer
    Dim Zap As String = "Zap2.txt"
    Dim Arr(), Imy, Fam As String
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IO.File.Exists(Zap) Then 'Проверяем есть ли фаил в БД и если да,то считываем из него
            Arr = IO.File.ReadAllLines(Zap, System.Text.Encoding.Default)
        Else 'Если файла нет создаем его
            Arr = {0, 0, "", ""}
            IO.File.WriteAllLines(Zap, Arr, System.Text.Encoding.Default)
        End If
        'Заносим в поля данные из БД
        SegodnyTextBox1.Text = Arr(0)
        NedelyTextBox2.Text = Arr(1)
        Nedely = Val(NedelyTextBox2.Text)
 
        ImyTextBox.Text = Arr(2)
        FamTextBox.Text = Arr(3)
        Imy = ImyTextBox.Text
        Fam = FamTextBox.Text
    End Sub
  
    Private Sub Запись_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Segodny = NumericUpDown1.Value + NumericUpDown2.Value + NumericUpDown3.Value + _
            NumericUpDown4.Value + NumericUpDown5.Value + NumericUpDown6.Value + NumericUpDown7.Value
 
        Segodny += Val(SegodnyTextBox1.Text)
 
        If Segodny >= 60 Then
            Nedely += 1
            Segodny -= 60
        End If
 
        SegodnyTextBox1.Text = Segodny
        NedelyTextBox2.Text = Nedely
      
        ' Запись в БД
        Imy = ImyTextBox.Text
        Fam = FamTextBox.Text
        Arr = {Segodny, Nedely, Imy, Fam}
        IO.File.WriteAllLines(Zap, Arr, System.Text.Encoding.Default)
        'Обнуляем нумерики
        For i = 1 To 7
            Me.Controls("NumericUpDown" & i).Text = 0
        Next
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Process.Start(Zap) 'открыть ТХТ файл
    End Sub
End Class

    Dim userList As New BindingList(Of UserVal)
    Dim currentUser As UserVal
    Dim UserCurrencyMannager As CurrencyManager = Me.BindingContext(userList)

    Sub InitUserList()
        For i = 1 To 3
            currentUser = New UserVal
            currentUser.Name = "User" & i.ToString
            currentUser.Family = "UserFamaly" & i.ToString
            userList.Add(currentUser)
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            InitUserList()
 
            Me.TextBox1.DataBindings.Add("Text", userList, "Val")
 
            DataGridView1.AutoGenerateColumns = True
            DataGridView1.DataSource = userList
    End Sub
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        currentUser = UserCurrencyMannager.Current
        currentUser.Val = InputBox("Новое значение")
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        currentUser = UserCurrencyMannager.Current
        currentUser.Val = +9 'за дедушку
End Sub