tianya1631 发表于 2010-1-26 14:08:19

来看看，二楼到底是什么题目?

rolaka 发表于 2010-1-26 14:44:54

恢复看题目..

KLU3K 发表于 2010-1-26 18:31:03

没有继续后继课程了吗？

6FINGERS 发表于 2010-1-26 19:12:01

楼主是深度的小兵吗？谢谢分享！

啦布啦啦啦 发表于 2010-1-26 19:49:15

回复讨教下

ankeyliu 发表于 2010-1-28 10:22:45

学习来了:face (29):

maxkingmax 发表于 2010-1-28 18:33:49

本帖最后由 maxkingmax 于 2010-1-28 18:42 编辑

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

Dim $a=10,$b=99
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("电脑猜数", 461, 185, 243, 199, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")

$Label1 = GUICtrlCreateLabel("电脑猜的数:", 40, 24, 123, 20)

$Label2 = GUICtrlCreateLabel("猜的对吗?", 248, 24, 131, 20)

$Radio1 = GUICtrlCreateRadio("小", 256, 56, 113, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "Radio1Click")
$Radio2 = GUICtrlCreateRadio("对", 256, 80, 113, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "Radio2Click")
$Radio3 = GUICtrlCreateRadio("大", 256, 104, 113, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "Radio3Click")
$Button1 = GUICtrlCreateButton("开始", 376, 120, 73, 49)
GUICtrlSetOnEvent(-1, "Button1Click")
$Label3 = GUICtrlCreateLabel("", 64, 64, 64, 64)
GUICtrlSetFont(-1, 36, 400, 0, "黑体")
GUICtrlSetColor(-1, 0xFF0000)

$Label4 = GUICtrlCreateLabel("你想的数是:", 352, 24, 67, 20)
GUICtrlSetState(-1,$gui_hide)
$Label5 = GUICtrlCreateLabel("", 383, 50, 64, 64)
GUICtrlSetState(-1,$gui_hide)
GUICtrlSetFont(-1, 36, 400, 0, "黑体")
GUICtrlSetColor(-1, 0xFF0000)




GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        Sleep(100)
WEnd

Func Button1Click()
GUICtrlSetState($Radio1,$gui_enable)
GUICtrlSetState($Radio2,$gui_enable)
GUICtrlSetState($Radio3,$gui_enable)

GUICtrlSetData($Label3,Random($a,$b,1))
GUICtrlSetState($Button1,$gui_disable)
        GUICtrlSetState($Label5,$gui_hide)
       
        GUICtrlSetState($Label4,$gui_hide)
EndFunc


Func Form1Close()
Exit
EndFunc


Func Radio1Click()
$a=GUICtrlRead($Label3)

GUICtrlSetData($label3,Round(($b+$a)/2,0))

EndFunc

Func Radio2Click()
        GUICtrlSetState($Label5,$gui_show)
       
        GUICtrlSetState($Label4,$gui_show)
        GUICtrlSetData($Label5,GUICtrlRead($Label3))
       
GUICtrlSetState($Button1,$gui_enable)
GUICtrlSetData($Button1,'再来一次')
$a=10
$b=99
GUICtrlSetState($Radio1,$gui_disable)
GUICtrlSetState($Radio2,$gui_disable)
GUICtrlSetState($Radio3,$gui_disable)
GUICtrlSetState($Radio1,$GUI_UNCHECKED)
GUICtrlSetState($Radio2,$GUI_UNCHECKED)
GUICtrlSetState($Radio3,$GUI_UNCHECKED)
GUICtrlSetData($Label3,'')
EndFunc

Func Radio3Click()
$b=GUICtrlRead($Label3)

GUICtrlSetData($label3,Round(($b+$a)/2,0))

EndFunc

drunk 发表于 2010-1-28 20:05:29

看看
:face (31):

ddffgt 发表于 2010-1-28 21:50:14

看到楼主给的图片，有点迷糊，和一个游戏很像。
一样是猜数字，那个游戏更加合理一点。
游戏过程，由一个中间人设定一个数，一般是1-99之间。这个数是不公开的。
由其他人来猜这个数。
如果猜数的人猜的数字要比中间人设定的数字不一样，那么中间人就会说缩短数字的范围。

可能说得不好，我举例子。
设定数字为45。
第一个人说50，那么中间人会说：1-50。
那么第二个猜的人就会在1-50之间猜数。

Joo 发表于 2010-6-9 13:19:38

我来看看···

yarsye 发表于 2010-6-9 16:07:24

进来看看 有时间玩下

ssfnpyu 发表于 2010-6-9 17:27:19

看下。。。什么意思呀。。。不是很懂

seeking 发表于 2010-6-10 18:40:36

看看结果。。

刀枪不入 发表于 2010-6-16 20:45:52

比较晕 前来学习

jone_xyz 发表于 2010-6-17 08:51:35

支持一下，虽然不知道是什么东东
页: 1 [2] 3
查看完整版本: 经典计算教程01-电脑猜数