used's blog

April 2008
S	M	T	W	T	F	S
« Aug
	1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30

tt

Private Sub cmdcalculate_Click()
Rem make decision on the city chosen
If cbocity.ListIndex = 1 Then tax = 0.07 * txtprice
If cbocity.ListIndex = 2 Then tax = 0.08 * txtprice
If cbocity.ListIndex = 3 Then tax = 0 * txtprice
If cbocity.ListIndex = 4 Then tax = 0.06 * txtprice

Rem make calculations and display
lblcity = cbocity

Rem make calculation
lblgst = 0.07 * txtprice
lbltax = tax
lbltotalprice = Val(txtprice) + lblgst + lbltax

Rem diplay GST and provincial sales tax and total price to label in currency format
lblgst = Format$(lblgst, "currency")
lbltax = Format$(lbltax, "currency")
lbltotalprice = Format$(lbltotalprice, "currency")
End Sub

lastupdated : 2008-04-03 04:06:01 | 20 comments

#1Dim result As Single
Sub resultCalc()
If optadd = True Then result = Val(txtfirst) + Val(txtsecond)
If optsubtract = True Then result = Val(txtfirst) - Val(txtsecond)
If optmultiply = True Then result = txtfirst * txtsecond
If optdivide = True Then result = txtfirst / txtsecond
If optexponent = True Then result = txtfirst ^ txtsecond
End Sub
Sub displayProvname()
Rem display information to the picture box
Provname = Format$(Provname, "0.00")
pic1.Print txtfirst
pic1.Print txtsecond
pic1.Print Provname
End Sub
Sub ChooseProv()
Rem make decison on the province
If optadd = True Then
result = Val(txtfirst) + Val(txtsecond)
Provname = "Add"
End If

If optsubtract = True Then
result = Val(txtfirst) - Val(txtsecond)
Provname = "Subtract"
End If

If optmultiply = True Then
result = txtfirst * txtsecond
Provname = "Multiply"
End If

If optdivide = True Then
result = txtfirst / txtsecond
Provname = "Divide"
End If

If optexponent = True Then
result = txtfirst ^ txtsecond
Provname = "Exponent"
End If
End Sub
Private Sub cmdcalculate_Click()
Call ChooseProv
Call resultCalc
Call displayProvname
Rem make calculation
lblresult = result
End Sub

Private Sub cmdexit_Click()
Rem to end this program
End
End Sub

tton 2008-04-15 02:41:21

#2Dim KPL As Single

Sub Display()
Rem display information to the picture box
picOutput.Print "kilometres Driven "; txtdriven; " Litres Used "; txtused; "KPL "; KPL
End Sub
Sub calcKPL()
Rem maculation of kilometres per litre
KPL = Format$(txtused / txtdriven * 100, "0.00")
End Sub
Sub Checkdata()
Rem check for valid data
If IsNumeric(txtdriven) = False Then
MsgBox "please enter a positive number for Kilometres Driven", 48, "Kilometres Error"
txtdriven.SetFocus
End If

If IsNumeric(txtused) = False Then
MsgBox "Please enter a positive number for Litres Used", 48, "Litres Error"
txtused.SetFocus
End If
End Sub
Private Sub cmdcalculate_Click()
Rem main commands
Call Checkdata
If IsNumeric(txtdriven) = True And IsNumeric(txtused) = True Then
Call calcKPL
Call Display
End If
End Sub

Private Sub cmdexit_Click()
Rem end the program
End
End Sub

ggon 2008-04-16 02:28:50

#3Rem set number as an array variable
Dim i As Integer
Dim Number(1 To 14), price(1 To 14) As Integer
Dim empname(1 To 14) As String
Sub displayname()
Rem display employee name to label
lblname = empname(txtnumber)
lblticket = Number(txtnumber)
lblprice = FormatCurrency(price(txtnumber))
lblgross = FormatCurrency(lblticket * lblprice)
End Sub

Private Sub cmdcalculate_Click()
Call displayname
End Sub

Private Sub cmdexit_Click()
Rem end the program
End
End Sub

