Ⅰ 易語言抽獎源碼
用取隨機數就行了嘛！使用時鍾一直刷，然後點擊停止就OK了！得到什麼數就是什麼數了！如果你想要它自動停止，也可以使用時鍾！
Ⅱ 誰給個網頁抽獎源碼，帶後台（最好是要轉盤類的）
discuz有個轉盤抽獎插件，如果不是discuz論壇程序，估計是用不上。
Ⅲ 求一款易語言抽獎源碼，最好是圖片抽獎，或者自行放入對方提供的頭像。
.版本 2
.支持庫 xplib
.支持庫 iext
.程序集 窗口程序集1
.程序集變數 b, 文本型
.程序集變數 圖片框, 圖片框
.程序集變數 開始音樂, 位元組集
.程序集變數 結束音樂, 位元組集
.程序集變數 人數, 整數型
.程序集變數 人數數組, 文本型, , "0"
.程序集變數 n, 整數型
.程序集變數 圖片文件數組, 文本型, , "0"
.子程序 __啟動窗口_創建完畢
XP風格 (#藍色風格)
選擇夾.左邊 ＝ (取屏幕寬度 () － 選擇夾.寬度) ÷ 2
選擇夾.頂邊 ＝ (取屏幕高度 () － 選擇夾.高度) ÷ 2
圖片框1.標記 ＝ 「1」
圖片框2.標記 ＝ 「2」
圖片框3.標記 ＝ 「3」
圖片框4.標記 ＝ 「4」
圖片框5.標記 ＝ 「5」
圖片框6.標記 ＝ 「6」
選擇夾.現行子夾 ＝ 1
透明標簽1.左邊 ＝ (取屏幕寬度 () － 透明標簽1.寬度) ÷ 2
選擇夾2.頂邊 ＝ 選擇夾.高度 ＋ 選擇夾.頂邊
選擇夾2.左邊 ＝ (取屏幕寬度 () － 選擇夾2.寬度) ÷ 2
初始化 ()
人數 ＝ 取數組成員數 (圖片文件數組)
_一個人_被選擇 ()
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #F1鍵, &配置設置)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #回車鍵, &子程序1)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵1, &_一個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵2, &_二個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵3, &_三個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵4, &_四個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵5, &_五個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵6, &_六個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #Esc鍵, &_退出_被選擇)
.子程序 子程序1
n ＝ n ＋ 1
.如果 (n ％ 2 ＝ 0)
_按鈕2_被單擊 ()
.否則
_按鈕1_被單擊 ()
.如果結束
.子程序 配置設置
載入 (系統設置窗口, , 真)
系統設置窗口.可視 ＝ 真
.子程序 _時鍾1_周期事件
置隨機數種子 ()
圖片框1.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])
.子程序 抽獎停
.局部變數 a, 整數型
.局部變數 i, 整數型
b ＝ 「」
置隨機數種子 ()
.計次循環首 (6, i)
a ＝ 取隨機數 (1, 人數)
.判斷循環首 (尋找文本 (b, 到文本 (a), 1, 假) ≠ -1)
a ＝ 取隨機數 (1, 人數)
.判斷循環尾 ()
圖片框 ＝ 取標記組件 (i)
圖片框.圖片 ＝ 讀入文件 (圖片文件數組 [a])
b ＝ b ＋ 「,」 ＋ 到文本 (a)
.計次循環尾 ()
.子程序 _一個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 假
圖片框3.可視 ＝ 假
圖片框4.可視 ＝ 假
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ (選擇夾.寬度 － 圖片框1.寬度) ÷ 2
.子程序 _二個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 假
圖片框4.可視 ＝ 假
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ (選擇夾.寬度 － 圖片框1.寬度 × 2 － 5) ÷ 2
圖片框2.左邊 ＝ 圖片框1.左邊 ＋ 圖片框1.寬度 ＋ 5
.子程序 _三個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 假
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651
.子程序 _四個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 真
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651
.子程序 _五個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 真
圖片框5.可視 ＝ 真
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651
.子程序 _六個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 真
圖片框5.可視 ＝ 真
圖片框6.可視 ＝ 真
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651
.子程序 圖片初始化
.局部變數 k, 整數型
選擇夾.現行子夾 ＝ 1
選擇夾.現行子夾 ＝ 0
時鍾1.時鍾周期 ＝ 0
時鍾2.時鍾周期 ＝ 0
時鍾3.時鍾周期 ＝ 0
時鍾4.時鍾周期 ＝ 0
時鍾5.時鍾周期 ＝ 0
時鍾6.時鍾周期 ＝ 0
_啟動窗口.背景音樂 ＝ 到位元組集 (0)
.計次循環首 (6, k)
圖片框 ＝ 取標記組件 (k)
圖片框.圖片 ＝ #圖片
.計次循環尾 ()
.子程序 _標題_被選擇
.局部變數 wb, 文本型
圖片初始化 ()
輸入框 (「請輸入標題內容」, , , wb, )
透明標簽1.標題 ＝ wb
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「標題」, 「標題1」, wb)
.子程序 _設定轉獎聲音_被選擇
圖片初始化 ()
通用對話框1.過濾器 ＝ 「WAV文件|*.wav」
通用對話框1.打開 ()
開始音樂 ＝ 讀入文件 (通用對話框1.文件名)
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「轉獎聲音」, 通用對話框1.文件名)
.子程序 _設定中獎聲音_被選擇
圖片初始化 ()
通用對話框1.過濾器 ＝ 「WAV文件|*.wav」
通用對話框1.打開 ()
結束音樂 ＝ 讀入文件 (通用對話框1.文件名)
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「中獎聲音」, 通用對話框1.文件名)
.子程序 _關閉音樂_被選擇
圖片初始化 ()
_啟動窗口.背景音樂 ＝ 到位元組集 (0)
.子程序 初始化
.局部變數 d, 整數型
_啟動窗口.底圖 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「圖片」, 「背景圖片」, 取運行目錄 () ＋ 「\Wallpaper\1024.jpg」))
開始音樂 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「轉獎聲音」, 取運行目錄 () ＋ 「\sound\musi.wav」))
結束音樂 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「中獎聲音」, 取運行目錄 () ＋ 「\sound\finish.wav」))
透明標簽1.標題 ＝ 讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「標題」, 「標題1」, 「XX公司幸運抽獎」)
.計次循環首 (6, d)
圖片框 ＝ 取標記組件 (d)
圖片框.圖片 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「圖片」, 「抽獎圖片」, 取運行目錄 () ＋ 「\Wallpaper\cj.jpg」))
.計次循環尾 ()
查找文件 (圖片文件數組, 取運行目錄 () ＋ 「\Photos\」, 「*.jpg」, )
查找文件 (圖片文件數組, 取運行目錄 () ＋ 「\Photos\」, 「*.bmp」, )
.如果真 (取數組成員數 (圖片文件數組) ＜ 6)
信息框 (「請把圖片文件放到[Photots]文件夾下後重啟軟體！」 ＋ #換行符 ＋ 「圖片文件格式支持[jpg bmp]」, 64, 「提示：」)
結束 ()
.如果真結束
.子程序 _抽獎圖片_被選擇
.局部變數 a, 整數型
圖片初始化 ()
通用對話框1.過濾器 ＝ 「圖片文件|*.jpg;*.bmp」
通用對話框1.打開 ()
.計次循環首 (6, a)
圖片框 ＝ 取標記組件 (a)
圖片框.圖片 ＝ 讀入文件 (通用對話框1.文件名)
.計次循環尾 ()
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「圖片」, 「抽獎圖片」, 通用對話框1.文件名)
.子程序 _時鍾2_周期事件
置隨機數種子 ()
圖片框2.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])
.子程序 _時鍾3_周期事件
置隨機數種子 ()
圖片框3.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])
.子程序 _時鍾4_周期事件
置隨機數種子 ()
圖片框4.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])
.子程序 _時鍾5_周期事件
置隨機數種子 ()
圖片框5.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])
.子程序 _時鍾6_周期事件
置隨機數種子 ()
圖片框6.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])
.子程序 _退出_被選擇
結束 ()
.子程序 _時鍾7_周期事件
' 如果 (取滑鼠垂直位置 () ＜ 10)
系統設定.可視 ＝ 真
設定抽獎人數.可視 ＝ 真
' 系統設定.可視 ＝ 假
' 設定抽獎人數.可視 ＝ 假
.子程序 _按鈕1_被單擊, 邏輯型
.如果真 (選擇夾.現行子夾 ＝ 1)
選擇夾.現行子夾 ＝ 0
.如果真結束
_啟動窗口.背景音樂 ＝ 開始音樂
_啟動窗口.播放次數 ＝ 0
時鍾1.時鍾周期 ＝ 100
時鍾2.時鍾周期 ＝ 100
時鍾3.時鍾周期 ＝ 100
時鍾4.時鍾周期 ＝ 100
時鍾5.時鍾周期 ＝ 100
時鍾6.時鍾周期 ＝ 100
按鈕2.禁止 ＝ 假
按鈕1.禁止 ＝ 真
按鈕2.獲取焦點 ()
返回 (真)
.子程序 _按鈕2_被單擊
抽獎停 ()
_啟動窗口.背景音樂 ＝ 結束音樂
_啟動窗口.播放次數 ＝ 1
時鍾1.時鍾周期 ＝ 0
時鍾2.時鍾周期 ＝ 0
時鍾3.時鍾周期 ＝ 0
時鍾4.時鍾周期 ＝ 0
時鍾5.時鍾周期 ＝ 0
時鍾6.時鍾周期 ＝ 0
按鈕2.禁止 ＝ 真
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
Ⅳ 用c語言編寫一個簡易的抽獎程序，
用data.txt文件保存以下內容：
13725528132 李桂榮
13725528131 李二來
13725528133 張榮剛
13725528130 榮南
13725528137 王三
13725528138 吳立
13725528139 郭德綱
13725528140 周星馳
13725528141 張曼玉
13725528142 張藝謀
13725528152 秦香蓮
13725528162 潘金蓮
13725528172 李大嘴
13725528182 展堂
//源代碼如下
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#define MAX_NUM 9999
//定義保存人名和電話的數據結構
struct Person
{
char name[20];
char telno[15];
char award;
};
int num = 0; //統計人數
FILE *fp; //文件指針
Person persons[MAX_NUM]; //定義數組
int awarder_1[1] = {-1}; //一等獎
int awarder_2[2] = {-1, -1}; //二等獎
int awarder_3[5] = {-1, -1, -1, -1, -1};//三等獎
//讀取文件
void readdata()
{
int i = 0; //數組下標
Person person;
//文件打開
fp = fopen("data.txt", "r");
if (fp == NULL)
{
printf("打開文件data.txt失敗!\n");
return;
}
//當文件不為空
while (!feof(fp))
{
num ++;
fscanf(fp, "%s", person.telno);
fscanf(fp, "%s", person.name);
person.award = 'F';
persons[i++] = person;
}
}
//初始化標識
void init()
{
for(int i = 0; i < num; i++)
{
persons[i].award = 'F';
}
}
//顯示單個中獎信息
void info( int i)
{
printf("手機號碼: %s 姓名: %s\n", persons[i].telno, persons[i].name);
}
void main()
{
char again = 'Y';
//讀取文件
readdata();
printf("簡單抽獎程序\n");
srand((long)time(0));
while(again == 'Y' || again == 'y')
{
//初始化標識
init();
printf("\n開始抽第一等獎(1名)，按任意鍵開始...\n");
getchar();
awarder_1[0] = abs(rand() % num);
while (persons[awarder_1[0]].award == 'T')
{
awarder_1[0] = rand() % num;
}
persons[awarder_1[0]].award = 'T';
info(awarder_1[0]);
printf("\n開始抽第二等獎(2名)\n");
for (int i = 0; i < 2; i++)
{
printf("\n第%d個二等獎,按任意鍵開始...\n", i+1);
getchar();
awarder_2[i] = rand() % num;
while (persons[awarder_2[i]].award == 'T')
{
awarder_2[i] = rand() % num;
}
persons[awarder_2[i]].award = 'T';
info(awarder_2[i]);
}
printf("\n\n開始抽第三等獎(5名)\n");
for (i = 0; i < 5; i++)
{
printf("\n第%d個三等獎,按任意鍵開始...\n", i + 1);
getchar();
awarder_3[i] = rand() % num;
while (persons[awarder_3[i]].award == 'T')
{
awarder_3[i] = rand() % num;
}
persons[awarder_3[i]].award = 'T';
info(awarder_3[i]);
}
printf("\n是否重新開始抽獎?(Y or N)...\n");
again = getchar();
}
getchar();
return;
}
Ⅳ java抽獎小程序源碼
import java.util.Scanner;
public class ChouJiang {
public static void main(String[] args) {
System.out.println("我行我素購物管理系統>幸運抽獎");
System.out.println("");
System.out.println("");
Scanner input=new Scanner(System.in);
System.out.print("請輸入四位會員號：");
int hyh=input.nextInt();
int q,b,s,g,sum;
q=hyh/1000;
b=hyh/100%10;
s=hyh/10%10;
g=hyh%10;
sum=q+b+s+g;
if(sum>=23)
{
System.out.println(hyh+"是幸運客戶，獲精美MP3一台！");
}else
{
System.out.println(hyh+"謝謝您的支持！");
}
}
}
Ⅵ php怎麼實現大轉盤抽獎，求源碼，前台後台
身為一個php程序員寫出這么復雜的js,讓前台人員情何以堪...
你要給他幾個值,中獎率(這個客戶自己調節),獎品圖(價格)的顯示,中獎人滾動(要把信息給他),這是最基本的,還有抽獎次數.
我這個是給他個json,他自己用ajax自己取,js前台自己寫去.後台這個功能的管理咱們寫差不多
這個比較難的就是防止刷轉盤...比如一個二貨來不斷注冊換號來增大自己中獎幾率,簡單辦法通過ip,可是用vpn腫么辦?那就要用$_ENV等相關數據了.(別誤把有抽獎次數的顧客 排除出去);
如果為了學習可以了解前台,如果是做後台的就專心做後台,術業有專攻
我的功能具體如下:
可以設置每個等級 獎品 以及中獎率,最可以加10個等級(建議最多5個),還可以區分免費贈送次數的中獎率,和消費贈送的次數的中獎率.
可以設置 登陸送的抽獎次數,購買多少錢物品可以送1次抽獎機會,
可以設置 假中獎信息,中獎率為零也可以滾動中獎者名單...有點兒缺德(可以手動寫信息,也可以隨機生成信息)
可以更換 大轉輪 和,砸蛋模式 以及對應模板(有點雞肋)
作弊系統 可以自定義某些客戶的中獎率,你懂得
防客戶作弊 ,有惡搞模式,同1個ip使用贈送抽獎次數超過5次的時候,自動設置抽獎幾率為0,之後在其第20次刷的時候提醒您在第5次作弊的時候已經被屏蔽.
可以設置邀請好友送抽獎次數,在抽獎次數為0時自動提醒,邀請成功後 可以同時發送簡訊,郵件,站內通知提醒
我這個是針對特殊需求商城寫的 我把給出的json參數 給他做個詳細說明,自己寫去 就不關我事了
Ⅶ flash抽獎軟體源碼
有一款 瑞虎抽獎軟體 可以參考一下，很有意思，網路即可找到
Ⅷ 求用DELPHI 開發的抽獎程序源碼，最好是delphi5開發的！先感謝每一位解答的大俠！
需要開發還是現成的，網上搜索下，沒有就找人開發唄，花不了幾個錢
Ⅸ 求用vb編一個抽獎軟體的源代碼
dim i
窗口啟動：
i=0
Open App.Path & "\電話號碼.txt" For Input As #1
while eof(1)=false
Line Input #1,a
List1.AddItem a
wend
close #1
按開始：
timer1.Interval=50
按結束：
timer1.Interval=0
timer的事件：
i=i+1
if i=List1.ListCount then i=0
Label1.Caption = List1.List(i)
不好意思啊，由於沒有注意，所以先前的答案有兩個小錯誤，現在已修正了
所需控制項：
兩個按鈕，一個開始，一個結束；一個時鍾控制項
一個列表框；一個標簽控制項
Ⅹ 求vb 作弊抽獎程序源代碼.
做好了
代碼如下，兩個按鈕，一個開始，一個結束，
PrivateFlagAsBoolean
PrivateSubCommand1_Click()
DimA(10000)AsInteger
Flag=False
DoUntilFlag=True
A(i)=Int(Rnd()*8999+1000)
Label1.Caption=A(i)
DoEvents
Loop
EndSub
PrivateSubCommand2_Click()
Flag=True
DimA(10000)AsInteger
A(10000)=Int(Rnd()*10+1233)
Label1.Caption=A(10000)
EndSub
點開始，數字在1000至9999間跳動（如圖1
點結束，數字停止，結果只在1234-1243間（如圖2
已經編譯成"抽獎.exe「，要的話發給你
