自己编的计算器怎么才能像电脑里面自带的计算器那样显示啊

2011风之叶

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $ws, $ws1, $ws2 = 0, $ws2 = 1
Global $no = 0
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("计算器", 185, 257, Default, Default)
GUICtrlCreateGroup("", 8, 0, 169, 249)
GUICtrlCreateInput("", 16, 16, 153, 21)
$Button1 = GUICtrlCreateButton("1", 16, 168, 35, 33)
$Button2 = GUICtrlCreateButton("2", 56, 168, 35, 33)
$Button3 = GUICtrlCreateButton("3", 96, 168, 35, 33)
$Button4 = GUICtrlCreateButton("4", 16, 128, 35, 33)
$Button5 = GUICtrlCreateButton("5", 56, 128, 35, 33)
$Button6 = GUICtrlCreateButton("6", 96, 128, 35, 33)
$Button7 = GUICtrlCreateButton("7", 16, 88, 35, 33)
$Button8 = GUICtrlCreateButton("8", 56, 88, 35, 33)
$Button9 = GUICtrlCreateButton("9", 96, 88, 35, 33)
$Button10 = GUICtrlCreateButton("0", 16, 208, 75, 33)
$Button11 = GUICtrlCreateButton(".", 96, 208, 35, 33)
$Button12 = GUICtrlCreateButton("＝", 136, 168, 35, 73)
$Button13 = GUICtrlCreateButton("+", 136, 88, 35, 73)
$Button14 = GUICtrlCreateButton("-", 136, 48, 35, 33)
$Button15 = GUICtrlCreateButton("×", 96, 48, 35, 33)
$Button16 = GUICtrlCreateButton("÷", 56, 48, 35, 33)
$Button17 = GUICtrlCreateButton("AC", 16, 48, 35, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        $ws1 = 1
                Case $Button2
                        $ws1 = 2
                Case $Button3
                        $ws1 = 3
                Case $Button4
                        $ws1 = 4
                Case $Button5
                        $ws1 = 5
                Case $Button6
                        $ws1 = 6
                Case $Button7
                        $ws1 = 7
                Case $Button8
                        $ws1 = 8
                Case $Button9
                        $ws1 = 9
                Case $Button10
                        $ws1 = 0
;~                 Case $Button11
;~                         $nMsg = "."
;~                         $ws1=$nMsg
;~                         MsgBox("", "", $ws1)
                Case $Button12
                        If $no = 13 Then
                                $ws = $ws1 + $ws2
                                MsgBox(0x30, "计算器", $ws)
                                $no = 0
                                $ws1 = $ws
                                $ws2 = 0
                        ElseIf $no = 14 Then
                                $ws = $ws2 - $ws1
                                MsgBox(0x30, "计算器", $ws)
                                $no = 0
                                $ws1 = $ws
                                $ws2 = 0
                        ElseIf $no = 15 Then
                                $ws = $ws2 * $ws1
                                MsgBox(0x30, "计算器", $ws)
                                $no = 0
                                $ws1 = $ws
                                $ws2 = 1
                        ElseIf $no = 16 Then
                                $ws = $ws2 / $ws1
                                MsgBox(0x30, "计算器", $ws)
                                $no = 0
                                $ws1 = $ws
                                $ws2 = 1
                        EndIf
                Case $Button13
                        If $no = 13 Then
                                $ws2 = $ws2 + $ws1
                                $no = 13
                        EndIf
                        If $no = 14 Then
                                $ws2 = $ws2 - $ws1
                                $no = 13
                        EndIf
                        If $no = 15 Then
                                $ws2 = $ws2 * $ws1
                                $no = 13
                        EndIf
                        If $no = 16 Then
                                $ws2 = $ws2 / $ws1
                                $no = 13
                        EndIf
                        
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 13
                        EndIf
                Case $Button14
                        If $no = 14 Then
                                $ws2 = $ws2 - $ws1
                                $no = 14
                        EndIf
                        If $no = 13 Then
                                $ws2 = $ws2 + $ws1
                                $no = 14
                        EndIf
                        If $no = 15 Then
                                $ws2 = $ws2 * $ws1
                                $no = 14
                        EndIf
                        If $no = 16 Then
                                $ws2 = $ws2 / $ws1
                                $no = 14
                        EndIf
                        
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 14
                        EndIf
                Case $Button15
                        If $no = 15 Then
                                $ws2 = $ws2 * $ws1
                                $no = 15
                        EndIf
                        If $no = 14 Then
                                $ws2 = $ws2 - $ws1
                                $no = 15
                        EndIf
                        If $no = 13 Then
                                $ws2 = $ws2 + $ws1
                                $no = 15
                        EndIf
                        If $no = 16 Then
                                $ws2 = $ws2 / $ws1
                                $no = 15
                        EndIf
                        
                        If $no = 0 Then
                                $no = 15
                                $ws2 = $ws1 
                        EndIf
                                                
                Case $Button16
                        If $no = 16 Then
                                $ws2 = $ws2 / $ws1
                                $no = 16
                        EndIf
                        If $no = 15 Then
                                $ws2 = $ws2 * $ws1
                                $no = 16
                        EndIf
                        If $no = 14 Then
                                $ws2 = $ws2 - $ws1
                                $no = 16
                        EndIf
                        If $no = 13 Then
                                $ws2 = $ws2 + $ws1
                                $no = 16
                        EndIf
                        
                        If $no = 0 Then
                                $ws2 =$ws1
                                $no = 16
                        EndIf
        
                Case $Button17
                        $no = 0
                        $ws = 0
                        $ws1 = 0
                        $ws2 = 0
                        $ws2 = 1
                        $ws4 = 0
        EndSwitch
WEnd

怎么才能像电脑里面自带的计算器那样显示啊

nmgwddj

去看input控件ES_RIGHT样式

netegg

[au3]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIedit.au3>

Global $ws, $ws1, $ws2 = 0, $ws2 = 1
Global $no = 0
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("计算器", 185, 257, Default, Default)
GUICtrlCreateGroup("", 8, 0, 169, 249)
$Button = GUICtrlCreateInput("", 16, 16, 153, 21, $es_right)
$Button1 = GUICtrlCreateButton("1", 16, 168, 35, 33)
$Button2 = GUICtrlCreateButton("2", 56, 168, 35, 33)
$Button3 = GUICtrlCreateButton("3", 96, 168, 35, 33)
$Button4 = GUICtrlCreateButton("4", 16, 128, 35, 33)
$Button5 = GUICtrlCreateButton("5", 56, 128, 35, 33)
$Button6 = GUICtrlCreateButton("6", 96, 128, 35, 33)
$Button7 = GUICtrlCreateButton("7", 16, 88, 35, 33)
$Button8 = GUICtrlCreateButton("8", 56, 88, 35, 33)
$Button9 = GUICtrlCreateButton("9", 96, 88, 35, 33)
$Button10 = GUICtrlCreateButton("0", 16, 208, 75, 33)
$Button11 = GUICtrlCreateButton(".", 96, 208, 35, 33)
$Button12 = GUICtrlCreateButton("+", 136, 88, 35, 73)
$Button13 = GUICtrlCreateButton("-", 136, 48, 35, 33)
$Button14 = GUICtrlCreateButton("×", 96, 48, 35, 33)
$Button15 = GUICtrlCreateButton("÷", 56, 48, 35, 33)
$Button16 = GUICtrlCreateButton("＝", 136, 168, 35, 73)
$Button17 = GUICtrlCreateButton("AC", 16, 48, 35, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
     Case $GUI_EVENT_CLOSE
        Exit
    Case $Button16
       GUICtrlSetData($Button, Execute(StringReplace(StringReplace(GUICtrlread($Button), "÷", '/'), "×", "*")))
    Case $Button1, $Button2, $Button3, $Button4, $Button5, $Button6, $Button7, $Button8, $Button9, $Button10, _
          $Button11, $Button12, $Button13, $Button14, $Button15     ;谢afan了
;    Case $Button1 Or $Button2 Or $Button3 Or $Button4 Or $Button5 Or $Button6 Or $Button7 Or $Button8 Or $Button9 Or _
;         $Button10 Or $Button11 Or $Button12 Or $Button13 Or $Button14 Or $Button15
       $ws &= GUICtrlRead($nMsg)
       GUICtrlSetData($Button, $ws)
  EndSwitch
WEnd
[/au3]
不知道为什么我这运行不了，包括lz的那个代码，不过lz可以试试看

afan

不知道为什么我这运行不了，包括lz的那个代码，不过lz可以试试看
netegg 发表于 2012-2-16 17:01

     Case $Button1 Or $Button2 Or $Button3 Or ...不能这么用的，"or" 改成 ","

netegg

回复 4# afan


    日，这都没注意

afan

回复 5# netegg


    别摸PP了，该打PP。

netegg

回复 6# afan
好疼的

afan

回复 7# netegg

                Case $Button16
                        $v = Execute(StringReplace(StringReplace(GUICtrlRead($Button), "÷", '/'), "×", "*"))
                        GUICtrlSetData($Button, GUICtrlRead($Button) & '=' & $v)
                Case $Button1 To $Button15
                        $ws &= GUICtrlRead($nMsg)
                        GUICtrlSetData($Button, $ws)

2011风之叶

回复 3# netegg

你编的把or改成“，”就可以用啊。
我今天又把计算器改了一了下，小键盘的+　-　*　/　和Enter键没法用

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPIEx.au3>

Global Const $WM_HOTKEY = 0x0312
Global $ws, $ws1, $ws2 = 1, $ws3, $ws4, $ws5
Global $no = 0, $no1 = 0, $no2 = 0, $no3 = 0, $no4 = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("计算器", 185, 257, Default, Default)
GUIRegisterMsg($WM_HOTKEY, 'WM_HOTKEY')
GUICtrlCreateGroup("", 8, 0, 169, 249)
GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
GUICtrlSetData(-1, "0")
_WinAPI_RegisterHotKey($Form1, 0x0160, 0, 0x60);0
_WinAPI_RegisterHotKey($Form1, 0x0161, 0, 0x61);1
_WinAPI_RegisterHotKey($Form1, 0x0162, 0, 0x62);2
_WinAPI_RegisterHotKey($Form1, 0x0163, 0, 0x63);3
_WinAPI_RegisterHotKey($Form1, 0x0164, 0, 0x64);4
_WinAPI_RegisterHotKey($Form1, 0x0165, 0, 0x65);5
_WinAPI_RegisterHotKey($Form1, 0x0166, 0, 0x66);6
_WinAPI_RegisterHotKey($Form1, 0x0167, 0, 0x67);7
_WinAPI_RegisterHotKey($Form1, 0x0168, 0, 0x68);8
_WinAPI_RegisterHotKey($Form1, 0x0169, 0, 0x69);9
_WinAPI_RegisterHotKey($Form1, 0x016E, 0, 0x6E);.
_WinAPI_RegisterHotKey($Form1, 0x016C, 0, 0x6C);=
_WinAPI_RegisterHotKey($Form1, 0x016B, 0, 0x6B);+
_WinAPI_RegisterHotKey($Form1, 0x016D, 0, 0x6D);-
_WinAPI_RegisterHotKey($Form1, 0x016A, 0, 0x6A);*
_WinAPI_RegisterHotKey($Form1, 0x016F, 0, 0x6F);/
_WinAPI_RegisterHotKey($Form1, 0x0120, 0, 0x20);空格
$Button1 = GUICtrlCreateButton("1", 16, 168, 35, 33)
$Button2 = GUICtrlCreateButton("2", 56, 168, 35, 33)
$Button3 = GUICtrlCreateButton("3", 96, 168, 35, 33)
$Button4 = GUICtrlCreateButton("4", 16, 128, 35, 33)
$Button5 = GUICtrlCreateButton("5", 56, 128, 35, 33)
$Button6 = GUICtrlCreateButton("6", 96, 128, 35, 33)
$Button7 = GUICtrlCreateButton("7", 16, 88, 35, 33)
$Button8 = GUICtrlCreateButton("8", 56, 88, 35, 33)
$Button9 = GUICtrlCreateButton("9", 96, 88, 35, 33)
$Button10 = GUICtrlCreateButton("0", 16, 208, 75, 33)
$Button11 = GUICtrlCreateButton(".", 96, 208, 35, 33)
$Button12 = GUICtrlCreateButton("＝", 136, 168, 35, 73)
$Button13 = GUICtrlCreateButton("+", 136, 88, 35, 73)
$Button14 = GUICtrlCreateButton("-", 136, 48, 35, 33)
$Button15 = GUICtrlCreateButton("×", 96, 48, 35, 33)
$Button16 = GUICtrlCreateButton("÷", 56, 48, 35, 33)
$Button17 = GUICtrlCreateButton("CE", 16, 48, 35, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        $ws1 = 1
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = Number($no1 & $ws1)
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button2
                        $ws1 = 2
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = Number($no1 & $ws1)
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button3
                        $ws1 = 3
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = Number($no1 & $ws1)
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button4
                        $ws1 = 4
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = Number($no1 & $ws1)
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button5
                        $ws1 = 5
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = Number($no1 & $ws1)
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button6
                        $ws1 = 6
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = Number($no1 & $ws1)
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button7
                        $ws1 = 7
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = Number($no1 & $ws1)
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button8
                        $ws1 = 8
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = Number($no1 & $ws1)
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button9
                        $ws1 = 9
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = Number($no1 & $ws1)
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button10
                        $ws1 = 0
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = $no1 & $ws1
                                GUICtrlSetData(-1, $no1)
                                $ws1 = $no1
                        EndIf
                Case $Button11
                        $ws1 = "."
                        $no2 = 0
                        If $no1 = 0 Then
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws1)
                                $no1 = $ws1
                        Else
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                $no1 = $no1 & $ws1
                                GUICtrlSetData(-1, $no1)
                                $ws1 = Number($no1)
                        EndIf
                Case $Button12
                        $no1 = 0
                        While $no = 13
                                $ws = $ws2 + $ws1
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws)
                                $no = 0
                                $no1 = 0
                                $no2 = 0
                                $no3 = 1
                                $no4 = 1
                                $ws3 = $ws1
                                $ws4 = $ws
                                $ws1 = $ws
                                $ws2 = 0
                        WEnd
                        
                        While $no = 14
                                $ws = $ws2 - $ws1
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws)
                                $no = 0
                                $no1 = 0
                                $no2 = 0
                                $no3 = 2
                                $no4 = 1
                                $ws4 = $ws
                                $ws3 = $ws1
                                $ws1 = $ws
                                $ws2 = 0
                        WEnd
                        While $no = 15
                                $ws = $ws2 * $ws1
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws)
                                $no = 0
                                $no1 = 0
                                $no2 = 0
                                $no3 = 3
                                $no4 = 1
                                $ws4 = $ws
                                $ws3 = $ws1
                                $ws1 = $ws
                                $ws2 = 1
                        WEnd
                        While $no = 16
                                $ws = $ws2 / $ws1
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws)
                                $no = 0
                                $no1 = 0
                                $no2 = 0
                                $no3 = 4
                                $no4 = 1
                                $ws4 = $ws
                                $ws3 = $ws1
                                $ws1 = $ws
                                $ws2 = 1
                        WEnd
                        Switch $no3
                                Case 1
                                        $ws2 = $ws1
                                        $ws1 = $ws3
                                        $no = 13
                                Case 2
                                        $ws2 = $ws1
                                        $ws1 = $ws3
                                        $no = 14
                                Case 3
                                        $ws2 = $ws1
                                        $ws1 = $ws3
                                        $no = 15
                                Case 4
                                        $ws2 = $ws1
                                        $ws1 = $ws3
                                        $no = 16
                        EndSwitch
                Case $Button13
                        $no1 = 0
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 13
                                
                        ElseIf $no2 = 1 Then
                                $ws2 = $ws1
                                $no = 13
                                $no2 = 1
                        Else
                                Switch $no
                                        Case 13
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 13
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 + $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 13
                                                        $no2 = 1
                                                EndIf
                                        Case 14
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 13
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 - $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 13
                                                        $no2 = 1
                                                EndIf
                                        Case 15
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 13
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 * $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 13
                                                        $no2 = 1
                                                EndIf
                                        Case 16
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 13
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 / $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 13
                                                        $no2 = 1
                                                EndIf
                                EndSwitch
                        EndIf
                        
                Case $Button14
                        $no1 = 0
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 14
                                $no2 = 1
                        ElseIf $no2 = 1 Then
                                $ws2 = $ws1
                                $no = 14
                                $no2 = 1
                        Else
                                Switch $no
                                        Case 13
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 14
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 + $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 14
                                                        $no2 = 1
                                                EndIf
                                        Case 14
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 14
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 - $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 14
                                                        $no2 = 1
                                                EndIf
                                        Case 15
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 14
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 * $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 14
                                                        $no2 = 1
                                                EndIf
                                        Case 16
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 14
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 / $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 14
                                                        $no2 = 1
                                                EndIf
                                EndSwitch
                        EndIf
                Case $Button15
                        $no1 = 0
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 15
                                $no2 = 1
                        ElseIf $no2 = 1 Then
                                $ws2 = $ws1
                                $no = 15
                                $no2 = 1
                        Else
                                Switch $no
                                        Case 13
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 15
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 + $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 15
                                                        $no2 = 1
                                                EndIf
                                        Case 14
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 15
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 - $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 15
                                                        $no2 = 1
                                                EndIf
                                        Case 15
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 15
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 * $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 15
                                                        $no2 = 1
                                                EndIf
                                        Case 16
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 15
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 / $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 15
                                                        $no2 = 1
                                                EndIf
                                EndSwitch
                        EndIf
                        
                Case $Button16
                        $no1 = 0
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 16
                                $no2 = 1
                        ElseIf $no2 = 1 Then
                                $ws2 = $ws1
                                $no = 16
                                $no2 = 1
                        Else
                                Switch $no
                                        Case 13
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 16
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 + $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 16
                                                        $no2 = 1
                                                EndIf
                                        Case 14
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 16
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 - $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 16
                                                        $no2 = 1
                                                EndIf
                                        Case 15
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 16
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 * $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 16
                                                        $no2 = 1
                                                EndIf
                                        Case 16
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 16
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 / $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 16
                                                        $no2 = 1
                                                EndIf
                                EndSwitch
                        EndIf
                        
                Case $Button17
                        $no = 0
                        $no1 = 0
                        $no2 = 0
                        $no3 = 0
                        $no4 = 0
                        $ws = 0
                        $ws1 = ""
                        $ws2 = 1
                        $ws3 = 0
                        $ws4 = 0
                        $ws5 = 0
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, 0)
        EndSwitch
