主页
Top.Mail.Ru Yandeks.Metrika
论坛:“抢”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

最简单的时钟算法 找到类似的分支


DeMoN-777   (2002-07-02 18:23) [0]

向导不会告诉最简单的时钟算法。



Fiend   (2002-07-02 18:33) [1]

TIK-TAK-> TIK-TAK-> TIK-TAK-> TIK-TAK-> TIK-TAK-> TIK-TAK-> TIK-TAK-> TIK-TAK-> TIK-TAK-> TIK-TAK-> TIK-TAK-> TIK-TAK->
箭头翻译



RV   (2002-07-02 18:44) [2]

太早翻译,还需要49次



Lola   (2002-07-02 18:58) [3]

您是否真的确定要转换哪个时钟:手腕,墙壁,计算机或时钟中的数字?



MBo   (2002-07-02 19:17) [4]

程序timer1timer(Sender:TObject);
开始
label1.caption:= timetostr(现在);
结束;



Сергей Суровцев   (2002-07-02 19:27) [5]

在窗台上放一根火柴,他们会晴天!



Igorek   (2002-07-02 20:56) [6]

而为机械表写的算法是弱的吗? ;-)))

---
“我告诉他有关托马斯的事,他告诉我关于耶和华的事情”



MBo   (2002-07-02 21:16) [7]

> Igorek
有必要吗? :)



DeMoN-777   (2002-07-02 21:41) [8]

好吧,还没有完成,对吧?

过程TForm1.Timer1Timer(发件人:TObject); 变种 Sek1,Sek2,Min1,Min2,Hour1,Hour2,Hour3,Hour4:字节; 开始 Sek2:= Sek2 + 1; Image10.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \” + inttostr(Sek2)+“ .Bmp”); Image1。 如果Sek2> = 10,则 开始 Image10.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \ 0.bmp”); Sek2:= 0; Sek1:= Sek1 + 1; Image9.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \” + inttostr(Sek1)+“ .Bmp”); 结束 如果Sek1> = 6,则 开始 Image9.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \ 0.bmp”); Min2:= Min2 + 1; Image7.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \” + inttostr(Min2)+“ .Bmp”); Sek1:= 0; 结束 如果min2> = 10,则 开始 Image7.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \ 0.bmp”); Min1:= Min1 + 1; Image6.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \” + inttostr(Min1)+“ .Bmp”); Min2:= 0; 结束 如果min1> = 6,则 开始 Image6.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \ 0.bmp”); Hour4:= Hour4 + 1; Image4.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \” + inttostr(Hour4)+“ .Bmp”); Min1:= 0; 结束 如果Hour4> = 10,则 开始 Image4.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \ 0.bmp”); Hour3:= Hour3 + 1; Image3.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \” + inttostr(Hour3)+“ .Bmp”); Hour4:= 0; 结束 如果Hour3> = 10,则 开始 Image3.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \ 0.bmp”); Hour2:= Hour2 + 1; Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \” + inttostr(Hour2)+“ .Bmp”); Hour3:= 0; 结束 如果Hour2> = 10,则 开始 Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \ 0.bmp”); Hour1:= Hour1 + 1; Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \” + inttostr(Hour1)+“ .Bmp”); Hour2:= 0; 结束 如果Hour2> = 10,则 开始 ShowMessage(“嗯,给你个煎饼”); 结束 结束

还是最理想;)?



DeMoN-777   (2002-07-02 21:53) [9]

当然,这不是时钟,而是示例。



это РВ, тока не получается у меня зайти   (2002-07-02 22:02) [10]

在程序中,当您进入Sec2时,那有什么相等?
不总是xnumx吗?

问题是什么,可以用不同的方法解决



Anatoly Podgoretsky   (2002-07-02 22:16) [11]

DeMoN-777©(02.07.02 21:41)
声音在哪里,科兹列维奇



DeMoN-777   (2002-07-02 22:23) [12]

> Anatoly Podgoretsky©(02.07.02 22:16)
声音在哪里,科兹列维奇
Kozlevich在哪里?我似乎从未冒犯过您,而是以尊重的态度对待您。

如果这是由于这种森林算法引起的,那么顺便说这完全不是我的事。 我只是问了一个问题,想得到一个答案,但是..............



Anatoly Podgoretsky   (2002-07-02 22:26) [13]

DeMoN-777©(02.07.02 22:23)
我们不读经典



RV   (2002-07-02 22:28) [14]

问题是什么,可以用不同的方法解决



iZEN   (2002-07-02 22:37) [15]

对于DeMoN-777。
以Java开发工具包示例中的带箭头的手表为例,这可能会有助于一般性的想法-从JDK的第一个版本开始,它们以applet的形式存在。



DeMoN-777   (2002-07-02 23:25) [16]

重一点。
事实仅数分钟和数秒。
这样会更真实吗?

