Wednesday, March 9, 2011

ALLELUJAH

I just this really nice music... I think It pleases the Lord than I.




Lyrics

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.

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