Dec 04

连号个数

定制过滤公式 1 Comment »

摘要

连号个数

描述

范例

//计算号码1..7连号个数
 LH([r1,r2,r3,r4,r5,r6,r7])

关键字

  • 教程 公式

请参阅

作者

SC

written by 彩票过滤 \\ tags: , , ,

Dec 04

定制过滤 插件 发布1.0.10

定制过滤 8 Comments »

插件免费无需注册



新增内容：

  • 快速代码测试按钮
  • 新增函数
    • 质数判断IsZS例：检查123是否是质数，是返回1否则返回0 IIF(IsZS(123),1,0)
    • 质数个数ZS例：号码1..7质数个数ZS([1,2,3,4,5,6,7])
    • 合数个数HS例：号码1..7合数个数HS([1,2,3,4,5,6,7])
    • 连号个数LH例：号码1..7连号个数LH([1,2,3,4,5,6,7])
    • 连号组数LHZ例：号码1..7连号组数 LHZ([1,2,3,4,5,6,7])
    • 极号间距JHJJ例：号码1..7极号间距 JHJJ([1,2,3,4,5,6,7])

written by 彩票过滤 \\ tags: , ,

Dec 01

大赢家过滤插件入门教程

大赢家过滤插件 2 Comments »

过滤插件 Delphi 例子

written by 彩票过滤 \\ tags: ,

Dec 01

双色球大赢家过滤插件Delphi插件例子

大赢家过滤插件 5 Comments »
来源：双色球大赢家帮助文档


library MZFBFlt;

// ************************************************************************ //
// AppName : 命中分布过滤插件
// Version : 1.0.3
// Company : bittime
// Author : yanxb
// Description: 命中分布过滤插件
// CreateDate : 2003-07-16
// ************************************************************************ //

uses
  SysUtils,
  Classes,
  Windows,
  Forms,
  BaseForm in '..\..\BaseForm.pas' {frmBase},
  MZFBForm in 'MZFBForm.pas' {frmMZFB},
  unt_IniFile in '..\..\unt_IniFile.pas',
  InputForm in '..\..\InputForm.pas' {frmInput},
  Filter_Base in '..\Filter_Base.pas',
  unt_SSQDYJ in '..\..\unt_SSQDYJ.pas',
  unt_CPShareFunc in '..\..\unt_CPShareFunc.pas';

///////////////////////////////////////////////////////////////////
{$R *.res}
///////////////////////////////////////////////////////////////////

var
  FFilterStr: string; //过滤条件字符串
  FCanErrLocal: boolean; //是否本级容错
  FCanErrMin, FCanErrMax: integer; //本级容错范围

///////////////////////////////////////////////////////////////////
// DLL入口函数
// 用户可在该函数中对过滤插件进行初始化处理以及资源释放处理

procedure DLLEntryPoint(dwReason: DWORD);
begin
  case dwReason of
    DLL_PROCESS_ATTACH: //DLL启动
      begin
      //变量初始化等处理
      end;
    DLL_PROCESS_DETACH: //DLL退出
      begin
      //释放资源等处理
      end;
  end;
end;

///////////////////////////////////////////////////////////////////
// 过滤插件信息函数

{ =====================================================================
Function : 获取过滤插件的名称
Result : 过滤插件的名称, 该名称应该不与现有的过滤模块同名
===================================================================== }

function GetFilterName(): PChar; stdcall;
begin
  Result := '分布过滤';
end;

{ =====================================================================
Function : 获取过滤插件的版本信息
Result : 过滤插件的版本信息
===================================================================== }

function GetVersion(): PChar; stdcall;
begin
  Result := '1.0.1';
end;

{ =====================================================================
Function : 获取过滤插件的作者信息
Result : 过滤插件的作者信息
===================================================================== }

function GetAuthor(): PChar; stdcall;
begin
  Result := '比特时代科技有限公司';
end;

///////////////////////////////////////////////////////////////////
// 过滤操作相关函数

{ =====================================================================
Function : 获取过滤插件的过滤条件字符串
Result : 过滤条件字符串
===================================================================== }

function GetFilterStr(): PChar; stdcall;
begin
  Result := PChar(FFilterStr);
end;

{ =====================================================================
Function : 设置过滤插件的过滤条件字符串
Arguments: 过滤条件字符串
===================================================================== }

procedure SetFilterStr(sFilterStr: PChar); stdcall;
begin
  FFilterStr := sFilterStr;
end;

{ =====================================================================
Function : 执行过滤操作，该函数为过滤插件的核心函数，必须实现
Arguments: AChip-要进行过滤的一个单式投注，如：3313011301303
Result : 给定的单式投注不符合的过滤条件个数（即应被过滤的次数）
如单式投注符合所有过滤条件（即应保留）则返回0
===================================================================== }

function SsqExecute(AChip: PChar): integer; stdcall;
begin
  Result := 0;
  //执行过滤操作 to do

  //判断是否本级容错
  if FCanErrLocal then
  begin
    if (Result < FCanErrMin) or (Result > FCanErrMax) then
      Result := 1
    else
      Result := 0;
  end else begin
    if Result >= 1 then Result := 1
    else Result := 0;
  end;
end;