WEnd


Func WM_HOTKEY($Form1, $iMsg, $wParam, $lParam)
        Switch _WinAPI_HiWord($lParam)
                Case 0x60
                        $ws1 = $ws1 & '0'
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x61
                        $ws1 = Number($ws1 & '1')
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x62
                        $ws1 = Number($ws1 & '2')
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x63
                        $ws1 = Number($ws1 & '3')
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x64
                        $ws1 = Number($ws1 & '4')
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x65
                        $ws1 = Number($ws1 & '5')
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x66
                        $ws1 = Number($ws1 & '6')
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x67
                        $ws1 = Number($ws1 & '7')
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x68
                        $ws1 = Number($ws1 & '8')
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x69
                        $ws1 = Number($ws1 & '9')
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x6E
                        $ws1 = $ws1 & '.'
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, $ws1)
                Case 0x6B
                        $no1 = 0
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 13
                                
                        ElseIf $no2 = 1 Then
                                $ws2 = $ws1
                                $no = 13
                                $no2 = 1
                        Else
                                Switch $no
                                        Case 13
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 13
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 + $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 13
                                                        $no2 = 1
                                                EndIf
                                        Case 14
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 13
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 - $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 13
                                                        $no2 = 1
                                                EndIf
                                        Case 15
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 13
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 * $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 13
                                                        $no2 = 1
                                                EndIf
                                        Case 16
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 13
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 / $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 13
                                                        $no2 = 1
                                                EndIf
                                EndSwitch
                        EndIf
                Case 0x6D
                        $no1 = 0
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 14
                                $no2 = 1
                        ElseIf $no2 = 1 Then
                                $ws2 = $ws1
                                $no = 14
                                $no2 = 1
                        Else
                                Switch $no
                                        Case 13
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 14
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 + $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 14
                                                        $no2 = 1
                                                EndIf
                                        Case 14
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 14
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 - $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 14
                                                        $no2 = 1
                                                EndIf
                                        Case 15
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 14
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 * $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 14
                                                        $no2 = 1
                                                EndIf
                                        Case 16
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 14
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 / $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 14
                                                        $no2 = 1
                                                EndIf
                                EndSwitch
                        EndIf
                Case 0x6A
                        $no1 = 0
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 15
                                $no2 = 1
                        ElseIf $no2 = 1 Then
                                $ws2 = $ws1
                                $no = 15
                                $no2 = 1
                        Else
                                Switch $no
                                        Case 13
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 15
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 + $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 15
                                                        $no2 = 1
                                                EndIf
                                        Case 14
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 15
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 - $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 15
                                                        $no2 = 1
                                                EndIf
                                        Case 15
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 15
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 * $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 15
                                                        $no2 = 1
                                                EndIf
                                        Case 16
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 15
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 / $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 15
                                                        $no2 = 1
                                                EndIf
                                EndSwitch
                        EndIf
                Case 0x6F
                        $no1 = 0
                        If $no = 0 Then
                                $ws2 = $ws1
                                $no = 16
                                $no2 = 1
                        ElseIf $no2 = 1 Then
                                $ws2 = $ws1
                                $no = 16
                                $no2 = 1
                        Else
                                Switch $no
                                        Case 13
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 16
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 + $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 16
                                                        $no2 = 1
                                                EndIf
                                        Case 14
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 16
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 - $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 16
                                                        $no2 = 1
                                                EndIf
                                        Case 15
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 16
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 * $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 16
                                                        $no2 = 1
                                                EndIf
                                        Case 16
                                                If $no4 = 1 Then
                                                        $ws2 = $ws4
                                                        $no = 16
                                                        $no2 = 1
                                                Else
                                                        $ws2 = $ws2 / $ws1
                                                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                                        GUICtrlSetData(-1, $ws2)
                                                        $no = 16
                                                        $no2 = 1
                                                EndIf
                                EndSwitch
                        EndIf
                Case 0x6C
                        
                        $no1 = 0
                        While $no = 13
                                $ws = $ws2 + $ws1
                                GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                                GUICtrlSetData(-1, $ws)
                                $no = 0
                                $no1 = 0
                                $no2 = 0
                                $no3 = 1
                                $no4 = 1
                                $ws3 = $ws1
                                $ws4 = $ws
                                $ws1 = $ws
                                $ws2 = 0
                        WEnd
                Case 0x20
                        $no = 0
                        $no1 = 0
                        $no2 = 0
                        $no3 = 0
                        $no4 = 0
                        $ws = 0
                        $ws1 = ""
                        $ws2 = 1
                        $ws3 = 0
                        $ws4 = 0
                        $ws5 = 0
                        GUICtrlCreateEdit("", 16, 16, 153, 21, BitOR($ES_RIGHT, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
                        GUICtrlSetData(-1, 0)
        EndSwitch
EndFunc   ;==>WM_HOTKEY

能不能帮我精减下，看的我头都大了

netegg

回复 8# afan
我记得case .... to好像可以，不过可能有个问题，就是如果=不是最后一个创建的就很麻烦，尽管用排除可以解决，反正按键不很多，这样就是累点，无所谓了

还有个问题，lz的意思不知道是要不要等号，我也没处理，这些很基本的东西，还是看帮助解决吧

afan

回复 10# netegg


    抬头，楼上来了劳力士…

netegg

这是要干什么，键盘设置用的着这么麻烦吗，做个小键盘的虚拟按键表，然后用虚拟代码转成10进制，和上面的处理方式一样

每个数字下面的while....wend是干什么的

另外就算lz想这样写， 既然每个条件下的操作都一样，做个子函数调用好了，这么麻烦干什么

afan

回复 9# 2011风之叶


    干嘛用这么多 GUICtrlCreateEdit ? 73个…

afan

回复 9# 2011风之叶


    看看 GUISetAccelerators() 函数吧，精简由此开始。

netegg

Local $AccelKeys[17][2] = [["{NUMPAD1}", $Button1],["{NUMPAD2}", $Button2].....["{NUMPADENTER}", $Button17]]
GUISetAccelerators($AccelKeys, $GUI)