VB Obj to AutoIt Obj

[RAMzor]

I have problems to convert some piece of VB code to AutoIt

How to convert this lines :

On Error GoTo GetMemoryUnblockedFailed

Set progress = new ADspProgress

memory_type.GetMemoryUnblocked &h30000, 10000, 1, progress

...

...

GetMemoryUnblockedFailed:

app.PrintText tabConsole, "GetMemoryUnblocked failed"

[BrettF]

Maybe post the original VB code, and where you are up to now, so we may help you better

[RAMzor]

Here is a example code from VisualDSP++ 4.5 help file (automation API chapter)

VisualDSPAutomation.zip

Text from help:

ADspProgress Object

This object is used to get the progress or status of an unblocked operation like a memory get, memory set, or program load. It can also be used to cancel the operation.

Example:

The following example demonstrates starting the memory read.

Visual Basic:

Dim app As Application

Dim session As ADspDebugSession

Dim processor As ADspProcessor

Dim memory_type_list As ADspMemoryTypeList

Dim memory_type As ADspMemoryType

Dim progress As ADspProgress

Set app = CreateObject( "VisualDSP.ADspApplication" )

Set session = app.ActiveSession

Set processor = session.ProcessorList( 0 )

Set memory_type_list = processor.MemoryTypeList

On Error GoTo GetItemFailed

Set memory_type = memory_type_list( "Data(DM) Memory" )

On Error GoTo GetMemoryUnblockedFailed

Set progress = new ADspProgress

memory_type.GetMemoryUnblocked &h30000, 10000, 1, progress

Exit Sub

GetItemFailed:

app.PrintText tabConsole, "Processor doesn't have memory named ""Data(DM) Memory""

Exit Sub

GetMemoryUnblockedFailed:

app.PrintText tabConsole, "GetMemoryUnblocked failed"

-----------------------------------------------------------------------

Properties:

PercentComplete

Methods

Cancel

Events

OnCanceled

onerror

OnGetMemoryCompleted

onprogress

OnSetMemoryCompleted

-----------------------------------------------------------------------

I don't anderstand RED lines - what is AutoIt eqvivalent ?

Edited October 9, 2008 by RAMzor

[RAMzor]

Will no one knows?

[ptrex]

@RAMzor

Something like this will do it.

If @Error then  GetMemoryUnblockedFailed ()
EndIf

$progress = ObjCreate("ADspProgress")
$memory_type.GetMemoryUnblocked (0x30000, 10000, 1, $progress)

Func GetMemoryUnblockedFailed()
    ConsoleWrite("GetMemoryUnblocked failed" & @CRLF)
EndFunc

regards

ptrex