编程表控

㈠ 让步进电机正反转如何编程

可以使用表控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