untitled - PDF 無料ダウンロード

F-BASIC p2 p4 p5 p6 p7 p7 p7 p22 OLE p26 p26 p27 RS-232C p31 p33 p38 p50 p52 p52 p54 p59 p61 p70 p73 p86 p90 p98 p100 GP-IB p101 p103 1

FB00001 DOS/V PC-9801 FB00002 OS OS Windows(R) 95 F-BASIC V6.3 F-BASIC V6.0 F-BASIC 97 V5.0 F-BASIC V4.1 Windwos(R) 98 FB00003 Windows(R)NT4.0 (R) Windows(R)20 00 Windows(R)M e Windows(R) XP FB00004 1 2

FB00005 F-BASIC F-BASIC V6.3 L102003 2 1 FB00006 F-BASIC V6.0 F-BASIC V6.3 F-BASIC V6.3 F-BASIC V4.1F-BASIC V6.0 F-BASIC [] [] FB00007 F-BASIC V4.1F-BASIC V6.0 F-BASIC V6.3 FB00008 Windows F-BASIC Windows Windows 3

FB01001 F-BASIC FM WORLDhttp://www.fmworld.net/ [][] F-BASIC V6.3 L10 L10 U003 F-BASIC V6.0 L10 L10U002 F-BASIC97 V5.0 F-BASIC V4.1 L10A L10A U001 L10 L10A U004 Windows(R)2000Windows(R)Me 4

FB10001?"/<>* +,;=[]!#$%&'()@^` {}~ FB10002 SETUP.EXE OS 5

FB20001 [02] F-BASIC 1 [][] FB20002 F-BASIC 1 [][] FB20003 RICHED32.DLL RICHED32.DLL Windows Windows Windows Internet Explorer RICHED32.DLL 6

FB21001 FB22001 FB22002 OS FB23001 N88-BASIC GOTO 7

FB23002 RENUM F-BASIC FB23003 N88-BASIC MS-DOS N88(DISK)BASIC MS-DOS NEC MS-DOS V6.2 FILECONV.EXE FB23004 BASIC (*.EXE) FB23005 1N-88BASIC 2LOAD "" 3SAVE "",A 8

FB23006 MS-DOS BASIC F-BASIC F-BASIC CNVF21.EXE F-BASIC F-BASIC F-BASIC F-BASIC BASIC N88BASIC N88-BASIC F-BASIC V6.3 9

N88-BASIC N88-BASIC F-BASIC V6.3 CVI CVI98 MKI$ MKI98$ CVS CVS98 MKS$ MKS98$ CVD CVD98 MKD$ MKD98$ #include "F1A0LWIC.BI" N88-BASIC N88-BASIC DD1%=CVI(ZX1$) DD2#=CVD(ZX2$) F-BASIC V6.3 #include "F1A0LWIC.BI" DD1%=CVI98(ZX1$) DD2#=CVD98(ZX2$) QuickBASICMSBASIC 10

QUICKBASIC F-BASIC V6.3 QUICKBASIC QUICKBASIC F-BASIC V6.3 CVI CVIV MKI$ MKIV$ CVL CVLV MKL$ MKLV$ CVS CVSV MKS$ MKSV$ CVD CVDV MKD$ MKDV$ #include "F1A0LWIC.BI" 11

QUICKBASIC QUICKBASIC DD1%=CVI(ZX1$) DD2#=CVD(ZX2$) F-BASIC V6.3 #include "F1A0LWIC.BI" DD1%=CVIV(ZX1$) DD2#=CVDV(ZX2$) F-BASIC86HG F-BASIC86HG F-BASIC V6.3 12

F-BASIC86HG F-BASIC86HG F-BASIC V6.3 CVS CVS2 MKS$ MKS2$ CVD CVD2 MKD$ MKD2$ #include "F1A0LWIC.BI" F-BASIC86HG F-BASIC86HG DD1%=CVI(ZX1$) DD2#=CVD(ZX2$) F-BASIC V6.3 #include "F1A0LWIC.BI" DD1%=CVI2(ZX1$) DD2#=CVD2(ZX2$) 13

MS-DOS STEP 1 [(P)]-[(N)...] 1-1".MAK"[OK](: FILEREAD.MAK ) 1-2 STEP 2 [(P)]-[(A)...] 14

2-1 [OK] STEP 3 [(P)]-[(A)...] 3-1[] 15

3-2F-BASIC V6.3 LIB 3-3"F1A0LC63.LIB"[] 3-4[]"F1A0LC63.LIB" [OK] 16

