Looks like it could be great...

by Unseen Machine (no login)

 

Here are a couple of graphicy (dodgy word) menu demo's, up down arrow keys move and enter selects (kinda obvious i know but hey they put "WARNING MAY CONATIN NUTS" on packets of peanuts!!!)

They run one after the other witha small delay in between.

SCREEN 12

'Arrow menu Version 1

arl% = 3
FOR i% = 3 TO 12
LOCATE i%, 20: PRINT i% - 2
NEXT

DO
LOCATE arl%, 15: PRINT CHR$(175)

kb$ = INKEY$
SELECT CASE kb$
CASE CHR$(0) + CHR$(80)
LOCATE arl%, 15: PRINT " "
IF arl% < 12 THEN arl% = arl% + 1 ELSE arl% = 3
CASE CHR$(0) + CHR$(72)
LOCATE arl%, 15: PRINT " "
IF arl% > 3 THEN arl% = arl% - 1 ELSE arl% = 12
CASE CHR$(13)
EXIT DO
END SELECT
LOOP

LOCATE 17, 1: PRINT "You pressed enter on number "; arl% - 2

SLEEP 4
CLS

'Arrow Menu version 2

arl% = 3

DO
FOR i% = 3 TO 12
IF i% = arl% THEN COLOR 12 ELSE COLOR 15
LOCATE i%, 20: PRINT i% - 2
NEXT
kb$ = INKEY$

'Probally want a keyboard delay here.

SELECT CASE kb$
CASE CHR$(0) + CHR$(80)
IF arl% < 12 THEN arl% = arl% + 1 ELSE arl% = 3
CASE CHR$(0) + CHR$(72)
IF arl% > 3 THEN arl% = arl% - 1 ELSE arl% = 12
CASE CHR$(13)
EXIT DO
END SELECT
LOOP

LOCATE 17, 1: PRINT "You pressed enter on number "; arl% - 2

SLEEP 4

SYSTEM

Posted on Nov 27, 2010, 10:38 PM

Respond to this message   

Return to Index

 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement