# 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
# 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