3-5MAK "F1A0LC63.LIB" STEP 4 []-[(O)...] 4- [OK](: MAIN.BAS ) 1 4-2 17

STEP 5 4-3 #include "F1A0LWIC.BI" CVI CVSCVLCVDMKI$MKS$MKL$MKD$ BASIC BASIC CVI CVL CVS CVD MKI$ MKL$ MKS$ MKD$ N88-BASIC CVI9 8 QUICK BASIC F-BASIC86 HG CVI V - CVS9 8 CVL V CVS V CVD9 8 CVD V MKI98 $ MKIV $ - MKLV $ CVL 2 CVS2 CVD2 MKL2 $ MKS98 $ MKSV $ MKD9 8$ MKDV $ MKS2$ MKD2 $ [(F)]-[(S)...] STEP 6 [(P)]-[(M)...] 18

6-1[][>>(R)] 6-2[] [OK] 6-3MAK STEP 7 [(P)]-[(S)...] 19

STEP 8 [(C)]-[(A)] 8-1[OK] 8-2 F-BASIC F-BASIC V6.3 F1A0LC63.LIB F-BASIC V6.0 F1A0LC60.LIB F-BASIC97 V5.0 F1A0LWIC.LIB F-BASIC V4.1 F1A0LWIC.LIB 20

FB23007 INP OUT Windows FB23008 FB23009 GOTO FB23010 CVx05@ ' ) GOTOP 100 100 21

FB30001 (*.EXE)(*.DLL) SYSTEM FB30002 OS SYSTEM Windows95Windows98WindowsMe C: WINDOWS SYSTEM WindowsNT4.0Windows2000 C: WINNT SYSTEM32 C: Windows system C OS FB30003 F-BASIC 22

FB30004 1 F-BASIC 2 [][] 3 [] OK 4 23

FB30005 ***.exe - DLL F1A0***.DLL *** SYSTEM SYSTEM F1A0RN63.DLL F-BASIC V6.3 F1A0RW63.DLL F1A0RO63.DLL OLE F1A0RI63.DLL F-BASIC V6.0 F1A0RN60.DLL F1A0RW60.DLL F1A0RO60.DLL OLE F1A0RN50.DLL F-BASIC97 V5.0 F1A0RW50.DLL F1A0RO50.DLL OLE F-BASIC V4.1 F1A0RWN4.DLL F1A0RWW4.DLL F1A0RWO4.DLL OLE 24

FB30006 DOS/V PC-9801 PC-9801 DOS/V 25

OLE FB40001 OLE LINK : fatal error LNK1181: "F1A0RO**.LIB OLE FB40002 OLE ***.exe - DLL F1A0RO**.DLL *** OLE FB41001 LINK : fatal error LNK1181: "F1A0RI63.LIB 26

FB41002 ***.exe - DLL F1A0RI63.DLL *** FB41003 InternetAutoDialHangUp WinInet.DLL JPEG Internet Explorer ver.5.5 Internet Explorer FB42001 OPEN [64] 27

open"file"foroutputas#1 open"file"forcreateas#1 open"file"forbinoutas#1 open"file"forbinio as#1 truncate #1 28

FB42002 Microsoft Excel Excel CSV \\\\ Excel Excel CSV(*.CSV) FB42003 F-BASIC N88-BASIC FILES #include "FILE.BI" 29

FB42004 N88-BASIC FB23006 FB42005 N88-BASIC N88-BASIC F-BASIC INPUT FB42006 FIELD 2 FIELD 2 30

(RS-232C) FB43001 RS-232C BAUD FB43002 CHR$(&H11) CHR$(&H13) XON/OFF OPEN XON/OFF FB43003 RS-232C DTR 31

FB44001 ***.exe - DLL F1A0***.DLL *** SYSTEM SYSTEM FB30005 F-BASIC [][] F-BASIC [] FB44002 F-BASIC F-BASIC END INPUT STOP ) print "1+2=";1+2 end ) print "1+2=";1+2 stop End ' 33

FB44003 SHELL SHELLEXECUTE ftp www Windows NT(R)4.0 Windows(R)98 SHELL SHELLEXECUTE ftp www Internet Explorer shell "ftp.exe" ' shell ". ftp.exe" OS ftp http SHELL SHELLEXECUTE "ftp:""http:" shell "www.fujitsu.com/" ' shell "http://www.fujitsu.com/" FB44004 RTN 16bit Windows95Windows98 SHELL SHELLEXECUTE 16bit 0 34

