Hello everyone,
I am working on my first week's assignment for Intermediate VB. It has been a couple years since I took my last VB course and I am very lost at this point. I work in Visual Studio everyday, but I mainy do scripting and I don't get to do much in the way of programming :(
The part I am stuck on is Step 3 of the assignment: Add a constructor that creates a transcation from an account number, transaction date and time, transaction amount, and current balance.
I don't know where to begin to get the variables from the other class form. The otherclass form is Account.vb and the info I need is in these variable I think:
Public Class Account
Private m_AccountNumber As String
Private m_AccountName As String
Private m_Balance As Decimal
Private m_Filename As String
Private Shared m_AccountNumberSize As Integer = 5
''' <summary>
''' Deposit funds into the account if the amount
''' is greater than zero.
''' </summary>
'''
Public Sub Deposit(ByVal amount As Decimal)
If amount > 0 Then
m_Balance += amount
End If
End SubI created my transaction class (Transaction.vb) and I have almost nothing so far. I believe I have everything to append the transaction to a log file:
''' <summary>
''' This will create a new file if the account is new, or save the transactions to an existing file
''' </summary>
Public Sub Save()
Dim logFile As StreamWriter
m_File = m_AccountNum & ".txt"
If Exists(m_File) Then
logFile = File.AppendText(m_File)
With logFile
.WriteLine(" Account # Date Amount Balance ")
.WriteLine("", m_AccountNum & m_TransDate & m_Amount & m_Balance)
.WriteLine("")
.Close()
End With
Else
With logFile
.WriteLine(" Account # Date Amount Balance ")
.WriteLine("", m_AccountNum & m_TransDate & m_Amount & m_Balance)
.WriteLine("")
.Close()
End With
End If
End SubI don't know where to begin. How do I get the varialble from the Account.vb class which is connected to the GUI that gets the variables from the "user"? Any help in the right direction would be great:
Private m_AccountNum As String ' customer counter number
Private m_TransDate As Date ' date and time of transaction
Private m_Amount As Decimal ' transaction amount
Private m_Balance As Decimal 'updated account balance
Private m_File As String 'accountname
Public Sub Add(ByRef trans As Transaction)
End Sub
Public Sub New(ByVal acctNum As String, ByVal tdate As Date, ByVal amount As Decimal, ByVal balance As Decimal)
End Sub