pulse.txt

脉冲电流发生器

Dim IEEe As CGPIB
Dim Turn As Integer
Dim cmd, cmdp As String
Dim pp, Cer As Integer
Dim PC, PW, PF,PCC As Double

Private Sub End_Click()

    IEEe.Disconnect
    Set IEEe = Nothing
    End
End Sub

Private Sub Command2_Click()
    cmd = ":OUTPUT:STAT OFF"
    IEEe.Send cmd
    Timer1.Enabled=False
End Sub

Private Sub Form_Load()
    Set IEEe = New CGPIB
    IEEe.Connect 20, "K_2400"
   
    Turn = 0
End Sub
Private Sub Command1_Click()
    
    pp = 1
    Cer = 0    
    PC = Val(Text1.Text)
    PW = Val(Text2.Text)
    PF = Val(Text3.Text)
    PCC = PC    
    
    cmd = "*RST;*CLS"
    IEEe.Send cmd
    cmd = ":SOUR:FUNC CURR"
    IEEe.Send cmd
    
    cmd = ":SOUR:CURR:LEV 0"
    IEEe.Send cmd
    cmd = ":SENS:FUNC 'VOLT:DC'"
    IEEe.Send cmd
    
    cmd = ":SOUR:CURR:RANG:AUTO ON"
    IEEe.Send cmd
    cmd = ":SENS:VOLT:RANG:AUTO ON"
    IEEe.Send cmd
        
    cmd = ":SENS:VOLT:PROT 10"
    IEEe.Send cmd
        
    cmd = ":SOUR:CURR:LEV " + CStr(PC)
    IEEe.Send cmd

    cmd = ":OUTPUT:STAT ON"
    IEEe.Send cmd
    Timer1.Enabled=True
End Sub
Private Sub Form_Unload(Cancel As Integer)
    IEEe.Disconnect
    Set IEEe = Nothing
    Timer1.Enabled=False
    End
End Sub


Cer=Cer+1
If Cer=3 Then
pp=(-1)*pp
PCC=PCC+pp*PC
cmd = ":SOUR:CURR:LEV " + CStr(PCC)
IEEe.Send cmd
End If
If Cer=11 Then
Cer=0
pp=(-1)*pp
PCC=PCC+pp*PC
cmd = ":SOUR:CURR:LEV " + CStr(PCC)
IEEe.Send cmd
End If