Re: [VB6 ] 比對字串中0與1的位置

看板Visual_Basic作者medoc (街角的子供達 )時間17年前 (2008/04/23 23:54)推噓0(0推 0噓 5→)

留言5則, 2人參與討論串2/2 (看更多)

小弟修改程式碼將做法改為使用Mid(string,x,y) x是第幾位元 y是取幾位可以達到當初要求但...還是想知道是否有辦法使用遮罩的方式完成比對工作以下為修改後可執行之程式碼 Option Explicit Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.RTSEnable = True End Sub Private Sub cndSend_Click() If Not MSComm1.PortOpen = True Then MSComm1.PortOpen = True MSComm1.Output = "b" Timer1.Interval = 500 Timer1.Enabled = True End Sub Private Sub cmdClose_Click() MSComm1.PortOpen = False End Sub Private Sub Timer1_Timer() txtResponse.Text = MSComm1.Input Dim i As Integer For i = 1 To 8 Step If (Mid(txtResponse.Text,i,1) = 1) Then Shape1(i-1).FillStyle = 1 Else Shape1(i-1).FillStyle = 0 End If Next i Timer1.Enabled = False End Sub 懇請大家賜教或者有其他更好的方式可以比對這字串請指導我謝謝大家 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.167.161.212

→

MOONRAKER

04/24 02:06, , 1^F

04/24 02:06, 1^F

→

medoc

04/24 10:39, , 2^F

04/24 10:39, 2^F

→

MOONRAKER

04/24 17:57, , 3^F

04/24 17:57, 3^F