培機語言的問題



贊助商連結


妹妹
2002-04-23, 08:11 PM
各位大哥 小妹有一個問題想請教
由於我在公司擔任品管人員
常常需要檢驗條碼
所以小妹用basic寫了一個判斷條碼的小程式
但是有一個問題發生 就是第一次讀的時候都正常
但是換到第二次的時候 就會少讀一碼
我寫的如下
aa:
CLS
a$ = "LC55BY23200"
LOCATE 20, 20: PRINT "pass key"
C$ = INPUT$(11)
IF a$ = C$ THEN GOTO bb
GOTO cc
cc:
CLS
PLAY "gggg"
LOCATE 20, 20: PRINT "error"
PRINT C$
END
bb:
CLS
PLAY "c"
goto aa

請各位大哥幫我看一下好嗎 畢業太久了 都忘記怎麼寫了sorry~!

贊助商連結


edel41
2002-04-23, 09:18 PM

C$ = left(INPUT$(12),11)
C$ = right(INPUT$(12),11)
看看

妹妹
2002-04-24, 11:28 PM
謝謝你 但是我把這兩行打進去以後 basic顯示錯誤的指令
還有誰能告訴我???