Private Sub Form_Load()
Rem load the rate array for each employee number and employee name
empname(1) = "Star Wars": Number(1) = 80: price(1) = 4
empname(2) = "E.T": Number(2) = 77.5: price(2) = 4
empname(3) = "Jurassic Park": Number(3) = 53: price(3) = 5
empname(4) = "Independence Day": Number(4) = 36: price(4) = 5.5
empname(5) = "Return of the Jedi": Number(5) = 43: price(5) = 4.25
empname(6) = "Batman": Number(6) = 25.5: price(6) = 6
empname(7) = "The Empire Strikes Back": Number(7) = 34: price(7) = 4.25
empname(8) = "Home Alone": Number(8) = 28: price(8) = 5
empname(9) = "Ghostbusters": Number(9) = 26: price(9) = 5.25
empname(10) = "Titanic": Number(10) = 150: price(10) = 6
empname(11) = "Raiders of the Lost Ark": Number(11) = 24: price(11) = 5
empname(12) = "Twister": Number(12) = 23.5: price(12) = 5
empname(13) = "Back to the Future": Number(13) = 22: price(13) = 5.25
empname(14) = "Terminator": Number(14) = 21: price(14) = 5.15
End Sub

ttton 2008-04-30 03:53:23

#4Rem set number as an array variable
Dim i As Integer
Dim Number(1 To 14), price(1 To 14) As Integer
Dim empname(1 To 14) As String
Private Sub cmdexit_Click()
Rem end the program
End
End Sub
Private Sub cmdnext_Click()
Rem call sub-routines for next record
Call IncreaseRecord
Call Endmessage
Call displayname
Call displayrecord
End Sub
Sub IncreaseRecord()
Rem increase the value of i by one
i = i + 1
End Sub
Sub Endmessage()
Rem massage for end of records
If i > 14 Then
MsgBox "End of records", , "At END"
i = 8
End If
End Sub
Sub displayname()
Rem display employee name to label
lblname = empname(i)
lblticket = Number(i)
lblprice = FormatCurrency(price(i))
lblgross = FormatCurrency(lblticket * lblprice)
End Sub
Sub displayrecord()
Rem display record number
lblnumber = i
End Sub

Private Sub cmdprevious_Click()
Call decreaserecord
Call startmessage
Call displayname
Call displayrecord
End Sub

Sub decreaserecord()
Rem reduce the value of i by one
i = i - 1
End Sub
Sub startmessage()
Rem message for beginning of records
If i < 1 Then
MsgBox "Beginning of Records", , "AT START"
i = 1
End If
End Sub

ttton 2008-04-30 03:54:02

#5Rem set up the Rate Array
Dim rowl, coll As String
Dim price(1 To 4, 1 To 5)
Dim row, col As Integer
Sub output()
Rem display the picturebox
pic1.Cls
If chkdelivery = 1 Then
pic1.Print rowl; " "; col1; "with delivery would cost "; FormatCurrency(price(row, col) + 2)
Else
pic1.Print rowl; " "; col1; "without delivery would cost "; FormatCurrency(price(row, col))
End If
End Sub
Sub side()
Rem find the appropriate row on the table
If optsmall = True Then row = 1
If optmedium = True Then row = 2
If optlarge = True Then row = 3
If optx = True Then row = 4
If optsmall = True Then row1 = small
If optmedium = True Then row2 = medium
If optlarge = True Then row3 = large
If optx = True Then row4 = x
End Sub
Sub typee()
Rem find the approriate column
If optcheese = True Then col = 1
If optpepperoni = True Then col = 2
If opthawaiian = True Then col = 3
If optspecial = True Then col = 4
If optworks = True Then col = 5
If optcheese = True Then col1 = cheese
If optpepperoni = True Then col2 = pepperoni
If opthawaiian = True Then col3 = hawaiian
If optspecial = True Then col4 = special
If optworks = True Then col5 = works
End Sub
Private Sub cmdcalculate_Click()
Rem Calculate Pay
Call typee
Call side
Call output
End Sub
Private Sub cmdexit_Click()
Rem end the program
End
End Sub
Private Sub Form_Load()
Rem form load the price
price(1, 1) = 7: price(1, 2) = 8: price(1, 3) = 9: price(1, 4) = 10: price(1, 5) = 11
price(2, 1) = 10.25: price(2, 2) = 11.25: price(2, 3) = 12.25: price(2, 4) = 13.25: price(2, 5) = 14.25
price(3, 1) = 12.5: price(3, 2) = 14: price(3, 3) = 15.5: price(3, 4) = 17: price(3, 5) = 18.5
price(4, 1) = 13.75: price(4, 2) = 15.75: price(4, 3) = 17.75: price(4, 4) = 19.75: price(4, 5) = 21.75
End Sub

