FOXBOT编程手册

富士康 工業機器人 FOXBOT 編程手冊 Ver 2007 1 FOXBOT 編程手冊 1 FOXBOT 編程手冊 2 簡 介 FOXBOT 的編程手冊由 FOXBOT 指令手冊和 Cypress Enable 編輯器語言參考手冊組成 FOXBOT 指令手冊主要用于機器人的運動控制指令 Cypress Enable 主要用于程序的變量命 名 流程控制 子程序等 程序編輯界面是 Cypress Enable 編輯器 程序中的語句語法要求 應符合 Cypress Enable 的要求 FOXBOT 編程手冊 3 FOXBOT 指令手冊 目 錄 ACCEL 1 CURPOS 1 DECEL 1 DEFIO 1 DEFPOS 2 DELAY 2 DEFJNT 2 DIST 2 DRIVE 3 DRIVEA 3 FIG 3 GOHOME 3 HOME 4 IN 4 J2P 5 MOVE 5 OUT 6 POSRX 7 POSRY 7 POSRZ 7 POSX 7 POSY 8 POSZ 8 RESETIO 8 ROBOTSTOP 8 ROTATE 9 SETIO 9 SPEED 10 WAIT 10 附錄 10 FOXBOT 編程手冊 1 ACCEL 功能 指定內部加速度比例 格式 ACCEL 範例 ACCEL 50 CURPOS 功能 取得目前的位置 type P 格式 格式 Position type 變數 CURPOS 說明 範例 DEFPOS lp1 lp1 CURPOS MSGBOX POSX lp1 XY XZ YZ 旋轉平面與 XYH XZH YZH 平行 向量是相對工具坐標系 旋轉平面與 XY YZ YZ 平行 向量是相對工件坐標系 半徑應是向量在指定平面的投影距離 注意 機器人 6 軸端面與指定旋轉平行 才能畫圓 范例 Assign J 0 position J 0 J1 0 J 0 J2 0 J 0 J3 90 J 0 J4 0 J 0 J5 30 J 0 J6 0 Move to J 0 MOVE P J 0 S 50 Assign J 0 J2 a new position J 0 J2 60 Move to new J 0 MOVE P J 0 S 50 Rotate 360 degree on XY plan around a vector V 0 described in Tool Coordinate ROTATE XYH 360 V 0 S 100 Assign J 0 J2 a new position J 0 J2 0 Move to new J 0 MOVE P J 0 S 50 End SETIO 功能 設置一個 IO 口為 ON 格式 SET IO IO 變量 說明 設置指定 IO 為 ON 舉例 titile example setio takearm SETIO 40 FOXBOT 編程手冊 10 設置 IO 24 點為 ON SPEED 功能 指定內部關節合成速度 格式 SPEED 說明 運動速度是內部關節合成最大速度的百分比 范圍 0 1 100 最大速度是指 TCP 點的最大速度 舉例 SPEED 50 機器人有內部速度和外部速度 外部速度是指示教器上設定的速度 內部速度是指用 SPEED 指令設定的值 實際速度 最大速度 內部速度 外部速度 例如 內部速度 70 外部速度 30 實際速度 最大速度 0 7 0 3 舉例 SPEED 50 WAIT 功能 程序停止直到條件滿足 格式 WAIT 說明 程序被停止直到條件被滿足 舉例 WAIT IO 10 ON 程序等一直到 IO 10 為 ON 注 意 不能在指令后直接添加注釋 需要另取一行 以單引號 開頭 程序編寫后不能以只讀 only read 的方式存儲 FOXBOT 編程手冊 11 附錄 FOXBOT 編程手冊 12 指令 說明 頁數 ACCEL 指定內部加速度比例 CURPOS 取得目前的位置 type P 格式 DECEL 指定內部減速度比例 DEFIO 宣告 IO 變數 DEFJNT 宣告 Joint type 變數 DEFPOS 宣告 Position type 變數 DELAY 使程式執行延遲一段指定的時間 DIST 取得兩點間的距離 DRIVE 執行單軸之相對運動 DRIVEA 執行單軸之絕對運動 FIG 取得一 type P 變數之 figure 值 GOHOME 移動至 HOME 指令所指定之位置 Home 位置 HOME 指定 Home 位置 IN 將 IO 埠狀態資料給一變數 此資料定義於一 IO 變數 內 J2P 關節變量轉換成位置變量 MOVE 移動至指定的位置 OUT 輸出 IO 狀態資料至 IO 埠 此 IO 埠定義於一 IO 變數 內 POSRX 取得一 type P 變數之 RX 值 POSRY 取得一 type P 變數之 RY 值 POSRZ 取得一 type P 變數之 RZ 值 POSX 取得一 type P 變數之 X 值 POSY 取得一 type P 變數之 Y 值 POSZ 取得一 type P 變數之 Z 值 RESETIO 使一個 IO 埠設為 OFF ROBOTSTOP 使 robot 停止並 SERVO OFF ROTATE 對某一指定向量作旋轉運動 SETIO 使一個 IO 埠設為 ON SPEED 指定內部速度比例 WAIT 根據某一狀況暫停程式執行 Cypress Enable 編輯器 語言參考手冊 目 錄 CYPRESS ENABLE 程序編寫規范 0 注釋 0 數字 0 變量和常量名 0 變量類型 1 其他數據類型 2 控制結構 3 子程序和函數 5 BYREF x 2 i End Sub Sub Joe ByRef j As Integer ByRef y As Integer print Joe j y 2 j 345 for i 0 to 5 print i i y i y i next i y 2 3 y 2 End Sub 文件輸入輸出 Enable 支持順序文件和二進制文件 I O 適用于文件訪問的函數和語句有 EOF FileCopy FileLen Seek Open Close Input Line Input Print 和 Write File I O Examples Sub Main Open TESTFILE For Input As 1 Open file Do While Not EOF 1 Loop until end of file Line Input 1 TextLine Read line into variable Print TextLine Print to Debug window Loop Close 1 Close file End Sub Sub FileIO Example Dim Msg Declare variable Call Make3Files Create data files Msg Several test files have been created on your disk Msg Msg line I Next I Close Close all files End Sub 數組 Cypress Enable 支持一維和多維數組 數組可以使用相同的名稱代表一系列具有相同數 據類型的變量 每個變量都有唯一的索引 數組有上下邊界 Enable 為數組中的每個索引數 據分配內存空間 在使用中定義數組不要不必要地過長 數組中所有的元素都有相同的數據類型 Enable 支持的數組變量類型有 bytes Booleans longs integers singles double strings variants 以及用戶自定義類型 聲明固定大小數組的方法有 全局數組 使用 Dim 語句在過程代碼模塊之外聲明數組 局部數組 使用 Dim 語句在過程內聲明數組 Cypress Enable 支持動態數組 聲明數組時必須給出數組上邊界 并且上邊界必須 是整數 范例 Dim ArrayName 10 As Interger Dim Sum 20 As Double 創建全局數組時只須在過程之外使用 Dim 語句 Dim Counters 12 As Integer Dim Sums 26 As Double 在過程內聲明數組使用 Static 語句與使用 Dim 語句效果相同 Static Counters 10 As Integer Static Sums 22 As Double 第一個聲明創建一個具有 11 個元素的數組 下標從 0 到 10 若要改變缺省的下邊界 FOXBOT 編程手冊 8 可在模塊聲明區域放置一個 Option Base 語句 Option Base 1 另一個方法是使用 To 關鍵字顯式指定下邊界 32768 32767 的整數 Dim Counters 1 To 13 As Integer Dim Sums 100 To 126 As String 在前一個聲明中 數組 Counters 的下標索引從 1 到 13 數組 SUM 的下標索引從 100 到 126 注意 許多其他的 Basic 版本允許不事先聲明就可以使用數組 Enable Basic 不允許這 么做 在使用前必須聲明 循環提供了一種有效的處理數組的方法 例如 下例中 For 循環將數組所有元素初始化 為 5 Static Counters 1 To 20 As Integer Dim I As Integer For I 1 To 20 Counter I 5 Next I 多維數組 Cypress Enable 支持多維數組 例如下面范例在過程內聲明了一個二維數組 Static Mat 20 20 As Double 可以明確聲明數組任意一維或者兩維的下邊界 Static Mat 1 to 10 1 to 10 As Double 可以使用 For 循環有效處理多維數組 在下列語句中 多維數組的元素被賦值 Dim L As Integer J As Integer Static TestArray 1 To 10 1 to 10 As Double For L 1 to 10 For J 1 to 10 TestArray L J I 10 J Next J Next L 數組的維數可以多于兩維 Enable 中數組的上邊界不能任意 Dim ArrTest 5 3 2 如果沒有在之前的代碼中使用語句 Option Base 1 則該聲明創建的三維數組的大小 為 6 4 3 Option Base 1 語句設置數組的下邊界為 1 而不是默認的 0 腳本語言概述 函數和語句快速參考 FOXBOT 編程手冊 9 類型 函數 語句 控制流程 Goto End OnError Stop Do Loop Exit Loop For Next Exit For If Then Else End If Stop While Wend Select Case 轉換 Chr Hex Oct Str CDbl CInt Clng CSng CStr CVar CDate Asc Val Date Fix Int Day Weekday Month Year Hour Minute Second 文件 I O FileCopy Open Close Print Kill FreeFile LOF FileLen Seek EOF Write Input Line Input Name Put 數學 Exp Log Sqr Rnd Abs Sgn Atn Cos Sin Tan Int Fix 過程 Function End Function Sub End Sub Exit Global 字符串 Let Len InStr Left Mid Asc Chr Right LCase Ucase InStr LTrim RTrim Trim Option Compare Len Space String StrComp 變量和常數 Dim IsNull IsNumeric VarType Const IsDate IsEmpty IsNull Option Explicit Global Static 錯誤處理 On Error Resume 日期 時間 Date Now Time Timer 數組 Option Base Option Explicit Static Dim Global Lbound Ubound Erase ReDim 其他 SendKeys Rem 數據類型 變 量 類型說明 用 法 String Dim Str Var As String Integer Dim Int Var As Integer FOXBOT 編程手冊 10 Long line I Next I Close Close all files End Sub LBound 函數 格式 LBound array dimension 功能 返回指定數組中特定維數的最小可用下標值 相關主題 UBound 函數 范例 Option Base 1 Sub Main FOXBOT 編程手冊 32 Dim a 10 As Double MsgBox LBound LWord RWord Right UsrInp Len UsrInp SpcPos Get right word Msg The first word you entered is LWord RWord Right UsrInp Len UsrInp SpcPos Get right word Msg The first word you entered is 功能 向一個順序文件寫數據 Print 語句描述 filenumber 在打開順序文件時使用在 Open 語句里數字 用于標識文件 Filenumber 之前的 符號 的是必需的 FOXBOT 編程手冊 40 Spc n 可選函數 用于在打印輸出時插入 n 個空格 允許多次使用 Tab n 可選函數 用于在打印輸出時定位到第 n 列 允許多次使用 Expressionlist 可以寫入文件的數值和 或字符串的表達式 確定下一個字符輸出位置的字符 分號 指示緊接最后一個字符輸出下一個字 符 逗號指示在下一個輸出區域的起始處輸出下一個字符 每隔 14 列是一個輸出區域 如 果沒有兩個字符都沒有指定 則下一個字符在下一行輸出 如果省略 Expressionlist Print 語句在文件里輸出一個空白行 逗號不能省略 因為 Print 將數據映象寫入到文件中 必須分割數據以保証正確輸出 如果用逗號作為分割 符 Print 在文件的輸出區域將以空格代替 Print 語句 variant 類型數據寫入文件的方式與寫入任何其他數據類型一樣 但也有一 些例外 如果 variant 變量的實際值為空 則 Print 不會向文件中寫入任何數據項 如果 variant 變量的實際值為 Null 則 Print 將向文件中寫入 NULL 如果 variant 變量的實際值 為日期類型 則 Print 將向中寫入在 WIN INI 文件中定義的簡短日期格式的日期 如果日期 或時間部分丟失或為零 則 Print 僅將提供的部分寫入文件 下面是一個將文件寫入測試文件的范例 范例 Sub Main Dim I FNum FName 聲明變量 For I 1 To 3 FNum FreeFile 定義下一個文件號碼 FName TEST line I Next I Close 關閉所有文件 End Sub 下面的范例是將數據寫入測試文件并讀取 Sub Main Dim FileData Msg NL 聲明變量 NL Chr 10 定義換行 Open TESTFILE For Output As 1 打開寫入文件 Print 2 This is a test of the Print statement Print 2 輸出空格線到文件 Print 2 Zone 1 Zone 2 在兩個輸出區域之間輸出 Print 2 With no space between 兩個字符串一起輸出 Close FOXBOT 編程手冊 41 Open TESTFILE for Input As 2 打開并讀出文件 Do While Not EOF 2 Line Input 2 FileData 讀出一行數據 Msg Msg LWord RWord Right UsrInp Len UsrInp SpcPos 得到右邊字符 Msg The first word you entered is LWord Msg Msg The second word is Msg The first word you entered is Msg Msg RWord Else Msg You didn t enter two words End If MsgBox Msg 顯示信息 FOXBOT 編程手冊 43 End Sub Rnd 函數 格式 Rnd number 功能 生成一個隨機數 說明 參數 number 必須是有效的數值表達式 范例 這個范例用 Rnd 函數用 1 6 之間隨機發生的數字來模仿兩個滾動的骰子 每次程序都運行 Sub Main Dim Dice1 Dice2 Msg 聲明變量 Dice1 CInt 6 Rnd 1 產生第一個骰子數值 Dice2 CInt 6 Rnd 1 產生第二個骰子數值 Msg You rolled a Dice1 Msg Msg and a Dice2 Msg Msg for a total of Msg Msg Str Dice1 Dice2 MsgBox Msg 顯示信息 End Sub Second 函數 格式 Second number 功能 返回參數 number 表示的時間中的秒數 說明 參數 number 必須是一個有效的數值表達式 相關主題 Day Hour Minute Now 范例 格式函數范例 這個范例展示了格式函數在定義命名和用戶定義格式的數值的不同用法 數據用分隔符 時間用分隔符 AM PM 字面上 實際上的版本輸出顯示依靠于本地代碼運行設置的系統 如果時間和日期在變化的外部環境中顯示 則在現場代碼中采用短的時間和短的日期格式 如果被運行代碼顯示 采用不同于現場代碼的短時間和短日期格式 我的時間和我的日期顯示在變化的環境中 用當前短時間和短日期的系統設置 Sub Main MyTime 08 04 23 PM MyDate 03 03 95 MyDate January 27 1993 MsgBox Now MsgBox MyTime MsgBox Second MyTime Seconds MsgBox Minute MyTime Minutes MsgBox Hour MyTime Hours MsgBox Day MyDate Days FOXBOT 編程手冊 44 MsgBox Month MyDate Months MsgBox Year MyDate Years 返回當前系統時間 MsgBox Format Time Short Time MyStr Format Time Long Time Returns system date in the system defined long date format MsgBox Format Date Short Date MsgBox Format Date Long Date 這部分不被支持 MsgBox Format MyTime h n s 返回 17 4 23 MsgBox Format MyTime hh nn ss 返回 05 04 23 MsgBox Format MyDate dddd mmm d yyyy 如果格式不被支持 返回一個字符串 MsgBox Format 23 返回 23 用戶定義格式 MsgBox Format 5459 4 0 00 返回 5 459 40 MsgBox Format 334 9 0 00 返回 334 90 MsgBox Format 5 0 00 返回 500 00 MsgBox Format HELLO 返回 THIS IS IT End Sub Seek 函數 格式 Seek filenumber 說明 參數 filenumber 是使用在 Open 語句的參數且必須是一個有效的數值表達式 Seek 返 回下一個操作將要發生的以字節數表示的位置 文件中第一個字節是位置 1 相關主題 Open 范例 Sub Main Open TESTFILE For Input As 1 打開要讀的文件 For i 1 To 24 Step 3 循環直到文件結束 Seek 1 i 尋找字節位置 MyChar Input 1 1 讀下一個數據特征 Print MyChar 輸出數據特征 Next i Close 1 關閉文件 End Sub Seek 語句 格式 Seek filenumber position 說明 參數 filenumber 是使用在 Open 語句的參數且必須是一個有效的數值表達式 參數 position 指出下一個讀或寫將要發生的位置 Cypress Enable 位置是相對于文件開頭字節位置 FOXBOT 編程手冊 45 Seek 語句設定文件中下一個讀或寫操作發生的位置 相關主題 Open 范例 Sub Main Open TESTFILE For Input As 1 Open file for reading For i 1 To 24 Step 3 Loop until end of file Seek 1 i Seek to byte position MyChar Input 1 1 Read next character of data Print MyChar Print character of data Next i Close 1 Close file End Sub Select Case 語句 根據表達式的測試值執行多個語句組中符合測試條件的語句 格式 1 Select Case testvar Case var1 語句塊 Case var2 語句塊 Case Else 語句塊 End Select 格式 2 Select Case Number Evaluate Number Case 1 To 5 包含數字 1 5 The following is the only Case clause that evaluates to True Case 6 7 8 6 8 之間的數字 Case 9 To 10 數字 9 或 10 Case Else 其它數值 End Select 相關主題 If Then Else 范例 This test shows nested select statements and if uncommented the exit for statement Sub Test For x 1 to 5 print x Select Case x Case 2 FOXBOT 編程手冊 46 Print Outer Case Two Case 3 Print Outer Case Three Exit For Select Case x Case 2 Print Inner Case Two Case 3 Print Inner Case Three Exit For Case Else Must be something else Print Inner Case Else x End Select Print Done with Inner Select Case Case Else Must be something else Print Outer Case Else x End Select Next x Print Done with For Loop End Sub SendKeys 函數 格式 SendKeys Keys wait 功能 向活動窗口發送一個或多個擊鍵 就象直接在鍵盤上輸入一樣 SendKeys 語句有兩 個參數 第一個參數 keys 是發送到活動窗口的字符串 第二個參數 wait 是一個可選參數 如果忽略就假定其為 false 如果 wait 為 true 則擊鍵必須在控制返回到調用程序之前得到 處理 范例 Sub Main Dim I X Msg 聲明變量 X Shell Calc exe 1 打開系統附件計算器 For I 1 To 5 建立計算循環 SendKeys I True 發送鍵盤動作到計算器 Next I 添加 I 的每個數值 AppActivate Calculator 從新激活計算器 SendKeys F4 True Alt F4 關閉計算器 End Sub Sin 函數 格式 Sin rad 功能 計算并返回弧度 rad 的正弦值 范例 FOXBOT 編程手冊 47 Sub Main pi 4 Atn 1 rad 90 pi 180 x Sin rad print x End Sub Space 函數 格式 Space number 功能 在 print 語句中跳過指定數目的空格 說明 參數 number 表示空格的數量 范例 This sample shows the space function Sub Main MsgBox Hello Space 20 There End Sub Sqr 函數 格式 Sqr num 功能 計算并返回數值 num 的平方根 說明 參數 num 必須是大于或等于零的有效數字 范例 Sub Form Click Dim Msg Number Declare variables Msg Enter a non negative number Number InputBox Msg Get user input If Number 0 Then Msg Cannot determine the square root of a negative number Else Msg The square root of Number is Msg Msg Sqr Number End If MsgBox Msg Display results End Sub FOXBOT 編程手冊 48 Static 語句 格式 Static variable 功能 聲明變量并分配存儲空間 以 Static 語句聲明的變量其值在程序運行過程中始終保留 相關主題 Dim Function Sub 范例 此例展示了如何用關鍵詞 static 在程序 Joe 中保持變量 I 的值 If Dim is used instead of Static then i is empty when printed on the second call as well as the first Sub Main For i 1 to 2 Joe 2 Next i End Sub Sub Joe j as integer Static i print i i i 5 print i End Sub Stop 語句 格式 Stop 功能 終止程序的執行 說明 Stop 語句可以用在代碼中的任意位置 范例 FOXBOT 編程手冊 49 Sub main Dim x y z For x 1 to 5 For y 1 to 5 For z 1 to 5 Print Looping z y x Next z Next y Stop Next x End Sub Str 函數 格式 Str numericexpr 功能 將數字表達式 numericexpr 的值轉換為字符串類型 相關主題 Val 范例 Sub main Dim msg a 1 msgBox Num Str a MsgBox Abs Num Str Abs a End Sub StrComp 函數 格式 StrComp nstring1 string2 compare 功能 字符串比較函數 其返回值是 variant 類型 代表兩個字符串的比較結果 范例 Sub Main Dim MStr1 MStr2 MComp FOXBOT 編程手冊 50 MStr1 ABCD MStr2 today Define variables print MStr1 MStr2 MComp StrComp MStr1 MStr2 Returns 1 print MComp MComp StrComp MStr1 MStr2 Returns 1 print MComp MComp StrComp MStr2 MStr1 Returns 1 print MComp End Sub String 函數 格式 String numeric charcode 功能 字符串生成函數 說明 創建由 numeric 個單個字符 charcode 組成的字符串 Charcode 代表單個字 符 numeric 是一個整數值 相關主題 Space 函數 范例 Sub Main Dim MString MString String 5 Returns MString String 5 42 Returns 44444 MString String 10 Today Returns TTTTTTTTTT Print MString End Sub Sub 語句 格式 Sub SubName arguments Dim variable s 語句塊 Exit Function End Sub 功能 聲明并定義一個子程序 說明 當需要傳遞參數列表時需遵循以下格式 ByVal variable As type ByVal variable As type 可選參數 ByVal 指明變量是按值傳遞參數 而不是按引用傳遞 參見本手冊 ByRef and ByVal 可選參數 As type 指明所使用的數據類型 有效的數據類型有 string integer double long 和 variant 參見本手冊 數據類型 相關主題 Dim Function FOXBOT 編程手冊 51 范例 Sub Main Dim DST As String DST t1 mkdir DST mkdir t2 End Sub Tan 函數 格式 Tan angle 功能 計算角度 angle 的正切值 說明 參數 angle 必須是用弧度表示的有效角度 相關主題 Atn Cos Sin 范例 Sub Main Dim Msg Pi 聲明變量 Pi 4 Atn 1 計算 Pi Msg Pi is equal to Pi MsgBox Msg 顯示結果 x Tan Pi 4 MsgBox x is the tangent of Pi 4 End Sub Time 函數 格式 Time 功能 返回當前系統時間 相關主題 設置時間使用 TIME 語句 范例 Sub Main x Time Now Print x End Sub Timer 事件 格式 Timer Timer 事件用來追蹤流逝的時間或者作為停止時鐘顯示在對話里 Timer 的值是從午夜 開始的秒數 相關主題 Hour Minute Now Second 范例 FOXBOT 編程手冊 52 Sub Main Dim TS As Single Dim TE As Single Dim TEL As Single TS Timer MsgBox Starting Timer TE Timer TT TE TS Print TT End Sub Trim Ltrim Rtrim 函數 格式 L R Trim String 功能 Ltrim Rtrim 和 Trim 函數返回一個刪除了前導空格 后導空格或者同時刪除前后導空 格的字符串 說明 Ltrim Rtrim 和 Trim 都返回字符串 Ltrim 刪除字符串前導空格 Rtrim 刪除字符串后 導空格 Trim 移除字符串前后導空格 范例 Sub Main MyString Initialize string TrimString LTrim MyString TrimString MsgBox TrimString TrimString LCase RTrim MyString TrimString MsgBox TrimString TrimString LTrim RTrim MyString TrimString MsgBox TrimString Using the Trim function alone achieves the same result TrimString UCase Trim MyString TrimString MsgBox TrimString End Sub Type 語句 格式 Type 用戶類型 元素名 As 類型名 元素名 As 類型名 End Type 功能 定義一個包含一個或多個元素的用戶自定義類型 一旦用 Type 語句定義了用戶自定義類型 就可以在程序的任意位置聲明該類型的變量 可使用 Dim 或 Static 聲明用戶自定義類型變量 行號和行標號不能出現在 Type End Type 語句塊中 FOXBOT 編程手冊 53 用戶自定義類型常用于數據記錄 因為數據記錄常常由許多不同數據類型相關元素組 成 Enable 中數組不能作為用戶自定義類型的元素 范例 Type type1 a As Integer d As Double s As String End Type Type type2 a As String o As type1 End Type Type type3 b As Integer c As type2 End Type Dim type2a As type2 Dim type2b As type2 Dim type1a As type1 Dim type3a as type3 Sub Form Click a 5 type1a a 7472 type1a d 23 1415 type1a s YES type2a a 43 forty three type2a o s Yaba Daba Doo type3a c o s COS type2b a 943 nine hundred and forty three type2b o s Yogi MsgBox type1a a MsgBox type1a d MsgBox type1a s MsgBox type2a a MsgBox type2a o s MsgBox type2b a MsgBox type2b o s MsgBox type3a c o s MsgBox a End Sub Ubound 函數 格式 Ubound arrayname dimension 功能 返回數組指定維數的下標上界 相關主題 Dim Global Lbound 和 option base 范例 FOXBOT 編程手冊 54 Sub Main Dim a 10 As Double MsgBox LBound LBound a UBound UBound a Dim i As Integer For i 1 to 3 a i 2 i Next i Print a 1 a 1 a 2 a 3 End Sub UCase 函數 格式 Ucase String 功能 將參數字符串 String 中的所有字母轉換成大寫字母 范例 Sub Main MyString Initialize string TrimString LTrim MyString TrimString MsgBox TrimString TrimString LCase RTrim MyString TrimString MsgBox TrimString TrimString LTrim RTrim MyString TrimString MsgBox TrimString Using the Trim function alone achieves the same result TrimString UCase Trim MyString TrimString MsgBox TrimString End Sub Val 函數 格式 Val string 功能 返回有數字組成的字符串 string 的數字值 范例 Sub main Dim Msg Dim YourVal As Double YourVal Val InputBox Enter a number Msg The number you enered is YourVal MsgBox Msg End Sub VarType 格式 VarType varname 功能 返回一個標識參數 varname 的內部存儲方式的數值 參數 Varname 為 variant 類型 變量類型 返回值 Empty 0 FOXBOT 編程手冊 55 Null 1 Integer 2 Long 3 Single 4 Double 5 Date Time 7 String 8 相關主題 IsNull IsNumeric 范例 If VarType x 5 Then Print Vartype is Double Display variable type Weekday 函數 格式 Weekday date firstdayof week 功能 返回日期時間在一周中位序 相關主題 Hour Second Minute Day 范例 Sub Main x Weekday 5 29 1959 Print x End Sub While Wend 語句 格式 While condition 語句塊 Wend 功能 while Wend 語句以 while 開始流程控制結構 Condition 是任意的數值或者是可以轉 化為 true 或者 false 的表達式 只有條件為 真 才執行程序語句 相關主題 Do Loop 語句 范例 Sub Main Const Max 5 Dim A 5 As String A 1 Programmer A 2 Engineer A 3 President A 4 Tech Support A 5 Sales Exchange True While Exchange Exchange False FOXBOT 編程手冊 56 For I 1 To Max MsgBox A I Next I Wend End sub Write 語句 格式 Write filenumber parameterlist 說明 向一個順序文件寫入并格式化數據 該文件必須以 output 或者 append 模式打開 以 逗號分隔的參數列被寫入到指定文件中 如果沒有指定參數 換行符將被寫入到文件中 相關主題 Open 和 Print 語句 范例 Sub Main Open TESTFILE For Output As 1 打開寫入文件 userData1 InputBox Enter your own text here userData2 InputBox Enter more of your own text here Write 1 This is a test of the Write statement Write 1 userData1 userData2 Close 1 Open TESTFILE for Input As 2 打開讀文件 Do While Not EOF 2 Line Input 2 FileData 讀一行數據 PRint FileData 創建信息 Loop Close 2 關閉所有打開文件 MsgBox Testing Print Statement 顯示信息 Kill TESTFILE 從盤中移除文件 End Sub Year 函數 格式 Year serial 功能 返回對應于日期字符串參數 serial 的年份值 返回的年份值處于 1930 2029 之間 如 果參數 seria l 是一個 Null 值 則函數返回值是 Null 相關主題 Date Date 函數 語句 Day Hour Month Minute Now Second 范例 Sub Main MyDate 11 11 94 x Year MyDate print x End Sub