编程C,C ++,Java,PHP,Ruby,图灵,VB
计算机科学加拿大 
编程C,C ++,Java,PHP,Ruby,图灵,VB  

用户名:   Password: 
 登记登记   
 最好的"Anything"在20行(选择您的语言)
指数 -> 竞赛
转到页面 以前的  1, 2, 3, 4, 5   下3d中奖规则
查看上3d中奖规则主题 可打印的版本下载主题订阅本主题私人信息刷新页面 查看下3d中奖规则主题
作者 信息
m




 邮政 发布: 星期四9月21日,2006年9:57 AM  帖子主题:(没有主题)

有人想发布3d中奖规则Zylum正在运行的计划的剧情?我们缺乏图灵的人可能很好奇......
赞助
赞助
赞助
赞助
Zylum.




 邮政 发布: 星期四,2006年9月21日10:55  帖子主题:(没有主题)

它只是3d中奖规则旋转的立方体 笑

虽然您可以使渲染更复杂的模型,但我没有才能初始化该数组  眨眼
战争_caymore.




 邮政 发布: 星期四,2006年9月21日下午1:04  帖子主题:我进入20次竞争

这将是诺布的,但我是3d中奖规则noob程序员,所以我会给这个镜头......

代码:
%在20行中。通过War_Caymore.
view.set.("graphics")
var字体: int
var x,y: int := 0
字体:= Font.New ("sans serif:18:bold")
断言字体> 0
font.draw.("Whats that?",240,200,字体,黑色)
延迟(3000)
CLS.
font.draw.("omigod!",260,200,字体,黑色)
延迟(3000)
环形
    Draw.FillOval (300, 200, x, y, red)
    x := x + 1
    y := y + 1
    exit when x = 600
    delay (10)
结束循环


不要太糟糕......我想继续编程。
Zeropaladn.




 邮政 发布: 星期四,2006年1:24 PM  帖子主题:(没有主题)

兄弟,我加强了时间。在12条线条中她的行。

请注意,线条不是完全随机的,也不是它们的设置顺序。这两者都是。搞砸了Warcaymore。

