数据库powerbuilder实验1-9代码.docVIP

面积公式：decimal r r=dec(sle_1.text) sle_2.text=string(3.14159*r*r) 计算器：1.声明变量：decimal add1 char s1 int flag 2.数字：if flag=0 then sle_1.text= flag=1 end if sle_1.text=sle_1.text+this.text 3.运算符：choose case s1 case * sle_1.text=string(dec (sle_1.text)*add1) case/ sle_1.text=string(add1/dec (sle_1.text)) case+ sle_1.text=string(dec (sle_1.text)+add1) case- sle_1.text=string(add1 - dec (sle_1.text)) end choose add1=dec(sle_1.text) s1=this.text flag=0 4.清除：sle_1.text= add1=0 s1= flag=0 5.“=”：choose case s1 case * sle_1.text=string(dec (sle_1.text)*add1) case/ sle_1.text=string(add1/dec (sle_1.text)) case+ sle_1.text=string(dec (sle_1.text)+add1) case- sle_1.text=string(add1 - dec (sle_1.text)) end choose flag=0 s1= 实验3-1：左击弹出窗口，右击每5秒弹出一消息对话窗，再次右击则不弹出。 1.声明变量：boolean TimerFlag=false 2.Mouthdown：open (w_response) 3.rbuttondown：if timerflag=false then timer(5) timerflag=true Else timer(0) timerflag=false end if 4.timer事件：messagebox(消息框,即使时间到) 实验3-2： 1.声明变量： long p //p表示查找到的结果的位置 int l //l表示要查找的文本的长度 string str //str表示要查找的文本 2.cb_search： str=sle_1.text l=len(str) p=pos(mle_1.text,str) if p0 then mle_1.selecttext(p,l) mle_1.setfocus() cb_search_next.enabled=true cb_replace.enabled=true else cb_search_next.enabled=false cb_replace.enabled=false messagebox(提示信息,没找到!) end if 3.cb_search_next： p=pos(mle_1.text,str,p+1) if p0 then mle_1.selecttext(p,l) mle_1.setfocus() cb_replace.enabled=true else cb_replace.enabled=false cb_search_next.enabled=false messagebox(完成,已到文章末尾!) end if 3.cb_replace： string s2 s2=sle_2.text if p0 then mle_1.text=replace(mle_1.text,p,l,s2) end if 4.cb_replaceall： string s2 s2=sle_2.text str=sle_1.text l=len(str) p=pos(mle_1.text,str) if p0 then mle_1.text=replace(mle_1.text,p,l,s2) end if do while p0 p=pos(mle_1.text,str,p+1) if p0 then mle_1.text=replace(mle_1.text,p,l,s2) end if loop messagebox(完成,已到文章