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

用户名:   Password: 
 登记登记   
 彩色指南程序
指数 -> 编程,图灵 -> 提交意见书
转到页面 1, 2  下一页
查看上一个主题 可打印的版本下载主题 利率主题订阅本主题私人信息刷新页面 查看下一个主题
作者 信息
Neufelni.




邮政发布: 2005年4月25日星期一:下午12:33  POST主题:彩色指南程序

这是一个程序,它给出了数字,并显示了所有256种图灵颜色的颜色。



%缺口
%4月22日2月22日
%彩色指南

var col:= 0
var do:string(1)

环形
put col
draw.fillbox(100,100,300,300,col)
getch (do)
如果do =(key_right_arrow)那么
col := col + 1
cls
elsif do =(key_left_arrow)然后
col := col - 1
cls
end if
结束循环
赞助
赞助
赞助
赞助
贾松林




邮政发布: 2005年4月25日星期八:下午1:31  帖子主题:(没有主题)

如果我想知道什么颜色254是什么?不想等待那久。尝试制作一个更快的程序,并显示所有颜色和数字。此网站上有一些这些类型的程序。
Shyfire.




邮政发布: 星期二2015年4月26日1:23 PM  帖子主题:(没有主题)

你可以让它更快
Dann_west.




邮政发布: 星期四,2005年4月28日下午1:32  帖子主题:Re:彩色指南程序

非常好的尼克,但这是一个缓慢的程序。你节目让它变得如此键入#,它显示了颜色。
黑暗




邮政发布: 星期四,2005年5月12日下午3:30  帖子主题:颜色

这是我制作的那个将更快,让你选择一种颜色
代码:
%彩色显示程序。
var窗口: int := Window.Open ("graphics:max;max")
var typechoice,colourchoice,backgroundchoice: int
套路("buttonbar")
%两种不同的模式。
程序选择(number : int)

   %一次显示一个颜色。
    if number = 1 then
        for colours : 1 .. 255
            colourback (colours)
            put colours, "     ", colours, "     ", colours, "     ", colours, "     ", colours, "     ", colours, "     ", colours, "     ", colours
            delay (50)
        end for

       %显示所选颜色。
    else
        put "输入要查看的颜色的数量。"
        loop
           获取backgroundChoice.
            colourback (backgroundChoice)
            cls
        end loop
    end if

最终选择

%询问用户希望如何显示颜色。
放"你想一个接一个地看到颜色,还是想选择一个数字?"
放"1 :一次显示一个颜色"
放"2 :选择数字和显示颜色"
获取TypeChoice.
选择(typeChoice)
Neufelni.




邮政发布: 2005年5月25日星期三11:05  帖子主题:(没有主题)

迪兰的计划存在一些问题。首先,如果您选择一次通过颜色,它会太快地查看颜色和数字,并且您无法备份,因此除非您无法再次查看顶部颜色您重新启动程序。其次,因为数字是黑色的,你看不到较暗的颜色是什么。
黑暗




邮政发布: 2005年5月25日星期三下午3:37  帖子主题:(没有主题)

尼克写道:
迪兰的计划存在一些问题。首先,如果您选择一次通过颜色,它会太快地查看颜色和数字,并且您无法备份,因此除非您无法再次查看顶部颜色您重新启动程序。其次,因为数字是黑色的,你看不到较暗的颜色是什么。


是的,这是真的,但你可以暂停程序那是什么
等式屏幕(“buttonbar”)是for。
+如果您想减慢它,您只能提高程序开头附近的延迟。我故意使它更快,所以我可以扫描颜色
Flikerator.




邮政发布: 星期四,2005年1:20下午1:20  帖子主题:(没有主题)

对于第二个选项,您可能想要错误捕获它,以便如果是一个数字>输入255然后它不会退出程序。 微笑
赞助
赞助
赞助
赞助
Neufelni.




邮政发布: 星期四,2005年5月26日下午2:03  帖子主题:(没有主题)

我做了一个更好的颜色指南程序,以便您可以看到该号码,您可以轻松地查看所有颜色。这里是 :
代码:
变量,选择: int
放"1.穿过所有颜色。"
放"2.选择要查看颜色的数字。"
选择
CLS.
如果选择= 1那么
    View.Set ("graphics:800;4600")
    for c : 0 .. 255
        colourback (c)
        colour (black)
        put c, "     " ..
        colour (white)
        put c
    end for
elsif选择= 2然后
    View.Set ("graphics:600;400")
    loop
        colour (black)
        put "输入一个数字以查看颜色。"
        colour (white)
        put "输入一个数字以查看颜色。"
        get number
        colourback (number)
        cls
    end loop
万一
the_binary_soul.




邮政发布: 星期五,2005年5月27日上午9:36  帖子主题:(没有主题)

