DioBlock Object Sample Program

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

 

Dim diofile As New DioFile

Dim diocommand As New DioCommand

Dim diofileboard As DioFileBoard

Dim dioblock As DioBlock

Dim diogroup As DioGroup

dioFile.Open("DioComExampleFile.dio")

diofile.Steps = 1024

diogroup = diofile.CreateGroup(0, 31)

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()