• Visit https://www.embeddedcomputers.net/ for Hardware; Software and all other things related to FlashcatUSB

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

  • xilinx.bcs
    1.2 KB · Views: 66
Status
Not open for further replies.
Back
Top