FB44005 SHELL SHELLEXECUTE 2 ) Microsoft Word 2 Internet Explorer 2 FB44006 SHELL [63] SHELL ) shell "notepad.exe readme.txt" ) shell "notepad.exe","readme.txt" FB44007 SHELL SHELL 0 ) shell "test.exe",,0 F-BASIC V6.3 35

FB44008 SHELL F-BASIC V6.0 F-BASIC V6.3 shell "test.exe",,,1 FB44009 SHELL DOS MS-DOS DOS DOS Windows(R)95 DOS FB44010 SHELL Windows Windows(R)95Windows(R)98 36

FB44011 RUN [55] RUN BASIC (*.bas)(*.exe) ) run "test.bas" ) run "test.exe" FB44012 F-BASIC Ctrl C FB44013 1 2[] [][] 37

[] Alt PrintScreen FB44014 ***.exe - DLL SHLWAPI.DLL *** F-BASIC V6.0 L10 Windows(R)95 Windows DLL Internet Explorer3.0 F-BASIC V6.0 L10 U001 FB45001 LPRINT Windows []-[]-[] F-BASIC V5.0 LPRINT TYPE LPRINT TYPE "DC" 38

F-BASIC V4.1 Windows LPRINT FB45002 LPRINT Windows LPRINT MS-DOS LPRINT TYPE Windows LPRINT TYPE "DC" F-BASIC V4.1 LPRINT TYPE "DC" (README.TXT) FB45003 LPRINT F-BASIC V5.0 LPRINT TYPE : Windows FM LPRINT WIDTH LPRINT WIDTH "LPT3:" 0 LPRINT TYPE "TEXT""ESC/P""PC-PR" &h80&hff LPRINT TYPE "RAW" 39

) lprint chr$(&h1b,&h21,&h80); lprint "ABC"; lprint chr$(&h1b,&h21,&h0); ) lprint type "RAW" lprint chr$(&h1b,&h21,&h80); lprint type "ESC/P" lprint "ABC"; lprint chr$(&h1b,&h21,&h0); FB45004 LPRINT TYPE "ESC/P" LPRINT TYPE "RAW" 1 LPRINT TYPE "RAW" LPRINT TYPE "RAW" FB45005 FB45006 OPEN OPENPRINTER Windows(R)98,Windows(R)95 1 []-[]-[] 2 3 []-[] 4 [] 40

5 [] 6 ( SERVER1 PRINTER1) (LPT2:)[OK] 7 [](LPT2:) [OK] 8 OPEN"LPT2:" WindowsNT(R)4.0 "Ne01:" "Ne99:" FB45007 F-BASIC [][] LPRINT F-BASIC [(F)]-[(U)...] LPRINT LPRINT Windows [ ]-[(S)]-[(P)][] FB45008 LPRINT CHR$(12) lprint chr$(12); FB45009 WIDTH WIDTH "LPT3:" ' LPRINT width "LPT3:",0 lprint ABCDEFGHIJKLMNOPQRSTUVWXYZ 41

FB45010 B4 WIDTH WIDTH LPRINT 1 width "LPT3:",120 ' 120 lprint "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 2 width lprint 120 ' 120 lprint "ABCDEFGHIJKLMNOPQRSTUVWXYZ" [] FB45011 F-BASIC V6.3 1 42

2 FB45012 WINHARDC WINHARDC Windows #include "WINDOWS.BI" #include "WINDOWS.BI" circle(100,100),100 WINHARDC stop end FB45013 WINHARDC #include "WINDOWS.BI" circle(100,100),100 WINHARDC,1 ' 1 stop end 43

FB45014 FB45006 44

