verification

google54d6ed7cb829decd.html

Need Software.....Contact Me

Here's My Email...

Puts_1986@yahoo.com
-----------------------------------------------------------------------------------------------------------------

ASUS Driver

LAN
Download


VGA
Download


Wireless Console Utility for XP
Download

----------------
Wireless
Wireless Lan Driver and Application for WIN XP(Please first install the Wireless Console
Utility before this driver installation.)
Download
or
Download

Note:
Extract the Download File first... Gudluck
-------------------
Source:
http://support.asus.com/download/download.aspx?model=ATKDrv&os=29&SLanguage=en-us


------------------------------------

Function getGSIS(Srate$)
Dim intrate As Integer
intrate = Val(Srate$)
Select Case intrate
Case 1:
getGSIS = 0.01
Case 2:
getGSIS = 0.015
Case 3:
getGSIS = 0.02
End Select
End Function
Function getRate(Srate$)
Dim intrate As Integer
intrate = Val(Srate$)
Select Case intrate
Case 1:
getRate = 380
Case 2:
getRate = 450
Case 3:
getRate = 550
End Select
End Function
Function returnhour(Strtime$)
Dim itime As Integer
Dim stime As String
Dim l As Long
l = InStr(Strtime$, ":")
stime = Mid$(Strtime$, 1, l)
itime = Val(stime)
returnhour = itime
End Function

declare function returnhour! (Strtime$)
declare Function getRate! (Srate$)
declare Function getGSIS! (Srate$)
Dim empname As String
Dim level As String
Dim ID As String
Cls
input "Enter Employee ID: ",ID
Dim ifileno As Integer
Dim sfiletext As String
Dim p As Long
Dim tempstr As String
Dim foundstr As String

ifileno = FreeFile
Open "employee.txt" For Input As #ifileno
Do While Not EOF(ifileno)
Line Input #ifileno, sfiletext
tempstr = sfiletext
p = InStr(sfiletext, ",")
foundstr = Mid$(tempstr, p + 1, 8)
If UCase$(ID) = foundstr Then
empname = Left$(tempstr, Len(tempstr) - (Len(tempstr) - (InStr(tempstr, ","))) - 1)
level = Right$(tempstr, 1)
Print
Print "Employee Name: " + empname
Print "Level: " + level
Print "Rate: " + Str$(getRate(level))
GoTo Proceed:
End If
Loop
Close #ifileno

Print
Print "no record found"
End

Proceed:
Close #ifileno
Dim timein(4) As String
Dim timeout(4) As String
Dim ottimein(4) As String
Dim ottimeout(4) As String
Dim workdays(4) As String
workdays(0) = "Monday"
workdays(1) = "Tuesday"
workdays(2) = "Wednesday"
workdays(3) = "Thursday"
workdays(4) = "Friday"
Dim coverage As String
Print
i = 0
For i = 0 To 4
Print workdays(i); ":"
line input "enter time in:", timein(i)
line input "Enter time out:", timeout(i)
input "Overtimed? (y/n):",ask$
If UCase$(ask$) = "Y" Then
line input "Enter OTin",ottimein(i)
line input "Enter OTout", ottimeout(i)
Else
ottimein(i) = "0:00"
ottimeout(i) = "0:00"
End If
Print
Next

line input "Enter date covered:", coverage

Open "dtr.txt" For Append As #ifileno
Print #ifileno, ID + "," + timein(0) + "," + timeout(0) + "," + timein(1) + "," + timeout(1) + "," + timein(2) + "," + timeout(2) + "," + timein(3) + "," + timeout(3) + "," + timein(4) + "," + timeout(0) + ","
Close #ifileno

Const tin = 8
Const tout = 17
Const vtax = 0.1
Const alwns = 500

Dim lates(4) As Integer
Dim overtime(4) As Integer
Dim untdertime(4) As Integer
Dim workhours(4) As Integer
Dim totalworkhours, totalovertime As Single
Dim hourrate, overtimerate As Single
Dim regincome, netincome, grossincome, overincome, tax, GSIS As Single

i = o
For i = 0 To 4
If returnhour(timein(i)) <= tin Then
lates(i) = 0
Else
lates(i) = returnhour(timein(i)) - tin
End If
If returnhour(timeout(i)) >= tout Then
untdertime(i) = 0
Else
untdertime(i) = tout - returnhour(timeout(i))
End If

workhours(i) = 8 - lates(i) + untdertime(i)
overtime(i) = returnhour(ottimeout(i)) - returnhour(ottimein(i))
Next
totalworkhours = workhours(0) + workhours(1) + workhours(2) + workhours(3) + workhours(4)
totalovertime = overtime(0) + overtime(1) + overtime(2) + overtime(3) + overtime(4)
hourrate = getRate(level) / 8
overtimerate = (getRate(level) / 8) * 1.1
regincome = totalworkhours * hourrate
overincome = totalovertime * overtimerate
grossincome = regincome + overincome
tax = grossincome * vtax
GSIS = grossincome * getGSIS(level)
netincome = grossincome + alwns - tax + GSIS


Print "Employee Name: "; empname
Print "Employee ID: "; ID
Print "Net Income: "; netincome
Print "Coverage: "; coverage