Giga-tronics 58542 - Page 246

58542 VXIbus Universal Power Meter
B-12 Publication 21555, Rev. E, September 2002
Sensor EEPROM Code Sequence Writing:
(The following program example is written in Microsoft
®
Visual Basic using National Instruments
®
VISA Instrument calls)
Private Sub cmdWriteNewData_Click()
'Write new calibration data to sensor for form
cmdWriteNewData.Caption = "Writing"
wrt = "DIAG:SENS" + SensNum + ":EEPROM:TYPE " + space$(1) _
+ Chr$(34) + txtModelNum.Text + "," + txtSerNum.Text + "," + _
txtCalLoc.Text + "," + MinVal + "," + HourVal + "," + DayVal + _
"," + MonthVal + "," + YearVal + "," + PWDVal + Chr$(34)
stat = viWrite(MVISAaddress, wrt, Len(wrt), retCnt)
SensorWrite 'Call Write new type data
wrt = "DIAG:SENS" + SensNum + ":EEPROM:CALFR" + space$(1) + _
Chr$(34) + "2.000e9,1.000e9,17,1" + Chr$(34) 'txtCalFreq.Text
stat = viWrite(MVISAaddress, wrt, Len(wrt), retCnt)
SensorWrite 'Call Write new range data
wrt = "DIAG:SENS" + SensNum + ":EEPROM:CALFST" + space$(1) _
+ Chr$(34) + Str(txtCF1) + "," + Str(txtCF2) + "," _
+ Str(txtCF3) + "," + Str(txtCF4) + "," + Str(txtCF5) + _
"," + Str(txtCF6) + "," + Str(txtCF7) + "," + Str(txtCF8) _
+ "," + Str(txtCF9) + "," + Str(txtCF10) + "," + _
Str(txtCF11) + "," + Str(txtCF12) + "," + Str(txtCF13) + _
"," + Str(txtCF14) + "," + Str(txtCF15) + "," + Str(txtCF16) _
+ "," + Str(txtCF17) + Chr$(34)
stat = viWrite(MVISAaddress, wrt, Len(wrt), retCnt)
SensorWrite 'Call Write new cal factor data
stat = viClear(MVISAaddress)
rd = ""
Beep
cmdWriteNewData.Caption = "Write New Information"
End Sub
Public Sub SensorWrite()
wrt = "DIAG:SENS" + SensNum + ":EEPROM:WRIT 0"
stat = viWrite(MVISAaddress, wrt, Len(wrt), retCnt)
Sleep (5000) 'Wait five seconds
End Sub