====== CUBLOC BASIC Language ======

===== Declare Device ====

The device being used must be declared before using BASIC or Ladder
Logic. Below is an example of declaring the CUBLOC CB220 module.

<code xbasic>
Const Device = CB220      ' Use CB220.
</code>

This should be the first line of a program. When this command is not used, the CB220 model will be assumed.

<code xbasic>
Const Device = CB400      ' Use CB400.
Const Device = CB280      ' Use CB280.
</code>

If you use CT1721C model, use Const Device = CT1720

<code xbasic>
Const Device = CT1720     ' Use CB1720
</code>

Note : CT1720 is original model of CT1721C. CT1721C is CT1720 + Addon Board. 

===== CUBLOC BASIC Features =====

**CUBLOC BASIC supports functions and subroutines.**

The user is able to create subroutines and functions to organize their
programs. Using subroutines and functions allows the user to reuse code,
and organize programs for better readability.

<code xbasic>
Function SUM( A As Integer, B As Integer) As Integer
  Dim RES As Integer
  RES = A + B
  SUM = RES
End Function
</code>

**Calculations can be done within conditional statements such as If, While, etc…**

<code xbasic>
If ((A + 1) = 100) Then GoTo ABC
If ((A + 1) = 100) And (B / 100 = 20) OR C = 3 Then GoTo ABC
</code>

**A graphic LCD library is provided.**

CUBLOC provides a complete graphic LCD library for the Comfile GHLCD, CUTOUCH product. 
Boxes, lines, circles, and other graphics commands are easily implemented in a few lines of code.

**Various Communication Protocols are supported.**

CUNET(I2C) : Display peripherals such as character LCDs
RS232C : up to 4 channels
MODBUS : built-in slave functions
I2C : I2C commands supported (I2CRead I2CWrite)
SPI : SPI commands supported (ShiftIn, ShiftOut)
PAD: Keypad, touchpad supported.


===== Simple BASIC program =====

Below is an example of a simple BASIC program with a Do…Loop statement.

<code xbasic>
Dim A As Byte
Do
    ByteOut 0, A
    A=A+1
Loop
</code>

This program outputs the increasing binary value of A to Ports P0-P7. The
next program uses a function to accomplish the same task:

<code xbasic>
Dim A As Byte
Do
    ByteOut 0, A
    A=ADD_VALUE(A)
Loop
End

Function ADD_VALUE(B As Byte) As Byte
    ADD_VALUE = B + 1
End Function
</code>

By placing A=A+1 in a function, the user will be able to separate one big
program into small manageable pieces. As you can see here, the main
program ends at the End command, and functions are added afterwards.

{{ :cubloc:cubloc_basic_language:main_sub.png?nolink |}}

[[cubloc:index:|Go CUBLOC home]]