投稿
  1. 首页
  2. 软件运维

求VB写的循环人名抽奖程序源代码

免steam补丁 • 2023-5-20 • 软件运维 • 阅读 10

求VB写的循环人名抽奖程序源代码,第1张

在定义函数时有时在语句前，有的在语句后。

希望能帮到你！

// giftDlg.h : header file

//

#if !defined

#if _MSC_VER >1000

#pragma once

#endif // _MSC_VER >1000

// CGiftDlg dialog

class CGiftDlg : public CDialog

{

// Construction

public:

int FreeMem()

int ReSetData()

int InitData()//初始化数组

CGiftDlg(CWnd* pParent = NULL)// standard constructor

char *code[1000]//指向身份z号数组的指针

char *name[1000]//指向姓名数组的指针

char data[1000] //随机数组

int ptr//进度条当前指向随机数组的指针

int totalid//参加抽奖的id总数，如果抽出一个，自减1

bool bstart//标记进度条是否在滚动

// Dialog Data

//{{AFX_DATA(CGiftDlg)

enum { IDD = IDD_GIFT_DIALOG }

CButton m_btgo

CString m_code

CString m_msg

//}}AFX_DATA

// ClassWizard generated virtual function overrides

//{{AFX_VIRTUAL(CGiftDlg)

protected:

virtual void DoDataExchange(CDataExchange* pDX)// DDX/DDV support

//}}AFX_VIRTUAL

// Implementation

protected:

HICON m_hIcon

// Generated message map functions

//{{AFX_MSG(CGiftDlg)

virtual BOOL OnInitDialog()

afx_msg void OnPaint()

afx_msg HCURSOR OnQueryDragIcon()

virtual void OnOK()

afx_msg void OnTimer(UINT nIDEvent)

afx_msg void OnCancelMode()

virtual void OnCancel()

//}}AFX_MSG

DECLARE_MESSAGE_MAP()

}

//{{AFX_INSERT_LOCATION}}

// Microsoft Visual C++ will insert additional declarations immediately before the previous line.

#endif // !defined(AFX_GIFTDLG_H__21D8D4EF_07F4_4F29_9351_78F99BFF7723__INCLUDED_)

// giftDlg.cpp : implementation file

//

#include "stdafx.h"

#include "gift.h"

#include "giftDlg.h"

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__

#endif

// CGiftDlg dialog

CGiftDlg::CGiftDlg(CWnd* pParent /*=NULL*/)

: CDialog(CGiftDlg::IDD, pParent)

{

//{{AFX_DATA_INIT(CGiftDlg)

m_code = _T("")

m_msg = _T("")

//}}AFX_DATA_INIT

// Note that LoadIcon does not require a subsequent DestroyIcon in Win32

m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME)

}

void CGiftDlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX)

//{{AFX_DATA_MAP(CGiftDlg)

DDX_Control(pDX, IDOK, m_btgo)

DDX_Text(pDX, IDC_STATIC_CODE2, m_code)

DDX_Text(pDX, IDC_STATIC_MSG, m_msg)

//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CGiftDlg, CDialog)

//{{AFX_MSG_MAP(CGiftDlg)

ON_WM_PAINT()

ON_WM_QUERYDRAGICON()

ON_WM_TIMER()

ON_WM_CANCELMODE()

//}}AFX_MSG_MAP

END_MESSAGE_MAP()

// CGiftDlg message handlers

BOOL CGiftDlg::OnInitDialog()

{

CDialog::OnInitDialog()

InitData()

bstart=false

// Set the icon for this dialog. The framework does this automatically

// when the application's main window is not a dialog

SetIcon(m_hIcon, TRUE) // Set big icon

SetIcon(m_hIcon, FALSE) // Set small icon

// TODO: Add extra initialization here

m_msg.Format ("按开始键开始滚动,抽奖箱中人数：%d",totalid)

UpdateData(FALSE)

return TRUE // return TRUE unless you set the focus to a control

}

// the minimized window.

HCURSOR CGiftDlg::OnQueryDragIcon()

{

return (HCURSOR) m_hIcon

}

void CGiftDlg::OnOK()

{

// TODO: Add extra validation here

if(bstart)

{

KillTimer(1)

bstart=false

m_msg.Format ("按开始键开始滚动,抽奖箱中人数：%d",totalid-1)

m_code.Format ("抽出的号码：%s\n姓名：%s",code[data[ptr]],name[data[ptr]])

//AfxMessageBox(m_code)

ReSetData()//剔除抽出的号码,重新打乱

if(totalid<1)

{

m_btgo.EnableWindow (FALSE)

}

m_btgo.SetWindowText ("开始")

}

else

{

SetTimer(1, 100,NULL)

bstart=true

m_msg.Format ("按停止键抽一个奖")

m_btgo.SetWindowText ("停止")

}

UpdateData(FALSE)

//CDialog::OnOK()

}

void CGiftDlg::OnTimer(UINT nIDEvent)

{

// TODO: Add your message handler code here and/or call default

m_code.Format ("现在的号码：%s",code[data[ptr]])

UpdateData(FALSE)

ptr++

ptr%=totalid

CDialog::OnTimer(nIDEvent)

}

void CGiftDlg::OnCancelMode()

{

CDialog::OnCancelMode()

// TODO: Add your message handler code here

}

int CGiftDlg::InitData()