单位Unit1; 介面 用途 Windows,消息,SysUtils,类,图形,控件,表单,对话框, ExtCtrls; 类型 TForm1 =类(TForm) Panel1:TPanel; Image4:TImage; Image5:TImage; Image6:TImage; Image7:TImage; Image8:TImage; Timer1:TTimer; 程序Panel1MouseDown(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X,Y:整数); 过程FormCreate(Sender:TObject); 程序Timer1Timer(Sender:TObject); 私人的 {私人声明} 公开的 {公开声明} 结束 变种 Form1:TForm1; BitmapArray:TBitmap的数组[0..10]; Sek2,Sek1,Min2,Min1,hour2,hour1:字节; 实作 {$ R * .DFM} 过程TForm1.Panel1MouseDown(发件人:TObject;按钮:TMouseButton; Shift:TShiftState; X,Y:整数); const SC_DragMove = $ F012; 开始 如果button = mbleft然后 开始 ReleaseCapture 执行(WM_SysCommand,SC_DragMove,0); 结束 结束 过程TForm1.FormCreate(发送者:TObject); var i:字节; 开始 对于i:= 0到9 开始 BitmapArray [i]:= TBitmap.Create; BitmapArray [i] .LoadFromFile(ExtractFilePath(Application.ExeName)+“ Num \” + inttostr(i)+“ .Bmp”); 结束 sek2:= 0; sek1:= 0; Min2:= 0; Min1:= 0; Hour2:= 0; Hour1:= 0; 结束 过程TForm1.Timer1Timer(发件人:TObject); 开始 Sek2:= Sek2 + 1; Image8.Picture.Bitmap:= BitmapArray [sek2]; 如果Sek2> = 10,则 开始 Image8.Picture.Bitmap:= BitmapArray [0]; Sek2:= 0; Sek1:= Sek1 + 1; Image7.Picture.Bitmap:= BitmapArray [sek1]; 结束 如果Sek1> = 6,则 开始 Image7.Picture.Bitmap:= BitmapArray [0]; Sek1:= 0; Min2:= Min2 + 1; Image5.Picture.Bitmap:= BitmapArray [Min2]; 结束 如果min2> = 10,则 开始 Image5.Picture.Bitmap:= BitmapArray [0]; Min2:= 0; Min1:= Min1 + 1; Image4.Picture.Bitmap:= BitmapArray [Min1]; 结束 如果min1> = 6,则 开始 Image4.Picture.Bitmap:= BitmapArray [0]; Min1:= 0; 哔声 结束 结束 结束。




DeMoN-777   (2002-07-02 23:27) [17]

> Anatoly Podgoretsky©(02.07.02 22:26

不,不读。



RV   (2002-07-02 23:35) [18]

也许吧
好吧,你必须做点什么吗?
我了解到车上有美丽的数字
所以也许timetostr(现在)并解析结果字符串



DeMoN-777   (2002-07-02 23:38) [19]

> RV©(02.07.02 23:35
>因此timetostr(现在)并解析结果字符串

这是一个主意。



DeMoN-777   (2002-07-03 00:23) [20]

虽然有些东西我刹车,但我不需要sys。 时间和您的计时器。
有没有人有优化思路的线索?



RV   (2002-07-03 09:09) [21]

/从水壶里加火,任务减少到上一个

设置时间类型变量并按计时器递增
timetostr(变量)并解析结果字符串





Alexandr   (2002-07-03 10:09) [22]

有一个时钟组件

您将其放在窗体上,然后调用Clock1.Run就是这样。



Anatoly Podgoretsky   (2002-07-03 11:21) [23]

DeMoN-777©(02.07.02 21:41)
关于优化

1。 最好不要在每一行中都隔离路径,请使变量Path:= ExtractFilePath(Application.ExeName)+“ Num \”,也应使用02.07.02 23的更正版本:25将其移出循环,并在循环中BitmapArray [I] .LoadFromFile(路径+ IntToStr(I)+“ .Bmp”);

2。 不能保证计时器每秒钟运行一次,必须在开始时用计算代替CurTime:= StartTime:= Now,并且计时器中的计算是Now-StartTime,并通过DecodeTime或S:以Word格式接收:= Format(“ hhnnss”, CurTime)并立即以字符串形式从索引S [1,2,3,4,5,6]处的字符串获取值,我更喜欢此选项。

您将获得简短,快速且易于阅读的代码



DeMoN-777   (2002-07-03 13:28) [24]

谢谢大家的意见!



Wizard_Ex   (2002-07-03 16:20) [25]

非常有趣的讨论
-------------------------------------------------- ------------------------------
笑一笑



Страницы: 1 整个分支

论坛:“抢”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上





内存:0.63 MB
时间:0.034 c
3-95239年
BKGG
2002-07-06 22:39
2002.07.29
IB的


1-95276年
LENY
2002-07-17 09:22
2002.07.29
在stringGrid中提示


4-95629年
Voland!
2002-05-21 03:29
2002.07.29
关于老鼠!!!


14-95523年
fonarick
2002-07-01 20:59
2002.07.29
互联网 - >钱


7-95587年
普什卡列夫帕维尔
2002-04-30 16:37
2002.07.29
如何确定主板,声音和背心





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский