PureBasic Forums - English

Code: Select all

CompilerIf  #PB_Compiler_OS = #PB_OS_Windows 
  If InitScintilla() = 0
    ProcedureReturn 1
  EndIf
CompilerEndIf

Code: Select all

var1 = 5
var2 = 10
var3 = 0
rel$ = InputRequester("Relation", "New relation betweeen var1 and var2 ", "AND")
;For example: the user enters "AND"
;Now I need to evaluate var3 = var1 rel$ var2, this is  "var3 = var1 AND var2"
;
debug (var3) ;var3 should have the value 1
;
rel$ = InputRequester("Relation", "New relation betweeen var1 and var2 ", "+")
;now the user defines another relationship between v1 and var2, and enters "+"
;So I need to evaluate "var3 = var1 + var2"
;
debug (var3); var3 should have the value 15

Code: Select all

#minScript_HOME = "c:/PurebasicCode/minScript/Source/"  

;Include the minScript source and check that it initialized ok.
  XIncludeFile #minScript_HOME + "minScript.pbi"
  If minScriptINIT <> #minScript_OKAY
    Debug "minScript failed to initialize correctly."
    End
  EndIf

;Create a minScriptCode object and check the return value.
  Define myCode.minScriptCode
  myCode = minScript_NewCodeObject()
  If myCode = 0 ;Typically a memory allocation issue.
    Debug "Could not create a code object!"
    End
  EndIf

;Create variables.
  var1 = 5
  var2 = 10
  ;Return variable.
    *returnVar.minScriptVariant = myCode\GetReturnVariantPtr()

;Request expression.
  expression$ = InputRequester("", "Expression involving var1 and var2. Must be of the form 'result = ...'", "result = var1 + var2")

;Set up a simple script.
  script$ = "DIM var1, var2, result AS INTEGER" + #CRLF$
  script$ + "var1 = " + Str(var1) + #CRLF$
  script$ + "var2 = " + Str(var2) + #CRLF$
  script$ + expression$ + #CRLF$
  script$ + "RETURN result"
  
  result = myCode\Execute(script$)

  If result <> #minScript_OKAY
    Debug "Execution error info : "
    Debug "  Error code : " + Str(myCode\GetLastErrorCode())
    Debug "  Error source line number : " + Str(myCode\GetLastErrorLineNumber())
  Else
    var3 = *returnVar\i
    Debug "Result = " + Str(var3)
  EndIf

;Release the minScriptCode object.
  myCode\Destroy()

Code: Select all

DIM a as VARIANT
DIM b as VARIANT
DIM c as VARIANT
a=5
b=10
c=a/b
debug(c)

Code: Select all

DIM a, b as INTEGER
DIM c as REAL
a=5
b=10
c=a/b
DEBUG c

Code: Select all

DIM a, b, c as VARIANT
a=5
b=10
c=a%r/b
DEBUG c

Code: Select all

DIM a, b, c as VARIANT
a=5%r   ;Could use a=5.0 instead although in this case 5.0 is regarded as a CURRENCY type!
b=10
c=a/b
DEBUG c

Code: Select all

function main()
  Dim j, k as integer

  k = 2500
  j   = k & $0F
endfunction