微信小程序簡易計算器代碼（小程序?qū)崿F(xiàn)計算器）
今天給各位分享微信小程序簡易計算器代碼的知識，其中也會對小程序?qū)崿F(xiàn)計算器進(jìn)行解釋，如果能碰巧解決你現(xiàn)在面臨的問題，別忘了關(guān)注本站，現(xiàn)在開始吧！
本文目錄一覽：
用js代碼做一個簡易計算器
function?test(){
?????var?txt1?=?document.getElementById("txt1"),
?????????txt2?=?document.getElementById("txt2"),
?????????txt3?=?document.getElementById("txt3"),
?????????opt??=?document.getElementById("sel");
?????txt3.value?=??eval(txt1.value?+?opt.value?+?txt2.value);//eval函數(shù)可計算某個字符串，并執(zhí)行其中的的js代碼
}
input?type="text"?id="txt1"?/
select?id="sel"
?????option?value="+"+/option
?????option?value="-"-/option
?????option?value="*"*/option
?????option?value="/"http://option
/select
input?type="text"?id="txt2"?/
=
input?type="text"?id="txt3"?/
input?type="button"?id="btn"?value="計算"?onclick="test()"/
用C語言編一個簡單的計算器小程序
你說的是 vc 還是 tc ?。?？？
其他的運算：
#include stdio.h
int add(int x,int y) {return x+y;}
int sub(int x,int y) {return x-y;}
int mul(int x,int y) {return x*y;}
int div(int x,int y) {return x/y;}
int (*func[])()={add,sub,mul,div};
int num,curch;
char chtbl[]="+-*/()=";
char corch[]="+-*/()=0123456789";
int getach() {
int i;
while(1) {
curch=getchar();
if(curch==EOF) return -1;
for(i=0;corch[i]curch!=corch[i];i++);
if(istrlen(corch)) break;
}
return curch;
}
int getid() {
int i;
if(curch='0'curch='9') {
for(num=0;curch='0'curch='9';getach()) num=10*num+curch-'0';
return -1;
}
else {
for(i=0;chtbl[i];i++) if(chtbl[i]==curch) break;
if(i=5) getach();
return i;
}
}
int cal() {
int x1,x2,x3,op1,op2,i;
i=getid();
if(i==4) x1=cal(); else x1=num;
op1=getid();
if(op1=5) return x1;
i=getid();
if(i==4) x2=cal(); else x2=num;
op2=getid();
while(op2=4) {
i=getid();
if(i==4) x3=cal(); else x3=num;
if((op1/2==0)(op2/2==1)) x2=(*func[op2])(x2,x3);
else {
x1=(*func[op1])(x1,x2);
x2=x3;
op1=op2;
}
op2=getid();
}
return (*func[op1])(x1,x2);
}
void main(void) {
int value;
printf("Please input an expression:\n");
getach();
while(curch!='=') {
value=cal();
printf("The result is:%d\n",value);
printf("Please input an expression:\n");
getach();
}
}
只能 + - * /
簡易計算器代碼
我的計算器 Option Explicit Dim FocusText As VB.TextBox Dim pd As Boolean Dim x As Double Dim y As Double Dim ch As Integer Private Sub Command1_Click(Index As Integer) On Error Resume Next FocusText.SetFocus If Index SendKeys Index ElseIf Index = 10 Then ch = Index - 10 x = Val(Text1.Text) Text1.Text = "" ElseIf Index = 14 Then y = Val(Text1.Text) Select Case ch Case 0 Text1.Text = x + y Case 1 Text1.Text = x - y Case 2 Text1.Text = x * y Case 3 Text1.Text = x / y End Select ElseIf Index = 15 Then FocusText.SetFocus SendKeys "{BS}" ElseIf Index = 16 Then FocusText.SetFocus SendKeys "." End If End Sub '防止輸入多個小數(shù)點以及出數(shù)字外的其他字符 Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii 57) And KeyAscii 46 And KeyAscii 8 Then KeyAscii = 0 End If If pd = True And KeyAscii = 46 Then KeyAscii = 0 End If If pd = False And KeyAscii = 46 Then pd = True KeyAscii = 46 End If End Sub '防止 Ctrl + v 粘貼 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyV And Shift = vbCtrlMask Then Text1.Enabled = False Clipboard.Clear Text1.Enabled = True End If End Sub '防止右鍵粘貼 Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then Text1.Enabled = False Clipboard.Clear Text1.Enabled = True End If End Sub Private Sub Text1_LostFocus() Set FocusText = Text1 End Sub 界面如下 0為Command1（0）1為Command1（1）依次類推 ←為Command1(15) 小數(shù)點為Command1(16) 貼子相關(guān)圖片: 界面可以到
vb:簡易計算器（加減乘除）代碼
代碼如下：
Dim t, t1 As Integer
Dim x, y As Double
Public Sub com()
x = Val(l1.Caption)
Select Case t1
Case Is = 1: y = y + x
Case Is = 2: y = y - x
Case Is = 3: y = y * x
Case Is = 4: y = y / x
End Select
t1 = 0
t = 0
l1.Caption = "0"
End Sub
Private Sub Form_Load()
x = 0
y = 0
t = 0
t1 = 1
End Sub
Private Sub c0_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "0"
Else
l1.Caption = l1.Caption + "0"
End If
End Sub
Private Sub C1_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "1"
Else
l1.Caption = l1.Caption + "1"
End If
End Sub
Private Sub c10_Click(Index As Integer)
If t = 0 Then
l1.Caption = l1.Caption + "."
t = 1
End If
End Sub
Private Sub C2_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "2"
Else
l1.Caption = l1.Caption + "2"
End If
End Sub
Private Sub C3_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "3"
Else
l1.Caption = l1.Caption + "3"
End If
End Sub
Private Sub C4_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "4"
Else
l1.Caption = l1.Caption + "4"
End If
End Sub
Private Sub C5_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "5"
Else
l1.Caption = l1.Caption + "5"
End If
End Sub
Private Sub C6_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "6"
Else
l1.Caption = l1.Caption + "6"
End If
End Sub
Private Sub C7_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "7"
Else
l1.Caption = l1.Caption + "7"
End If
End Sub
Private Sub C8_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "8"
Else
l1.Caption = l1.Caption + "8"
End If
End Sub
Private Sub C9_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "9"
Else
l1.Caption = l1.Caption + "9"
End If
End Sub
Private Sub z1_Click(Index As Integer)
com
t1 = 1
End Sub
Private Sub z2_Click(Index As Integer)
com
t1 = 2
End Sub
Private Sub z3_Click(Index As Integer)
com
t1 = 3
End Sub
Private Sub z4_Click(Index As Integer)
com
t1 = 4
End Sub
Private Sub z5_Click(Index As Integer)
tmp = Mid(l1.Caption, Len(l1.Caption), 1)
If tmp = "." Then
t = 0
End If
If Len(l1.Caption) = 1 Then
l1.Caption = "0"
Else
l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)
End If
End Sub
Private Sub z6_Click(Index As Integer)
l1.Caption = "0"
Form_Load
End Sub
Private Sub z7_Click(Index As Integer)
If (l1.Caption "0") Then
l1.Caption = "-" + l1.Caption
End If
End Sub
Private Sub z8_Click(Index As Integer)
com
l1.Caption = Str(y)
End Sub
擴(kuò)展資料
語言缺點
Visual Basic 語言具有不支持繼承、無原生支持多線程、異常處理不完善等三項明顯缺點，使其有所局限性（此些缺點皆已在 vb .net 獲得改進(jìn)）。
不支持繼承
VB 5.0 和 VB 6.0 都是基于對象的編程語言，但是不包含繼承特性。VB 中提供了特殊的類的功能，但是還是不能滿足程序員的需求。
無原生支持多線程
Visual Basic 對于多線程無原生支持，只能通過Windows API的調(diào)用實現(xiàn)，且極其的不穩(wěn)定。因為在API創(chuàng)建的線程中，并沒有自動初始化運行時庫，導(dǎo)致部分的函數(shù)無法使用。一般的，在VB6等早期的VB開發(fā)環(huán)境下，使用API創(chuàng)建線程的目的是完成容易使程序假死的大量數(shù)據(jù)或者邏輯的計算。
異常處理不完善
Visual Basic 中內(nèi)置異常處理，即使未寫異常處理代碼，一旦用戶出錯也會彈出一個明確寫出出錯原因?qū)υ捒?，接著程序終止。
Visual Basic 中可以使用 Err.Raise拋出異常。對系統(tǒng)及用戶拋出的異常的處理常用兩種模式：一是使用 On Error Resume Next 處理錯誤；另一種是使用 On Error Goto 將運行引入錯誤處理代碼。但相對 C++ 等語言而言，這樣的異常處理破壞了代碼的結(jié)構(gòu)。
參考資料：百度百科-VB
微信小程序簡易計算器代碼的介紹就聊到這里吧，感謝你花時間閱讀本站內(nèi)容，更多關(guān)于小程序?qū)崿F(xiàn)計算器、微信小程序簡易計算器代碼的信息別忘了在本站進(jìn)行查找喔。
掃描二維碼推送至手機(jī)訪問。
版權(quán)聲明：本文由飛速云SEO網(wǎng)絡(luò)優(yōu)化推廣發(fā)布，如需轉(zhuǎn)載請注明出處。
