Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Problem with IF...THEN...ELSEIF + DO ... LOOP + WHILE ... WEND
#1
Hi! I've a problem with this code:

Code:
Sessione = TRUE
WHILE Sessione

'Barra di stato
Future.FillBox 2, Lx - 19, Rx - 2, Lx - 2, RGB2Color&(0, 0, 32)
Future.Box 1, Lx - 20, Rx - 1, Lx - 1, RGB2Color&(0, 128, 192)

'Barra del menu
Future.FillBox 2, Lx - 49, Rx - 2, Lx - 21, RGB2Color&(0, 24, 64)
Future.Box 1, Lx - 50, Rx - 1, Lx - 20, RGB2Color&(0, 128, 192)

Future.LoadBMP "\hawk\skin\" + skin$ + "\user.bmp", 5, Lx - 47

TIMER ON
ON TIMER(1) GOSUB Stato

Future.MouseOn

DO
        Future.UpdateMouse
        IF Future.MouseX% > 5 AND Future.MouseX% < 29 AND Future.MouseY% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 0 THEN
                Future.Print 5, Lx - 18, "Amministra il sistema", RGB2Color&(255, 255, 255), -1
        ELSEIF Future.MouseX% > 5 AND Future.MouseX% < 29 AND Future.MouseY% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 1 THEN
                Future.MouseOff
                Future.FillBox 33, Lx - 49, Rx - 2, Lx - 21, RGB2Color&(0, 52, 92)
                Future.Box 32, Lx - 50, Rx - 1, Lx - 20, RGB2Color&(0, 128, 192)
                Future.LoadBMP "\hawk\skin\" + skin$ + "\update.bmp", 37, Lx - 47
                Future.LoadBMP "\hawk\skin\" + skin$ + "\esci.bmp", 65, Lx - 47
                Future.MouseOn
                DO
                        Future.UpdateMouse
                        IF Future.MouseX% > 37 AND Future.MouseX% < 61 AND Future.MouseL% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 0 THEN
                                Future.Print 5, Lx - 18, "Visualizza info aggiornamenti", RGB2Color&(255, 255, 255), -1
                        ELSEIF Future.MouseX% > 37 AND Future.MouseX% < 61 AND Future.MouseL% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 1 THEN
                                END
                        ELSEIF Future.MouseX% > 65 AND Future.MouseX% < 89 AND Future.MouseL% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 0 THEN
                                Future.Print 5, Lx - 18, "Esci da Hawk", RGB2Color&(255, 255, 255), -1
                        ELSEIF Future.MouseX% > 65 AND Future.MouseX% < 89 AND Future.MouseL% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 1 THEN
                                END
                        END IF
                LOOP WHILE INKEY$=""
        END IF
       
LOOP WHILE INKEY$ = ""
Sessione = FALSE
Future.MouseOff
WEND

in the second DO...LOOP, the "if...then...elseif" don't work!!! Why?
Reply


Messages In This Thread
Problem with IF...THEN...ELSEIF + DO ... LOOP + WHILE ... WEND - by Karelius - 06-15-2009, 04:58 PM

Forum Jump:


Users browsing this thread: 2 Guest(s)