現在の閲覧者数:
CBI Architecture Decision Basic ArchiveNum.01
CBI Architecture Decision Basic Archive Num.02
Discuttion2018CBI
GDI Architecture Decision Basic Archive 2018
Discuttion2018GDI
Communication Architecture Desicision Basic Archive Num.01
BASIC DISCUSSION ARCHITECTURE : CHARACTER BASE INTERFACE NUM.1 BY.DAI FUKUOKA
BASIC DISCUSSION ARCHITECTURE : GRAPHIC DEVICE INTERFACE 2018 JUN.7 AUTHOR BY.DAI FUKUOKA
現在の閲覧者数:
キャラクターベースインターフェイスその２０２０年度版
ＢＡＳＩＣ アーカイブ ディスカッション
100 REM ---------------------
110 REM Opinion DataBase Count Up Program by Dai Fukuoka 2020.07.30
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 DIM CSV$(99999),DB$(10000,21)
160 INPUT"データーベース名を指定してください：",A$
170 OPEN A$ FOR INPUT AS #1
180 FOR I=1 TO 99999:INPUT #1,CSV$(I):IF EOF(1)=-1 THEN X=I:I=99999
190 NEXT:CLOSE #1
200 FOR T=19 TO 5 STEP -2:IF X/T=INT(X/T) THEN Y=T:T=0
210 NEXT:COUNT=X:ARRAGEMENT=Y:Z=X/Y:LOOPLINE=Z
220 PRINT "データーベースは次ぎの値で取り出せます",Y,"行数は次です",COROMN
230 OPEN A$ FOR INPUT AS #1
240 FOR T=1 TO Z:FOR I=1 TO Y:INPUT #1,DB$(T,I):NEXT:NEXT
250 CLOSE #1
260 FOR T=1 TO Z:FOR I=1 TO Y:PRINT DB$(T,I);:NEXT:NEXT
270 INPUT "中身は以上で宜しいでしょうか Yes=0 No=1：",A:IF A=0 THEN *WROTE
280 *FINISH END
290 *WROTE
300 INPUT "データーベースの入力をします",B$
初歩的なシーケンシャルファイルのモジュールです。２０２０年７月３０日一日で製作したプログラムです。
暫くプログラミングを休んでいましたが、更新に至りました。
１４０行は初期化、１５０行は配列変数の定義、１６０行は対象データーベースのファイル名の指定。指定先を間違えるとエラーが出ます。指定先は拡張子およびドットが必要です。
１７０行は入力シーケンシャルのオープン フォーに依る インプットのオープンをします。データを取り出せます。最も簡素なデーターベースは二次元データーベースを使用しないものです。その場合９９９９９まで全てのカラムが収納されます。変数CSV＄（データー順番号）と成ります。EOF（オープン環境変数＃１は１）で終端を確認して読み過ぎエラーを防ぐ為にその時データーベース番号９９９９９にする事によりIF条件分岐に依るTHENでループをGOTO行移動で離脱するのではなくこれをFOR繰り返しの上限値を詰める事で終らせます。また行番号２００番では１９から３までの奇数の配列の二次元変数が分ります。１を２、４、８、１６等でかけた数字は、全て２で割れるので、此れは奇数のデータの二次元配列しか取り出せません。
行番号２３０行から２５０番は２次元配列変数DB＄の入力を FOR INPUT記述により先ほどCSV＄で入力したのと同じように、今度は、縦横の２次元のドローデーターベースをセットします。まだ書き込めませんからFOR
OUTPUTはしません。
２６０行（番）は実際にプリント関数にて二次元配列のものをプリント DB＄（一次配列X、二次配列Y）を；指定で表示します。；＝セミコロンで区切る事で改行の無いシームレスに表示できます。
２８０行（番）はEND関数によって実際に修了します。３００行（番）はデーターベースの開始の宣言をしようとしています。まだ此のモジュールはソフトとして官全体ではないので此処で終了しますからFOR
OUTPUTは次回の講義の課題とさせていただきます。
キャラクターベースインターフェイスその２０１８年度版
ＢＡＳＩＣ アーカイブ ディスカッション
解説
index.html
戻る↑
Timer Set on Aram,Buzzer on Beep Loop Seting Times.
100 REM ---------------------
110 REM Aram Program by Dai Fukuoka 2018.05.09
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 A$=TIME$:FOR I=0 TO 1 STEP 0:IF TIME$="07:40:00" THEN I=1:BEEP:BEEP:BEEP:BEEP:BEEP:BEEP:END
160 NEXT
Suptport Attend Go to That Hospital's, Wake Up Beep Sound on Timming on
Get Up And Stand by Attend.Command Line 140,Standard Setting at Source
Coode
Command Line 150,Let Timmer Variable Value of A$ Let Times at Scond Process,Catch
on Timmer in AM 7:40 Hour and Minute Set with Start Up Stand up Wake Timer
and Buzzer of BEEP count 5 Aram Timer.That Timmer is Program at Wake up
Aram Source Coode.Statement of End Command is Close Program at on Stand
by "Beginner's All-purpose Symbolic Instruction Code" at Those
Standard Command Prompt.
このプログラムは初期化と、起床時間のブザー音で知らせるタイマーを朝の７時４０分に出発準備をする例文のプログラムソフトです。単純な構造になっており、変数”Ａ＄”にタイマーをセットする事で、ＦＯＲによる無限ループによって、ビープ音で知らせて、ＥＮＤにて終了します。病院の通院の８時１０分発着発のバスを７時４０分から出発して待合します。
100 REM ---------------------
110 REM SearchAscii Program by Dai Fukuoka 2018.07.15
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 DIM STRAIGHT$(390000):DIM HITCOUNT(390000):DIM CASEFILE$(2,99999)
160 INPUT "Open Sequential File Type of CSV Data Base Files : (FileName) ",A$
170 REM ON ERROR GOTO *ERRORSTOP:GOTO *SKIP1
180 REM *ERRORSTOP PRINT "No File Name Error";ERR:END
190 *SKIP1
200 OPEN A$ FOR INPUT AS #1:COUNT=1:WHILE EOF(1)=0:INPUT #1,STRAIGHT$(COUNT)
210 COUNT=COUNT+1:WEND
220 ENDCOUNT=COUNT:COUNT=1:PRINT "This DataBase Catch Out Conut of";ENDCOUNT-1
230 INPUT "Definition Type Sarch Words (2Byte):",B$:WLENGTH=LEN(B$):PRINT "Condition :";B$
240 FOR I=1 TO ENDCOUNT-1:FOR T=1 TO LEN(STRAIGHT$(I))
250 IF MID$(STRAIGHT$(I),T,WLENGTH)=B$ THEN HITCOUNT(I)=HITCOUNT(I)+1
260 NEXT T,I
270 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE PRINT I;"Result";HITCOUNT(I);",";
280 NEXT:PRINT
290 COUNT=1:FOR I=1 TO ENDCOUNT-1:IF NOT HITCOUNT(I)=0 THEN PRINT COUNT;STRAIGHT$(COUNT);:I=ENDCOUNT
300 NEXT
310 INPUT"Are You Hope All Data Base File Up List(Condition Print)(Y:0/N:1)",A:IF A=1 THEN *SKIP3
320 FOR D=1 TO ENDCOUNT-1
330 IF HITCOUNT(D)=0 THEN ELSE CASEFILE$(2,D)=STRAIGHT$(D):PRINT CASEFILE$(2,D)+" ";
340 NEXT D
350 *SKIP3
360 OPEN "SA18.txt" AS #2:CLOSE #2
370 OPEN "SA18.txt" FOR OUTPUT AS #2
380 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE WRITE #2,CASEFILE$(2,I);
390 NEXT I:CLOSE #2
Saerch Words and Data Base Read in Common is Count and Count After Type
and Type Looking InvestiGate.User is Input Typing Any Clause.User Hope
Farvorite Word Quick Search This Program.Analyse Result Data Base Contents.Seach
ITEM's Conteiner SA18.txt File is Write with Reference txt.
探している文と、データーベースを読み込む共通の数と数、その後の文と文を見て調べる。使用者は入力して幾つかの箇条使用者は希望する好きな文をすばやく調べるこのソフトです。解析する結果のデーターベースの内容。探した項目は、ＳＡ１８．ｔｘｔのファイルに書いて一緒に参照するｔｘｔ
100 REM ---------------------
110 REM GuestArragement by Dai Fukuoka 2018.08.30-09.08
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 DIM CSV$(27000):DIM SORTNUM$(255):DIM NEWCSV$(27000):DIM LETSORT$(255):DIM ALPHABET$(255):DIM NUM(27000):DIM TOP(27000):DIM NEWNUM(27000):DIM TWO$(27000,2)
160 INPUT "CSVデーターベースのファイル名を拡張子付きで書いてください",FLN$
170 OPEN FLN$ FOR INPUT AS #1
180 FOR I=1 TO 27000:IF EOF(1)=0 THEN INPUT #1,CSV$(I)
190 IF EOF(1)=-1 THEN ENDPERIOD=I:I=27000
200 NEXT:CLOSE #1
210 IF ENDPERIOD=1 AND CSV$(1)="" THEN PRINT "ファイルが空です"
220 DATA "あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをん"
230 READ B$:FOR I=1 TO 46:LETSORT$(I)=MID$(B$,I*2-1,2):NEXT
240 DATA "アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲン"
250 READ A$:FOR I=1 TO 46:LETSORT$(I+46)=MID$(A$,I*2-1,2):NEXT
260 DATA "AIUEOKaKiKuKeKoSaSiSuSeSoTaTiTuTeToNaNiNuNeNoHaHiHuHeHoMaMiMuMeMoYaYuYoRaRiRuReRoWaWoNn"
270 READ C$:FOR I=1 TO 5:ALPHABET$(I)=MID$(C$,I,1):NEXT
280 FOR I=1 TO 42:ALPHABET$(I+5)=MID$(C$,(I*2)+4,2):NEXT
290 FOR I=1 TO ENDPERIOD
300 FOR T=1 TO 5:IF NUM(I)=0 AND MID$(CSV$(I),1,1)=ALPHABET$(T) THEN NUM(I)=92+T
310 NEXT
320 FOR T=1 TO 42:IF NUM(I)=0 AND MID$(CSV$(I),1,2)=ALPHABET$(T+5) THEN NUM(I)=97+T
330 NEXT
340 FOR T=1 TO 92:IF NUM(I)=0 AND MID$(CSV$(I),1,2)=LETSORT$(T) THEN NUM(I)=T
350 NEXT
360 NEXT
370 LET R=1:FOR I=1 TO 139:FOR T=1 TO ENDPERIOD
380 IF NUM(T)=I THEN NEWCSV$(R)=CSV$(T):R=R+1
390 NEXT:NEXT
400 OPEN "sortExport.txt" AS #1
410 IF NOT EOF(1)=0 THEN ENDOFFILE=1
420 CLOSE
430 OPEN "sortExport.txt" FOR OUTPUT AS #1
440 FOR I=1 TO ENDPERIOD:WRITE #1,NEWCSV$(I):NEXT
450 CLOSE #1
460 FOR I=1 TO ENDPERIOD:PRINT NEWCSV$(I);:NEXT
470 PRINT "Result of Sort."
480 INPUT "on Enter Restart.",A$
490 RUN
This is Naming List Book at Japanese is Case of Hiragana,Kana,Roman Order Arragement Reference Firstest Hiragana Second Kana Next Roman Legal Rule.This is Examination Empty File ,And Too Stop on Case with Restarting,If Empty Case is Have File Name True That Touch Type File Name is No Error and Can ReStart.Command Line : 220 is Sort Arragement DataBase Reading Start,That File Put Exchange Word Number is Result 1 to 139 Arragement Changing Top Word Name at Nubmber.ReUse and Change Cycle Alphabet Arragement Remake If Can Your Technique and ABC Sort Arragement ReChange.Result is Display with Export Txt File,This is Note Pad Examination and Change Arragement Result See You Result on Note Pad Applette to "sortExport.txt".
このソフトは日本人名簿を並び替えます。並び替えを日本語でひらがな、カタカナ、ローマ字に並び替えるソフトです。Ｒｅａｄで順次、ソート項目を読み込み、ＤＡＴＡから文字配列を抽出します。応用すれば、ＡＢＣ順に並び替える事もできます。結果は、表示され、新しくソートエクスポートと言うＣＳＶデータ型でＴＸＴ形式のメモパッドで読み込み可能です。主に日本語の名前の並び替えに有効な使い道があります。