DioFile Object Sample Program

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

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

diofileboard = diofile.Board(0)

For i As Integer = 1 To 10

diofileboard.ChannelName(i) = "Data" + Str(i)

Next i

diofile.Steps = 1024

diofile.ClockStrobeSource = enumDioClockStrobeSource.dioClockStrobeInternal

diofile.Frequency = 5000000.0

diofile.TriggerDEvent = &HFF55

diofile.TriggerDMask = &HFFFF

diofile.TriggerTEvent = &HFF55

diofile.TriggerTMask = &HAAAA

diofile.TriggerPEvent = &H1234

diofile.TriggerPMask = &HFFFF

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