A. 如何编程让小车沿线条走
（1）作为一辆小车必须有可以行走的轮子，即可以正常行走的小车，这是小车的框架；
（2）要求智能，即可以通过CPU控制小车自由移动御兆洞，那么必须有控制轮子的驱动，一般轮子的驱动用电机制作，可为直流电机或步进电机，因此这部分内容包括CPU控制电机实现小车前后移动，左拐、右拐，调速；必须有一个CPU处理器，使用单片机、ARM等处理器芯片都可以；电机驱动电路，实现电机正反转、调速。
（3）循迹，必须确定轨迹模型，才能有针对性的选择传感器，比如要求小车按地上的黑线轨迹行走，确定猜掘轨迹是地上的黑镇枯线之后，选择传感器用于识别地上的黑线，用什么检测地上的黑线呢？最简单的是使用红外接收对管，通过黑色吸收光线最强的原理判别小车是否在轨道上。当然也可以使用其他传感器识别轨迹，比如摄像头等，不过对于初学者来说没必要整得这么复杂。
B. 一个关于VB编程的问题！！！
分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
大家好，我在编程时遇到了一个问题，问题就出在下面这段程序。这段程手穗序我在调试和编译时都不报错，可是我编译完成后一运行就提示“数组下标越界”，可我怎么看都看不来为什么越界，请首姿各位高手帮我看看，小弟不胜感激！！！
Public Function ReadFile(strFilePath As String) As String()
Dim fso As New FileSystemObject
Dim file
Dim IsFileExist As Boolean
Dim ts As TextStream
Dim strData() As String
ReDim strData(0)
IsFileExist = fso.FileExists(strFilePath)
If IsFileExist = True Then
Set file = fso.GetFile(strFilePath)
Set ts = file.OpenAsTextStream(ForReading)
While Not ts.AtEndOfStream
ReDim Preserve strData(UBound(strData) + 1)
strData(UBound(strData)) = ts.ReadLine
Wend
ts.Close
End If
ReadFile = strData
End Function
解析:
此函数应该没有错误者薯绝，在WinXP sp2 + VB6 sp6下测试通过
Private Sub Command1_Click()
Dim pp() As String
Dim i As Integer
pp = ReadFile("d:\a.txt")
For i = 1 To UBound(pp)
MsgBox pp(i)
Next
End Sub
怪事儿了，我已经把以上代码放在Load里面用生成的EXE文件试过了，没有问题，你可以用我的代码试一下，如果仍有问题的话，可能是你的VB或是系统有问题了，把sp6的补丁打上，另外最好检查一下有没有在LOAD里面操作数组或是Grid之类的。从前也遇到过VB这类的错误，在调试时期看不到问题，只有运行的时候才可以出现，当时无法解决，你可以重装系统或VB试下。