{ =====================================================================
Function : 过滤校验
Arguments: AChip-要进行过滤的一个单式投注，如：3313011301303
Result : 给定的单式投注的过滤校验信息，没条信息间以回车换行（#13#10）
符分隔，如单式投注符合所有过滤条件（即应保留）则返回空
===================================================================== }

function SsqDebug(AChip: PChar; bShowAll: boolean = false): PChar; stdcall;
begin
  Result := '';
  //执行过滤校验操作，返回校验结果 to do
end;

{ =====================================================================
Function : 打开过滤条件设置窗口。
Arguments: no
Result : no
note : 必须在用户确认后及时刷新FFilterStr值
===================================================================== }

function SsqOpen(hApp: Integer = 0): boolean; stdcall;
var
  hOldApp: integer;
  frm: TfrmMZFB;
begin
  hOldApp := Application.Handle;
  Application.Handle := hApp;

  frm := TfrmMZFB.Create(nil);
  frm.SetFilter(FFilterStr);
  frm.ShowModal;
  if not frm.bCancel then
    FFilterStr := frm.GetFilter;
  frm.Free;

  Application.Handle := hOldApp;
  Result := true;
end;

{ =====================================================================
Function : 过滤准备函数，在该函数中可执行过滤条件的优化处理以及过滤
条件的有效性检验
Result : 如过滤条件格式设置正确则返回true，否则返回false
===================================================================== }

function SsqPrepare(): boolean; stdcall;
begin
  //to do
end;

///////////////////////////////////////////////////////////////////
// DLL对外接口函数

exports
  SsqExecute, //过滤处理
  SsqDebug,
  SsqOpen,
  SsqPrepare,
  GetFilterStr,
  SetFilterStr,
  GetFilterName, //获取过滤插件的信息
  GetVersion,
  GetAuthor
  ;

///////////////////////////////////////////////////////////////////

begin
  DLLProc := @DLLEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.

written by 彩票过滤 \\ tags: , ,

Nov 28

双色球大赢家 定制过滤插件 发布 1.0.8

定制过滤 1 Comment »


新增

支持双色球(暂不支持历史数据及遗漏函数)

插件过滤教程

written by 彩票过滤 \\ tags: , , ,

Nov 27

彩票大赢家 定制过滤插件 发布 1.0.7

定制过滤 1 Comment »


新增

模拟过滤
调整支持最新插件接口

插件过滤教程

written by 彩票过滤 \\ tags: , ,

Nov 25

定制过滤插件 发布 1.0.6

定制过滤 1 Comment »

新增查询号码遗漏函数MR
其他内置函数
例：
获取过滤号码第一位的多少期未开出，使用MR(R1)
取号码13未出现次数使用MR(13)

统计每位号码遗漏值小于5的个数

Continue reading »

written by 彩票过滤 \\ tags: ,

Nov 24

定制过滤插件 发布 1.0.5

定制过滤 1 Comment »

新增内置函数如下

  • HR1 HR2...HR7 取历史开奖号码 如：取前一期第一位号码HR1(1)第五位号码HR5(1)
  • HRHZ 历史开奖号码和值 如：取前一期号码和值HRHZ(1)
  • HRAC 历史AC值 如：取前一期AC值HRAC(1)
  • RJ 所有号码相乘结果

插件过滤教程

written by 彩票过滤 \\ tags: ,

Nov 23

彩票大赢家过滤插件框架

Joomla! 文章编辑器, 大赢家过滤插件 5 Comments »

来源：Delphi插件例子

Processed files:

  1. ltc\Sample0.dpr —   3.10 KB
  2. ltc\Sample1.dpr —   3.18 KB
  3. ltc\uDllFunc.pas —   5.55 KB
  4. ltc\Frm\FrmSample.dfm —   3.05 KB
  5. ltc\Frm\FrmSample.pas —   3.51 KB

Continue reading »

written by 彩票过滤 \\ tags: , , ,

Nov 20

定制过滤 插件 更新记录

定制过滤 No Comments »

插件免费无需注册

2007-12-04 1.0.10

新增质数、合数、连号、极号间距计算等函数

2007-11-29 1.0.9

双色球相关内容小调整

2007-11-28 1.0.8

增加支持双色球大赢家
可使用B1来获取蓝号

2007-11-25 1.0.7

增加模拟过滤

2007-11-25 1.0.6

增加查询号码遗漏函数MR

2007-11-24 1.0.5

增加查询历史开奖号码函数

2007-11-23 1.0.4

调整默认号码使用R1,R2…R7；P1…P7依然有效
增加
RAC 当前号码AC值
RHZ 当前号码和值
RC 当前号码个数
RWH 当前尾数和值
调整Prod函数支持更大数值
见公式教程

2007-11-22 1.0.3

调整内置函数删除MinIntValue MaxIntValue SumInt ACSum
增加 AC SumMod ModSum
增加过滤助手
见公式教程

2007-11-21 1.0.2

增加支持常用函数IMOD MIN MAX MinIntValue MaxIntValue SumInt Avg ACSum IIF
编写简单例子过滤公式

2007-11-20 1.0.1

优化过滤速度（已有明显提升！当前只比内置过滤慢四倍，比1.0.0快40倍）

2007-11-16 1.0.0

创建插件
支持使用p1、p2、p3来调用每一位投注号码

written by 彩票过滤 \\ tags: , ,

Previous Entries