1. Create a new pulse named "mypulse"
Option Explicit
Dim project As AgtPBProject
Dim pulselib As AgtPBPulseLibrary
Private Sub CreateNewPulse( )
On Error GoTo handlers
Set project = New AgtPBProject
Call project.NewProject("myproject.pbp")
Set pulseLib = project.PulseLibrary
Call pulseLib.CreateNewPulse("mypulse")
Call project.Save( )
Exit sub
handlers:
MsgBox Err.Description
End Sub
2. Get a pulse from an existing project and
set the pulse type to Raised Cosine
(In this example, assume that the project already has "mypulse"
in the pulse library)
Option Explicit
Dim project As AgtPBProject
Dim pulselib as AgtPBPulseLibrary
Dim pulse As AgtPBPulse
Private Sub CreateNewPulse( )
On Error GoTo handlers
Set project = New AgtPBProject
Call project.Open("myproject.pbp")
Set pulseLib = project.PulseLibrary
Set pulse = pulseLib.GetPulse("mypulse")
pulse.PulseType = AgtPBPulseType_RaisedCosine
Call project.Save( )
Exit sub
handlers:
MsgBox Err.Description
End Sub