vfp計算器表單代碼

『壹』 怎樣用VFP編寫簡單的計算器

VFP自帶一個計算器，根本不用編程，直接在命令窗口或程序中使用「activate window calculator」即可調用。

『貳』 VFP中，設計一個簡單計算器求大俠寫代碼……

將下面的代碼寫在按鈕的click事件中：
t1=alltrim(thisform.text1.value)
r=&t1
thisform.label1.caption=alltrim(str(r))

文本框和標簽不加代碼。

『叄』 vfp中計算器是如何編程的

這個問題不是很難,但是不是一句兩句話能說清楚,簡單的說就是:
1.作一個表單
2.在表單中加一個文本框(用作顯示數字)
3.加若干個命令按鈕(作鍵盤),按鈕上顯示(鍵盤)數字或運算符號(如：加、減、乘、除等)
4.設置各個命令按鈕的單擊命令代碼（click
event），每次click
enent後再文本框作出相應的顯示即可.
按以上方法,根據計算器的復雜程度作相應的設計即可.

『肆』 用vfp編寫的計算器代碼

1)【提示】 操作步驟：
1)【提示】 操作步驟：
第一步：向表單添加文本框和命令組控制項，分別設置命令按鈕的Caption屬性，在對命令按鈕"="的Caption
屬性設置時，不能在其屬性窗口中直接輸入半形的"="，否則提示語法錯誤。可以輸入全形"＝"
或在表單FROM1的Init事件中，輸入如下代碼完成：
for i=1 to 10
this.commandgroup1.buttons(i).caption=alltrim(str(i))
endfor
this.commandgroup1.buttons(11).caption="*"
this.commandgroup1.buttons(12).caption="+"
this.commandgroup1.buttons(13).caption="-"
this.commandgroup1.buttons(14).caption="="
this.commandgroup1.buttons(15).caption="C"

第二步：在表單FORM1的Init事件中定義全局變數T，並賦初值空串
PUBLIC T=''
第三步：編寫命令組的Click事件代碼，完成接收輸入的表達式：
do case
case this.value=1
t=t+"1"
thisform.text1.value=t
case this.value=2
t=t+"2"
thisform.text1.value=t
case this.value=3
t=t+"3"
thisform.text1.value=t
case this.value=4
t=t+"4"
thisform.text1.value=t
case this.value=5
t=t+"5"
thisform.text1.value=t
case this.value=6
t=t+"6"
thisform.text1.value=t
case this.value=7
t=t+"7"
thisform.text1.value=t
case this.value=8
t=t+"8"
thisform.text1.value=t
case this.value=9
t=t+"9"
thisform.text1.value=t
case this.value=10
t=t+"0"
thisform.text1.value=t
case this.value=11
t=t+"*"
thisform.text1.value=t
case this.value=12
t=t+'+'
thisform.text1.value=t
case this.value=13
t=t+'-'
thisform.text1.value=t
case this.value=14
thisform.text1.value=alltrim(str(&t,20,6)) && 宏替換T將得到數值表達式計算結果,20與6可以自己根據需要確定
case this.value=15
t=''
thisform.text1.value=t
endcase
thisform.refresh

第四步：當輸入的表達式錯誤時，將引發命令組的Error事件，編寫命令組的Error事件代碼：
thisform.text1.value="運算式錯誤"

『伍』 用vfp表單怎麼做計算器，請把詳細過程以及圖片附上，我是剛學的

計算代碼如下寫在襲計算按鈕的click事件下即可

a=val(alltrim(thisform.text1.value))&&去除前後空格，並將字元型數據轉換為數值型數據

b=val(alltrim(thisform.text2.value))&&由於文本框默認的數據類型是字元型，所以要轉換

ifthisform.optiongroup1.value=1

thisform.text3.value=a+b

endif

ifthisform.optiongroup1.value=2

thisform.text3.value=a-b

endif

ifthisform.optiongroup1.value=3

thisform.text3.value=a*b

endif

ifthisform.optiongroup1.value=4

thisform.text3.value=a/b

endif

退出命令是thisform.release

『陸』 VFP表單設計簡易計算器命令按鈕編寫

你雙擊這個「計算」按鈕，在其click事件中輸入代碼為：
a=thisformtext1value
b=thisformtext2value
c=thisformoptiongroup1value
do
case
case
c=1
y=a+b
case
c=2
y=a-b
case
c=3
y=a*b
case
c=4
y=a/b
endcase
thisformtext3value=y
thvfp表單的簡易計算專器的命令按鈕編屬寫

『柒』 vfp計算器加減乘除的代碼

1 首先定義一個全局變數（或者自定義一個屬性假定為ZFC,這里使用的自定義屬性）。
2 在表單的init事件中將其清空：thsiform.zfc=''
3 自定義一個方法XS，用於文本框顯示：
THISFORM.TEXT1.VALUE=THISFORM.ZFC
4 「1」的click事件：
THISFORM.ZFC=ALLT(THISFORM.ZFC)+'1'
THISFORM.XS
一直到「0」，類上。
5 如果想支持鍵盤操作,FORM1.keypress事件：
LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
CASE nKeyCode=55 &&7
THISFORM.COMMAND1.CLICK
CASE nKeyCode=52 &&4
THISFORM.COMMAND2.CLICK
CASE nKeyCode=49 &&1
THISFORM.COMMAND3.CLICK
CASE nKeyCode=48 &&0
THISFORM.COMMAND4.CLICK
......

CASE nKeyCode=43 &&+
THISFORM.COMMAND10.CLICK
CASE nKeyCode=45 &&-
THISFORM.COMMAND12.CLICK
......
ENDCASE
可以通過 ?inkey(0),查到鍵盤的ASCII值。
這里COMMANDn你要根據表單的實際名稱填寫。

6 「=」的click:
THISFORM.JS
THISFORM.XS

7 自定義一個方法JS用於計算結果：
K=THISFORM.ZFC
S=&K
THISFORM.ZFC=ALLT(STR(S,12,4))

8 「SQLT」的click事件
THISFORM.ZFC='SQLT('+ALLT(THISFORM.ZFC)+')'
THISFORM.XS
9 求倒數的click事件：
THISFORM.ZFC='1/'+ALLT(THISFORM.ZFC)
THISFORM.XS

『捌』 VFP表單的簡易計算器的命令按鈕編寫

你雙擊這個「計算」按鈕，在其click事件中輸入專代碼為屬：
a=thisform.text1.value
b=thisform.text2.value
c=thisform.optiongroup1.value
do case
case c=1
y=a+b
case c=2
y=a-b
case c=3
y=a*b
case c=4
y=a/b
endcase
thisform.text3.value=y
thisform.refresh