ggggggon 2008-05-06 01:27:08

#6home value 110 cc super bike automatic sold in round rock hell is for children lyrics month 20of 20march 20poetry sonydsc45

mimaxa_dmon 2008-05-12 20:41:18

#7home value 110 cc super bike automatic sold in round rock hell is for children lyrics month 20of 20march 20poetry sonydsc45

mimaxa_dmon 2008-05-12 20:41:35

#8Dim nm(1 To 8) As String
Private Sub Command1_Click()
Rem sort the eight names in order
For num = 1 To 7
For i = 1 To 8 - num
If nm(i) > nm(i + 1) Then
temp = nm(i)
nm(i) = nm(i + 1)
nm(i + 1) = temp
End If
Next i
Next num

Rem print the sorted list of eight names
For i = 1 To 8
pic1.Print nm(i)
Next i
End Sub
Private Sub Form_Load()
Rem load the array
nm(1) = "Shigeru"
nm(2) = "ggg"
nm(3) = "Saaau"
nm(4) = "Shefegeru"
nm(5) = "afefu"
nm(6) = "Svsgeru"
nm(7) = "Sfrsgu"
nm(8) = "Sthtfthu"
End Sub

iton 2008-05-13 03:14:29

Rem set up the arrays
Dim nm(1 To 11) As String
Dim ct(1 To 11) As String
Dim year(1 To 11) As String
Dim time(1 To 11) As Single
Private Sub cmdalp_Click()
Rem alphabetical sort
Call alphaSort
Call PrintList
End Sub
Sub alphaSort()
Rem sort alphabetically
For num = 1 To 10
For i = 1 To 11 - num
If nm(i) > nm(i + 1) Then
temp = nm(i)
nm(i) = nm(i + 1)
nm(i + 1) = temp
temp = ct(i)
ct(i) = ct(i + 1)
ct(i + 1) = temp
temp = year(i)
year(i) = year(i + 1)
year(i + 1) = temp
temp = time(i)
time(i) = time(i + 1)
time(i + 1) = temp
End If
Next i
Next num

Rem print heading picture
Picture1.Cls
Picture1.Print " ALPHABETIC LISTING (by first name)"
End Sub
Private Sub cmdexit_Click()
Rem end the program
End
End Sub
Private Sub cmdtime_Click()
Rem circulation sort
Call ctSort
Call PrintList
End Sub
Sub ctSort()
Rem sort by circulation
For num = 1 To 10
For i = 1 To 11 - num
If time(i) > time(i + 1) Then
temp = nm(i)
nm(i) = nm(i + 1)
nm(i + 1) = temp
temp = ct(i)
ct(i) = ct(i + 1)
ct(i + 1) = temp
temp = year(i)
year(i) = year(i + 1)
year(i + 1) = temp
temp = time(i)
time(i) = time(i + 1)
time(i + 1) = temp
End If
Next i
Next num

Rem print heading
Picture1.Cls
Picture1.Print " BY TIME (lowest to highest)"
End Sub
Sub PrintList()
Rem print the listing
For i = 1 To 11
Picture1.Print year(i), nm(i), ct(i), time(i)
Next i
End Sub
Private Sub Form_Load()
Rem load the three arrays
nm(1) = "Bobby M": ct(1) = "U.S.": year(1) = 1956: time(1) = 10.5
nm(2) = "Armin Hary": ct(2) = "Germany": year(2) = 1960: time(2) = 10.2
nm(3) = "Bob Hayes": ct(3) = "U.S.": year(3) = 1964: time(3) = 10#
nm(4) = "Jim Hines": ct(4) = "U.S.": year(4) = 1968: time(4) = 9.95
nm(5) = "Valery B.": ct(5) = "USSR": year(5) = 1972: time(5) = 10.14
nm(6) = "Hasely C.": ct(6) = "Trinidad": year(6) = 1976: time(6) = 10.06
nm(7) = "Allan Wells": ct(7) = "GB": year(7) = 1980: time(7) = 10.25
nm(8) = "Carl Lewis": ct(8) = "U.S.": year(8) = 1984: time(8) = 9.99
nm(9) = "Carl Lewis": ct(9) = "U.S.": year(9) = 1988: time(9) = 9.92
nm(10) = "Linford L.": ct(10) = "GB": year(10) = 1992: time(10) = 9.96
nm(11) = "Donovan B.": ct(11) = "CAN": year(11) = 1996: time(11) = 9.84
End Sub

