⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 control.htm

📁 菲斯卡尔无传感器无刷控制方案。具体说明文档和程序都在压缩包内。
💻 HTM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<HTML>
<HEAD>
<meta name="VI60_defaultClientScript" content="VBScript">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<TITLE>New Page</TITLE>
</HEAD>
<BODY OnLoad = "MyOnLoad()" bgcolor="#E1E1E1">

    <OBJECT ID="pcm" WIDTH=0 HEIGHT=0
     CLASSID="CLSID:48A185F1-FFDB-11D3-80E3-00C04F176153">
    </OBJECT>

    <div align="center">
      <center>


    <table border="0" width="62%" height="88">
      <tr>
        <td width="53%" height="82">
          <p style="margin-top: 1; margin-bottom: 1"><b>Designed by Roznov CSC</b></p>
          <p style="margin-top: 1; margin-bottom: 1"><b>Transportation and Standard Products
          Group</b></p>
          <p style="margin-top: 1; margin-bottom: 1"><b>Roznov pod Radhostem, Czech Republic</b></td>


      </center>
        <td width="57%" height="82" valign="middle" align="center">
          <p align="right"><IMG src="fs.gif" height="82"></p>
      </td>
      </tr>
    </table>


    </div>


    <p align="center">

	<SCRIPT LANGUAGE="VBScript">

sub MyOnLoad

	call setTimeout ("MyStart()", 250)
	
end sub

sub MyStart
	call setInterval ("Periodical0()", 100)
	
	dim vValue0, tValue0, retMsg
	succ = false
	
	succ = pcm.ReadVariable("DCBus_Current_Max", vValue0, tValue0, retMsg)
	if succ then

		if vValue0 = 8.25 then
			vValue0 = 8
		end if

		if vValue0 = 9.6 then
			vValue0 = 10
		end if

		gaugeIDCBUS.TicID = 0
		gaugeIDCBUS.TicStopValue = vValue0
		gaugeIDCBus.TicDelta = vValue0 / 20

		gaugeIDCBUS.TicID = 1
		gaugeIDCBUS.TicStopValue = vValue0
		gaugeIDCBUS.TicDelta = vValue0 / 4

		gaugeIDCBUS.TicID = 2
		gaugeIDCBUS.TicStopValue = vValue0
		gaugeIDCBUS.TicDelta = vValue0 / 20
			
		gaugeIDCBUS.ScaleMaxValue = vValue0
			
		gaugeIDCBUS.AnnularID = 0
		gaugeIDCBUS.AnnularStartValue = 0
		gaugeIDCBUS.AnnularStopValue = vValue0 * 0.25
		
		gaugeIDCBUS.AnnularID = 1
		gaugeIDCBUS.AnnularStartValue = vValue0 * 0.25
		gaugeIDCBUS.AnnularStopValue = vValue0 * 0.75

		gaugeIDCBUS.AnnularID = 2
		gaugeIDCBUS.AnnularStartValue = vValue0 * 0.75
		gaugeIDCBUS.AnnularStopValue = vValue0
	end if	

	succ = pcm.ReadVariable("Max_Rotor_Speed", vValue0, tValue0, retMsg)
	if succ then

		gaugeSPEED.TicID = 0
		gaugeSPEED.TicStartValue = -vValue0
		gaugeSPEED.TicStopValue = vValue0
		gaugeSPEED.TicDelta = vValue0 / 4

		gaugeSPEED.TicID = 1
		gaugeSPEED.TicStartValue = -vValue0
		gaugeSPEED.TicStopValue = vValue0
		gaugeSPEED.TicDelta = vValue0 / 20

		gaugeSPEED.TicID = 2
		gaugeSPEED.TicStartValue = -vValue0
		gaugeSPEED.TicStopValue = vValue0
		gaugeSPEED.TicDelta = vValue0 / 20

		gaugeSPEED.ScaleMinValue = -vValue0
		gaugeSPEED.ScaleMaxValue = vValue0
			
		gaugeSPEED.AnnularID = 0
		gaugeSPEED.AnnularStartValue = -vValue0
		gaugeSPEED.AnnularStopValue = vValue0
		
		gaugeSPEED.AnnularID = 1
		gaugeSPEED.AnnularStartValue = -vValue0 * 0.1
		gaugeSPEED.AnnularStopValue = vValue0 * 0.1

		gaugeSPEED.AnnularID = 2
		gaugeSPEED.AnnularStartValue = -vValue0
		gaugeSPEED.AnnularStopValue = -vValue0 + vValue0 * 0.2

		gaugeSPEED.AnnularID = 3
		gaugeSPEED.AnnularStartValue = vValue0 - vValue0 * 0.2
		gaugeSPEED.AnnularStopValue = vValue0
		
	end if

	succ = pcm.ReadVariable("Requested_Mechanical_Speed", vValue0, tValue0, retMsg)
	if succ then
		gaugeSPEED.NeedleID = 1
		gaugeSPEED.NeedleValue = vValue0
	end if

	succ = pcm.ReadVariable("Desired_IDC_Bus_Limit", vValue0, tValue0, retMsg)
	if succ then
		gaugeIDCBUS.NeedleID = 1
		gaugeIDCBUS.NeedleValue = vValue0
	end if

	
