#encding:GBK
require 'tk' module Const
WIDTH_OF_PANEL = 370
HEIGHT_OF_PANEL = 520
SIZE_OF_BUTTON_H = 60
SIZE_OF_BUTTON_W = 80
HEIGHT_OF_DISPLAY_FRAME = 90
HEIGHT_OF_VALUE_LABEL = 30
HEIGHT_OF_OPERATION_LABEL = 20
BORDER_WIDTH = 2
PADX = 10
PADY = 10
OP_ARRAY = ["%","sqrt","x^2","1/x","CE","C","DEL","/","","","","*","","","","-","","","","+","+/-","",".","="]
end include Const $value_tk_var = TkVariable.new(0)
$operate_tk_var = TkVariable.new
$Font = TkFont.new('arial 18') class ButtonInfor
attr_accessor :x, :y
protected :x=, :y=
def initialize(x=0,y=0)
@x , @y = x , y
end
end module Work
def number(num)
if $value_tk_var.value == ""
$value_tk_var.value = num
elsif $value_tk_var.value == '-0'
$value_tk_var.value = $value_tk_var.value.chop + num
puts "bbbb"
elsif $value_tk_var.value != ""
$value_tk_var.value += num
end
end def point
unless /\./ =~ $value_tk_var.value
$value_tk_var.value += "."
end
end def calcu( key )
unless (/\+/ =~ $operate_tk_var.value || /-/ =~ $operate_tk_var.value || /\*/ =~ $operate_tk_var.value || /\// =~ $operate_tk_var.value)
$operate_tk_var.value = $value_tk_var.value + " " + key
$value_tk_var.value = 0
else
$operate_tk_var.value = $operate_tk_var.value.chop + key
end
end def equl
operator_ = $operate_tk_var.value[$operate_tk_var.value.size-1]
$operate_tk_var.value = $operate_tk_var.value.chop
num2 = (/\./ =~ $value_tk_var.value) ? $value_tk_var.value.to_f : $value_tk_var.value.to_i
num1 = (/\./ =~ $operate_tk_var.value) ? $operate_tk_var.value.to_f : $operate_tk_var.value.to_i
case operator_
when "+"
$value_tk_var.value = ( num1 + num2 ).to_s
when "-"
$value_tk_var.value = ( num1 - num2 ).to_s
when "*"
$value_tk_var.value = ( num1 * num2 ).to_s
when "/"
if num2 == 0 || num2 == 0.0
$value_tk_var.value = "CANNOT DEVIDED BY 0!"
else
$value_tk_var.value = ( num1 / num2 ).to_s
end
end
$operate_tk_var.value = nil
end def clear(op)
$value_tk_var.value = 0
$operate_tk_var.value = nil if (op == "C")
end def del
$value_tk_var.value = $value_tk_var.value.chop
end def sqrt_
$value_tk_var.value = Math.sqrt($value_tk_var.value.to_f)
end def sq_
$value_tk_var.value = $value_tk_var.value.to_f * $value_tk_var.value.to_f
end def devide_one
$value_tk_var.value = 1/($value_tk_var.value.to_f)
end def negate
if $value_tk_var.value[0] != '-'
$value_tk_var.value = "-" + $value_tk_var.value
else
$value_tk_var.value = $value_tk_var.value.reverse.chop.reverse
end
end def get_pos_hash
tmp = Hash.new
(0..23).each do |i|
tmp[OP_ARRAY[i]]=ButtonInfor.new((i%4)*(PADX+SIZE_OF_BUTTON_W),(i/4)*(PADY+SIZE_OF_BUTTON_H))
end
return tmp
end module_function :number , :point , :clear , :calcu , :equl , :del , :sqrt_ , :sq_ , :devide_one , :get_pos_hash ,:negate
end #创建主窗口
root = TkRoot.new do
title "SHH's Calculator";
geometry WIDTH_OF_PANEL.to_s + "x" + HEIGHT_OF_PANEL.to_s;
end operat_frame = TkFrame.new do
relief 'groove'
pack('fill' => 'x')
borderwidth BORDER_WIDTH
padx PADX
pady PADY
place:'height' => HEIGHT_OF_PANEL-HEIGHT_OF_DISPLAY_FRAME , 'width' => WIDTH_OF_PANEL , 'x' => 0 , 'y' => HEIGHT_OF_DISPLAY_FRAME
background "LightCyan"
end display_frame = TkFrame.new do
relief 'groove'
pack('fill' => 'x')
borderwidth BORDER_WIDTH
padx PADX
pady PADY
place:'height' => HEIGHT_OF_DISPLAY_FRAME , 'width' => WIDTH_OF_PANEL , 'x' => 0 , 'y' => 0
background "lightblue"
end value_label = TkLabel.new(display_frame) do
relief 'groove'
pack('fill' => 'x')
borderwidth BORDER_WIDTH
textvariable
font $Font
place:'height' => HEIGHT_OF_VALUE_LABEL , 'width' => WIDTH_OF_PANEL - PADX * 2 , 'x' => 0 , 'y' => 0
end operation_label = TkLabel.new(display_frame) do
relief 'groove'
pack('fill' => 'x')
borderwidth BORDER_WIDTH
textvariable
font TkFont.new('arial 10')
place:'height' => HEIGHT_OF_OPERATION_LABEL , 'width' => WIDTH_OF_PANEL * 0.618 , 'x' => WIDTH_OF_PANEL * (1-0.618) - PADX * 2 , 'y' => HEIGHT_OF_VALUE_LABEL + PADY
end value_label['textvariable'] = $value_tk_var
operation_label['textvariable'] = $operate_tk_var Work.get_pos_hash().each do |key,value|
TkButton.new(operat_frame) do
font "Consolas 15"
place:'height' => SIZE_OF_BUTTON_H , 'width' => SIZE_OF_BUTTON_W , 'x' => value.x , 'y' => value.y
text key
background (("".."") === key)? "Gainsboro" : "Gray"
command do
case key
when ("".."")
Work.number(key)
when "."
Work.point()
when "+","-","*","/"
Work.calcu(key)
when "="
Work.equl()
when "CE","C"
Work.clear(key)
when "DEL"
Work.del()
when "sqrt"
Work.sqrt_()
when "x^2"
Work.sq_()
when "1/x"
Work.devide_one()
when "+/-"
Work.negate()
end
end
end
end Tk.mainloop

ruby tk实现简易计算器的更多相关文章

  1. 自制c#简易计算器

    这是一个课堂作业,我觉得作为一个简易的计算器不需要态度复杂的东西,可能还有一些bug,有空再慢慢加强. using System;using System.Collections.Generic;us ...

  2. 剖析简易计算器带你入门微信小程序开发

    写在前面,但是重点在后面 这是教程,也不是教程. 可以先看Demo的操作动图,看看是个什么玩意儿,GitHub地址(https://github.com/dunizb/wxapp-sCalc) 自从微 ...

  3. PHP学习笔记02——简易计算器

    <!DOCTYPE html> <html> <head> <title>PHP简易计算器</title> </head> &l ...

  4. JavaScript之简易计算器

    <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8&quo ...

  5. 菜鸟学习Struts——简易计算器

    这是学习Struts的一个简单的例子文件结构如下: 1.配置Struts环境 2.新建input.jsp,success.jsp,error.jsp input.jsp代码如下: <%@ pag ...

  6. Python之实现一个简易计算器

    自己动手写计算器 一.功能分析 用户输入一个类似这样 3*( 4+ 50 )-(( 100 + 40 )*5/2- 3*2* 2/4+9)*((( 3 + 4)-4)-4) 这样的表达式,假设表达式里 ...

  7. 使用HTML+CSS,jQuery编写的简易计算器

    <%@ page language="java" contentType="text/html; charset=UTF-8" pageEncoding= ...

  8. 使用HTML+CSS,jQuery编写的简易计算器后续(添加了键盘监听)

    之前发布了一款简易的计算器,今天做了一下修改,添加了键盘监听事件,不用再用鼠标点点点啦 JS代码: var yunSuan = 0;// 运算符号,0-无运算;1-加法;2-减法;3-乘法;4-除法 ...

  9. C#Windows Form简易计算器实现(中)

    昨天花了一天的时间弄计算器.也算是做出来了,还是简易的(怀疑猿生!!).在此先感谢昨天被我骚扰的朋友. 先贴一张界面看看 其实健壮性还是挺差的,用户体验也是极差的.比如说用户输入了不合理运算式子,我就 ...

随机推荐

  1. luogu 1712

    按区间长度降序排序维护区间指针 [l, r],第 l ~ r 条线段 表示当前区间可以满足条件那么 r 后移一定不是更优的因此 l 前移,使得 r 后移过程中取最小值更新 answer #includ ...

  2. (3)打鸡儿教你Vue.js

    vue.js是一套构建用户界面的渐进式框架 vue关注视图层,采用自底向上增量开发的设计 <div id="app"> <p>{{ message }}&l ...

  3. dashucoding记录2019.6.8

    WordPress网站 网址: https://cn.wordpress.org/ 阿里云市场 https://market.aliyun.com/products/53616009?spm=a2c4 ...

  4. [报错解决] "MySQL server has gone away" 解决思路

    大概的4个思路 1.超时,超时的阀值有wait_timeout这个参数控制 2.连接被人为的kill 3.发送的SQL语句过大超过max_allowed_packet的大小. (操作的sql语句太长了 ...

  5. [报错解决] k8s 删除pv一直处于terminating 两种解决方法

    第一种 直接到etcd中删除 1.将所有的etcd中的key值取到一个keys.yam里面,便于查询 ETCDCTL_API=3 etcdctl get "" --from-key ...

  6. vue学习--vue项目端口不固定,无法指定问题

    写于20190819 前面是自己解决的思路,后面是解决方法以及需要记住的一些更改 package.json 之前只知道vue项目是基于node.js,对node.js了解不是很深入,项目的开始文件是p ...

  7. adb shell monkey--APP

  8. ngx.shared.DICT.incr 详解

    ngx.shared.DICT.incr 原文: ngx.shared.DICT.incr syntax: newval, err, forcible? = ngx.shared.DICT:incr( ...

  9. Cesium官方教程6--相机

    相机(Camera) 相机控制了场景的观察视角.有很多相机操控方法,比如旋转.缩放.平移以及飞行定位.Cesium默认支持使用鼠标和触摸事件控制相机.Cesium也提供了一套可编程的相机控制API.这 ...

  10. zsh: no matches found

    具体原因: 因为zsh缺省情况下始终自己解释这个 *.h,而不会传递给 find 来解释. 解决办法: 在~/.zshrc中加入: setopt no_nomatch, 然后进行source .zsh ...