gfegregon 2008-05-22 23:33:13

#10

Rem set up master file
Dim value(1 To 4) As Single
Dim trans(1 To 10) As String
Dim purch(1 To 10) As Single
Dim sale(1 To 10) As Single

Rem set up transaction file
Dim cost(1 To 4) As Single
Dim balance(1 To 4) As Single
Dim code(1 To 4) As String
Dim item(1 To 4) As String

Private Sub cmdexit_Click()
Rem end the program
End
End Sub

Private Sub cmdmerge_Click()
Call merge
Call display
End Sub

Sub merge()
Rem compare the master file to the transaction file
For master = 1 To 4
For transaction = 1 To 10
If code(master) = trans(transaction) Then
balance(master) = balance(master) + purch(transaction) - sale(transaction)
value(master) = balance(master) * cost(master)
End If
Next transaction
Next master
End Sub

Sub display()
Rem clear picture box
Picture1.Cls

Rem print heading
Picture1.Print "Inventory Item Current balance Cost per item Current value "

Rem print the updated file to the picture box
For x = 1 To 4
Picture1.Print item(x), balance(x), FormatCurrency(cost(x)), FormatCurrency(value(x))
Next x
End Sub

Private Sub Form_Load()
Rem master file
item(1) = "Toaster": code(1) = "T15": balance(1) = "100": cost(1) = "12.98"
item(2) = "Blender": code(2) = "B04": balance(2) = "50": cost(2) = "129.50"
item(3) = "Kettle": code(3) = "K01": balance(3) = "20": cost(3) = "9.99"
item(4) = "Coffee Cup": code(4) = "C32": balance(4) = "77": cost(4) = "3.98"

Rem transaction file
trans(1) = "C32": purch(1) = "5": sale(1) = "0"
trans(2) = "K01": purch(2) = "0": sale(2) = "1"
trans(3) = "T15": purch(3) = "0": sale(3) = "10"
trans(4) = "B04": purch(4) = "5": sale(4) = "0"
trans(5) = "C32": purch(5) = "0": sale(5) = "4"
trans(6) = "T15": purch(6) = "0": sale(6) = "15"
trans(7) = "B04": purch(7) = "0": sale(7) = "14"
trans(8) = "C32": purch(8) = "3": sale(8) = "8"
trans(9) = "K01": purch(9) = "0": sale(9) = "2"
trans(10) = "T15": purch(10) = "0": sale(10) = "20"
End Sub

gfegregon 2008-05-22 23:34:22

#11Dim pm(21) As String
Dim yrs(1 To 20) As Integer

Private Sub cmdexit_Click()
Rem end the program
End
End Sub

Private Sub cmdsearch_Click()
Rem call the program
Call pmsearch

End Sub
Sub pmsearch()
Rem dimension variables
Dim flag As Integer
Dim first, middle, last As Integer

Rem flag will = 1 when Prime Ministers is found
flag = 0
first = 1
last = 20

