Pete's QBASIC Site

Pete,

I asked this before; maybe you missed it.

Do the articles for QB Express need to be authored by one of us members, or could we submit interesting articles authored by other people?
*****

I'm having problems with my develop machine. It sometimes crashed for no reason... giving memory problems. This might mean that I can't develop qbinux for about one month a half. Around midth October I hope to have my Pentium I 120 Mhz up and running. The only problem is that I will be restricted t...

Seb McClouth wrote:Okay... no more TV for you mister!!

grtz
Seb

Funny!!!

Quadricode,

So, what happened? Was my suggested solution good or bad?
*****

Pete,

You were worried there for a bit, but #13 turned out to be a great issue! Great job on your part too.
*****

Pete,

Do the articles for QB Express need to be authored by one of us members, or could we submit interesting articles authored by other people?
*****

Try these SHELL statements from your program. To get a list of all the filenames only: SHELL "DIR /A-D /B >MYFILES.TXT" To get a list of all the sub-directories (one level) only: SHELL "DIR /AD /B >MYDIRS.TXT" The above assumes that your program is positioned at the directory tha...

How about reading all the characters from your text file and creating one large string preceeded by the 9 zeros. Then, writing 40 character pieces, or less, of this large string onto a final output file. defint a-z open "Num1.txt" for input as #1 open "Num1Out.txt" for output as ...

Seb,

Since you're already the winner of the challenge, adding the logic to validate all the input fields would be a separate exercise to make the program bulletproof. Go ahead if you're really up to it.
*****

Hey Seb, Maybe you missed my post on Aug 9th. I included it below. Just wanted to know what you thought of my alternate way of doing the Right Shift 4 bits. And also, could you answer my questions about the BCD and binary. Thanks, Moneo ***** ..... I need to know what this does: ((val)=((val)&15...

Seb, Taking some ideas from both Z!re and mennonite, a very simple approach for not using On Error is the following: Assuming that the full path name that you want to see if exists is in FULLPATH$. SHELL "IF EXIST " +FULLPATH$+"/NUL ECHO Y>YESNO.FIL" SHELL "IF NOT EXIST &quo...

..... I need to know what this does: ((val)=((val)&15) + ((val)>>4)*10) grtz Seb Why couldn't we do a simple operation like the following instead using a complicated BitRight function?: value = (value AND 15) + (INT(value/16)*10) Dividing by 16 and throwing away the remainder is the same as shi...

Something may be missing. Have you coded "mktime" into QB? The call to it still looks like C code. Also, those BCD2BIN calls will have to be changed to value=BCD2BIN(value) in order to work right. As for passing a variable by reference instead of by value, I don't remember how to do this ...

I just wrote them quickly. But you're right, it should be: IF str$(LEFT$(LocalTime$, 2)) < 0 OR str$(LEFT$(LocalTime$, 2))> 23 OR str$(RIGHT$(LocalTime$, 2)) < 00 OR str$(RIGHT$(LocalTIme$, 2)) > 59 THEN/code] I think I'm gonna write a STRIGHT$ and a STLEFT$ funtion... hehehehe. grtz Seb[/quote] Oo...

Seb,

I get 4 compile errors on the following line:

IF LEFT$(LocalTime$, 2) < 00 OR LEFT$(LocalTime$, 2) > 23 OR RIGHT$(LocalTime$, 2) < 00 OR RIGHT$(LocalTIme$, 2) > 59 THEN

You're comparing strings against numerics. To be sure, I'd rather you fix it.
*****

Right.

Also, it can run very slow if the program is I/O bound, that is, if it does a lot of disk I/O and especially a lot of screen I/O.
*****

..... Isn't this some sort of validation? IF FTz% <= -12 THEN FTz% = 12 'As stated, -12 doesn't exist. IF FTz% > 12 THEN FTz% = -11 'Not sure if this is correct, but it IF TTz% <= -12 THEN TTz% = 12 'seems logical. IF TTz% > 12 THEN TTz% = -11 No, Seb, that's not validation. That's taking invalid i...

Friends, Here's my own version of the timezone program which I had working since 21-Jul-2005. There are lines here and there that are not "structured code", but that's what I was thinking at the time. All input is completely validated as you can notice. Some of the city names may need upda...

Wonderful, Seb, you finally have a solid working version. Everything I tried works great! You should be commended for sticking to it and never giving up until you got it working. One minor criticism: You never added the validation of the input timezone and time, like you said you would. You should d...

I totally agree. The 4 forums here work just fine. The 16 forums at QBN have stuff scattered all over the place, which also causes duplicate topics.
*****