编程漫谈程序调试方法.docx

[abl國哥 口_|圖If T1 25 Then GoTo 2850 1 [abl 國哥 口 _|圖 If T1 25 Then GoTo 2850 1 编程漫谈：程序调试方法 程序编写过程中，要进行调试。可用下面的几个方法。 1.设置中断点，运行时查看变量数值 点击语句前面一空行，此语句底色变红。在程序运行到此行时， 就停下来，可用鼠标指向变量，就可显示该变量的数值，以便分析。 如对计算的温升有疑问，就可查前面各步的计算值。 (见下图) 备 Project 1 - Microsoft Visual Basic [设计]-[Modulml (Code)] 舞立件? 折额日工程? 格武◎ 调试功运行? Sifll(u) TM(I)外接程序⑷窗口呦帮助(也 Q 髦是黑 0 卜II .|騒脅弟管法目盘1?,列L X [01 用* T |o?) QI = Int (Pl / SX1) If TYF * TYS 5 Then 01 = Int(PS / SX1) TG = Int (0. 065 * Q1 0, 8 + 100 + 0.5) * 0.01 MSI = 3: If C1 = 0 Then MSI 二 1 JC =(0. 45 + JI): If JJ = 1 Then JC =(0.45 + JJ3 /(M3 - D) TJ = Int CCl 002 + (JC - 0. 4) * (Ml - MSI) * QI * 100 + 0, 5) * 0. 01 If TJ 0 Then TJ 二 0 If JC 0. 64 Then JC = 0. 64 TC = Int (Cl 002 + JC * (Ml - 2 * MSI) * Qi * 100 + H 5〕朮 0. 01 T1 = TG + TJ + TC If □■二 1 Or 匚LL 二 2 Th已门 GoTo 2620 / KI) 2) SI * A3 * 1 f Al)「2) + O 353) * i T—I - - 1± A A 1 BIBB OGO4 +hen+Al 1 T 1( 克^A// /Al圆A182 01幫JB￡ 0.1辰c丄 *O+高+1+ 1( 3 A$A A ■ K E K K/ 3 nGXn n) + jeJ 5 h r h h ? 1 T o T T o 9 bf f 口口口□口 * L*压压压压Gl *25高高高高* 3 Daw Y (KA + _s. tr ST t sllXGXGXGXGIn G G G G--f f f f 1 A I I I I 3 G K G Rtm 2620 =_ 2.设置stop点，符合设置条件时查看。 2. 本例中设置的条件：If A1 = 3.28 And A2 = 5 And B2 = 8.5 Then (见下Stop,到运行到满足上述条件时中断，供查阅前面变量的值 图) (见下 4文件(日編辑(E)視砂妙工程(日格式0调谊【M运行(田査询3 51表①工具【I)外接程序(苗窗口(型帮助(H) ||场^牡倉|.日|爲电賈黑口1 ■ %i 1 c§ U ■ n厅645』列3 | 三 scioi LN3 = Int((?M5 + W * N9 * LM + (N3 - (M5 + MT) + N9) * LM3) +10) / 10 LN5 = Int((N5 * (LI3 + LM5) / 2) * 10) / 10： If C1 = 0 Then LN5 = I nt (NS 水 LM3 * 10) / 10 Rem铁心计算 M0 二 Im(D33D + Clt + 0. 5) |mo = 290LL 二 2 Then GoTo 2635 H21 = H2 + H22D * 2 线圈总高 H12 = Hl + HlID * 2: If Hl2 H21 Then H21 = Hl2 MO = D33D + CM 冷目间距 HW = Int(H21 + HKH) 263 If TXXS$ 二”圆辄铁心Then Call TX01 If TXXSJ 二 询铁心Then Call TX02 If TXXS$ =大觇铁心Then Call TX03 方 If Al = 3, 28 And A2 = 5 And B2 = 8.5 Then Stop Rem空载损耗计算 3.设置Debug,在立即窗口查看变量值的变化，以便判断。 该例是查询运行循环过程中有无遗漏线规，以判断线圈高度循环 的步长确定是否合理。（见下图） 兰GeneralA丽17 (? 兰 General A丽 17 (? G?用 三| [scio i JBA2 = 0: J2 = 0.16 Else JBA2 =0.4 End