Top of the Sun
Reverse the title. This is where you can find anything under the sun. Read articles about social, technology, hardware, software, gadget, culture, nature, travel, money making and more.
Thursday, June 16, 2011
Thursday, June 9, 2011
Wednesday, March 9, 2011
All wizards... take a look this... How to compute Vatable amount from 12% VAT
SAMPLE GIVEN:
TOTAL AMOUNT
DUE 112.00
112.00 / 1.12 = 100.00(This is now your vatable amount)
100.00 * .12 = 12.00 (This is now your VAT amount)
VAT rate is only applicable for Philippine currency.
TOTAL AMOUNT
DUE 112.00
112.00 / 1.12 = 100.00(This is now your vatable amount)
100.00 * .12 = 12.00 (This is now your VAT amount)
VAT rate is only applicable for Philippine currency.
Monday, February 28, 2011
Tuesday, February 22, 2011
Wednesday, February 2, 2011
Read & Write Text File in VB2005
I will now begin to compile my codes which had been very helpful to my work. The following code is used to read or write textfile which can be used for more creative output.
Imports System.IO
Public Class ReadWriteTextFile
Friend Sub WriteTextFile(ByVal filename As String, ByVal filecontent As String)
Try
Dim oFile As System.IO.File
Dim oWrite As System.IO.StreamWriter
oWrite = oFile.CreateText(filename)
oWrite.Write(filecontent)
oWrite.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Friend Function GetFileContents(ByVal FullPath As String)
Try
Dim strContents As String
Dim objReader As System.IO.StreamReader
objReader = New StreamReader(FullPath)
strContents = objReader.ReadToEnd()
objReader.Close()
Return strContents
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
End Class
Imports System.IO
Public Class ReadWriteTextFile
Friend Sub WriteTextFile(ByVal filename As String, ByVal filecontent As String)
Try
Dim oFile As System.IO.File
Dim oWrite As System.IO.StreamWriter
oWrite = oFile.CreateText(filename)
oWrite.Write(filecontent)
oWrite.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Friend Function GetFileContents(ByVal FullPath As String)
Try
Dim strContents As String
Dim objReader As System.IO.StreamReader
objReader = New StreamReader(FullPath)
strContents = objReader.ReadToEnd()
objReader.Close()
Return strContents
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
End Class
Subscribe to:
Posts (Atom)