{

FILE * fp=fopen("id.txt","r")

ptr=0

totalid=1

if (fp==NULL)

{

return 0

}

char buf[80]

int line=0

while(!feof(fp))

{

char *p=fgets(buf,80,fp)

if (p!=NULL)

{

name[line]=(char*)malloc(80)

code[line]=(char*)malloc(80)

memset(code[line],0,80)

memset(name[line],0,80)

int flag=0

for(int i=0i<80&&buf[i]!='\0'i++)

{

if((buf[i]!=',' )&&(flag==0))

{

code[line][i]=buf[i]

}

else if(flag==0)

{

flag=i

}

else if((buf[i]!=',' )&&(flag!=0))

{

name[line][i-flag-1]=buf[i]

}

}

TRACE("%s-%s",code[line],name[line])

memset(buf,0,80)

line++

}

}

fclose(fp)

for(int j=0j<linej++)

{

data[j]=j

}

for(int i=0i<linei++)

{

int pos=rand()%(line-i)+i

int temp=data[i]

data[i]=data[pos]

data[pos]=temp

TRACE("%d",data[i])

}

totalid=line

return 1

}

int CGiftDlg::ReSetData()

{

//ptr剔除,与最后一个交换,然后释放内存

int line=totalid

int temp=data[ptr]

data[ptr]=data[line-1]

data[line-1]=temp

//AfxMessageBox(name[data[line-1]])

free(code[data[line-1]])

free(name[data[line-1]])

totalid--

line--

ptr=0

for(int i=0i<linei++)//重新打乱

{

int pos=rand()%(line-i)+i

int temp=data[i]

data[i]=data[pos]

data[pos]=temp

TRACE("%d",data[i])

}

return 1

}

int CGiftDlg::FreeMem()

{

int line=totalid

for(int i=0i<linei++)

{

free(code[i])

free(name[i])

}

return 1

}

void CGiftDlg::OnCancel()

{

// TODO: Add extra cleanup here

FreeMem()

CDialog::OnCancel()

}

id.txt

332601771212061,章鱼

110103198511110453,李光

21010119541201045X,周瑜

320304780102066,韩信

442601771212061,沈兵

510103198511110453,宏志

220101841201045X,范进

520304197801020661,曾国

352601771212088,乱马

540122198511110453,贾海

Dim a(1 To 100) As String

Dim i As Integer, x As Integer

Const n = 3 'n的值可根据实际需要赋予不同的变量

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Form_Load()

Randomize '初始化随机数生成器

a(1) = "富士康" '以此将n个人的姓名保存在数组a中

a(2) = "庞麦郎"

a(3) = "非主流"

For i = 1 To n

List1.AddItem a(i)

Next

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

x = Rnd() * n + 1 '产生一个[1，n]中的随机整数并存入变量x中

Label2.Caption = a(x) '在标签Label2中显示下标变量a(x)的值（第x个人的姓名）

End Sub

在窗体上添加一个command1，一个timer1，label1(0~5)

控件数组（添加一个label1,然后再复制5个，共6个，用来显示数字），代码如下：

Private

Sub

Command1_Click()

If

Command1.Caption

=

"抽奖"

Then

Command1.Caption

=

"停止"

Timer1.Enabled

=

True

Else

Timer1.Enabled

=

False

Command1.Caption

=

"抽奖"

End

If

End

Sub

Private

Sub

Form_Load()

Command1.Caption

=

"抽奖"

Timer1.Interval

=

50

Timer1.Enabled

=

False

End

Sub

Private

Sub

Timer1_Timer()

Randomize

For

i

=

0

To

5

Label1(i)

=

Int(10

*

Rnd)

Select

Case

Label1(i).Caption

Case

0

Label1(i).BackColor

=

RGB(0,

0,

0)

Label1(i).ForeColor

=

RGB(255,

255,

255)

Case

1

Label1(i).BackColor

=

RGB(128,

42,

42)

Label1(i).ForeColor

=

RGB(127,

213,

213)

Case

2

Label1(i).BackColor

=

RGB(255,

0,

0)

Label1(i).ForeColor

=

RGB(0,

255,

255)

Case

3

Label1(i).BackColor

=

RGB(255,

97,

0)

Label1(i).ForeColor

=

RGB(0,

158,

255)

Case

4

Label1(i).BackColor

=

RGB(255,

255,

0)

Label1(i).ForeColor

=

RGB(0,

0,

255)

Case

5

Label1(i).BackColor

=

RGB(0,

255,

0)

Label1(i).ForeColor

=

RGB(255,

0,

255)

Case

6

Label1(i).BackColor

=

RGB(0,

0,

255)

Label1(i).ForeColor

=

RGB(255,

0,

0)

Case

7

Label1(i).BackColor

=

RGB(160,

32,

240)

Label1(i).ForeColor

=

RGB(95,

223,

15)

Case

8

Label1(i).BackColor

=

RGB(192,

192,

192)

Label1(i).ForeColor

=

RGB(63,

63,

63)

Case

9

Label1(i).BackColor

=

RGB(255,

255,

255)

Label1(i).ForeColor

=

RGB(0,

0,

0)

End

Select

Next

End

Sub

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/yw/12008999.html

赞 (0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
免steam补丁 免steam补丁 一级用户组
0 0
上一篇 2023-05-20
下一篇 2023-05-20

发表评论

登录后才能评论

评论列表（0条）

保存