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 ◎◎◎◎

CRC 在线计算器

On-line CRC calculation and free library         https://www.lammertbies.nl/comm/info/crc-calculat...
  • zhengyanan815
  • zhengyanan815
  • 2017年11月14日 11:38
  • 592

Modbus rtu CRC在线计算

自己想写个Modbus rtu的计算,C#写了半天都不对,还是先弄个在线计算的先用。 Rtu的选Hex。 如 发送命令:02 03 00 05 00 02         看结果  CRC-1...
  • fengyu09
  • fengyu09
  • 2011年09月20日 11:16
  • 20362

QQ在线人数统计图数据解析

我相信很多人一定去过这个地方: http://im.qq.com/online/index.shtml 这就是QQ在线人数统计图 再来看一个网址: http://cgi.im.qq.com/cgi-b...
  • XiaoY_H
  • XiaoY_H
  • 2014年06月01日 20:10
  • 9463

一些常用的几何相关在线计算工具

1.      正方体表面积与体积计算 数学几何 2.      计算三角形面积:已知底与高的值 数学几何 3.      球扇形面积计算 几何数学 4.      长方体面积计算 ...
  • bukunu
  • bukunu
  • 2015年04月20日 21:16
  • 301

基于HTTP和大数运算的在线计算器

**关于HTTP的具体的描述网上一大堆本文不在赘述#include "http.h" int starup(const char* ip,int port) { int sock = sock...
  • Dakuan_chen
  • Dakuan_chen
  • 2017年07月26日 19:49
  • 1416

在线计算器源码(HTML+CSS+jQuery)

一、简介 最近学习前端内容,做为练习,试开发了一个在线的计算器。 具有如下功能: +-*/运算;开平方根运算;支持键盘输入(delete键设置为初始化功能)。 目前存在的BUG: ...
  • kevinhjing
  • kevinhjing
  • 2015年07月08日 17:46
  • 1558

最小二乘法线性拟合计算器

直接求拟合系数,残差,方便
  • bluesky140
  • bluesky140
  • 2017年12月09日 16:32
  • 222

WebService(腾讯QQ在线状态 WEB 服务)

今天介绍一个简单有意思的小技术: 我们的目的呢就是通过输入QQ号码(String)检测QQ在线状态 我们首先打开http://www.webxml.com.cn/zh_cn/w...
  • D2587659184
  • D2587659184
  • 2017年09月04日 21:55
  • 451

qq在线状态客户代码与图标

最近发现腾讯的在线状态客户代码
  • yuelenglingxi
  • yuelenglingxi
  • 2014年05月07日 17:36
  • 3798

关于modbus rtu协议的CRC(循环冗余校验)在线计算

上位机须按照MODBUS协议的命令格式发送数据(包括计算的CRC值),从机才能正确辨识数据。若无CRC值,从机将返回含有错误号的应答包,不会得到正确结果。标准的做法,发送前计算CRC值并一起发送,接收...
  • dmfylb
  • dmfylb
  • 2017年06月21日 20:29
  • 6045
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:qq在线时间计算器
举报原因:
原因补充:

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