三九宝宝网宝宝百科宝宝知识

古时如何用沙漏计时间的

01月17日 编辑 39baobao.com

[2015考研数学倒计时50天高数六大必考题型]2015年考研的复习已进入了关键的冲刺阶段,对于公共课的数学复习来说,采取积极的心态、掌握适合自己的复习方法恰当的复习方法及逐渐强化应试技巧,能在最后50多天里快速提高成绩...+阅读

沙漏又称“沙钟”,是我国古代一种计量时间的仪器。沙漏的制造原理与漏刻大体相同,它是根据流沙从一个容器漏到另一个容器的数量来计量时间。这种采用流沙代替水的方法,是因为我国北方冬天空气寒冷,水容易结冰的缘故。

最著名的沙漏是1360年詹希元创制的“五轮沙漏”。流沙从漏斗形的沙池流到初轮边上的沙斗里,驱动初轮,从而带动各级机械齿轮旋转。最后一级齿轮带动在水平面上旋转的中轮,中轮的轴心上有一根指针,指针则在一个有刻线的仪器圆盘上转动,以此显示时刻,这种显示方法几乎与现代时钟的表面结构完全相同。此外,詹希元还巧妙地在中轮上添加了一个机械拨动装置,以提醒两个站在五轮沙漏上击鼓报时的木人。每到整点或一刻,两个木人便会自行出来,击鼓报告时刻。这种沙漏脱离了辅助的天文仪器,已经独立成为一种机械性的时钟结构。

以下为关联文档:

宣传册如何设计设计时要考虑些什么第一,一本宣传册拿到手,我们首先要分析这本宣传册的作用是什么,是企业品牌推广?新产品推广?新产品介绍说明?还是其他的用途,便于我们设计时进行风格定位 第二,其次要了解企业所在行...

用VB编写倒计时程序在窗体添加三个 text 一个timer 一个command text1 text2 text3 分别代表 hh mm ss timer1 是定时器,计时用的 command1 是开始计时按钮 然后在窗体代码内粘贴以下全部代码,运...

用vb编辑倒计时怎么弄窗体上添加一个timer控件,一个label控件,代码窗体里的代码: Dim ts As Integer '全局变量 Private Sub Form_Load() ts = 60 Timer1.Interval = 1000 '1s执行一次 Timer1.Enabl...

用VB编写一个倒计时的程序Dim t Dim start As Boolean Private Sub Command1_Click() If start = False Then t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3) start = True End If Timer1.En...

怎么用vb编写倒计时的程序用VB6.0写的,运行时单击“设置”按钮,弹出Inputbox输入框供用户输入倒计时的时间(以分钟为单位)。单击“开始”按钮则在文本框内显示剩余的时间数(以时:分:秒的格式),同时滚动条上的...

怎么用VB写一个倒计时Option Explicit Const t = 5 '定义5秒倒计时,自己修改 Dim n As Long Private Sub Command1_Click() If Command1.Caption = "开始计时" Then Timer1.Enabled = True Command1...

怎样用VB编一个倒计时程序简单的倒数程序代码 Private Sub Form_Load() Label1.Caption = 60 End Sub Private Sub Timer1_Timer() Label1.Caption = Label1.Caption - 1 End Sub 至于时间倒计时。==...

四审计实务题审计人员在对某工业企业2000年度会计报表审计时1. 购入用料时,应将价税合计全部计入“在建工程”账户 2. 工资应计入”应付职工薪酬“账户,福利费应计入”应付职工薪酬-职工福利“账户 3. 职工医药费应计入”应付职工薪酬-...

如何设置幻灯片的排练计时步骤1:按【Ctrl+0】组合键,打开演示文稿,进入第1张幻灯片,如下图所示。 步骤2:切换至“幻灯片放映”面板,单击“设置”选项板中的“排练计时”按钮,如下图所示。 步骤3:此时幻灯片将...

推荐阅读
图文推荐