I've never figured that one out....why bother if you don't get a buzzzzzzzzzzzzzzzzzzzzz?
Printable View
I've never figured that one out....why bother if you don't get a buzzzzzzzzzzzzzzzzzzzzz?
i dont drink coffee any way, i get a buzz whilst trying to kill myself (no substaces involved) hehe
i drink it every moring. and i have some now. but it will take too long 2 get 2 u
any one know where parksie went? he was helping me with a c++ thing. this one
http://forums.vb-world.net/showthrea...538#post222538
nukem... yes im busy, i just kep poping on here to see wha has been said...
yea where is parksie... i still want my duckie back
yea ur like me. i have 9 windows open and im using all of them.
sry
IM USEING THE MSDN LIBRERY TO DO MY C++ API MEDIA PLAYER AND IT GIVES ME BUGGY CODE!!! DAMN IT DAMN IT DAMN IT!!!!
9... ok watch this list
this window,
cuteFTP
my website
Adobe pagemill
interdev
VB6x2
yahoo messneger... 1 converstation
MSN messnger... 2 converstations
outlook2000
im downloading 1 file
1 access databse
and micorangelo... (icon editor)
loadsa folders
LOL
take a look at this list:
vb
media player(my vb program)
ie this form
ie my c++ question
c++
buddy list
talking 2 friend
msdn librery
hotmail.com
i have that, but i dont have it on my computer. i dont need it. all the graphics i need i have to make in photo shop.
oh i forgot ive got napster hiding in the task tray, its really annoying that it doesnt 'exit' unless you click on File>Exit...
im off people... see you all tommorow
Buh Bye
See ya!!!!!!!!!!!
later, i was eatting
guys i think hes just working now cause hes on aim.
i hate aol, i think its the worst thing thier is. the only reason i have it is, cuase all my friends r on it. and i need a chat thing, one that u dont need a web browser, to talk to ppl. no one will use mine, cuase they think ill take over thier system.
im not working just saying bye to some friends... and im not on AIM, i use AOL :( its crap but free calls :)
cya all and take care
Bye
o well try msn, its free and its better crap then aol. u usally %70 45.2k %20 50k %10 slower then 45.2k. and u get free calls, so basicly i can call u guys for free.
...im not going now... MSN do free internet... wats the deal???
i had dellnet and msn bought them and gave us 1 year free. but when we got r computer from dell its only $100 and for unlimited access thats really good for 2 years. im not sure but i think u can down load the msn browser some where, that has the phone thing in it and its just like ie, but has alot more things in it witch make it a bad browser so i still use ie and netscape. i know in america thier is alot of free net providers and some that if u buy phone servece from them u get free net. dont u have any of that in england. and u seem close to london i would think thiers alot of them.
i remember a few mouths ago someone posted the stats on whois winning. even throw it seems we'er not doing that any more i thought it might be intresting to look at. so could some one post it plz.
thx
y do i always post last?
How did this end up being 115 pages? thats about 4600 posts!!!!!!!
VP
at one point it was really a race. and becuase we talk alot. in UK time CA time and NJ time.
i remember sonic when i was about 5 i beat all the games now i play computer games.
Morning people, how are you all? the visibility is so bad i had trouble seeing my nose!
Morning matey.
I just checked my mail and i've won on the bananalotto:D, I can now give up work, see the world and not have a care in the world. Or I can go down the newsagent and buy myself a can of coke to cellebrate as it was 50p. :)
Morning All!
Does anybody have a function kicking about to check if a date is in valid British format? IsDate switches invalid british dates to US format and then checks. I've already tried Format, and that didn't work either.
If no-one has one, I'll have to write one..DOH!
And yes, I know this should have been in VBQ, but it's my thread!
it's all gone quiet said rubarb
too quiet said custard
morning Jonathan, it wont be that much work to write it yourself, and how are you?
morning Ian, so who you gonna take on holiday then;) and how are you?
I'm decidedly fine, and you're right, it isn't all that much work. I'm nearly done already! How's yasel?
whos yasel....? oh yourself, im ok still very tired, i have been for ages, and i cant consentrate on my programming :( i was working on this function for 3 days, and found all i needed was to add +2 to one of the varibles, somit that wud usally have taken 0-30mins show how much im lagging, so im gonna take a holiday soon, maybe iceland... or just my bed :DQuote:
Originally posted by CyberSurfer
How's yasel?
Sounds Nice!
Do you have any idea how I might find out if "/" occurs more than twice in a string? I can't use split, coz I'm using VB5 at college.
it was quite funny chenko, I opened the email and it said congratulation's for winning, you have matched three number's blah de blah and and it wasn't untill you got to the bottom of the mail that it told you how much you got for three number's :(
cyber - eaiest thing, is to use the instr function inside a loop to c how many "/" are in the string
Errm...I thought that, but I only discovered InStr today (don't laugh!) and I'm not entirely sure how to do that.....
sorry if there are many mistakes i just cant concentrate and im sure there is a better way...Code:Public Function MyFunction()
Dim Data
Dim X
Dim iCount
For X = 1 To Len(Data) + 1
If Right(Left(Data, X), 1) Then iCount = iCount + 1
Next X
If iCount > 2 Then MyFunction = True
End Function
Ian, please call me Simon,
iva had before emails saying youve won, and all you win is entry into a prize draw :rolleyes: but someone must win somewhere hey. just its gonna be me:D
Does that check for occurences of "/"? It probably does, but I can't concentrate either!
Quote:
Originally posted by chenko
sorry if there are many mistakes i just cant concentrate and im sure there is a better way...Code:Public Function MyFunction()
Dim Data
Dim X
Dim iCount
For X = 1 To Len(Data) + 1
If Right(Left(Data, X), 1) = "/" Then iCount = iCount + 1
Next X
If iCount > 2 Then MyFunction = True
End Function
oppps:rolleyes:
I'll just try it...
let me give you a hand
there you go mate, nice an easyCode:Dim blnFound as Boolean
Dim strDate as String
Dim iCountslash as Interger
Dim iSearchPlace as Interger
'set the search to true
blnFound = True
'start searching the string at the first character
iSearchPlace = 1
iCountslash = 0
Do While blnFound = True
If instr(iSearchplace,strDate,"/") >= 1 Then
'set the search to 1 character past the / that has been found
iSearchplace = instr(iSearchplace,strDate,"/") + 1
iCountslash = iCountslash + 1
Else
no slahes found
blnFound = False
End If
Wend
if it has MORE than 2 "/" it will return True
It works!! Cheers Simon!
ive only use inStr once before and it was hit and miss until i got i right...
if that's about my code simon, i've got iCountslash to count how many slashes there are, same as yours, just done a different way :)
Quote:
Originally posted by CyberSurfer
It works!! Cheers Simon!
It works!!! *faints*
simon - it's actually a proper win, if you goto www.bananalotto.co.uk, they have have a draw every day, no hassle, no spam, all you've got to do is click on an advertiser's link and close it as soon as it's open
yea i know that, just showing how funny these things can be... is this the most youve won?
BTW do you know anywhere where i can get decent little graphics animated or not for my avitari?
yeah first time, although i've only been playing it for about a month
3 balls - 50p
4 balls - £5
5 balls - £100
6 balls - £100,000
6 balls + banana ball - £1,000,000 (put's little finger at the side of his mouth:))
wat do you do to enter?
nothing much. just enter your name and address and you can play every day for free
Can one of you help me with this please...
it stops at Movelast and complains there is no record!!!Code:Dim DB As Database
Dim RS As Recordset
Dim sSQL As String
Set DB = DAO.OpenDatabase(DBpath, False, False, ";pwd=" & DBpassword)
sSQL = "SELECT * FROM holidaydata WHERE employee = '" & Department & "'"
Set RS = DB.OpenRecordset(sSQL)
Dim iRecords
RS.MoveLast
RS.MoveFirst
iRecords = RS.RecordCount
dont worry i got it, the table name is employee and the field name is dept.... me just stupid.... would one of you have a look at my little program once ive finished... id like some ideas on how i could make it better... Thanks
if the recordset is not reurning any row's you can't use any of the move function's without getting an error.
Try enclosing this
If RS.BOF = False AND RS.EOF = False Then
RS.MoveLast
RS.MoveFirst
End IF
Do you suspect that Parksie might be dead?
Congratulations Ian..........buy a beer for us all?????
I sure hope parksie's not dead. He said he was going to try to make it to class today. Maybe he's learning something instead of just chatting.
I wish I could Katie, 50p = 0.736200 USD
I hate to show my ignorance (as I usually pretty good at hiding it). Isn't 50p fifty pounds?
I wish it was, 50p is 50 pence, a penny is our equivelent to you dime's and cents
What a dissappointment. I was looking forward to that beer.