ab.com コミュニティ

どうでもいいことですが、いまは先生じゃなく、生徒やってます。高校の。

追記:僕の場合、ここに来るメンバで「先生」の称号をつけたいのは、イグトランスさんか山本さんあたりですね。

ＫＯＮＩＳＩさん、すごいですね！さすが先生ですね。

コード化していただいたおかげで、質問を何個もしようと思いましたが解決してしまいました。

くだらないことなのですが

Dim A As String,B As Word

のようなことできるんですね。知りませんでした。

毎回、Ｄｉｍを書いていました。

ありがとうございました。

#N88BASIC
Dim A As String,B As Word
*START
Locate 0,0
Input A
If Val(A)>=5000 And Len(A)=4 then'入力文字が4文字で、数値化すると5000以上のとき
	B=Val(A) As Word
	Do
		Input A
		If A="" then Exit Do
		MyFunc1(A)
	Loop
ElseIf InStr(1,A,"/?")<>0 then'文字列内に /? が含まれるとき
	MySub1()
End If
If A="" then goto *End
goto *START
*End
End

Function MyFunc1(A As String)
    '会員情報の書き換えに関する関数
End Function

Sub MySub1()
    '特定文字（この場合 /? ）が含まれていたときに行う関数
End Sub

[code]#N88BASIC
Dim A As String,B As Word
*START
Locate 0,0
Input A
If Val(A)>=5000 And Len(A)=4 then'入力文字が4文字で、数値化すると5000以上のとき
B=Val(A) As Word
Do
Input A
If A="" then Exit Do
MyFunc1(A)
Loop
ElseIf InStr(1,A,"/?")<>0 then'文字列内に /? が含まれるとき
MySub1()
End If
If A="" then goto *End
goto *START
*End
End

Function MyFunc1(A As String)
'会員情報の書き換えに関する関数
End Function

Sub MySub1()
'特定文字（この場合 /? ）が含まれていたときに行う関数
End Sub[/code]
適当に察して書いてみましたが、こんな具合でしょうか？

どんなコードを書いて，どういうエラーが出るのでしょうか？
それによってどうしたらよいかが変わってきますので。
逆に言えばそれがわからないとなんとも言いようがありません。

基本的には

１０　LOCATE0,0：INPUT　文字列

１００　goto 1０

があって、その中間に

２０　判断して、文字列に対応して

　　　１）入力が４文字で、数値化できて、５０００以上だったら、会員番号認識
　　　２）その後の情報は、すべてこの会員番号に関する情報
　　　３）蓄積
　　　　　部分的に、ある文字列が着たら、所定の場所になにかを表示したりいろいろ機能を持たせたい。
　　　４）エンドコードがきたら、１０へ

としたいと思い、いろいろやっているのですが、エラーだらけでうまく行きません。


どなたかご教示お待ちしております。