FB45015 SETFONTSIZE ) FB45016 SETFONTNAME "" """SYSTEM" "MS ""MS " MSMS() 1 45

) 46

FB45017 SETUPPRINTER OPENPRINTER SETUPPRINTER OPENPRINTER OPENPRINTER SETUPPRINTER ) A=PRINTER1.SETUPPRINTER PRINTER1.OPENPRINTER "LPT2:" SETUPPRINTER LPT1: F-BASIC V6.3 OPENPRINTER SETUPPRINTER ) A=PRINTER1.SETUPPRINTER PRINTER1.OPENPRINTER "$SETUPPRINTER" SETUPPRINTER 47

FB45018 LPRINT TYPE "DC" LPRINTSETCOLOR LPRINTSETFONT LPRINTSETMARGIN LPRINTSETPITCH LPRINTSETPOS LPRINTDRAWLINE LPRINTFILLRECT #include "WINDOWS.BI" F-BASIC V6.3 48

(1) (2) LPRINT TYPE "RAW""ESC/P""PC-PR" 49

FB46001 12 6 15 BCD PRINT USING FORMAT$ BCD print using : 2 10 1/3 0.1 2 0.1 0.1 0.01 100 1 50

10 A=1/3 B=A*3 B 1 3 10 A 0.333 B A 3 0.999 1 6 10 A 0.333333 B A 3 0.999999 1 1 1/3 10 10 10 2 2 2 BCD 10 10 BCD FB46002 PRINT USING FORMAT$ 51

FB48001 [76] FB49001 INKEY$INPUT INKEY$INPUT INKEY$INPUT FB49002 SETIMEMODE ) FB49003 PC-9801 109 52

109 0255 F-BASIC V6.3 Ctrl C 53

FB50001 80 25 FB50002 FB61001 1 MAINFORM 2 [] 3 [] 4 SHOWWINDOW 0 54

"HIDUKE.TXT" FB50003 640400 WINDOW 640x400 80 25 640400 55

FB50004 FB50005 GET@ GET@ 1 1 56

40+*4+((*+31) 32)*4* 2 2 1 16 16 4 256 256 8 65536 3 16 161777216 0 24 42949672963 32 2 1 / 1 1 2 4 4 8 40 40 256 =40+256*4+((8*40+31) 32)*4*40=2664 =2664/2=1332 FB50006 SAVEFILE 57

FB50007 Windows 58

FB60001 F-BASIC 1F-BASIC 2[][] OK 3 [][] 59

4 [] [] 5[OK] 6[][] 7 FB60002 [76] 60

#include #include ) main.bas draw.sub ) #include #include subpgm subend sub functionend function ) ) subpgm subend subfunctionend function FB61001 F-BASIC 61

1 (*.BAS) circle.bas 2 CIRCLE.MAK 1. [][] 62

2. [OK] 3. 3 CIRCLE.RC 1. [][] 63

2. [](*.RC) [OK] 3. MAINFORM MAINFORM 4 1. [][] 2. [] 64

3. [][] 4. [OK] 65

5. 5 6 [][] FB61002 F-BASIC 80 24 66

WIDTH WIDTH MAXIMIZEWINDOW 132 40 132 124 132 40 WIDTH F-BASIC V6.0 1 MAINFORM MAINFORM 80 24 2 1[ ID]MAINFORM[ ] 2[] [] 67

3MAINFORM 4 FB61003 1F-BASIC 2[][] (*.ico) 3[ ID]MAINFORM[] 68

[] 4 F-BAASIC V6.3 (C: FBASICV63 Sample_B TTICON)C F-BASIC FB61004 80 25 WIDTH WIDTH MAXIMIZEWINDOW 132 124 69

80 25 WIDTH F-BASIC V6.0 1 [ ID]MAINFORM[ ] 2 []25[]80 3 MAINFORM 4 FB62001 1 2 [][] 3 MAINFORM BUTTON1BUTTON2 FORM2FORM3 1[][] 70

2[][ ][] 3MAINFORM BUTTON1BUTTON2 4 [][] 5[OK] FROM2 45FORM3 6MAINFORM MAINFORM.sub 71

MAINFORM.sub 7MAIN.basMAINFORM.sub MAIN.bas MAINFORM.sub 72

8MAINFORM BUTTON1 FORM2 BUTTON2 FORM3 FB63001 CHR$(13,10) 73

FB63002 STEP1 1-1 [(P)]-[(W)...] 1-2 " "[(M)] (: CTRL1.MAKD: FBASICV63 PROJECT CTRL1) 74

1-3 (CTRL1.MAK)(MAIN.BAS) (MAINFORM.SUB) (MAINFORM.RC) STEP2 2-1 75

2-2 3 2-3 3 3 [(T)]-[(Z)] FB63002 STEP1 1-1 [(P)]-[(W)...] 1-2 " "[(M)] 76

(: CTRL1.MAKD: FBASICV63 PROJECT CTRL1) 1-3 (CTRL1.MAK)(MAIN.BAS) (MAINFORM.SUB) (MAINFORM.RC) STEP2 2-1 2-2 77

3 2-3 3 3 [(T)]-[(Z)] 2-2 3 2-2 78

2-3 STEP3 3-1 MAINFORM [] 3-2 [ ID]"RADIO1" 3-3 """RADIO1""RADIO1" "" Enter 79

