Pete's QBASIC Site

Patz QuickBASIC Creations

Use the option to "Disable HTML in this post". Usually fixes code posting problems.

Patz QuickBASIC Creations

LEN() also shows the number of bytes needed by the variable.

LEN(Int%) = 2
LEN(Lng&) = 4
LEN(Sgl!) = 4
LEN(Dbl#) = 8
LEN(Strng$) = Number of characters in the variable, each weighing in at 1 byte each.

Patz QuickBASIC Creations

Not entirely related, but... http://www.petesqbsite.com/forum/viewtopic.php?t=1830 Also, a more simple but less universal (than the one in the other post I linked to) code to determine the bits of a number... 'Inputs: YourNum% - The number to turn into binary. 'Outputs: Bin$ - The number in binary, ...

Patz QuickBASIC Creations

If you're only dealing with 4 bits, then a simple

Code: Select all

YourValue% XOR 16

should give you what you're looking for. That's saying if you pull out the 4 bits you needed into the YourValue%, that is.

Patz QuickBASIC Creations

Burger's way pretty much shows it in a nutshell. Pretty much, once you have the variable loaded, you can use one of the bitwise -operators to manipulate it. Here's another example. Say that Bit 0 controls whether a certain action is done or not. You can toggle it many different ways. OurValue% = 1 '...

Patz QuickBASIC Creations

I don't recommend using INP, as if you make the program correctly, INKEY$ should be enough for most purposes. To use backspace, you have to print a blank space (CHR$(32) or " "), and then locate back to that space. That's the most simple way to do it. Edit: To do something similar to the pssys progr...

Patz QuickBASIC Creations

I made this a long time ago... Hopefully you can get it to work without too much work. I've commented it so you can see exactly what's going on and exactly how to use it... Basic knowledge of LOCATE a major plus.

http://pastebin.ca/874102

Patz QuickBASIC Creations

First off, you can't use characters in CASE, ie CASE 4B, unless they are hexadecimal, in which case you need to tell it so. And, you don't need to have the INP in there, just use the one I posted, it works fine.

Patz QuickBASIC Creations

Though not entirely better, you could do:

Code: Select all

CLS 
DO

DO 
k$ = INKEY$ 
LOOP UNTIL K$ <> ""

SELECT CASE k$

CASE "q" 
PLAY "mbE" 

CASE "w" 
PLAY "mbF" 

CASE "e" 
PLAY "mbB" 

END SELECT
LOOP

Patz QuickBASIC Creations

Well, first off, welcome to the QuickBASIC community! If you ever have anything to ask, we're usually pretty friendly here and get things sorted out. As for your question, I don't understand exactly what you mean, but doing string1$ + string2$ makes the text of string2$ be appended to the end of str...

Patz QuickBASIC Creations

In BASIC a boolean/bit type aren't necessary/logical. Smart manipulation of the logical operators (AND, OR, XOR, NOT, IMP) should be enough to get you where you need to be.

Patz QuickBASIC Creations

It doesn't matter, the credit card numbers generated by that code are probably not valid, and not functional without the expiration date, PIN number, and CCV number. Though, my code does pretty much generate "valid" numbers, though they won't get far. Pete would have deleted it by now if he thought ...

Patz QuickBASIC Creations

I probably could if you gave me more information, I'm always up for a challenge.

Patz QuickBASIC Creations

Interesting way to check the numbers over 10 when multipied by 2: LuhnCheck% = LuhnCheck% + 9 * (LuhnCheck% >= 10) Subtracting the 9 wasn't my idea, but using the logical operator in there was. Coming from TI-BASIC makes you see tons of small optimizations you can do to the program. Also, to tweak ...

Patz QuickBASIC Creations

I've checked this against some sites on the internet, all validating my code against the Luhn method, so this code does what you need it to do. However, you might want to tweak it to make sure that you're not going out of industry boundaries. More info here: http://www.merriampark.com/anatomycc.htm ...

Patz QuickBASIC Creations

Yeah, I got a response, I guess I was just being impacient

Thanks anyway.

Patz QuickBASIC Creations

Plasma.

Has anyone seen him lately? Is he usually on IRC or some instant messneger?

Thanks for the help.

Patz QuickBASIC Creations

OK, seeing moneo's comment, I saw that stupid mistake. *head meets desk* Try this... 'Revised, untested. CLS DO COLOR 10, 0 LOCATE 5, 15 PRINT "DATABASE" LOCATE 22, 5 PRINT "(1) SEARCH" LOCATE 22, 30 PRINT "(2) ADD" DO kp$ = INKEY$ LOOP UNTIL kp$ <> INKEY$ IF kp$ = "1" THEN SearchP IF kp$ = "2" THEN...

Patz QuickBASIC Creations

-lang qb is something I dont know. What is it? It's a compile time option for FreeBASIC to make it so your program that was in QB has a much better chance of compiling, but you also have most (if not all) the old restrictions that QB had. In my opinion, this is one of the best things I have seen fo...

Patz QuickBASIC Creations

"Revised, untested. CLS DO COLOR 10, 0 LOCATE 5, 15 PRINT "DATABASE" LOCATE 22, 5 PRINT "(1) SEARCH" LOCATE 22, 30 PRINT "(2) ADD" DO kp$ = INKEY$ LOOP UNTIL kp$ <> INKEY$ IF kp$ = "1" THEN SearchP IF kp$ = "2" THEN AddP LOOP 'This is the end of the menu SUB AddP CLS COLOR 10, 0 INPUT "Name:", name...

Pete's QBASIC Site

Search found 394 matches

Re: How it works

I need to get a hold of...