end sub

sub Periodical0
	dim vValue0, tValue0, retMsg
	succ = false

	succ = pcm.ReadVariable("DC_Bus_Voltage_(filtered)", vValue0, tValue0, retMsg)
	if succ then
		gaugeVDCBUS.NeedleValue = vValue0
	end if

	succ = pcm.ReadVariable("DC_Bus_Current_(filtered)", vValue0, tValue0, retMsg)
	if succ then
		gaugeIDCBUS.NeedleID = 0
		gaugeIDCBUS.NeedleValue = vValue0
		ErrorMessageText.InnerText = " "
	else
		ErrorMessageText.InnerText = "Communication Error"
	end if 
	
	succ = pcm.ReadVariable("Actual_Mechanical_Speed", vValue0, tValue0, retMsg)
	if succ then
		succ = pcm.ReadVariable("Actual_Direction", vValue1, tValue1, retMsg)
		if succ then
			if vValue1 = 0 then
				gaugeSPEED.NeedleID = 0
				gaugeSPEED.NeedleValue = vValue0
			end if
			if vValue1 = 1 then
				gaugeSPEED.NeedleID = 0
				gaugeSPEED.NeedleValue = -vValue0
			end if
		end if
	end if

	succ = pcm.ReadVariable("status_DCUndervoltage", vValue0, tValue0, retMsg)
	if succ then
		if vValue0 = 0 then
			ledDCUNDERVOLTAGE.src = "led_off01.bmp"
		end if
		if vValue0 = 1 then
			ledDCUNDERVOLTAGE.src = "led_red01.bmp"
		end if
	end if
	
	succ = pcm.ReadVariable("status_DCOvervoltage", vValue0, tValue0, retMsg)
	if succ then
		if vValue0 = 0 then
			ledDCOVERVOLTAGE.src = "led_off01.bmp"
		end if
		if vValue0 = 1 then
			ledDCOVERVOLTAGE.src = "led_red01.bmp"
		end if
	end if
	
	succ = pcm.ReadVariable("status_DCOvercurrent", vValue0, tValue0, retMsg)
	if succ then
		if vValue0 = 0 then
			ledDCOVERCURRENT.src = "led_off01.bmp"
		end if
		if vValue0 = 1 then
			ledDCOVERCURRENT.src = "led_red01.bmp"
		end if
	end if
	
	succ = pcm.ReadVariable("status_CurrentLimiting", vValue0, tValue0, retMsg)
	if succ then
		if vValue0 = 0 then
			ledCURRENTLIMITING.src = "led_off01.bmp"
		end if
		if vValue0 = 1 then
			ledCURRENTLIMITING.src = "led_red01.bmp"
		end if
	end if

	succ = pcm.ReadVariable("Application_Mode", vValue0, tValue0, retMsg)
	if succ then
		if vValue0 = 0 then
			textAPPLICATIONMODE.InnerText = "STOP"
		end if
		if vValue0 = 1 then
			textAPPLICATIONMODE.InnerText = "RUN"
		end if
		if vValue0 = 2 then
			textAPPLICATIONMODE.InnerText = "FAULT"
		end if
	end if	

	succ = pcm.ReadVariable("Commutation_Status", vValue0, tValue0, retMsg)
	if succ then
		if vValue0 = 0 then
			textCOMMUTATIONMODE.InnerText = "ALIGNMENT"
		end if
		if vValue0 = 1 then
			textCOMMUTATIONMODE.InnerText = "STARTED"
		end if
		if vValue0 = 2 then
			textCOMMUTATIONMODE.InnerText = "RUNNING"
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -