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試下。