PureBasic Forums - English

Posted: **Mon Feb 20, 2006 1:50 am**

Quote from Readme.html

If Not b
Debug "Ok"
EndIf

If a = 1 And Not b
Debug "Ok"
EndIf

If a = 1 And Not (b=1 or b=3)
Debug "Ok"
EndIf

I thought, cool. Any chance we can add the ability to do the following?

  Visible.b = #True
  HideWindow(#Window, Not Visible)

This would allow a two lines instead of ...

Code: Select all

  Visible.b = #True
  Select Visible
    Case #True
      HideWindow(#Window, #False)
    Case
      HideWindow(#Window, #True)
  EndSelect

Seven

Please maychance it is easier to follow.

Posted: **Mon Feb 20, 2006 8:24 am**

try it

not 1 = 0
not 0 = 1

think it works

Posted: **Mon Feb 20, 2006 11:48 am**

You can still use:

Code: Select all

HideWindow(#Window, 1-Visible)

it should does the job.

Posted: **Mon Feb 20, 2006 12:47 pm**

@Shannara
wait a minute...

if visible then HideWindow(#Window, #False) and if not visible then HideWindow(#Window, #True), did i got this right?

so why dont you write:

Code: Select all

Visible.b = #True 
HideWindow(#Window, Visible ! 1)

or have i missed something?

c ya,
nco2k

Posted: **Mon Feb 20, 2006 6:58 pm**

Code: Select all

;Logical not for all integer types
Procedure.l NotI(b.l)
  !CMP  DWord [ESP+4], 0
  !JZ   l_cl_0
  !XOr  eax, eax
  ProcedureReturn
  cl_0:
  !MOV  eax, 1
  ProcedureReturn
EndProcedure

Debug NotI(5)
Debug NotI(0)
Debug NotI(1)
Debug NotI(-1)

Posted: **Mon Feb 20, 2006 7:19 pm**

I just didnt know a way around that

Thanks to you guys ..

I now have a way

Thanks guys.

PureBasic Forums - English

Not Option.

Not Option.