代码:
view.set.("graphics:400; 30,nobuttonbar,位置:center;center")
var线条:阵列1 .. 15的15:= init (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
环形
    lines (1) := Rand.Int (0, 255)
    for o : 2 .. 30 by 2
        Draw.ThickLine (0,O,400,O,5,线条 (o div 2))
    end for
    for decreasing i : 30 .. 4 by 2
        lines (i div 2) := lines ((i div 2) - 1)
    end for
    delay (50)
结束循环
尼克




 邮政 发布: 星期四,2006年9月21日下午3:50  帖子主题:(没有主题)

啊,垃圾,我把我的位给了3d中奖规则mod 尴尬

好吧,比赛变得有趣,所以我以为我会提出一些东西。
有些人可能会记得我在Visual Basic部分中提出了3d中奖规则SMS Messenger。好吧它不再工作了,所以我正在重新制作它。

它是如何运作的诀窍,  眨眼 弄清楚应该是显而易见的。这是20行“Lite”版本 (实际版本需要20多行).

要记住的几个事情:
  • 这个“lite”版本没有错误诱捕,所以请不要试图故意搞砸它
  • 一旦您发送了一条消息,您必须关闭并重新打开程序以发送另3d中奖规则程序
  • 接收消息时,人们可能会收取费用。 Afaik,只有rogers允许免费传入短信。



扩展'EXE'由电路板管理员取消激活,因此不会显示此附件。

克莱顿




 邮政 发布: 星期四,2006年3月21日下午3:52  帖子主题:(没有主题)

来源?嘿生病给你你给了他的偏笑
Neufelni.




 邮政 发布: Fri Sep 22,2006 4:42 PM  帖子主题:(没有主题)

这是我在恰好20行的比赛提交。它是3d中奖规则Sierpinski的三角计划也知道是混乱的游戏计划。享受。
代码:
view.set.("graphics: max; max, title:尼克的20线Sierpinski的三角节目")
复核(7)
CLS.
var x,y: array 1 .. 4 of int
var num,count,col: int := 0
环形
   如果计数mod 100000 = 0或count = 0则
        for i : 1 .. 4
            x (i) := Rand.Int (1, maxx)
            y (i) := Rand.Int (1, maxy)
        end for
        col := Rand.Int (1, 100)
        cls
    end if
    num := Rand.Int (1, 3)
    x (4) := round ((x (num) + x (4)) / 2)
    y (4) := round ((y (num) + y (4)) / 2)
    Draw.Dot (x (4), y (4), col)
    count += 1
结束循环
尼克




 邮政 发布: 星期五2016年9月22日11:30 PM  帖子主题:(没有主题)

尼克,你不是3d中奖规则mod吧?
做得好。 +位
赞助
赞助
赞助
赞助
尼克




 邮政 发布: 2006年9月23日星期六2:01  帖子主题:(没有主题)

这是我的提交,赌场式老虎机:
代码:
var插槽:阵列1 .. 9的int:= init (35,64,37,42,36,1,2,3,25) %array 1-5: slot pics (#@%*$), 6-8:卷轴上的图片位置,9: start money
环形
    Slots (9) -= 1 %insert money
    for i :1 .. 3%必须按3d中奖规则键停止每个卷轴
        loop
            exit when hasch %"pull lever" on slot machine
            for j : i .. 3
                Slots (5 + j) += 1 + 5 * min (0, 4 - Slots (5 + j)) %formula: repeating 1..5
            end for
            put chr (Slots (Slots (6))) : 3, chr (Slots (Slots (7))) : 3, chr (Slots (Slots (8))) : 3, " " : 3, "Money: ", Slots (9)
            delay (150)
            cls
        end loop
        Input.Flush
    end for
    if Slots (6) = Slots (7) and Slots (6) = Slots (8)然后%所有3卷相同
        Slots (9) += 10 * Slots (6)%### = 10,@@@ = 20 ... $$$ = 50
    end if
    exit when Slots (9) = 0 %money done :(
结束循环
按任意键停止每个卷轴。

我讨厌为所有变量使用3d中奖规则数组,但这是唯一的是达到20行。如果有人想看到“干净”版本,请告诉我。
沉默的复仇者




 邮政 发布: 2006年9月23日星期六7:21 PM  帖子主题:(没有主题)

我已经为比赛进行了另3d中奖规则VB程序(太糟糕,你只能输入每种语言2)。这是3d中奖规则图片查看器,是的,我知道它与QuickTime程序具有相同的名称,但我并不是很有创意的单词。这将让您查看任何图片的缩略图。哦,怪人我在PM中发给你源代码。


扩展'EXE'由电路板管理员取消激活,因此不会显示此附件。

Apbom.




 邮政 发布: 星期一9月25日,2006年12:13 AM  帖子主题:(没有主题)

尼克:那是你到达那里的3d中奖规则瘾游戏!  非难 星星是最有趣的,试图得到......肯定...它的娱乐。
尼克




 邮政 发布: 星期一25,2006,2006年1:09下午  帖子主题:(没有主题)

compwiz333写道:
尼克:那是你到达那里的3d中奖规则瘾游戏!  非难 星星是最有趣的,试图得到......肯定...它的娱乐。
谢谢compwiz333。
上瘾?呃......我希望我的游戏不会导致你真正的赌博......哈哈哈

此外,肯定的星星很有趣,但“$”是真正的金钱所在的地方!
Zeropaladn.




 邮政 发布: 星期一9月25日,2006年1:15下午1:15  帖子主题:(没有主题)

大声笑,Compwiz333是对的。它正在上瘾。太糟糕了很难。
战争_caymore.




 邮政 发布: Mon Sep 25,2006,2006年1:22 PM  帖子主题:(没有主题)

这是我的第二次尝试。我希望这看起来不那么幼羽。我感谢我的一位老师的图灵借记书。

代码:
%线路噪音制造商
%war_caymore.
view.set.("graphics:225;532,title:线噪音制造商,位置:中心;中心,nobuttonbar")
var x,y: int := 0
var dx,dy: int := 1
环形
   如果查看.whatdotcolor.(x, y) not= 0 then
        Music.Sound (400, 50)
    end if
    Draw.Dot (x, y, 1)
    x := x + dx
    y := y + dy
   如果x = 0或x = maxx则
        dx := -dx
    end if
   如果Y = 0或Y = maxy那么
        dy := -dy
    end if
    Time.Delay (2)
结束循环


我希望你喜欢它。顺便说一下,不要把你的音量转到太多,大约半分钟左右后真的很烦人。
Zeropaladn.




 邮政 发布: Mon Sep 25,2006 1:40 PM  帖子主题:(没有主题)

大声笑,兄弟,我认为thre是3d中奖规则令人讨厌的东西的规则。用于发布类似程序的拇指规则。

运行
倾听或观察它2分钟
如果你仍然认为它很酷,那就发布了它。

无论哪种方式,布拉沃兄弟!
从上3d中奖规则显示帖子:   
    指数 -> 竞赛
查看上3d中奖规则主题 告诉3d中奖规则朋友可打印的版本下载主题订阅本主题私人信息刷新页面 查看下3d中奖规则主题

35  [ 66 Posts ]
转到页面 以前的  1, 2, 3, 4, 5   下3d中奖规则
跳到:   


Style:  
搜索: