編程表控

㈠ 讓步進電機正反轉如何編程

可以使用表控TPC4-4TD的控制器來實現，參考下圖接線：
接線很簡單，參考接線圖接線。表控與驅動器的接線只有三根線，5V、Y1和Y2，分別連接步進電機驅動器的輸入信號端，5V連接步進電機驅動器輸入信號的正極，Y1連接脈沖輸入信號的負極，Y2連接方向輸入信號的負極。
在電腦的功能設置表上設置的正反轉功能，見下圖：
第1行設置X1作為啟動開關，由Y1輸出脈沖，頻率2000赫茲，脈沖數是2000。如果驅動器細分設置為2000，設置脈沖數為2000正好轉一圈。
第2行設置延時1秒，作為正反轉間隔的時間。
第3行設置Y2輸出方向信號10秒鍾，由脈沖結束時關閉此行。
第4行設置的與第一行相同，由於與第3行的方向輸出端同事被第2行延時後啟動，因此第3、4行實現反轉的功能。反轉一圈回到原位。
下圖是自動生成的漢字顯示：
使用表控作為步進電機控制，有幾個有點：接線方便、設置簡單，表格設置方法代替編程，沒學過編程的人員也可以使用。更多功能可以查看詳細說明書和視頻教程。

㈡ 給位大神，控制步進電機自動工作，不用plc和單片機。最好用電腦控制或者控制器。該如何控制，如何編程

這個問題好解決，可以使用表控TPC8-8TD的控制器來控制步進電機，特點就是簡單、易行。使用表格設置方式，用滑鼠在表格上設置，無需專業技術。這個型號的表控是8路輸入8路輸出的，具有4路脈沖輸出端，最多可以同時控制4個步進電機。還有個特點是：不僅可以控制步進電機，還可以同時控制氣缸、交流電機等更多的負載同時工作。

下圖是功能設置表的圖片：

上圖是控制單台步進電機的接線示意圖，表控由Y1輸出脈沖信號，由Y輸出方向信號到步進電機驅動器。還有2軸和4軸的接線圖這里從略，需要的可以到網上下載。

㈢ Excel 編程式控制制圖表數據點顏色

起始條件個是很實用，有的時候不必編成。
舉個例子：
A1=1, A2=0。當等於1時為紅字，粉背景；當等於0時，為棕色字，深黃背景。

Sub Macro1()
'
' Macro1 Macro
'

'
Columns("A:A").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16751204
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10284031
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

㈣ vba 表單控制項 編程

PrivateSubOptionButton1_Click()
[a1]=1
EndSub

PrivateSubOptionButton2_Click()
[a1]=2
EndSub

PrivateSubForm_Load()
WithMSFlexGrid1
.FixedCols=0
.FixedRows=0
.Rows=10
.Cols=10
EndWith

EndSub


PrivateSubMSFlexGrid1_Click()
WithMSFlexGrid1
x=.Row
y=.Col
.CellBackColor=vbYellow
.Row=x
.Col=0
.CellBackColor=vbYellow
.Row=0
.Col=y
.CellBackColor=vbYellow


EndWith
EndSub