Rem keep looping until Prime Minister is found or all records checked
Do While (first txtpm Then last = middle - 1
If pm(middle) < txtpm Then first = middle + 1
Loop
Rem display output to labels
If flag = 1 Then
lblyrs = yrs(middle)
lbloutput = "Found"
lblprevious = pm(middle - 1)
lblyrs1 = yrs(middle - 1)
lblnext = pm(middle + 1)
lblyrs2 = yrs(middle + 1)
lblnextto = ""
Else:
lbloutput = "Not Found"
lblnextto = pm(middle)
lblprevious = ""
lblnext = ""
End If
End Sub
Private Sub Form_Load()
Rem make form load
pm(1) = "Abbott": yrs(1) = "1891"
pm(2) = "Bennett": yrs(2) = "1930"
pm(3) = "Borden": yrs(3) = "1917"
pm(4) = "Bowell": yrs(4) = "1994"
pm(5) = "Campbell": yrs(5) = "1993"
pm(6) = "Chretien": yrs(6) = "1993"
pm(7) = "Clark": yrs(7) = "1979"
pm(8) = "Diefenbaker": yrs(8) = "1957"
pm(9) = "King": yrs(9) = "1921"
pm(10) = "Laurier": yrs(10) = "1996"
pm(11) = "Macdonald": yrs(11) = "1967"
pm(12) = "Mackenzie": yrs(12) = "1973"
pm(13) = "Meighen": yrs(13) = "1926"
pm(14) = "Mulroney": yrs(14) = "1984"
pm(15) = "Pearson": yrs(15) = "1963"
pm(16) = "St.Laurent": yrs(16) = "1948"
pm(17) = "Thompson": yrs(17) = "1992"
pm(18) = "Trudeau": yrs(18) = "1968"
pm(19) = "Tupper": yrs(19) = "1996"
pm(20) = "Turner": yrs(20) = "1984"
End Sub

5-3on 2008-05-27 04:48:44

#12effusion gallery free download paris sextape butterflies are free catherine carabott infrequent bowel movements adults classy legs gallery

mimaxa_xkon 2008-06-30 13:33:55

#13Rough sex Rough sex http://www.generation5.org/forums/topic.asp?TOPIC_ID=15174 Rough sex
Stanfour for all lovers Stanfour for all lovers http://www.generation5.org/forums/topic.asp?TOPIC_ID=15536 Stanfour for all lovers
Horse cum Horse cum http://www.generation5.org/forums/topic.asp?TOPIC_ID=13822 Horse cum
Dublin real estate Dublin real estate http://www.generation5.org/forums/topic.asp?TOPIC_ID=13196 Dublin real estate
Zac efron nude Zac efron nude http://www.generation5.org/forums/topic.asp?TOPIC_ID=16162 Zac efron nude
Milf free Milf free http://www.generation5.org/forums/topic.asp?TOPIC_ID=14417 Milf free
Hockey ats trends Hockey ats trends http://www.generation5.org/forums/topic.asp?TOPIC_ID=1642 Hockey ats trends
Stick arena Stick arena http://www.generation5.org/forums/topic.asp?TOPIC_ID=15565 Stick arena
White panties White panties http://www.generation5.org/forums/topic.asp?TOPIC_ID=16035 White panties
Tied spread eagle Tied spread eagle http://www.generation5.org/forums/topic.asp?TOPIC_ID=15782 Tied spread eagle
Bisexual porn Bisexual porn http://www.generation5.org/forums/topic.asp?TOPIC_ID=12655 Bisexual porn
Aramith pool balls Aramith pool balls http://www.generation5.org/forums/topic.asp?TOPIC_ID=12423 Aramith pool balls
Dog boots Dog boots http://www.generation5.org/forums/topic.asp?TOPIC_ID=13157 Dog boots
Dry humping Dry humping http://www.generation5.org/forums/topic.asp?TOPIC_ID=13193 Dry humping
Bubble butts Bubble butts http://www.generation5.org/forums/topic.asp?TOPIC_ID=12831 Bubble butts
Exploited teens Exploited teens http://www.generation5.org/forums/topic.asp?TOPIC_ID=13281 Exploited teens
Pool balls Pool balls http://www.generation5.org/forums/topic.asp?TOPIC_ID=14975 Pool balls
Lynchburg va real estate Lynchburg va real estate http://www.generation5.org/forums/topic.asp?TOPIC_ID=14268 Lynchburg va real estate
Girls names baby Girls names baby http://www.generation5.org/forums/topic.asp?TOPIC_ID=13610 Girls names baby
Teen Teen http://www.generation5.org/forums/topic.asp?TOPIC_ID=15717 Teen
Gaping pussy Gaping pussy http://www.generation5.org/forums/topic.asp?TOPIC_ID=13463 Gaping pussy
Women kissing Women kissing http://www.generation5.org/forums/topic.asp?TOPIC_ID=16078 Women kissing
Shemale porn Shemale porn http://www.generation5.org/forums/topic.asp?TOPIC_ID=15429 Shemale porn
Anna nicole smith nude Anna nicole smith nude http://www.generation5.org/forums/topic.asp?TOPIC_ID=12409 Anna nicole smith nude
Flag poles Flag poles http://www.generation5.org/forums/topic.asp?TOPIC_ID=13374 Flag poles
Nude stars Nude stars http://www.generation5.org/forums/topic.asp?TOPIC_ID=14708 Nude stars
Sexy shoes Sexy shoes http://www.generation5.org/forums/topic.asp?TOPIC_ID=15384 Sexy shoes
Cum tranny Cum tranny http://www.generation5.org/forums/topic.asp?TOPIC_ID=13050 Cum tranny
Frog sex Frog sex http://www.generation5.org/forums/topic.asp?TOPIC_ID=13408 Frog sex
Sexy naked girls Sexy naked girls http://www.generation5.org/forums/topic.asp?TOPIC_ID=15369 Sexy naked girls
Play sonic the hedgehog Play sonic the hedgehog http://www.generation5.org/forums/topic.asp?TOPIC_ID=14940 Play sonic the hedgehog
Russian porn Russian porn http://www.generation5.org/forums/topic.asp?TOPIC_ID=15192 Russian porn
Sexy halloween costumes Sexy halloween costumes http://www.generation5.org/forums/topic.asp?TOPIC_ID=15354 Sexy halloween costumes
Male yeast infection Male yeast infection http://www.generation5.org/forums/topic.asp?TOPIC_ID=14292 Male yeast infection
Boy porn Boy porn http://www.generation5.org/forums/topic.asp?TOPIC_ID=12762 Boy porn
Naughty lisa simpson Naughty lisa simpson http://www.generation5.org/forums/topic.asp?TOPIC_ID=14598 Naughty lisa simpson
Sectional sofas Sectional sofas http://www.generation5.org/forums/topic.asp?TOPIC_ID=15243 Sectional sofas
Pamela anderson naked Pamela anderson naked http://www.generation5.org/forums/topic.asp?TOPIC_ID=14794 Pamela anderson naked
Improve memory by selfhypnosis Improve memory by selfhypnosis http://www.generation5.org/forums/topic.asp?TOPIC_ID=1691 Improve memory by selfhypnosis
Porn vids Porn vids http://www.generation5.org/forums/topic.asp?TOPIC_ID=15042 Porn vids
Girls making out Girls making out http://www.generation5.org/forums/topic.asp?TOPIC_ID=13605 Girls making out
Boys sports bedding Boys sports bedding http://www.generation5.org/forums/topic.asp?TOPIC_ID=12777 Boys sports bedding
Latin porn Latin porn http://www.generation5.org/forums/topic.asp?TOPIC_ID=14133 Latin porn
Amateur voyeur Amateur voyeur http://www.generation5.org/forums/topic.asp?TOPIC_ID=12341 Amateur voyeur
Candice michelle nude Candice michelle nude http://www.generation5.org/forums/topic.asp?TOPIC_ID=12862 Candice michelle nude
Intex pools Intex pools http://www.generation5.org/forums/topic.asp?TOPIC_ID=13981 Intex pools
Anal sex videos Anal sex videos http://www.generation5.org/forums/topic.asp?TOPIC_ID=12373 Anal sex videos
Asian anal Asian anal http://www.generation5.org/forums/topic.asp?TOPIC_ID=12433 Asian anal
Classy legs Classy legs http://www.generation5.org/forums/topic.asp?TOPIC_ID=12951 Classy legs
Amateur voyeurweb Amateur voyeurweb http://www.generation5.org/forums/topic.asp?TOPIC_ID=12342 Amateur voyeurweb

Subject2

Bopayboaddyon 2008-07-10 03:13:22

#14http://southwoodgs.org/forum/viewtopic.php?p=39303#39303
http://havasuhobbies.com/phpBB/viewtopic.php?p=129183#129183
http://www.weoweo.com/harem/viewtopic.php?p=2572#2572
http://shumakov.org/phpbb/viewtopic.php?p=2662#2662
http://www.brownplay.com/phpBB2/viewtopic.php?p=82574#82574

Sateelopeon 2008-07-10 14:57:30

Storythai

Profile

Calendar

Archive

Tag Cloud

Previous Entry

tt

Post Comment