㈠ 誰有IOS的復利計算器,12的那個,幫我算個東西
pv*(1+i)的N次方! 買個財務計算器吧!
㈡ iPhone計算器有匯率嗎
iPhone自帶的計算器沒有匯率計算,但可以通過APP Store里下載相關工具。
㈢ 用ios做一個計算器,順便說下是怎麼實現的,還要有代碼圖
用記事本把這段代碼復制過去,然後另存為.frm就可以了 VERSION 5.00 Begin VB.Form frmMain Appearance = 0 'Flat BackColor = &H80000005& BorderStyle = 3 'Fixed Dialog Caption = "簡單計算器" ClientHeight = 2430 ClientLeft = 45 ClientTop = 435 ClientWidth = 3150 KeyPreview = -1 'True LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 2430 ScaleWidth = 3150 ShowInTaskbar = 0 'False StartUpPosition = 3 '窗口預設 Begin VB.CommandButton Command10 Caption = "^" Height = 375 Left = 1920 TabIndex = 22 Top = 1920 Width = 495 End Begin VB.PictureBox picDisplay Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 255 Left = 120 ScaleHeight = 225 ScaleWidth = 2865 TabIndex = 19 Top = 120 Width = 2895 Begin VB.TextBox Text1 Alignment = 1 'Right Justify BorderStyle = 0 'None Height = 255 Left = 240 Locked = -1 'True TabIndex = 20 Top = 0 Width = 2535 End Begin VB.Label lblOperation Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 255 Left = 60 TabIndex = 21 Top = 0 Width = 255 End End Begin VB.CommandButton Command9 Caption = "退格" Height = 375 Left = 1920 TabIndex = 18 Top = 480 Width = 495 End Begin VB.CommandButton Command8 Caption = "清零" Height = 375 Left = 2520 TabIndex = 17 Top = 480 Width = 495 End Begin VB.CommandButton cmdDot Caption = "." Height = 375 Left = 120 TabIndex = 16 Top = 1920 Width = 495 End Begin VB.CommandButton Command7 Caption = "Sqrt" Height = 375 Left = 2520 TabIndex = 15 Top = 1920 Width = 495 End Begin VB.CommandButton Command6 Caption = "=" Height = 375 Left = 1320 TabIndex = 14 Top = 1920 Width = 495 End Begin VB.CommandButton Command5 Caption = "/" Height = 375 Left = 2520 TabIndex = 13 Top = 1440 Width = 495 End Begin VB.CommandButton Command4 Caption = "*" Height = 375 Left = 1920 TabIndex = 12 Top = 1440 Width = 495 End Begin VB.CommandButton Command3 Caption = "-" Height = 375 Left = 2520 TabIndex = 11 Top = 960 Width = 495 End Begin VB.CommandButton Command2 Caption = "+" Height = 375 Left = 1920 TabIndex = 10 Top = 960 Width = 495 End Begin VB.CommandButton Command1 Caption = "9" Height = 375 Index = 9 Left = 1320 TabIndex = 9 Top = 480 Width = 495 End Begin VB.CommandButton Command1 Caption = "8" Height = 375 Index = 8 Left = 720 TabIndex = 8 Top = 480 Width = 495 End Begin VB.CommandButton Command1 Caption = "7" Height = 375 Index = 7 Left = 120 TabIndex = 7 Top = 480 Width = 495 End Begin VB.CommandButton Command1 Caption = "6" Height = 375 Index = 6 Left = 1320 TabIndex = 6 Top = 960 Width = 495 End Begin VB.CommandButton Command1 Caption = "5" Height = 375 Index = 5 Left = 720 TabIndex = 5 Top = 960 Width = 495 End Begin VB.CommandButton Command1 Caption = "4" Height = 375 Index = 4 Left = 120 TabIndex = 4 Top = 960 Width = 495 End Begin VB.CommandButton Command1 Caption = "3" Height = 375 Index = 3 Left = 1320 TabIndex = 3 Top = 1440 Width = 495 End Begin VB.CommandButton Command1 Caption = "2" Height = 375 Index = 2 Left = 720 TabIndex = 2 Top = 1440 Width = 495 End Begin VB.CommandButton Command1 Caption = "1" Height = 375 Index = 1 Left = 120 TabIndex = 1 Top = 1440 Width = 495 End Begin VB.CommandButton Command1 Caption = "0" Height = 375 Index = 0 Left = 720 TabIndex = 0 Top = 1920 Width = 495 End End Attribute VB_Name = "frmmain" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Data As Double Private lOperation As Long Private fClear As Boolean Private Sub cmdDot_Click() If InStr(1, Text1.Text, ".") <= 0 Then Text1.Text = Text1.Text & "." End Sub Private Sub Command1_Click(Index As Integer) If fClear = True Then Text1.Text = "": fClear = False Text1.Text = Text1.Text & Index End Sub Private Sub Command10_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除數不等於0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 5 lblOperation.Caption = "^" End Sub Private Sub Command2_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除數不等於0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 1 lblOperation.Caption = "+" End Sub Private Sub Command3_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除數不等於0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 2 lblOperation.Caption = "-" End Sub Private Sub Command4_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除數不等於0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 3 lblOperation.Caption = "*" End Sub Private Sub Command5_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除數不等於0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 4 lblOperation.Caption = "/" End Sub Private Sub Command6_Click() If fClear = False Then Select Case lOperation Case 0 Case 1: Text1.Text = Data + Val(Text1.Text) Case 2: Text1.Text = Data - Val(Text1.Text) Case 3: Text1.Text = Data * Val(Text1.Text) Case 4: If Val(Text1.Text) = 0 Then MsgBox "除數不等於0": Exit Sub Else Text1.Text = Data / Val(Text1.Text) Case 5: Text1.Text = Data ^ Val(Text1.Text) End Select End If Data = Val(Text1.Text) fClear = True lOperation = 0 lblOperation.Caption = "" End Sub Private Sub Command7_Click() If Val(Text1.Text) <= 0 Then MsgBox "開方數大於等於0" Text1.Text = Sqr(Val(Text1.Text)) Data = Val(Text1.Text) fClear = True lOperation = 0 lblOperation.Caption = "" End Sub Private Sub Command8_Click() Text1.Text = "" lOperation = 0 lblOperation.Caption = "" End Sub Private Sub Command9_Click() If Len(Text1.Text) > 0 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc("0"): Command1_Click 0 Case Asc("1"): Command1_Click 1 Case Asc("2"): Command1_Click 2 Case Asc("3"): Command1_Click 3 Case Asc("4"): Command1_Click 5 Case Asc("5"): Command1_Click 4 Case Asc("6"): Command1_Click 6 Case Asc("7"): Command1_Click 7 Case Asc("8"): Command1_Click 8 Case Asc("9"): Command1_Click 9 Case Asc("."): cmdDot_Click Case Asc("+"): Command2_Click Case Asc("-"): Command3_Click Case Asc("*"): Command4_Click Case Asc("/"): Command5_Click Case Asc("^"): Command10_Click Case Asc("s"): Command7_Click Case Asc("S"): Command7_Click Case vbKeyBack: Command9_Click Case Asc("`"): Command8_Click Case Asc("="): Command6_Click Case 13: Command6_Click End Select KeyAscii = 0 End Sub
㈣ 蘋果手機上的 簡單匯率app ,換安卓手機了,非常想用這個軟體,怎麼下載,安卓版叫什麼名字
陳靜儀
㈤ 一款IOS計算器,求越獄的朋友幫我內購一下
是不是812以上的版本啊,太極越獄工具馬上要出來了,等出來你直接越獄自己下唄
㈥ 蘋果手機匯率換算在哪
iPhone自帶的「股市」App進行查詢。
方法:打開「股市」APP,點擊右下角的列表按鈕添加項目,在搜索框輸入「CNY=X」,點擊添加,這樣RMB兌換美元的匯率便出現在股票列表中了。
㈦ 蘋果里的匯率換算在哪
iPhone自帶的「股市」App進行查詢。
方法:打開「股市」APP,點擊右下角的列表按鈕添加項目,在搜索框輸入「CNY=X」,點擊添加,這樣RMB兌換美元的匯率便出現在股票列表中了。
㈧ ios 開發一個計算器需要用到那些步驟
其實就是想知道怎麼開發ios的app吧?
首先, 不要倔強, 你需要付出99$購買開發者賬號, 需要一台測試用的iphone/ipad, 最好有一台mac電腦.
然後, 你會購買賬號之後, 那個買賬號的網站會把這些問題的答案全部告訴你.
最後, 你問題比較多, 就不詳細描述了, 有耐心的話, 那個網站會把所有的告訴你
㈨ 升級完OS X EI Capitan後Macbook pro自帶的匯率換算器就沒有了,怎麼找到這個小插件
蘋果默認關閉了 Dashboard 功能。Dashboard 是 OS X 的桌面組件功能,已經有10年左右的歷史,在過去4年之中一直沒有更新。當然用戶如果喜歡,可以打開系統偏好設置——Mission Control,並在 Dashboard 的下拉菜單中選擇「作為 Space」。
㈩ android開發換匯計算器界面,實現計算人民幣換算美元和英鎊的功能
這樣行嗎?採納有代碼;匯率介面api:http://api.uihoo.com/currency/currency.http.php?from=usd&to=cny&format=json