QTP Practice - Calc by YuDaiLong

http://bbs.51testing.com/thread-101717-1-1.html
 
看了Wally同学的这篇帖子，突然也心血来潮想动手试一试，我原先做过类似的calc的练习，但仅仅是一位操作数，这次设定了2个随机位数（1，5）的操作数，更加健壮了。
Code Path: Test\boobooke_Calc_Wally
 
改进：
1. 把写入结果到txt文件的代码写成了一个函数，然后每次写入一句话到file里的话，只要调用函数即可。filePath作为一个变量传入，以便日后修改。调用函数要加call，不然会出错。除非是把函数赋给某个变量。
例如： call QTP_WriteFile (filePath, "##### 测试日期：" + cstr(Date) + cstr(Time) +  " ####")
Public Function QTP_WriteFile(pathway,words)        //这里用Function或者Sub都可以
    Dim fileSystemObj,fileSpec,logFile,way
    Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
    fileSpec = pathway
    Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, true)
    logFile.WriteLine (CStr(words))
    logFile.Close
    Set logFile = Nothing
End Function
 
2. 自己理解的Function和Sub的区别： Function一般都有返回值，也就是会给这个函数赋值。Sub只是一堆过程序列。
 
3. 让QTP运行时保持最小化、最大化等
Public Sub QTP_Small()
        Dim objQTPWin
        Set bjQTPWin = GetObject("" , "QuickTest.Application")
        objQTPWin.WindowState = "Minimized"
        Set bjQTPWin = Nothing
End Sub
'Possible Values
'Restored
'Maximized--QuickTest is displayed at full screen size.
'Minimized--QuickTest is open, but minimized.
'Normal--QuickTest is displayed at the size it was prior to the last minimize or maximize operation.
 
4. 每个自己定义的函数最好给个比较规范的名字（例如QTP_**)，以及规范的函数描述（函数功能、input, output）
 
5. CLng(op1)可以将字符串转换成long型数字。也有CInt等一些列函数。就算calc的editbox的结果输出格式是"324."，用了这个函数后也可以把最后那个点去掉。
 
6. runtime我代码里是用固定值4，其实最好用环境变量，改起来方便：
Environment.Value("RunTimes") = 20