• Seems like hotmail /outlook is blocking emails from here so please refrain from using one of these accounts as you may not receive your authorization email.. many thanks

Xilinx CPLD Script

Status
Not open for further replies.

D3m0n

Administrator
Staff member
# Used to program various Xilinx devices,
# such as the XC2C64A CPLD / coolrunner device

MyDevice = "Xilinx CLPD" #Name of device

t1 = Tab.Create(MyDevice)
Tab(t1).AddGroup("SVF Player",10,10,424,100)
Tab(t1).AddButton("RunSVF","Run SVF File",90,50)
Tab(t1).AddButton("RunXSVF","Run XSVF File",250,50)
Tab(t1).AddProgress(20,92,404) #Adds a progress bar (updates automatically from any function)

CreateEvent(RunSVF)
Tab(t1).ButtonDisable()
Prompt = "Choose a compatible SVF file to run"
MyData = OpenFile(Prompt,"Sector Vector Format (*.svf)|*.svf")
If (MyData = Nothing)
goto RunSVFExit
endif
result = JTAG.RunSVF(MyData)
If (result)
Status("Successfully ran the SVF file")
Else
Status("Error while executing SVF file")
endif
RunSVFExit:
Tab(t1).ButtonEnable()
EndEvent

CreateEvent(RunXSVF)
Tab(t1).ButtonDisable()
Prompt = "Choose a compatible SVF file to run"
MyData = OpenFile(Prompt,"Sector Vector Format (*.xsvf)|*.xsvf")
If (MyData = Nothing)
goto RunXSVFExit
endif
result = JTAG.RunXSVF(MyData)
If (result)
Status("Successfully ran the XSVF file")
Else
Status("Error while executing XSVF file")
endif
RunXSVFExit:
Tab(t1).ButtonEnable()
EndEvent
 

Attachments

Status
Not open for further replies.
Top