
T́@֐EXe[gg̎gpW

֐yуXe[gg̎gpD


Abs - ̐ΒlԂlZ֐
        \FAbs(numeric-expression)

        x=-12.345
        y=Abs(x)
        Print "y=";y

        ʁ@y= 12.345


AddItem - Xg{bNX܂́AR{{bNXɍڂǉ郁\bh
        \Fcontrol.AddItem item$[,index%]
                control :ListBox,ComboBox
                item$   :ǉ
                index%  :ǉʒu(0)ASortewꍇ


AppActivate - w^Cg`oANeBuɂXe[gg
        \FAppActivate titletext$
                titletext$:ANeBuɂ`o


Asc - ƂĎw肵̍ŏ̕ASCIIR[hԂ񏈗֐
        \FAsc(stringexpression$)

        a$="ABC"
        x=Asc(a$)
        print "x=";x

        ʁ@x= 65


Atn - ̃A[N^WFgi^WFg̋t֐jԂlZ֐
        \FAtn(numeric-expression)

        x=1
        y=Atn(x)
        print "y=";y

        ʁ@y= .7853982


Beep - Xs[J[炷foCXI/OXe[gg
        \FBeep


CCur - Ɏw肵̏ۂ߂ĂWoCg̒ɕϊ֐
        \FCCur(numeric-expression)
CDbl - Ɏw肵{x̐lɕϊ֐
        \FCDbl(numeric-expression)
CInt - Ɏw肵̏ۂ߂Đɕϊ֐
        \FCInt(numeric-expression)
CLng - Ɏw肵̏ۂ߂ĂSoCg̒ɕϊ֐
        \FCLng(numeric-expression)
CSng - Ɏw肵Px̐lɕϊ֐
        \FCSng(stringexpression)

        c@=CCur(d#)
        d#=CDbl(c@)
        i%=CInt(d#)
        l&=CLng(d#)
        s!=CSng(d#)     'f[^̌^ӎꍇgp


ChDir - w肵hCũftHgfBNgύXXe[gg
        \FChDir pathspec$
                pathspec$   :[drive:][\]directory[\directory]   (Max128)

        Chdir "D:\test"


ChDrive - w肵hCuύXXe[gg
        \FChDrive drivespec$
                  drivespec$  :hCu  "C:","A:"

        ChDrive "A:"


Chr$ - ƂĎw肵ASCIIR[hɑΉ镶Ԃ񏈗֐
        \FChr$(code%)
        NL$=Chr$(13)+Chr$(10)
        Msg$="Hello Visual Basic"
        Msg$=Msg$+NL$+"Welcome to ESOC world
        MsgBox Msg$

        ʁ@Hello Visual Basic
        @@@Welcome to ESOC word


Circle - ~`\bh
        \F[object.]Circle [Step](x!,y!),radius![,[color&][,[start!][,[end!][,aspect!]]]]
                object  :Form,PictureBox,Printer
                Step    :wWJgW(CurrentX,Y)΂ł鎖
                x!,y!   :SW
                radius  :a
                color&  :F(RGB or QBColor)
                start!  :`Jnpx(-2΂2΂܂)
                end!    :`Ipx()
                aspect! :c䗦


Clear - Nbv{[h̓e郁\bh
        \FClipboard.Clear
                Clipboard:Nbv{[hEIuWFNg


Close - t@CfoCXւ̓o͂It@CI/OXe[gg
        \FClose [[#]filenumber[,[#] filenumber]...]


Cls - w肵IuWFNg̍ĕ`̈郁\bh
        \F[object.]Cls
                object  :Form,PictureBox


Command$ - DOSvOĂяoƂ̃R}hCŎw肳ꂽXgԂ֐
        \FCommand$
        If Command$="" Then
           Msg$="no Command-line string"
        Else
           Msg$="Command-line string is:"+Command$
        End If
        MsgBox Msg$

        N@SAMPLEAP.EXE This is string
          Command-line string is:This is string

        N@SAMPLEAP.EXE
          no Command-line string


Const - l╶l̑ɎgL萔錾Xe[gg
        \F[Global] Const constantname = expression [, constantname = expression]...
        Const FALSE = 0
        Const TRUE  = -1


Cos - Ɏw肵l̃RTCԂlZ֐
        \FCos(numeric-expression)
Sin - WAPʂƂpx̃TCԂlZ֐
        \FSin(numeric-expression)
Tan - WAPʂŎw肵px̃^WFgԂlZ֐
        \FTan(numeric-expression)

        Print "Sin 30=";Sin(30*3.141593/180)
        Print "Cos 60=";Cos(60*3.141593/180)
        Print "Tan 45=";Tan(45*3.141993/180)

        ʁ@Sin 30= .500000050000006
              Cos 60= .499999899999984
              Tan 45= 1.00000017320512
        KɎľܓĎgp邱


CurDir$ - JghCuƃfBNg̎o֐
        \FCurDir$[(drive$)]
        di$=CurDir$
        Msg$="Current directory is "+di$
        MsgBox Msg$

        ʁ@Current directory is C:\VB


Date$ - ݂̓t܂ޕԂ֐
        \FDate$
Date$ - ݂̓tݒ肷Xe[gg
        \FDate$ = stringexpression$

        da$=Date$
        Msg$="Now date is "+da$
        MsgBox Msg$

        ʁ@Now date is 10-18-1991


DateSerial - December,30,1899̓vZ(Max Dec,31,2078)
        \FDateSerial(year%,month%,day%)

        d1=DateSerial(1991,10,18)                           (Min Jan,1,1753)
        d2=DateSerial(1800,1,1)
        d3=DateSerial(1900,1,1)
        d4=DateSerial(1899,12,30)
        d5=DateSerial(1753,1,1)
        d6=DateSerial(2078,12,31)
        Print "1:";d1,"2:";d2,"3:";d3,"4:";d4,"5:";d5,"6:";d6

        ʁ@1:33529  2:-36522  3:2  4:0  5:-53688  6:65380


DateValue - DateSerial̕
        \FDateValue(date$)   ...date$="mm/dd/yyyy"

        d1=DateValue("10/18/1991")
        d2=DateValue("1/1/1800")
        d3=DateValue("1/1/1900")
        d4=DateValue("12/30/1899")
        d5=DateValue("1/1/1753")
        d6=DateValue("12/31/2078")
        Print "1:";d1,"2:";d2,"3:";d3,"4:";d4,"5:";d5,"6:";d6

        ʁ@1:33529  2:-36522  3:2  4:0  5:-53688  6:65380


Day - VAtvZ
        \FDay(serial#)
Year - VANZo
        \FYear(serial#)
Month - VA猎vZ
        \FMonth(serial#)
Weekday - VAjZo
        \FWeekday(serial#)

  tVAɕϊt@CȂǂɌ悭ۑł(DateSerial̋t)
        week$="SuMoTuWeThFrSa"
        indate=33529
        d=Day(indate)
        y=Year(indate)
        m=Month(indate)
        w=Weekday(indate)
        Msg$=""+Format$(y,"####")+"/"+Format$(m,"##")+"/"
        Msg$=Msg$+Format$(d,"## ")
        Msg$=Msg$+Mid$(week$,((w-1)*2)+1,2)
        MsgBox Msg$

        ʁ@1991/10/18 Fr


Deftype - ϐFUNCTIONvV[W̃ftHg̃f[^^ݒ肷Xe[gg
        \FDefInt letterrange [,letterrange]...
              DefLng letterrange [,letterrange]...
              DefSng letterrange [,letterrange]...
              DefDbl letterrange [,letterrange]...
              DefCur letterrange [,letterrange]...
              DefStr letterrange [,letterrange]...
        
        DefInt I-N      'INŎn܂ϐ́AƂȂ
        DefStr A-H      'AHŎn܂ϐ́A^ƂȂ


Dir$ - JgfBNgB̎wt@Co
        \FDir$[(filespec)]

        findfil$="*.mak"
        NL$=Chr$(13)+Chr$(10)
        Msg$=" *.MAK File "+NL$
        getfile$=Dir$(findfil$)
        If Len(getfile$) Then
           Do
              Msg$=Msg$+getfile$+NL$
              getfile$=Dir$
              If Len(getfile$)=0 Then Exit DO
           Loop
        Else
           Msg$=Msg$+" not be found"
        End If
        MsgBox Msg$

        ʁ@JgfBNgw肳ꂽt@Cꗗ\


DoEvents - bZ[WfBXpb`֐
        \FDoEvents()

        Msg$="[vI܂ŃvO}l[W̑͂ł܂"
        MsgBox Msg$
        For i%=1 to 5000
           n%=Int(5000*Rnd+1)
        Next i%
        Beep
        Msg$="[vłvO}l[W̑삪\ł"
        MsgBox Msg$
        For i%=1 to 5000
           n%=Int(5000*Rnd+1)
           St%=DoEvents()
        Next i%
        Beep
        MsgBox "All end !"

        ʁ@ŏ̃[v͑̃vO͑łȂ̃[vł
        @@@DoEventsɂ葼̃vO삪\ƂȂ
          }EX|C^ύXĂԂDoEvents𔭍s
              }EX|C^͒ʏ̏Ԃɖ߂


Drag - hbO̊Jn܂́AIw郁\bh
        \F[control.]Drag [action%]
                control :hbOΏۃRg[
                action% :0 hbO~
                         1 hbOJn
                         2 hbOI

                DragMode property 0 ̏ꍇgp
                                  1 ̏ꍇ͎䂷邽ߕsv


EndDoc - v^ɑ΂Ĉ󎚂̏Iʒm郁\bh
        \FPrinter.EndDoc
                Printer :v^[EIuWFNg

                JńANewPage\bh


Environ$ - DosSETR}hŕ\eƓo֐
@@    \FEnviron$(n%)
              Environ$(environmmentstring$)

        idx=1
        NL$=Chr$(13)+chr$(10)
        Msg$="System Environ"+NL$
        Do
           gen$=Environ$(idx)
           If Left(gen$,5)="PATH=" Then
                MsgBox$ gen$+NL$+"̐ݒŃt@CT"
           End If
           Msg$=Msg$+gen$+NL$
           idx=idx+1
        Loop Until gen$=""
        MsgBox Msg$

        ʁ@VXeݒoPATHL΂ɕ\
        @@@ŌɂׂĂ̊ꗗ\


EOF - t@C̏I𒲂ׂt@CI/O֐
        \FEOF(filenumber%)

        Static Array(50)
        NL$ = Chr$(13) + Chr$(10)
        Open "EOFDATAX" For Output As #1
        Print "Write Data"
        For I% = 0 To 49
           wd= Int((500 - 100 + 1) * Rnd + 100)
           Print #1,wd
           Print wd;
           If (i% mod 10)=9 Then Print ""
        Next I%
        Close #1
        Open "EOFDATAX" for Input As #1
        Print "Read Data"
        Indx% = 0:CurrentX=0:CurrentY=0
        Do While Not EOF(1)
           Input #1, Array(Indx%) 
           Print Array(Index%);
           If (Index% mod 10)=9 Then Print ""
           Indx% = Indx% + 1
        Loop
        Close #1
        Msg$ = "The last value read from the data file was "
        Msg$ = Msg$ + LTrim$(Str$(Array(UBound(Array)))) + "." + NL$
        Msg$ = Msg$ + NL$ + "Choose OK to remove the created test file."
        MsgBox Msg$ 
        Kill "EOFDATAX" 

        ʁ@_ɔTO̃f[^t@Cɏ
              ēxt@CI[vt@Cǂݍ
 

Erase - STATIC z̗vfďDYNAMICzɊ蓖Ă
          ǗXe[gg
        \FERASE arrayname [, arrayname...]

        Dim Matrix%(50,50)
        ...
        Erase Matrix%   '


Err,Erl - G[ŃvȌԂm点G[gbsO֐
        \FErr           'G[̔ԍ
              Err = n%      'G[ԍݒ肷
              Erl           'G[̔sԍ
Error - G[^Iɔ胆[U[G[R[h`G[gbsOXe[gg
        \FError errorcode%
Error$ - wG[ԍ̃bZ[Wo
        \FError$[(errorcode%)]

        10 On Error GoTo ErrHandler ' Set up an error handler.
        20 B% = 1
        30 A% = B% \ C% ' Cause a "Divide by Zero" error.
        40 Exit Sub

        ErrHandler:
                Msg$ = "Error number " + Ltrim$(Str$(Err)) + " occurred at line "
         Msg$ = Msg$ + Ltrim$(Str$(Erl))+chr$(13)+chr$(10)
                Msg$ = Msg$ + Error$(Err)
         MsgBox Msg$ ' Display error information.
         Resume Next
        End Sub

        ʁ@Error nuMber 11 occurred at line 30
              Division by zero
              ƕ\  sԍȂꍇ́AErl0ƂȂ


Exp - w֐iƂ鐔(x)ׂ̂jvZ鐔lZ֐
        \FExp(x)

        x = 13.2
        y = Exp(x)
        Print "y=";y

        ʁ@y= 540364.8


FileAttr - I[vĂCӂ̃t@C̏Ԃt@CI/O֐
        \FFileAttr(filenumber%,attribute%)
        attribute%=1    't@C[ho
        attribute%=2    't@Cnho
        t@C[h(߂l)
                1  
                2@o
                4@_ANZX
                8@ǉ
               32@oCi


Fix - ƂĎw肵̏؂̂ĐԂlZ֐
        \FFix(numeric-expression)

        a=1.23 : b=0 : c=-23.5
        Print Fix(a);
        Print Fix(b);
        Print Fix(c)

        ʁ@ʂ 1 0 -23 ƕ\
              ́A؂̂Ă


FreeFile - Ɏgp\ȃI[vԍo֐
@@    \FFreeFile

        NL$ = Chr$(13) + Chr$(10)
        FileNum% = FreeFile
        Open "FilAttX.dat" For Append As FileNum%
        Handle% = FileAttr(FileNum%,2)
        Select Case FileAttr(FileNum%,1)
           Case 1: Mode$ = "Input"
           Case 2: Mode$ = "Output"
           Case 4: Mode$ = "Random"
           Case 8: Mode$ = "Append"
           Case 32:Mode$ = "Binary"
        End Select
        Close FileNum%
        Msg$ = "File handle " + LTrim$(Str$(Handle%)) + " was used to open "
        Msg$ = Msg$ + "FILATTX.DAT for " + Mode$ + "." + NL$ 
        Msg$ = Msg$ + "Choose OK to delete the created test file."
        MsgBox Msg$
        Kill "FILATTX.DAT"

          t@CI[ṽ[hmFĂ
              File handle 5 was used to open FIITTX.DAT for
              Append.
              Choose OK to delete the created test file.
              ƕ\(handle5Ƃ͌Ȃ)


Function...End Function - FUNCTIO NvV[W\閼OAp[^A
        R[h錾Xe[gg
        \F[Static]Function globalname [(argumentlist)][As Type]
                [statements]
                [globalname = expression]
                [Exit Function]
                [statements]
              End Function


Format$ - tҏWs֐
@@    \FFormat$(numeric-expression[,fmt$])

        NL$ = Chr$(13) + Chr$(10)
        Msg$ = "Today's date is " + Format$(Now, "ddddd") + "." + NL$
        Msg$ = Msg$ + "The current time is " + Format$(Now, "ttttt")
        Msg$ = Msg$ + "."
        MsgBox Msg$
        Value# = Int((4001) * Rnd - 2000)
        Select Case Sgn(Value#) ' Evaluate sign of random number.
           Case -1: Desc$ = "negative"
           Case 0: Desc$ = "zero"
           Case 1: Desc$ = "positive"
        End Select
        Msg$ = "The number to be formatted is " + Desc$ + "." + NL$
        Msg$ = Msg$ + "number is displayed as: "
        Msg$ = Msg$ + Format$(Value#, "#,##0.00;(#,##0.00)")
        MsgBox Msg$

        ʁ@݂̓tƎԂUSAtH[}bgŕ\
              ėɂ-2000  2000𔭐̃TC
              }CiX́A()tŐ\vX̏ꍇ()ŕ\
        ̑eҏW@


Get - fBXNt@C̓e_ANZXt@C̃obt@ϐ
        ǂݍރt@CI/OXe[gg
        \FGet [#]filenumber%,[recordnumber&],recordvariable
Put - ϐ⃉_ANZXt@C̃obt@̓et@Cɏ
        t@CI/OXe[gg
        \FPut [#]filenumber%,[recordnumber&],recodevariable

        Dim ClientName As String * 20
        NL$ = Chr$(13) + Chr$(10) 
        Msg$ = "Enter a name, using whatever form you like." + NL$ + NL$
        Msg$ = Msg$ + "Press 'Enter' with no name to conclude entry."
        Open "FILEIOX.DAT" For Random As #1 Len = Len(ClientName$)
        ClientName$ = InputBox$(Msg$) 
        Do While ClientName$ <> String$(20, " ")
          Put #1, , ClientName$ ' Write to file.
          ClientName$ = InputBox$(Msg$) 
        Loop
        Max% = Loc(1)
        If Max% = 0 Then ' Check if records exist.
           Msg$ = "Your file contains no names." + NL$
        Else
           Msg$ = "Your file contains the following names:" + NL$ + NL$
        End If
        For Indx% = 1 To Max%
           Get #1, Indx%, ClientName$ 
           Msg$ = Msg$ + ClientName$ + NL$
        Next Indx%
        Close #1 ' Close file.
        Msg$ = Msg$ + NL$ + "Choose OK to remove the created test file."
        MsgBox Msg$ ' Display message.
        Kill "FILEIOX.DAT" ' Remove file from disk.

    @  VBasicł́AQBasicFIELDςQCƓlɍ\̂`
          ϐ(Type)Ƀf[^ǂݍݖ́A݂s܂


GetData - Nbv{[hf[^擾郁\bh
        \FClipboard.GetData([format%])
                Clipboard:Nbv{[hEIuWFNg
                format%  :2 rbg}bv(ȗ)
                          3 ^t@C
                          8 @ƗC[W


GetFormat - Nbv{[hf[^`擾郁\bh
        \FClipboard.GetFormat(format%)
                Clipboard:Nbv{[hEIuWFNg
                format%  :&HBF00 Nf[^
                          1      eLXgf[^
                          2      rbg}bv
                          3      ^t@C
                          8      @ƗC[W


GetText - Nbv{[h當擾郁\bh
        \FClipboard.GetText([format%])
                Clipboard:Nbv{[hEIuWFNg
                format%  :&HBF00 Nf[^
                          1      eLXgf[^(ȗ)


Hex$ - Ɏw肵10i16iŕ\ɕϊ镶񏈗֐
        \FHex$(numeric-expression)

        a=Val(text1.text)
        b$=Hex$(a)
        Print a;" hex= ";b$;

        ʁ@text1ɓ͂e16iɕϊďo͂
              1234 hex= 4D2
              &1234 hex= 29C
              &h1234 hex= 1234      Baisc̐l\gpł
              12.345 hex= C
              12.567 hex= D         _͎ľܓ
              -1 hex= FFFFFFFF
              -255 hex= FFFFFF00
              -65536 hex= FFFF0000


Hide - w肵tH[Ȃ悤ɂ郁\bh
        \F[form.]Hide
              form    :tH[

              Showɂ茩悤ɂ
                Aʂ͉Ȃ̂ŒӂvB
                ʂɉʂꍇUnloadgpB


Hour - (MinuteQ)

Input$ - w肵t@CǂݏoԂt@CI/O֐
        \FInput$(n%,[#]filenumber%)

        lincnt=0
        Cls
        FileName$ = InputBox$("What file do you want to examine ?")
        If Len(FileName$) Then 
           Open FileName$ For Input As #1 ' Open file.
           Do While Not EOF(1)
           Char$ = Input$(1, #1) ' Get one character.
           If Char$ <> Chr$(10) Then ' If not line feed add to line.
              LineString$ = LineString$ + Char$
           Else ' If line feed,
              Print LineString$;
              lincnt=lincnt+1
              If lincnt>10 Then Exit Do
              linestring$ = "" 
           End If
           Loop ' Loop if not at end-of-file.
           Close ' Close file.
        End If


InputBox$ - Ps͂̃_CAOgp֐
@@    \FInputBox$(prompt$[,title$[,Default$[,xpos%,ypos%]]])
              prompt$     : {bNXbZ[W
              title$      : ^Cgo[bZ[W
              Default$    : W̓f[^
              xpos%,ypos% : \Jnʒu


InStr - 镶̒ʂ̕ŏɌʒuԂ񏈗֐
        \FInStr([start&,]strexpr1$,strexpr2$)
              strexpr2$strexpr1$ŌʒuԂ
        
        n=InStr("EtoSoftOffice","f")
        Print "Pos1=";n;
        m=InStr(7,"EtoSoftOffice","f")
        Print "Pos2=";m

        ʁ@Pos1= 6 Pos2= 9


Int - Ɏw肵ȉōő̐ԂlZ֐
        \FInt(numeric-expression)

        Const D1=99.3 , D2=99.7 , D3=-99.3 , D4=-99.9
        Print "N    Int  Fix"
        Print D1,Int(D1),Fix(D1)
        Print D1,Int(D2),Fix(D2)
        Print D1,Int(D3),Fix(D3)
        Print D1,Int(D4),Fix(D4)

           N    Int  Fix
               99.3  99  99
               99.7  99  100
              -99.3 -100 -99
              -99.7 -100 -100
        ľܓꍇ́An=Int(numeric-expression + 0.5)Ƃ


Kill - fBXNt@C폜Xe[gg
        \FKILL filespec$


LBound - z̎w肵ŎgƂłY̍ŏlԂǗ֐
        \FLBound(array[,dimension%])

        Dim a(1 To 100,0 To 50,-3 To 4)
        Print LBound(a,1);
        Print LBound(a,2);
        Print LBound(a,3)

        ʁ@1  0  -3


LCase$ - w肵񒆂ׂ̂Ẳpɕϊ镶񏈗֐
        \FLCase$(stringexpression)

        m$="Hello ViSuAL BaSIC"
        print m$;" --> ";LCase$(m$)

        ʁ@Hello ViSuAL BaSIC --> hello visual basic


Left$ - w肵̍[炎oCg̕o񏈗֐
        \FLeft$(stringexpression, n)

        a$="1234567890"
        Print Left$(a$,3)

        ʁ@123 


Len - w肵̃oCg܂͕ϐɕKvȃoCgԂ񏈗֐
        \FLen(stringexpression$)
              Len(variable)

        a$="1234567890"
        Print Len(a$);
        Print Len(d@)

        ʁ@10   8


Let - vZĂ̒lϐɑXe[gg
        \F[Let] variable=expression
              ʏ́Aȗ

        t=0
        For a=1 To 100
           t = t + .1
        Next
        If t = 10 Then Print "EQ";
        If t < 10 Then Print "L";
        If t > 10 Then Print "G";
        Print t;"<> 10 ?"

        ʁ@G  10 <> 10 ?
        \͐ĂlƂ͌܂


Line - ܂́A`\bh
        \F[object.]Line[[Step](x1!,y1!)]-[Step](x2!,y2!)[,[color&],[B[F]]]]
              object  :Form,PictureBox,Printer
              Step    :Jnx1!,y1!΍W(CurrentX,Y)ł邱Ƃ
              x1!,y1! :`JnW
              Step    :Ix2!,y2!x1!,y1!΍Wł邱Ƃ
              x2!,y2! :`IW
              color&  :F(RGB or QBColor)
              B       :`Ƃ
              F       :`hԂƂ


LinkExecute - ccdŃT[oɑ΂ăR}hsv郁\bh
        \Fcontrol.LinkExecute cmdstr$
              control :TextBox,PictureBox,Label
              cmdstr$ :R}h


LinkPoke - ccdŃT[oɃf[^ރ\bh
        \Fcontrol.LinkPoke
              control :TextBox,PictureBox,Label
                

LinkRequest - ccdŃT[oɃf[^v郁\bh
        \Fcontrol.LinkRequest
              control :TextBox,PictureBox,Label


LinkSend - rbg}bvNCAgɂccdM郁\bh
        \Fcontrol.LinkSend
              control :PictureBox,Form


Line Input # - V[PVt@C烌R[hϐɑXe[gg@
        \FLine Input #filenumber%,stringvariable$

        NL$ = Chr$(13) + Chr$(10) 
        Msg$ = "Which drive does your operating system boot from ?"
        Drive$ = UCase$(Left$(InputBox$(Msg$), 1)) 
        If Drive$ = "C" or Drive$ = "A" Then
        FileName$ = Drive$ + ":\CONFIG.SYS"
        If Dir$(FileName$) <> "" Then 
           Open FileName$ For Input As #1 
           Line Input #1, TextLine$ 
        Close #1 ' Close file.
        Msg$ = "The first line of your CONFIG.SYS file is:"
        Msg$ = Msg$ + NL$ + TextLine$ + "."
        Else ' No CONFIG.SYS.
        Msg$ = "Could not find a CONFIG.SYS file on drive "
        Msg$ = Msg$ + UCase$(Drive$) + ":"
        End If
        Else
        Msg$ = "You did not provide a valid boot drive. Systems "
        Msg$ = Msg$ + "normally boot from either A: or C: drive."
        End If
        MsgBox Msg$ ' Display message.


Load - wIuWFNgɓǂݍރXe[gg
        \FLoad object
              object  :Form,control


LoadPicture - rbg}bvACRȂǂ̊G[h
        \FLoadPicture([stringexpression$])

        On Error Resume Next ' Set up error handling.
        Height = 3990: Width = 4890 
        Picture = LoadPicture("PAPER.BMP") 
        If Err Then
           Msg$ = "Could not find the .BMP file."
           MsgBox Msg$ ' Display error message.
           Exit Sub ' Quit if error occurs.
        End If
        Msg$ = "Choose OK to clear the bitmap from the form."
        Msgbox Msg$
        Picture = LoadPicture() ' Clear form.


Loc - t@C̎ɓǂݏʒuԂt@CI/O֐
        \FLoc(filenumber%)

        NL$ = Chr$(13) + Chr$(10) 
        Open "LOCDATAX" For Output As #1 
        For I% = 1 To 500 ' Generate random values.
           Print #1, Int((500 - 100 + 1) * Rnd + 100)
        Next I%
        Close #1 ' Close file.
        Open "LOCDATAX" For Input As #1 
        For I% = 1 To 50
           Input #1, Tmp% ' Read some data, and discard.
        Next I%
        PresentLoc% = Loc(1) ' Get location within file.
        Close #1 ' Close file.
        Msg$ = "50 data elements have been read from a file of 500. "
        Msg$ = Msg$ + "The present location within the LOCDATAX file is"
        Msg$ = Msg$ + Str$(PresentLoc%) + "." + NL$ + NL$
        Msg$ = Msg$ + "Choose OK to remove the sample data file."
        MsgBox Msg$ ' Display message.
        Kill "LOCDATAX" ' Delete file from disk.


Lock...Unlock - I[vĂt@C̈ꕔ܂͑Sɑ΂鑼̃vZX̃ANZX𐧌䂷t@CI/OXe[gg
        \FLock [#]filenumber%[,{record&|[start&] TO end&}]
              [statements]
              Unlock [#]filenumber%[,{record&|[start&] TO end&}]

        Type AccountRec ' Create user-defined type.
           Payer as String * 20
           Address as String * 20
           Place as String * 20
           Owe as Single
        End Type

        NL$ = Chr$(13) + Chr$(10) 
        Dim CustRec As AccountRec
        On Error GoTo ErrorHandler 
        Open "LOCKDAT.DAT" For Random Shared As #1 Len = Len(CustRec)
        CustRec.Payer = "John Smith" 
        CustRec.Address = "1 Maple Street"  
        CustRec.Place = "New York, NY"
        CustRec.Owe = 12! ' Initialize owed amount.
        Put #1, 1, CustRec ' Put record in file.
        Close #1 ' Close the file.

        Open "LOCKDAT.DAT" For Random Shared As #1 Len = Len(CustRec)
        Do
           RecNum% = 1 ' Since there is only 1 record,
           Lock #1, RecNum%  ' Lock the current record.
           Get #1, RecNum%, CustRec 
           Msg$ = "Customer " + RTrim$(CustRec.Payer)
           Msg$ = Msg$ + " currently owes: "
           Msg$ = Msg$ + Format$(CustRec.Owe, "$#,##0.00") + NL$ + NL$
           Msg$ = Msg$ + "Please input net change (+ or - )"
           Change! = Val(InputBox$(Msg$)) 
           CustRec.owe = CustRec.owe + Change!
           Put #1, RecNum%, CustRec 
           Unlock #1, RecNum% ' Unlock the record.
        Loop Until Change! = 0
        Close #1 ' Close the file.
        Cleanup:
        Msg$ = "Transaction complete. Choose OK remove the sample "
        Msg$ = Msg$ + "data file."
        MsgBox Msg$ ' Display message.
        Kill "LOCKDAT.DAT" ' Remove file from disk.
        Exit Sub
        ErrorHandler:
        If Err = 70 Then ' Permission denied error.
           Msg$ = "You must run SHARE.EXE before running this example. Exit "
           Msg$ = Msg$ + "Visual Basic, Exit Windows, run SHARE.EXE, and "
           Msg$ = Msg$ + "reenter Visual Basic to run this example. Do not "
           Msg$ = Msg$ + "shell to  DOS and run SHARE.EXE or you may not be "
           Msg$ = Msg$ + "able to run other programs until you reboot."
        Else  ' Some other error occurred.
           Msg$ = "Error " + LTrim$(Str$(Err)) + " occurred."
        End If
        MsgBox Msg$ ' Display error message.
        Reset  ' Close files, flush buffers.
        Resume Cleanup ' Do an orderly exit.


LOF - w肵t@C̒oCgPʂŕԂt@CI/OXe[gg
        \FLOF(filenumber%)

        NL$ = Chr$(13) + Chr$(10) 
        Open "LOFDATAX" For Output As #1 
        For I% = 0 To 200 ' Generate random values.
           Print #1, Int((500 - 100 + 1) * Rnd + 100)
        Next I%
        Close #1 ' Close file.
        Open "LOFDATAX" For Input As #1 
        FileLength% = LOF(1) ' Get length of file.
        Close #1 ' Close file.
        Msg$ = "The length of the LOFDATAX file just created is "
        Msg$ = Msg$ + LTrim$(Str$(FileLength%)) + " bytes." + NL$ + NL$
        Msg$ = Msg$ + "Choose OK to remove the sample data file."
        MsgBox Msg$ ' Display message.
        Kill "LOFDATAX" ' Delete file from disk.


Log - ƂĎw肵̎RΐԂlZ֐
        \FLog(numeric-expression)
        
        NL$ = Chr$(13) + Chr$(10) 
        Msg$ = Str$(Exp(1)) + NL$
        For I% = 1 To 3 ' Do three times.
           Msg$ = Msg$ + Str$(Log(Exp(1) ^ I%)) + NL$
        Next I%
        MsgBox Msg$ ' Display message.


LSet - PUTXe[gggăf[^ނƂf[^_ANZX
         t@Cobt@Ɋi[邽߂ɎgpB
     @  ϐl߂Ɋi[B
        \FLSet stringvariable$=stringexpression$
              LSet recordvariable1=recordvariable2

        NL$ = Chr$(13) + Chr$(10) 
        TmpStr$ = Space$(40)
        Msg$ = "Here are two strings that have been right and left "
        Msg$ = Msg$ + "justified in a" + RTrim$(Str$(Len(TmpStr$)))
        Msg$ = Msg$ + "-character string." + NL$ + TmpStr$ + NL$
        RSet TmpStr$ = "Right->" ' Right justify.
        Msg$ = Msg$ + TmpStr$ + NL$
        LSet TmpStr$ = "<-Left" ' Left justify.
        Msg$ = Msg$ + TmpStr$ + NL$
        MsgBox Msg$ ' Display message.


LTrim$ - w肵񂩂擪̃Xy[X폜Ԃ֐
        \FLTrim$(stringexpression$)
RTrim$ - w肵̖̃Xy[X폜镶񏈗֐
        \FRTrim$(stringexpression$)

        NL$ = Chr$(13) + Chr$(10) 
        Test$ = "  Test String  "
        Test1$ = LTrim$(RTrim$(Test$)) 
        Msg$ = "The original Test$ """ + Test$ + """ was"
        Msg$ = Msg$ + Str$(Len(Test$)) + " characters long. There were two "
        Msg$ = Msg$ + "leading spaces and two trailing spaces." + NL$ + NL$
        Msg$ = Msg$ + "The Test$ returned after stripping the spaces "
        Msg$ = Msg$ + "is """ + Test1$ + """ and it contains only"
        Msg$ = Msg$ + Str$(Len(Test1$)) + " characters."
        MsgBox Msg$ ' Display message.


Mid$ - ϐ̈ꕔʂ̕ɒu镶񏈗Xe[gg
        \FMid$(stringvariable, start[, length]) = stringexpression
Mid$ - w肵̈ꕔo֐
        \FMid$(stringexpression, start[, length])

        Title$ = "Mid$ Function Demo"
        SpcPos1% = InStr(1, Title$, Chr$(32)) 
        SpcPos2% = InStr(SpcPos1% + 1, Title$, Chr$(32)) 
        WordLen% = (SpcPos2% - SpcPos1%) - 1 
        MidWord$ = Mid$(Title$, SpcPos1% + 1, WordLen%)
        Msg$ = "The word in the middle of Title$ is """ + MidWord$ + """"
        MsgBox Msg$, 0, Title$ ' Display message.


Minute - VAԂ番vZ
        \FMinute(serial#)
Hour - VAԂ玞vZ
        \FHour(serial#)
Second - VAԂbvZ
        \FSecond(serial#)

        Midnight# = TimeValue("23:59:59")
        Instant# = Now ' Get current time.
        HourDiff% = Hour(Midnight#) - Hour(Instant#) 
        MinuteDiff% = Minute(Midnight#) - Minute(Instant#)
        SecondDiff% = Second(Midnight#) - Second(Instant#) + 1
        If SecondDiff% = 60 Then 
           MinuteDiff% = MinuteDiff% + 1 
           SecondDiff% = 0 ' Zero seconds.
        End If
        If MinuteDiff% = 60 Then
           HourDiff% = HourDiff% + 1 
           MinuteDiff% = 0 ' Zero minutes.
        End If
        TotalMinDiff# = (HourDiff% * 60) + MinuteDiff% 
        TotalSecDiff# = (TotalMinDiff# * 60) + SecondDiff%
        TotalDiff# = TimeSerial(HourDiff%, MinuteDiff%, SecondDiff%)
        Msg$ = "There are a total of " + Format$(TotalSecDiff#, "#,##0")
        Msg$ = Msg$ + " seconds until midnight. That translates to"
        Msg$ = Msg$ + Str$(HourDiff%) + " hours," + Str$(MinuteDiff%)
        Msg$ = Msg$ + " minutes, and" + Str$(SecondDiff%) + " seconds."
        Msg$ = Msg$ + " Expressed in standard time notation, it becomes "
        Msg$ = Msg$ + Format$(TotalDiff#, "hh:mm:ss") + "." 
        MsgBox Msg$ ' Display message.


MkDir - DOS𗘗pĐVfBNgXe[gg
        \FMkDir pathname$

        On Error Resume Next ' Set up error handling.
        CurDrv$ = Left$(CurDir$, 2) 
        TmpPath$ = UCase$(CurDrv$ + "\tmp") 
        MkDir TmpPath$ ' Make new directory.
        If Err = 75 Then ' Check if directory existed.
           Msg$ = TmpPath$ + " directory already existed.
        Else
           Msg$ = TmpPath$ + " directory created."
        End If
        Msg$ = Msg$ + " Do you want it removed ?"
        Answer% = MsgBox(Msg$, 4) 
        If Answer% <> 7 Then RmDir TmpPath$ 


Month - (DayQ)

Move - tH[܂́ARg[̈ړs\bh
        \F[object.]Move left![,top![,width![,hight!]]]
                object  :Form,control
                left!   :̋N_W
                top!    :ォ̋N_W
                width!  :̕
                hight!  :c̒


MsgBox - bZ[W{bNX\֐
        \FMsgBox(msg$[type%[,title$]])
              msg$  : \bZ[W                
              type% : {^ƃACR̎   ߂l 1: {^
                   0: {^                      2: {^
                   1:, {^                 3:~ {^
                   2:~,Ďs, {^          4:Ďs {^
                   3:͂,, {^          5: {^
                   4:͂, {^               6:͂ {^
                   5:Ďs, {^               7: {^
                
                  16:STOP ACR\
                  32:? ACR\
                  48:! ACR\
                  64:i(Information) ACR\
                
                   0:{^I
                 256:QԖڃ{^I
                 512:RԖڃ{^I
             title$ : ^Cgo[\bZ[W

        Const MB_OK = 0, MB_OKCANCEL = 1 
        Const MB_YESNOCANCEL = 3, MB_YESNO = 4
        Const MB_ICONSTOP = 16, MB_ICONQUESTION = 32 
        Const MB_ICONEXCLAMATION = 48, MB_ICONINFORMATION = 64
        Const MB_DEFBUTTON2 = 256, IDYES = 6, IDNO = 7 

        Title$ = "MsgBox Demo"
        Msg$ = "This is a sample of a critical error message."
        Msg$ = Msg$ + " Do you wish to continue?"
        DgDef% = MB_YESNO + MB_ICONSTOP + MB_DEFBUTTON2 
        Response% = MsgBox(Msg$, DgDef%, Title$) 
        If Response% = IDYES Then 
           Msg$ = "You chose Yes." 
        Else ' action.
           Msg$ = "You chose No or pressed Enter."
        End If
        MsgBox(Msg$) ' Advise user of


NewPage - v^ɑ΂ĉy[Ww郁\bh
        \FPrinter.NewPage
                Printer :v^EIuWFNg


Now - ݂̓tVAԂŎo
        \FNow

        Today# = Now ' Get current date and time.
        Msg$ = "Today is " + Format$(Today#, "dddd, mmmm dd, yyyy") + "."
        MsgBox Msg$ ' Display message.


Name - DOS𗘗păfBXNt@CfBNg̖OςXe[gg
        \FName oldfilespec$ As newfilespec$

        NL$ = Chr$(13) + Chr$(10) 
        FName1$ = "NMSTMTX.DAT" ' Define filenames.
        FName2$ = "NMSTMTY.DAT"
        TestDir$ = "\TEST.DIR" ' Test directory name.
        Open FName1$ For Output As #1 
        Print #1, "test data" ' Put something in file.
        Close #1
        MkDir TestDir$ ' Make test directory.
        Name FName1$ As TestDir$ + "\" + FName2$ 
        Msg$ = "A new file, " + FName1$ + " has been created "
        Msg$ = Msg$ + "in " + CurDir$ + ". Once created, it was "
        Msg$ = Msg$ + "moved to " + TestDir$ + " and renamed "
        Msg$ = Msg$ + FName2$ + "." + NL$ + NL$
        Msg$ = Msg$ + "Choose OK to remove the test data file and "
        Msg$ = Msg$ + "directory."
        MsgBox Msg$ ' Display message.
        Kill TestDir$ + "\" + FName2$ 
        RmDir TestDir$ ' Remove test directory.


Oct$ - ƂĎw肵l8iŕ\ɕϊ镶񏈗֐
        \FOct$(numeric-expression)
              Print "&H1B́AWi";Oct$(&h1b);"ł"

        ʁ@&H1B́AWi 33 ł


Open - t@CfoCXւ̓o͂\ɂXe[gg
        \FOpen file$[FOR mode][Access access][lock] As [#]filenumber% [Len = reclen%]
              file$   : [pX]t@C
              mode    : Random (_@Read,Write)
                      : Binary (_@Get,Put)
                      : Input  (V[PV)
                      : Output (V[PVo)
                      : Append (V[PVǉó@Print #,Write #)
              access  : Read       (ǂݍݐp)
                      : Write      (ݐp)
                      : Read Write (ǂݏp  Random,Binary,Append)
              lock    : Shared     (L)   
                      : Lock Read  (ǂݍݐL)
                      : Lock Write (ݐL)
                      : Lock Read Write (ǂݏL)
              filenumber : t@Cԍ(1255)
              reclen  : R[h@(Random:128ftHg)

        TestString$ = "The quick brown fox" 
        For I% = 1 To 5
           FNum% = FreeFile ' Determine next file number.
           FName$ = "FILEIOX" + LTrim$(Str$(FNum%)) + ".DAT"
           Open FName$ For Output As FNum% 
           Print #I%, TestString$ ' Write string to file.
        Next I%
        Close ' Close all files.
        Msg$ = "Several test files have been created on your disk. "
        Msg$ = Msg$ + "Choose OK to remove the test files."
        MsgBox Msg$
        Kill "FILEIOX?.DAT" ' Remove test file from disk.


Option Base - z̓Y̍ŏl錾Xe[gg
        \FOption Base n

        Option Base 1 ' Stays in Declarations section.

        NL$ = Chr$(13) + Chr$(10) 
        ReDim A(20) ' Create an array.
        Msg$ = "The lower bound of the A array is" + Str$(LBound(A)) + "."
        Msg$ = Msg$ + NL$ + "The upper bound is" + Str$(UBound(A)) + "."
        MsgBox Msg$ ' Display message.


Point - w肵_̐F擾郁\bh
        \F[object.]Point (x!,y!)
                object  : Form,Picture
                x!      : XWl
                y!      : YWl


Print - ܂́Al`悷郁\bh
        \F[object.]Print [expressionlist][{;|,}]
                object  :Form,PictureBox,Printer
                expressionlist:o͂鐔╶񎮂Ȃ
                {;|,}   :";"͑O̍ڂ̑ŏo͂
                         ","͎̕\̈悩o͂


PrintForm - tH[n[hRs[郁\bhix邵gpsj
        \F[form.]PrintForm
                form    :tH[


Print # - f[^V[PVt@CɏރXe[gg
        \FPrint #filenumber%,expressionlist[{,|;}]
              filenumber%    : t@Cԍ
              expressionlist : o͂鐔l╶
              {,|;}          : ,̏o͈ʒu
                             : ;̃f[^𑱂
                             : L͉s

        NL$ = Chr$(13) + Chr$(10) 
        Open "PRNDATAX.DAT" For Output As #1 
        Print #1, "This is a test of the Print # statement."
        Print #1, ' ŝݏo
        Print #1, "This is the third line in the file."
        Close #1 ' Close file
        Open "PRNDATAX.DAT" For Input As #1 
        Do While Not EOF(1)
           Input #1, FileData$ ' Read line of data
           Msg$ = Msg$ + FileData$ + NL$ 
        Loop
        Close #1 ' Close file
        MsgBox Msg$ ' Display message
        Kill "PRNDATAX.DAT" ' Remove file from disk


PSet - _`\bh
        \F[object.]PSet[Step](x!,y!)[,color&]
              object  :Form,PictureBox,Printer
              Step    :x!,y!΍W(CurrentX,Y)ł邱Ƃ
              x!,y!   :`W
              color&  :F(RGB or QBColor)


Put - (GetQ) 

QBColor - NCbNx[VbNƌ݊̂Fw֐
        \FQBColor(qbcolor%)
              qbcolor% : 0 : Black       8 : Gray
                         1 : Blue        9 : Light Blue
                         2 : Green      10 : Light Green
                         3 : Cyan       11 : Light Cyan
                         4 : Red        12 : Light Red
                         5 : Magenta    13 : Light Magenta
                         6 : Yellow     14 : Light Yellow
                         7 : White      15 : Bright White

        Cls   ' Clear form.
        ScaleHeight = 16 ' Divide form into 16 parts.
        For I% = 0 To 15 ' Draw a colored box.
           Line(0, I%)-(ScaleWidth, I% + 1), QBColor(I%), BF
        Next I%


Refresh - ݂̕\𖳌ɂĕ`v郁\bh
        \F[object.]Refresh
              object  :Form,Control


RemoveItem - Xg{bNX獀ڂ菜\bh
        \Fcontrol.RemoveItem index%
              control :ListBox,ComboBox
              index%  :폜ڈʒu(擪0)


RGB - OF𐔒lŎw肷Fw֐
@@    \FRGB(red%,green%,blue%)
              Color   RGB         red%    green%  blue%
              ------- --------    ----    ------  -----
              Black   &H000000    0       0       0
              Blue    &HFF0000    0       0       255
              Green   &H00FF00    0       255     0
              Cyan    &HFFFF00    0       255     255
              Red     &H0000FF    255     0       0
              Magenta &HFF00FF    255     0       255
              Yellow  &H00FFFF    255     255     0
              White   &HFFFFFF    255     255     255

        Cls  ' Clear form.
        ScaleHeight = 128 ' Divide form into 128 parts.
        For I% = 0 To 126 Step 2 ' Draw a colored box.
           Line (0, I%)-(ScaleWidth, I% + 2), RGB(I%, 64 + I%, 128 + I%),BF
        Next I%


Right$ - w肵̉E[炎̕o񏈗֐
        \FRight$(stringexpression$,n&)

        moji$=Right$("MS-Visual Basic",5)
        Print moji$

        ʁ@Basic


Rnd - OP͈̔͂̒Px̗ԂlZ֐
        \FRnd[(number#)]
              number# < 0 : w肵n̓lԂ
              number# > 0 : n̎̒lԂ(ȗ)
              number# = 0 : OɐlԂ
        
              RandomizeXe[gggpn̕ύXs

        Randomize Now
        For a=1 to 10
           Print Int(Rnd*6)+1;
        Next


ReDim - $DYNAMIC zɊ蓖Ă̈ύX錾
        \FReDim [Shared]variablename(subscripts)[As type][,variablename(subscripts)[AS type]]

        ReDim A(8,3)
        ReDim A(0 To 8,0 To 3)
        ReDim A(8,0 To 3)
        
        Type Card
           Suit As String * 9
           Value As Integer
        End Type
        Dim Deck()
        ReDim Deck(1 To 52) As Card


Reset - ׂẴfBXNt@CN[Yt@CI/OXe[gg
        \FReset

        Reset
        MsgBox "A:hCũfBXNĂB"


RmDir - w肵fBNg폜Xe[gg
        \FRmDir pathname$

        Rc = MsgBox("C:\TEST폜܂B",289,"fBNg폜")
        If Rc = 1 Then
           ChDir "C:\TEST"      '폜fBNgֈړ
           Kill  "*.*"          'fBNgt@CSĂ폜
           ChDir ".."           'ÕfBNgɖ߂
           RmDir "TEST"         'TufBNg폜
        End If                  'g΂ȂRmDir "C:\TEST"ł悢


Rset - Œ蒷ϐɉEl߂Őݒ肷ćAXy[X₤Xe[gg
        \FRSET stringvariable$= stringexpression$

        TmpStr$ = Space$(40)
        Rset TmpStr$ = "Right->"
        Print TmpStr$
        Lset TmpStr$ = "<-Left"
        Print TmpStr$


RTrim$ - (LTrim$Q)


SavePicture - \rbg}bvt@CɕۑXe[gg
        \FSavePicture picture,stringexpression$
              picture :Picture,Image vpeB
              stringexpression$:t@C(.BMP)


Scale - WñXP[ݒ肷郁\bh
        \F[object.]Scale [(x1!,y1!)-(x2!,y2!)]
              object  :Form,PictureBox,Printer
              x1!,y1! :̍Wl
              x2!,y2! :E̍Wl
               
              WlȗƂƂ̍Wnɖ߂


Second - (MinuteQ)


Seek - t@Čݓo͂sĂʒuԂ֐
        \FSeek(flenumber)
Seek - t@C̎ɓǂݏʒuݒ肷t@CI/OXe[gg
        \FSeek [#]filenumber, position

        Type TestRecord  ' Define a record.
           NameField As String * 20
           ScoreField As Single
        End Type

        Dim RecordVar As TestRecord 
        Open "SEEKDATX.DAT" For Random As #1 Len = Len(RecordVar)
        For I% = 1 To 3
           Msg$ = "Enter the student's name."
           RecordVar.NameField = InputBox$(Msg$)
           Msg$ = "Enter the test score for " + RecordVar.NameField
           RecordVar.ScoreField = Val(InputBox$(Msg$))
           Put #1, I%, RecordVar ' Put record on disk.  
        Next I%
        Close #1 ' Close data file.

        Dim FileBuffer As TestRecord 
        Open "SEEKDATX.DAT" For Random As #1 Len = Len(FileBuffer)
        Max% = LOF(1) \ Len(FileBuffer) 
        For I% = Max% To 1 Step -1 
           Seek #1, I% ' Set file position.
           Get #1, , FileBuffer ' Get record.
           Msg$ = "Record #" + Str$(Seek(1) - 1) + " indicates that "
           Msg$ = Msg$ + RTrim$(FileBuffer.NameField) + " achieved "
           Msg$ = Msg$ + LTrim$(Str$(FileBuffer.ScoreField))
           Msg$ = Msg$ + "% on the test."
           MsgBox Msg$ ' Display report of scores.
        Next I%
        Close #1 ' Close the file.
        Msg$ = "Choose OK to remove the test file."
        MsgBox Msg$ ' Display message.
        Kill "SEEKDATX.DAT" ' Remove file from disk.


SendKeys - ANeBuEChEɃL[ʒmXe[gg
        \FSendKey keytext$[,wait%]
                keytext$:ML[f[^
                wait%   :-1 MꂽL[܂ő҂
                          0 ҂킹Ȃ(ȗ)


SetData - f[^Nbv{[hɒu\bh
        \FClipBoard.SetData (data%,[format%])
              ClipBoard:Nbv{[hEIuWFNg
              data%    :Picture or Image vpeB
              format%  :2 rbg}bv(ȗ)
                        3 ^t@C
                        8 @ƗC[W


SetFocus - w肵Rg[ɃtH[JXu\bh
        \Fobject.SetFocus
              object  :Form,control


SetText - Nbv{[hɒu\bh
        \FClipboard.SetText data$,[format%]
              Clipboard:Nbv{[hEIuWFNg
              data$    :ݒ蕶
              format%  :&HBF00 Nf[^
                       :1      eLXgf[^


Sgn - w肵̕ԂlZ֐
        \FSgn(numeric-expression)

        a = -110
        b = 50
        c = 0
        Print Sgn(a),Sgn(b),Sgn(c)

            -1      1       0


Shell - sBASIC̃vO.COM.EXE.BATvODOSR}h
          NBXe[ggNSHELLXe[gg̖̎
        @s
        \FShell(commandstring$[,Windowstyle%])
              Windowstyle:1 ʏN
                        @2 ŏʋN
                    @@@3 őʋN
                          4 ʏNtH[JX
                          7 ŏNtH[JX

        Const TRUE = -1 ' Define TRUE constant.
        X% = Shell("Calc.exe", 1) 
        Msg$ = "The calculator has been started.  Do you want to watch "
        Msg$ = Msg$ + "some calculations on the Calculator ?"
        Answer% = MsgBox(Msg$, 4) 
        If Answer% = 6 Then ' 6 = Yes button chosen.
           For I% = 1 To 100 ' Set up counting loop.
              SendKeys LTrim$(Str$(I%)) + "{+}", TRUE
           Next I%
           SendKeys "=", TRUE ' Get grand total.
           Msg$ = "Choose OK to close the calculator."
           MsgBox Msg$
        End If
        SendKeys "%{F4}", TRUE ' Send Alt+F4 to close Calculator.


Show - tH[\郁\bh
        \F[form.]Show [style%]
              form    : \tH[
              style%  : 0 [hF\˗㐧䂪߂iȗj
                        1 [hLFwtH[܂Ő䂪߂Ȃ


Sin - (CosQ)


Space$ - ̃Xy[XȂ镶Ԃ񏈗֐
        \FSpace$(n%)
              n:ő65535܂

        m$ = Space$(50) + "*"
        Print m$

        ʁ@50̃Xy[X*\


Spc - Print\bhł̃Xy[X\foCXI/O֐
        \FSpc(n%)

        Print #1, Spc(10);FixLen1$;Spc(10);etc$


Sqr - Ɏw肵̕ԂlZ֐
        \FSqr(numeric-expression)
        
        For i = 0 To 9
           For j = 1 To 10
              s = Sqr(i * 10 + j)
              ps$ = Left$(Str$(s) + Space$(6),6)
              Print ps$;
           Next
           Print
        Next

        ʁ@1     1.414 1.732 2     2.236 2.449 2.645 2.828 3     3.162
              3.316 3.464 3.605 3.741 3.872 4     4.123 4.242 4.358 4.472
              .....


Stop - vO̎s𒆎~tXe[gg
        \FStop
        
        rc = MsgBox("~܂H",4)
        if rc = 6 Then Stop

        eXĝݎgpAʏ펞End


Str$ - ̒l𕶎ŕ\lԂ񏈗֐
        \FStr$(numeric-expression)

        Sqr Q


String$ - w肵R[h܂͕̐擪琬镶Ԃ񏈗֐
        \FString$(m&,charcode%)
              String$(m&,stringexpression$)

        For i = 1 To 5
           Print String$(i,"*")
        Next

            *
                **
                ***
                ****
                *****


Tab - Print\bh̒Ńf[^̕\ʒuړfoCXI/O֐
        \FTab(column)
              column:o͌ʒu

        NL$ = Chr$(13) + Chr$(10) 
        Ruler$ = "The vertical lines below identify the print columns:"
        Ruler$ = Ruler$ + NL$ + NL$ + String$(90, "|") + NL$
        Open "TABDATAX.DAT" For Output As #1 
        Print #1, "This is a test of the "; Tab(40); "Tab function."
        Close #1 ' Close the file
        Open "TABDATAX.DAT" For Input As #1 
        Input #1, Msg$ ' Read line from file
        Close #1 ' Close the file
        Msg$ = Ruler$ + Msg$ + NL$ + String$(90, "|")
        Msg$ = Msg$ + NL$ + NL$ + "Choose OK to remove test file."
        MsgBox Msg$ ' Display ruler and tab line
        Kill "TABDATAX.DAT" ' Remove file from disk


Tan - (CosQ)


TextHeight - ̍𓾂郁\bh
        \F[object.]TextHeight(stringpression$)
                object  :Form,PictreBox,Printer
                stringpression$:o͗\蕶


TextWidth - ̕𓾂郁\bh
        \F[object.]TextWhdth(stringpression$)
                object  :Form,PictreBox,Printer
                stringpression$:o͗\蕶


Time$ - Iy[eBOVXe猻݂̎擾֐
        \FTime$
Time$ - DOS𗘗pČ݂̎ݒ肷Xe[gg
        \FTime$ = stringexpression

        Msg$ = "Enter a new time in the form hh:mm:ss"
        NewTime$ = InputBox$(Msg$) 
        If Len(NewTime$) > 0 Then 
           Time$ = NewTime$ ' Set time.
           Msg$ = "System time now set to "
           Msg$ = Msg$ + Time$ + "." 
        Else
           Msg$ = "You did not enter a valid time."
        End If
        MsgBox Msg$ ' Display message.


Timer - ߑOO炻܂łɌo߂bԂ֐
        \FTimer

        Print Time$;Timer

        ʁ@11:55:48 42948.05078125
              11:55:49 42949.1484375


TimeSerial - VAԂvZ֐
        \FTimeSerial(hour%,minute%,second%)
              hour    :0  23
              minute  :0  59
              second  :0  59

        Print "11:00:00=";int(1000 * TimeSerial(11,0,0))

        ʁ@11:00:00= 458


TimeValue - VAԂvZ֐
        \FTimeValue(time$)
              time$   :0:00:00  23:59:59
                      :12:00:00AM  11:59:59PM

        Print Int(100000 * TimeValue("12:00:01AM"))/100
        Print Int(100000 * TimeValue("12:00:01Pm"))/100
        Print Int(100000 * TimeValue("1:00:01PM"))/100
        Print Int(100000 * TimeValue("11:00:01"))/100
        Print Int(100000 * TimeValue("23:59:59"))/100

        ʁ@  .01
                500.01
                541.67
                458.33
                999.98


Type - Pȏ̗vf܂ރ[U[`̃f[^^錾Xe[gg
        \FType usertype
                elementname AS typename
                [elementname AS typename]
                ...
              END Type

        Type TestRecord ' Create user-defined type.
           CustNum As Long
           CustName As String * 38
           CustAddress1 As String * 38
           CustAddress2 As String * 38
           CustZip As String * 10
        End Type

        NL$ = Chr$(13) + Chr$(10): TB$ = Chr$(9) 
        Static CustEntry As TestRecord 
        FileNum% = FreeFile ' Get file number.
        Open "TYPETEST.DAT" For Random As FileNum%
        Index% = 1 ' Keep track of records.
        Do ' Get data to fill all
           CustEntry.CustNum = Index% 
           Msg$ = "Enter customer name:" 
           CustEntry.CustName = InputBox$(Msg$)
           If CustEntry.CustName = String$(38, 32) Then Exit Do
           Msg$ = "Enter customer street address:"
           CustEntry.CustAddress1 = InputBox$(Msg$)
           Msg$ = "Enter customer city and state:"
           CustEntry.CustAddress2 = InputBox$(Msg$)
           Msg$ = "Enter zip code:"
           CustEntry.CustZip = InputBox$(Msg$)
           GoSub MakeDataMsg ' Put data in message.
           Msg$ = Msg$ + NL$ + "Is this information correct?"
           Answer% = MsgBox(Msg$, 4) 
           If Answer% = 6 Then ' If Yes
              Put FileNum%, Index%, CustEntry
              Index% = Index% + 1 ' Increment record.
           End If
        Loop
        Close FileNum% ' Close file.
        Msg$ = "The records you input have been written to a file.  "
        Msg$ = Msg$ + "Choose OK to remove the test file from you disk."
        MsgBox Msg$ ' Display message.
        Kill "TYPETEST.DAT" ' Remove test file.
        Exit Sub

     MakeDataMsg:
        Msg$ = "Customer #"
        Msg$ = Msg$ + LTrim$(Str$(CustEntry.CustNum)) + NL$
        Msg$ = Msg$ + CustEntry.CustName + NL$
        Msg$ = Msg$ + CustEntry.CustAddress1 + NL$
        Msg$ = Msg$ + CustEntry.CustAddress2
        Msg$ = Msg$ + TB$ + CustEntry.CustZip + NL$
        Return


UBound - z̎w肵ŎgƂłY̍őlԂǗ֐
        \FUBound(array[,dimension%])

        Dim a(1 To 100,0 To 50,-3 To 4)
        Print UBound(a,1);
        Print UBound(a,2);
        Print UBound(a,3)

        ʁ@100  50  4
        

UCase$ - w肵񒆂ׂ̂Ẳp啶ɕϊ镶񏈗֐
        \FUCase$(stringexpression$)

        Print UCase$("aAbBcCdD`a")

        ʁ@AABBCCDD`a


Unload - w肵tH[jXe[gg
        \FUnload object
              object  :Form,control


Val - ŕ\ꂽl𐔒lɕϊ镶񏈗֐
        \FVal(stringexpression$)

        a$ = "1000"
        b$ = "200"
        c$ = "30ABC"
        d$ = "12.34"

        av = Val(a$)+ Val(b$)
        bv = Val(c$)
        cv = Val(d$)
        Print av,bv,cv

        ʁ@1200  30  12.34
 

Weekday - (DayQ)


Width# - t@CfoCXɏo͂s̕蓖Ăʂɕ\錅sݒ肷t@CI/OXe[gg
        \FWidth #filenumber%,width%

        NL$ = Chr$(13) + Chr$(10) 
        Open "WIDDATX.DAT" For Output As #1 
        For I% = 0 To 9 ' Print ASCII characters
           Print #1, Chr$(48 + I%); 
        Next I% ' all on the same line.
        Print #1, ' Start new line.
        Width #1, 5 ' Change line width to 5
        For I% = 0 To 9 ' Print 0 - 9 again. This
           Print #1, Chr$(48 + I%); 
        Next I% ' before the line wraps.
        Print #1,  ' Start new line.
        Width #1, 3 ' Change line width to 3.
        For I% = 0 To 9 ' Print 0 - 9 again. This
           Print #1, Chr$(48 + I%); 
        Next I% ' before the line wraps.
        Print #1,  ' Start new line.
        Close #1 ' Close the file.
        Msg$ = "The effect of the Width statement is as shown below: " + NL$
        Open "WIDDATX.DAT" For Input As #1 
        Do While Not Eof(1)
           Input #1, Text$ ' Get lines from file.
           Msg$ = Msg$ + NL$ + Text$ 
        Loop
        Close #1 ' Close file.
        Msg$ = Msg$ + NL$ + NL$ + "Choose OK to remove the test file."
        MsgBox Msg$ ' Display effects of Width.
        Kill "WIDDATX.DAT" ' Remove test file from disk.


Write # - V[PVt@CɃf[^ރt@CI/OXe[gg
        \FWrite #filenumber%[,expressionlist]

        NL$ = Chr$(13) + Chr$(10) 
        Open "WRIDATX.DAT" For Output As 1 
        Msg$ = "Enter your name."
        UsrName$ = InputBox$(Msg$) 
        Msg$ = "Enter your age."
        UsrAge$ = InputBox$(Msg$) 
        Write #1, UsrName$, UsrAge$ 
        Close #1 ' Close file.
        Open "WRIDATX.DAT" For Input As #1 
        Input #1, UsrName$, UsrAge$ 
        Close #1 ' Close file.
        Msg$ = "The name '" + UsrName$ + "' was read from the data file.  "
        Msg$ = Msg$ + "'" + UsrAge$ + " is the age you gave."
        Msg$ = Msg$ + NL$ + NL$ + "Choose OK to remove test file."
        MsgBox Msg$ ' Display message.
        Kill "WRIDATX.DAT" ' Remove file from disk.


Year - (DayQ)


        ŌE  LЍ]\tgItBX
        Copyright Etosoftoffice Co.,LTD. 1992/07/01



