Posts: 6,419
Threads: 74
Joined: Mar 2002
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
Posts: 76
Threads: 9
Joined: Nov 2003
I am not that phylogenesis dude i dont know who he is
Posts: 3,288
Threads: 167
Joined: Nov 2001
Posts: 76
Threads: 9
Joined: Nov 2003
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
Posts: 3,279
Threads: 170
Joined: Nov 2003
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
About the same here too
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
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.
Posts: 3,368
Threads: 195
Joined: Jan 2003
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.
Posts: 76
Threads: 9
Joined: Nov 2003
Why is everybody making me LilSnow aka SHANE such a big deal....All i wanted was help....
Posts: 3,279
Threads: 170
Joined: Nov 2003
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.
I'd knock on wood, but my desk is particle board.
Posts: 76
Threads: 9
Joined: Nov 2003
So it around it works by people thinking everybody is posting as more than one person....If thats the case....Its pretty GAY
Posts: 3,368
Threads: 195
Joined: Jan 2003
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.