Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Please Help Me
#41
Well, everyone which connects here from my college will have exactly the proxy's IP. That makes around 2,500 people with the same IP Tongue
SCUMM (the band) on Myspace!
ComputerEmuzone Games Studio
underBASIC, homegrown musicians
[img]http://www.ojodepez-fanzine.net/almacen/yoghourtslover.png[/i
Reply
#42
I am not that phylogenesis dude i dont know who he is
Reply
#43
Try this one:
http://rel.betterwebber.com/MyProgs/Address.zip

Big Grin
y smiley is 24 bit.
[Image: anya2.jpg]

Genso's Junkyard:
http://rel.betterwebber.com/
Reply
#44
RelSoft can u help me on print this stuff out neatly....Here is the code but this is just information that AGA uses and my id codes have 6 numbers....Thanx for the help

DECLARE SUB load.info ()
DECLARE SUB sort ()
DECLARE SUB display ()
DECLARE SUB query ()

DIM SHARED sort.item%
DIM SHARED entry.amount%
DIM SHARED gender.type$(1 TO 2)
entry.amount% = 5
DIM SHARED name$(1 TO entry.amount%)
DIM SHARED address$(1 TO entry.amount%)
DIM SHARED id(1 TO entry.amount%) AS INTEGER
DIM SHARED gender(1 TO entry.amount%) AS INTEGER
DIM SHARED hourlysalary(1 TO entry.amount%) AS DOUBLE

gender.type$(1) = "Male"
gender.type$(2) = "Female"

load.info
query
sort
display

CLS
FOR i% = 1 TO entry.amount%
PRINT "Name: "; name$(i%);
PRINT " | Address: "; address$(i%);
PRINT " | ID:"; id%(i%);
PRINT "| Gender: "; gender.type$(gender%(i%))
PRINT "Hourly Salary: "; hourlysalary(i%)
PRINT
NEXT i%


SUB load.info
name$(1) = "Bob"
name$(2) = "Mike"
name$(3) = "Ronald McDonald"
name$(4) = "Evil man"
name$(5) = "Alice"

address$(1) = "1 Normal Way"
address$(2) = "10 Normal Way"
address$(3) = "7 McDonald's Street"
address$(4) = "32 Bombed Cave Street"
address$(5) = "64 Wonderland Avenue"

id%(1) = 3563
id%(2) = 1
id%(3) = 68
id%(4) = 1000
id%(5) = 0

gender%(1) = 1
gender%(2) = 1
gender%(3) = 1
gender%(4) = 1
gender%(5) = 2

hourlysalary(1) = 17.5
hourlysalary(2) = 27.5
hourlysalary(3) = 400.25
hourlysalary(4) = 0
hourlysalary(5) = 6.75
END SUB

SUB query
CLS
INPUT "Sort on name (1), address (2), id (3), gender (4), or hourly salary? (5)"; sort.item%
END SUB

SUB sort
SELECT CASE sort.item%
CASE 1
FOR i% = 1 TO entry.amount%
FOR j% = 1 TO i% - 1
IF name$(j%) > name$(i%) THEN
SWAP name$(j%), name$(i%)
SWAP address$(j%), address$(i%)
SWAP id(j%), id(i%)
SWAP gender(j%), gender(i%)
SWAP hourlysalary(j%), hourlysalary(i%)
END IF
NEXT j%, i%

CASE 2
FOR i% = 1 TO entry.amount%
FOR j% = 1 TO i% - 1
IF address$(j%) > address$(i%) THEN
SWAP name$(j%), name$(i%)
SWAP address$(j%), address$(i%)
SWAP id(j%), id(i%)
SWAP gender(j%), gender(i%)
SWAP hourlysalary(j%), hourlysalary(i%)
END IF
NEXT j%, i%

CASE 3
FOR i% = 1 TO entry.amount%
FOR j% = 1 TO i% - 1
IF id(j%) > id(i%) THEN
SWAP name$(j%), name$(i%)
SWAP address$(j%), address$(i%)
SWAP id(j%), id(i%)
SWAP gender(j%), gender(i%)
SWAP hourlysalary(j%), hourlysalary(i%)
END IF
NEXT j%, i%

CASE 4
FOR i% = 1 TO entry.amount%
FOR j% = 1 TO i% - 1
IF gender(j%) > gender(i%) THEN
SWAP name$(j%), name$(i%)
SWAP address$(j%), address$(i%)
SWAP id(j%), id(i%)
SWAP gender(j%), gender(i%)
SWAP hourlysalary(j%), hourlysalary(i%)
END IF
NEXT j%, i%

CASE 5
FOR i% = 1 TO entry.amount%
FOR j% = 1 TO i% - 1
IF hourlysalary(j%) > hourlysalary(i%) THEN
SWAP name$(j%), name$(i%)
SWAP address$(j%), address$(i%)
SWAP id(j%), id(i%)
SWAP gender(j%), gender(i%)
SWAP hourlysalary(j%), hourlysalary(i%)
END IF
NEXT j%, i%
END SELECT
END SUB
Reply
#45
Quote:Well, everyone which connects here from my college will have exactly the proxy's IP. That makes around 2,500 people with the same IP Tongue
About the same here too Big Grin except more like 500 or so workstations around the tiny campus (each lab of 20 machines, plus all of the staffer's puters).

Heehee Moneo, he also flipped his lid at the n00b Wink but yeah I don't know anyone else who'd stick around so much. I would, but then again this subject isn't exactly my specialty, so I'm not much use here. In addition, I think LilSnow needs to learn the basics before trying something like this.
I'd knock on wood, but my desk is particle board.
Reply
#46
You really don't have to repeat my code.
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."

Visit www.neobasic.net to see rubbish in all its finest.
Reply
#47
Why is everybody making me LilSnow aka SHANE such a big deal....All i wanted was help....
Reply
#48
Quote:Why is everybody making me LilSnow aka SHANE such a big deal....All i wanted was help....
That's just the way it works around here. Big Grin
I'd knock on wood, but my desk is particle board.
Reply
#49
So it around it works by people thinking everybody is posting as more than one person....If thats the case....Its pretty GAY
Reply
#50
I really don't know what your problem is, Lilsnow.

To have 6 entries, you need 6 data sets and to set entry.amount% to 6.

. . .

You have shown us, right now, 0 data sets.
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."

Visit www.neobasic.net to see rubbish in all its finest.
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)