DioCommand Object Sample Program

The following example demonstrates how to use DioCommand Object as follows:

●     Create a new DIO file

●     Set number of steps to 1024

●     Create Block of data to filled

●     Fill with ramp

●     Past the block to the Dio file, stating at step 0 channel 0

●     Set the board type to match the file

●     Set the command to HALT at step 10 with no condition

●     Insert the command at step 10

●     Save and close the file

 

Dim diofile As New DioFile

Dim diofileboard As DioFileBoard

Dim dioblock As DioBlock

Dim diogroup As DioGroup

Dim diocommand As New DioCommand

DioFile.Open("DioComExampleFile.dio")

diofile.Steps = 1024

dioblock = diofile.CreateBlock(0, 1024, diogroup)

dioblock.FillRamp(0, 1023, 1, 2, 0, 1023, 0, 31)

dioblock.Paste(0, 0)

diocommand.BoardType = diofile.BoardType

diocommand.Set(diofile.BoardType, enumDioCommandOpCode.dioCommandOpCodeHalt, 10, enumDioCommandCondition.dioCommandConditionNone, 0)

dioblock.Command(10) = diocommand

diofile.Save()