qq在线时间计算器

原创 2005年04月11日 14:49:00

第一次写了个小东西,准备放到网上,不过不知道应该那里放。一个计算qq对应等级所需要的在线时间的小东西!

unit Umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Tshi2,Tshijian : integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Tshijian:= strtoint(Edit1.Text);
  Label4.Caption:=inttostr(5*Tshijian*Tshijian+15*Tshijian);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Tshi2:=Tshijian+1;
   label4.Caption:=inttostr(5*Tshi2*Tshi2+15*Tshi2-5*Tshijian*Tshijian-15*Tshijian);
end;

end.

==============================

最新的等级计算方式如下

等级 活跃天数 升级天数 等级图标
1 5 7 ☆
2 12 9 ☆☆
3 21 11 ☆☆☆
4 32 13 ¢
5 45 15 ¢☆
6 60 17 ¢☆☆
7 77 19 ¢☆☆☆
8 96 21 ¢¢
9 117 23 ¢¢☆
10 140 25 ¢¢☆☆
11 165 27 ¢¢☆☆☆
12 192 29 ¢¢¢
13 221 31 ¢¢¢☆
14 252 33 ¢¢¢☆☆
15 285 35 ¢¢¢☆☆☆
16 320 37 ◎
17 357 39 ◎☆
18 396 41 ◎☆☆
19 437 43 ◎☆☆☆
20 480 45 ◎¢
21 525 47 ◎¢☆
22 572 49 ◎¢☆☆
23 621 51 ◎¢☆☆☆
24 672 53 ◎¢¢
25 725 55 ◎¢¢☆
26 780 57 ◎¢¢☆☆
27 837 59 ◎¢¢☆☆☆
28 896 61 ◎¢¢¢
29 957 63 ◎¢¢¢☆
30 1020 65 ◎¢¢¢☆☆
31 1085 67 ◎¢¢¢☆☆☆
32 1152 69 ◎◎
33 1221 71 ◎◎☆
34 1292 73 ◎◎☆☆
35 1365 75 ◎◎☆☆☆
36 1440 77 ◎◎¢
37 1517 79 ◎◎¢☆
38 1596 81 ◎◎¢☆☆
39 1677 83 ◎◎¢☆☆☆
40 1760 85 ◎◎¢¢
41 1845 87 ◎◎¢¢☆
42 1932 89 ◎◎¢¢☆☆
43 2021 91 ◎◎¢¢☆☆☆
44 2112 93 ◎◎¢¢¢
45 2205 95 ◎◎¢¢¢☆
46 2300 97 ◎◎¢¢¢☆☆
47 2397 99 ◎◎¢¢¢☆☆☆
48 2496 101 ◎◎◎
49 2597 103 ◎◎◎☆
50 2700 105 ◎◎◎☆☆
51 2805 107 ◎◎◎☆☆☆
52 2912 109 ◎◎◎¢
53 3021 111 ◎◎◎¢☆
54 3132 113 ◎◎◎¢☆☆
55 3245 115 ◎◎◎¢☆☆☆
56 3360 117 ◎◎◎¢¢
57 3477 119 ◎◎◎¢¢☆
58 3596 121 ◎◎◎¢¢☆☆
59 3717 123 ◎◎◎¢¢☆☆☆
60 3840 125 ◎◎◎¢¢¢
61 3965 127 ◎◎◎¢¢¢☆
62 4092 129 ◎◎◎¢¢¢☆☆
63 4221 131 ◎◎◎¢¢¢☆☆☆
64 4352 133 ◎◎◎◎

相关文章推荐

在线简易计算器源码[html+css+js]

计算器 .panel { border: 4px solid #ddd; width: 192px; margin: 1...

jsp+servlet实现在线简易计算器

1:jsp String path = request.getContextPath(); String basePath = request.getScheme()+"://"+requ...

在网页中 生成QQ在线临时对话框/聊天

一、如何获取“QQ在线状态”网页代码。请进入腾讯互动状态代码生成页面http://wp.qq.com/开始生成的设置:   1、第一步进入在线状态连接,中间的图指的是你要设置的QQ在线的时候显示的...

Yahoo,Msn,Skype,QQ,阿里旺旺,网页聊天,网页链接,在线聊天链接接口调用

MSN: 我的MSN Yahoo:ya@yahoo.com.cn  Skype:sky88 QQ: http://b.qq.com/wp/ http://wp.qq.com/...
  • wyqlxy
  • wyqlxy
  • 2011年02月21日 11:07
  • 4587

负载均衡--大型在线系统实现的关键(上篇)(再谈QQ游戏百万人在线的技术实现)

本文作者:sodme本文出处:http://blog.csdn.net/sodme/archive/2005/06/12/393165.aspx声明:本文可以不经作者同意任意转载,但任何对本文的引用都...

在网页中加入新版QQ、MSN在线状态代码的方法

http://www.xianzhixianjue.com/?p=11840 很多企业、网店、以及中小站长通常都需要在网站或网页上加入一些联系方式,比如常见的QQ、MSN等等。而大家比较注重的通常是...
  • wyqlxy
  • wyqlxy
  • 2011年08月26日 10:08
  • 1999

ASP.NET 在线QQ浮动咨询代码

以下代码存为一个用户控件ascx文件,在你要引用的地方引用就行了:
  • sabic
  • sabic
  • 2012年02月23日 11:53
  • 4822

QQ面板拖拽在线状态改变

拖拽时:鼠标按键按下》移动》鼠标按键松开 注意事件冒泡,两个事件如果冲突,较具体的事件会冒泡到另一个://阻止事件冒泡,在较具体那个事件那里,阻止冒泡到它的上级事件...

qq 在线客服代码

把以下代码嵌入到网页中,可以实现在线客服的效果。代码是腾讯提供的。  开通“QQ在线状态”后,您可以通过张贴代码在更多网站生成“QQ在线状态”按钮。 同时,您可在“设置”页面管理以下内容,且不需要...

QQ在线客服代码

1. http://is.qq.com/cgi-bin/webpresence/wpa_code?uin=+你的QQ号码;      ;
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:qq在线时间计算器
举报原因:
原因补充:

(最多只允许输入30个字)