Mikroelektronika MIKROE-724 データシート

202

mikoBasic PRO for dsPIC30/33 and PIC24

MikroElektronika

This example shows how to declare a function which returns a complex type.

program Example

structure TCircle       ‘ Structure

  dim CenterX, CenterY as word

  dim Radius as byte

dim MyCircle as TCircle ‘ Global variable

sub  function  DefineCircle(dim  x,  y  as  word,  dim  r  as  byte)  as  TCircle  ‘  DefineCircle 

  result.CenterX = x

  result.CenterY = y

  result.Radius = r

main:

  MyCircle = DefineCircle(100, 200, 30)         ‘ Get a Structure via function call

  MyCircle.CenterX = DefineCircle(100, 200, 30).CenterX + 20  ‘ Access a Structure field 

  ‘                  |------------------------| |-----|

  ‘                     |                         |

  ‘                  Function returns TCircle     Access to one field of TCircle

Forward declaration

A  function  can  be  declared  without  having  it  followed  by  it’s  implementation,  by  having  it  followed  by  the  forward 

procedure. The effective implementation of that function must follow later in the module. The function can be used after 

a forward declaration as if it had been implemented already. The following is an example of a forward declaration:

program Volume

dim Volume as word

sub function First(dim a as word, dim b as word) as word forward

sub function Second(dim c as word) as word

dim tmp as word

  tmp = First(2, 3)

  result = tmp * c

sub function First(dim a, b as word) as word

  result = a * b

  Volume = Second(4)