3-4 "RADIO2""RADIO3"" """ 3-5 [ ID]"GROUP1" 3-6 """GROUP1""" STEP5 MAIN.BAS 5-1 WAITEVENT WAITEVENT #include "WINDOWS.BI" 80

MAIN.BAS STEP4 4-1 MAIN.BAS MAIN.BAS STEP6 6-1 [] 81

6-2 []"""" MAINFORM.SUB BUTTON1 6-3 BUTTON1 sub BUTTON1_ON() end sub MAINFORM.SUB #include "windows.bi" MAIN.BAS MAINFORM.SUB MAINFORM.SUB MAINFORM.SUB 82

STEP7 7-1 [(C)]-[(A)] MAIN.BAS MAINFORM.SUB 83

MAINFORM.RC (RADIO1 ) (RADIO2 ) (RADIO3 ) (GROUP1 ) (BUTTON1 ) BUTTON1_ON BUTTON1 84

FB64001 FB64002 STEP1 1-1 [(P)]-[(W)...] 1-2 " "[(M)] (: EVENT1.MAKD: FBASICV63 PROJECT EVENT1) 85

1-3 (EVENT1.MAK) (MAIN.BAS)(MAINFORM.SUB) (MAINFORM.RC) STEP2 2-1 86

2-2 2-3 STEP3 3-1 [] 3-2 []"""" 87

STEP4 4-1 []"""" MAINFORM.SUB BUTTON1 4-2 BUTTON1 sub BUTTON1_ON() end sub BUTTON1 STEP5 5-1 WAITEVENT 88

WAITEVENT #include "WINDOWS.BI" STEP6 6-1 [(C)]-[(A)] MAIN.BAS MAINFORM.SUB MAINFORM.RC (BUTTON1 ) BUTTON1_ON BUTTON1 "BUTTON1 " 89

FB65001 STEP1 1-1 [(P)]-[(W)...] 1-2 " "[(M)] (: MENU1.MAKD: FBASICV63 PROJECT MENU1) 90

1-3 (MENU1.MAK) (MAIN.BAS)(MAINFORM.SUB) (MAINFORM.RC) STEP2 2-1 91

2-2 []-[] 2-3 ""[OK] 2-4 (: FORMMENU) 92

2-5 [(F)] "***" 2-6 []""[ ID]"FILE"[] "F" 2-7 [(D)][ (F)]"***" 2-8 []""[ ID]"FILE_DISPLAY"[ ]"D"[(R)] 93

2-9 [OK] 2-10 STEP3 3-1 [] 3-2 [ ID]"MAINFORM"[]"" """FORMMENU" 94

3-3 STEP4 4-1 [ ID]"FILE_DISPLAY"[ ]"""" (:"FILE_DISPLAY_ON") STEP5 5-1 [ ID]"FILE_DISPLAY"[ ]"""" MAINFORM.SUB [(F)]-[(D)] 95

5-2 [(F)]-[(D)] sub FILE_DISPLAY_ON() end sub STEP6 6-1 WAITEVENT WAITEVENT #include "WINDOWS.BI" STEP7 7-1 [(C)]-[(A)] 96

MAIN.BAS MAINFORM.SUB MAINFORM.RC (MAINFORM ) FORMMENU (FILE_DISPLAY ) FILE_DISPLAY_ON (FORMMENU ) ID="FILE" --- ID="FILE_DISPLAY" [(F)]-[(D)]"" 97

FB67001 FB67002 1 F-BASIC 2 [][] 3 [][OK] 98

4 OLE 99

FB70001 Microsoft Access ODBC F-BASIC ODBC (C: FBASICV63 Sample_B ODBC) ODBC.txt ODBC F-BASIC V6.3 C FB70002 F-ISAM F-ISAM F-ISAM F-BASIC F-ISAM (C: Fbasicv63 Sample_B ISAM) ISAM.HLP F-BASIC V6.3 C FB70003 MS-ISAM 100

FB70004 Btrieve F-BASIC (C: Fbasicv63 Sample_B Btrieve) F-BASIC V6.3 C GP-IB FB72001 GP-IB (*.DLL) One Point Lesson GP-IB GP-IB RS-232C/GP-IB RS-232C GP-IB PDF FB72002 GP-IB GP-IB 101

FB72003 GP-IB GP-IB *.DLL C F-BASIC 102

FB90001 PC F-BASIC PC F-BASIC 28 16 16 16 28 PC PC 16 16 256 28 16 16 PC 16 256 16 16 103

FB90002 F-BASIC F-BASIC F-BASIC 16 F-BASIC 16 16 16 16 104