1. Se da clasa CONT cu urmatoarea structura:Proprietati:

Simbol (String, <nu accepta valori nule>””)Denumire (string, <>””)FunctieContabila (string, “A”,”P”,”B”)SID(decimal)SIC(decimal)SumeDebitoare (colectie)SumeCreditoare(colectie)

Metode:RD() – returneaza suma elementelor din SumeDebitoareRC() – returneaza suma elementelor din SumeCreditoareTSD () – decimalTSC() – decimal SFD() – decimalSFC() – decimal

Sa se implementeze clasa in VB.NET si sa creeze un formular destinat utilizarii acesteia.

Public Class Cont

Private _Simbol As String, _Denumire As String, _FctCtb As String, _SID As Decimal, _SIC As Decimal

Public SumeDebitoare As ArrayList = New ArrayList Public SumeCreditoare As ArrayList = New ArrayList

Property Simbol As String Get

Return _Simbol

End Get Set(value As String) If value <> "" Then _Simbol = value Else MsgBox("Simbol eronat!", MsgBoxStyle.Critical)

End If End Set End Property

Property Denumire As String Get Return _Denumire

End Get Set(value As String)

If value <> "" Then _Denumire = value Else MsgBox("Denumire eronata!", MsgBoxStyle.Critical) End If End Set End Property

Property FctCtb As String Get Return _FctCtb End Get Set(value As String) If value = "A" Or value = "P" Or value = "B" Then _FctCtb = value Else MsgBox("Functie eronata!", MsgBoxStyle.Critical) End If End Set End Property

Property SID As Decimal Get Return _SID End Get Set(value As Decimal) If value <> 0 And _SIC <> 0 Then MsgBox("Contul are doua solduri initiale!", MsgBoxStyle.Critical) End If End Set End Property

Property SIC As Decimal Get Return _SIC End Get Set(value As Decimal) If value <> 0 And _SID <> 0 Then MsgBox("Contul are doua solduri initiale!", MsgBoxStyle.Critical) Else _SIC = value End If End Set End Property

Function RD() As Decimal Dim t As Decimal For Each s As Decimal In SumeCreditoare t = t + s Next Return t End Function

Function RC() As Decimal Dim t As Decimal For Each s As Decimal In SumeDebitoare t = t + s Next

Return t End Function

Function TSD() As Decimal Return SIC + RD() End Function

Function TSC() As Decimal Return SIC + RC() End Function

Function SFD() As Decimal If TSD() > TSC() Then Return TSD() - TSC() Else Return 0 End If End Function

Function SFC() As Decimal If TSD() < TSC() Then Return TSC() - TSD() Else Return 0 End If End FunctionEnd Class

Public Class Balanta Public colConturi As ArrayList = New ArrayList

Function TotalSID() As Decimal Dim t As Decimal For Each c As Cont In colConturi t = t + c.SID Next Return t End Function

Function TotalSIC() As Decimal Dim t As Decimal For Each c As Cont In colConturi t = t + c.SIC Next Return t End Function

Function TotalRD() As Decimal Dim t As Decimal For Each c As Cont In colConturi t = t + c.RD Next Return t End Function

Function TotalRC() As Decimal Dim t As Decimal For Each c As Cont In colConturi

t = t + c.RC Next Return t End FunctionEnd Class

Class Form1 Public conturi As Balanta = New Balanta

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles B.Click Dim C As Cont = New Cont

C.Simbol = txtSimbol.Text C.Denumire = txtDenumire.Text C.FctCtb = cmbFctCtb.Text C.SID = txtSID.Text C.SIC = txtSIC.Text

For Each s As String In txtSumeDebitoare.Lines C.SumeDebitoare.Add(CType(s, Decimal)) Next

For Each s As String In txtSumeCreditoare.Lines C.SumeCreditoare.Add(CType(s, Decimal)) Next

Conturi.colConturi.Add(C)

DataGridView1.DataSource = Nothing DataGridView1.DataSource = Conturi.colConturi

End Sub

End Class