用C语言编运动的气球

小球动态碰撞的c程序，使用彩色小球(运行环境win-tc/tc2.0)

# include <stdio.h>

# include<graphics.h>

int main()

{

int i, gdriver, gmode, size

void *buf

gdriver=DETECT/*由于使用的是DETECT，故无需再设置gmode的数值*/

initgraph(&gdriver, &gmode, "")

setbkcolor(BLUE)

cleardevice()

setcolor(LIGHTRED)

setlinestyle(0,0,1)

setfillstyle(1, 10)

circle(100, 200, 30)

floodfill(100, 200, 12)

size=imagesize(69, 169, 131, 231)

buf=malloc(size)

getimage(69, 169, 131, 231,buf)

putimage(500, 269, buf, COPY_PUT)

do

{

for(i=0i<185i++)

{

putimage(70+i, 170, buf, COPY_PUT)

putimage(500-i, 170, buf, COPY_PUT)

}

for(i=0i<185i++)

{

putimage(255-i, 170, buf, COPY_PUT)

putimage(315+i, 170, buf, COPY_PUT)

}

}while(!kbhit())

getch()

closegraph()

}

你在窗体上添加三个command,和一个shape,其它什么都不用管了，然后输入以下代码就可以了：

Private Sub Command1_Click()

If Shape1.Shape >= 5 Then

Shape1.Shape = 0

Else

Shape1.Shape = Shape1.Shape + 1

End If

End Sub

Private Sub Command2_Click()

If Shape1.FillStyle >= 7 Then

Shape1.FillStyle = 0

Else

Shape1.FillStyle = Shape1.FillStyle + 1

End If

End Sub

Private Sub Command3_Click()

Static i As Integer

If i >= 15 Then

i = 0

Shape1.BackColor = QBColor(i)

Else

i = i + 1

Shape1.BackColor = QBColor(i)

End If

End Sub

Private Sub Form_Load()

Command1.Caption = "切换形状"

Command2.Caption = "切换填充样式"

Command3.Caption = "切换填充色"

Shape1.BackStyle = 1

End Sub

我把能想到的说一下。

先将虚拟内存小、大值调为0MB，关机重启。再将小、大值调回你原先用的值（比如560MB--1500MB）。

网吧管理软件内容可能有缺失，如果能备份里面的会员相关内容，那就重装。估计不行，要不你早就重装那个管理软件了。

如果选成 无分页文件 ，一般也不会出现虚拟内存不足的情况。因为实际上无分页文件的意思是把虚拟值调成 系统管理的大小 的一半左右，有几百个兆吧。

禁用通知区域气球提示－－－不知道这个管不管用

1. 单击“开始”，单击“运行”，键入 regedit，然后按 Enter。

2. 找到子项：

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced

3. 右键单击，创建一个新的“DWORD”值，然后将其命名为 EnableBalloonTips。

4. 双击此新项，然后向其赋予十六进制值“0”。

5. 退出注册表编辑器。注销 Windows，然后重新登录。

这些步骤将禁用针对此用户的所有通知区域气球提示。但无法禁用仅特定于某些程序的气球提示。

这样的问题很鳖角，你要是知道答案就告诉我们吧，别卖关子了！

---