这是我去年我的版本。可能会更短...... meh

(去年我相信这个)

代码:

套路("graphics")


var键: string (1)
var search.: int
var point.: int
var i.: int := 0



Proc开始
    cls
    put "输入颜色编号以开始滚动,按Enter返回"
    color (55)
    put "使用箭头键向上或向下滚动,按Esc退出"
    get POINT
    i := POINT
结束开始


PROC显示
    loop

        if i = -1 then
            i := 255
        elsif i > 255 then
            i := 0
        end if


        color (i)
        Draw.FillBox (1, 400, 500, 300, i)
        put "colour "
        color (255)
        put i

        getch (KEY)
        if ord (KEY) = 10 then
            START
        elsif ord (KEY) = 200 then
            i += 1
        elsif ord (KEY) = 208 then
            i -= 1
        end if
        cls


        if i = 255 then
            i := 0
        end if

        exit when ord (KEY) = 27
    end loop

结束显示





开始
展示

恶棍




邮政发布: 星期五,2005年5月27日10:12 AM  帖子主题:(没有主题)

这是我的版本。

代码:
var iwindow.: int := Window.Open ("graphics:Svga,noecho,nocursor ")
为我 : 0 .. 86
    drawfillbox (我* 6,1,i * 6 + 6,100,我)
结束
为我 : 0 .. 86
    drawfillbox (i * 6,105,i * 6 + 6,205,i + 86)
结束
为我 : 0 .. 86
    drawfillbox (i * 6,210,i * 6 + 6,310,i + 86 + 83)
结束
var x,y,b: int
环形
    mousewhere (x, y, b)
    put "颜色默认ID号: ", whatdotcolour (x, y)
    locate (1, 1)
   按钮导航时退出("down")
结束循环
窗口(iWindow)
the_binary_soul.




邮政发布: 星期五,2005年5月27日上午10:27  帖子主题:(没有主题)

该死的,我只是打败了......只。
恶棍




邮政发布: 星期五2005年5月27日1:33 PM  帖子主题:(没有主题)

meh ...黑色是黑色的
贾松林




邮政发布: 星期五,2005年5月27日下午4:54  帖子主题:(没有主题)

伙计们,保持简单。颜色指南程序是您可以快速的东西,目前不必查找并加载它。

试试这个。
代码:

为我: 1 .. maxcolor
颜色(i)
放i, " " ..
结束


而且为了更好的颜色结果
代码:

复核(black)
CLS.
before the proggy.
塞万提斯




邮政发布: 星期五,2005年5月27日5:53 PM  帖子主题:(没有主题)

除了,使用这一点难以困难。每种颜色只显示为文本,并没有真正允许您看到大量颜色。浅色勉强出现在白色,暗色的颜色几乎没有出现在黑色。
此外,没有理由不会让这个更复杂。我同意,有更好的复杂计划花时间。但这不应该阻止这样做;它应该只是将其撞到待办事项列表。 眨眼
我更喜欢:
代码:

view.set.("graphics:max;4120")
为我 : 0 .. 255
    colourback (i)
    put i
结束


the_binary_soul.写道:

结束时的黑色如何出现为7.它是否应该不是255?



解释:

原装只有几种颜色(普遍〜1-8)。然后他们增加了更多。前几种颜色基于最大化RGB值。所以,你有红色,在哪里:
R:1.0,G:0.0,B:0.0
和某个紫色:
R:1.0,G:0.0,B:1.0
等等等等。对于您可以进行经典的图灵的有限图表,这很好。

一旦制作了开关到OOT,就会出现256种颜色。这在围绕着颜色17左右开始,并且基于向RGB添加分数而不是惠摩,以便获得更多的颜色。
这意味着在某些时候,您可以获得R:1.0,G:0.0,B:0.0。因此重复。
当然,他们可能一直聪明,并重置整个方案,以便它是有道理的......它们可能支持不仅仅是弗里奇的256种颜色......但是,它是霍尔特,我们不疑问他们(很多)。
当然,RGB已经以非常有限的方式实施。确保您可以进行新的颜色,但尝试使用.jpg的加载,并使用whatdotcolour()读取任何点的颜色。您只会获得在0-255范围内读取的值。为什么?对于一些奇怪的原因,OOT不能拍摄像素并返回其真实的RGB值......只有它想要相信的那些是...... [叹息]。

无论如何,如果您使用超过左右的颜色,并且使用WhatdotColour()刚刚展示的WhatdotColour()可能会对您带来非常问题。
从上一个显示帖子:   
   指数 -> 编程,图灵 -> 提交意见书
查看上一个主题 告诉一个朋友可打印的版本下载主题 利率主题订阅本主题私人信息刷新页面 查看下一个主题

12  [ 25 Posts ]
转到页面 1, 2  下一页
跳到:   


Style:  
搜索: