/prog/ - DIE — World4ch

Name: Anonymous 2007-05-13 18:21 ID:BZfnATFq

Private Sub Form_Load()



    Die1Display 0

    Die2Display 0

    

End Sub



Private Sub RollButton_Click()



    Roll



End Sub



Private Sub Roll()



    Beep

    Die1Display GetDieRoll()

    Die2Display GetDieRoll()



End Sub



Private Function GetDieRoll() As Long

    

    GetDieRoll = Round(1 + Rnd() * 5)



End Function



Private Sub Die1Display(n As Long)

    Select Case n

        Case 1:

            Die1NW.Visible = False

            Die1NE.Visible = False

            Die1W.Visible = False

            Die1C.Visible = True

            Die1E.Visible = False

            Die1SW.Visible = False

            Die1SE.Visible = False

        Case 2:

            Die1NW.Visible = False

            Die1NE.Visible = True

            Die1W.Visible = False

            Die1C.Visible = False

            Die1E.Visible = False

            Die1SW.Visible = True

            Die1SE.Visible = False

        Case 3:

            Die1NW.Visible = False

            Die1NE.Visible = True

            Die1W.Visible = False

            Die1C.Visible = True

            Die1E.Visible = False

            Die1SW.Visible = True

            Die1SE.Visible = False

        Case 4:

            Die1NW.Visible = True

            Die1NE.Visible = True

            Die1W.Visible = False

            Die1C.Visible = False

            Die1E.Visible = False

            Die1SW.Visible = True

            Die1SE.Visible = True

        Case 5:

            Die1NW.Visible = True

            Die1NE.Visible = True

            Die1W.Visible = False

            Die1C.Visible = True

            Die1E.Visible = False

            Die1SW.Visible = True

            Die1SE.Visible = True

        Case 6:

            Die1NW.Visible = True

            Die1NE.Visible = True

            Die1W.Visible = True

            Die1C.Visible = False

            Die1E.Visible = True

            Die1SW.Visible = True

            Die1SE.Visible = True

        Case Else:

            Die1NW.Visible = False

            Die1NE.Visible = False

            Die1W.Visible = False

            Die1C.Visible = False

            Die1E.Visible = False

            Die1SW.Visible = False

            Die1SE.Visible = False

    End Select

End Sub



Private Sub Die2Display(n As Long)

    Select Case n

        Case 1:

            Die2NW.Visible = False

            Die2NE.Visible = False

            Die2W.Visible = False

            Die2C.Visible = True

            Die2E.Visible = False

            Die2SW.Visible = False

            Die2SE.Visible = False

        Case 2:

            Die2NW.Visible = False

            Die2NE.Visible = True

            Die2W.Visible = False

            Die2C.Visible = False

            Die2E.Visible = False

            Die2SW.Visible = True

            Die2SE.Visible = False

        Case 3:

            Die2NW.Visible = False

            Die2NE.Visible = True

            Die2W.Visible = False

            Die2C.Visible = True

            Die2E.Visible = False

            Die2SW.Visible = True

            Die2SE.Visible = False

        Case 4:

            Die2NW.Visible = True

            Die2NE.Visible = True

            Die2W.Visible = False

            Die2C.Visible = False

            Die2E.Visible = False

            Die2SW.Visible = True

            Die2SE.Visible = True

        Case 5:

            Die2NW.Visible = True

            Die2NE.Visible = True

            Die2W.Visible = False

            Die2C.Visible = True

            Die2E.Visible = False

            Die2SW.Visible = True

            Die2SE.Visible = True

        Case 6:

            Die2NW.Visible = True

            Die2NE.Visible = True

            Die2W.Visible = True

            Die2C.Visible = False

            Die2E.Visible = True

            Die2SW.Visible = True

            Die2SE.Visible = True

        Case Else:

            Die2NW.Visible = False

            Die2NE.Visible = False

            Die2W.Visible = False

            Die2C.Visible = False

            Die2E.Visible = False

            Die2SW.Visible = False

            Die2SE.Visible = False

    End Select

End Sub

Name: Anonymous 2007-05-13 18:31 ID:Heaven

That was pretty ugly.

(Here's the placeholder for a Dijkstra quote.)

Name: Anonymous 2007-05-13 18:39 ID:Heaven

More copypasta in there than all eleven pages of /b/

Name: Anonymous 2007-05-13 18:40 ID:/A860Mfi

Could be done in Perl/Tk in ten lines.

Name: Anonymous 2007-05-13 18:43 ID:cMWSeIdD

>>4

Go on then

Name: Anonymous 2007-05-13 19:15 ID:Heaven

GUIs are for faggots.

import random

print random.randint(1, 6), random.randint(1, 6)

Name: Anonymous 2007-05-13 19:31 ID:Heaven

>>6

FAIL

Name: Anonymous 2007-05-13 19:48 ID:/A860Mfi

>>7
No, actually I believe >>6 wins.

Name: LetsPlayAGame 2007-05-13 20:55 ID:84IKEYoQ

import random

random.seed()

dieFace = [ '⚀', '⚁', '⚂', '⚃', '⚄', '⚅' ]

def cho_han_bakuchi():

    # Get dice
    die1 = random.randrange(1, 6)
    die2 = random.randrange(1, 6)
    total = die1 + die2;

    s = dieFace[die1-1] + " %d " % (die1) + dieFace[die2-1] + " %d " % (die2)

    if total % 2:
      s += " Han"
    else:
      s += " Cho"

    print s

Name: Anonymous 2007-05-13 21:27 ID:NSvPbIce

weeaboooo

Name: Anonymous 2007-05-13 22:14 ID:/A860Mfi

>>9
You'll never roll a six.

Name: Anonymous 2007-05-13 23:21 ID:Heaven

>>1
The best that can be said about it is it has a catchy name.

Name: Anonymous 2007-05-14 11:13 ID:YdD3BDLf

#!/usr/bin/env perl



use Quantum::Entanglement;



$d1=entangle(1=>1,1=>2,1=>3,1=>4,1=>5,1=>6);

$d2=entangle(1=>1,1=>2,1=>3,1=>4,1=>5,1=>6);

print "$d1 $d2\n";

Name: Anonymous 2007-05-14 11:57 ID:Heaven

>>13



print entangle(1=>1..6) x 2;

Name: Anonymous 2007-05-14 12:01 ID:Heaven

>>14

$ perl -MQuantum::Entanglement -le'print entangle(1=>1..6) x 2;'



Use of uninitialized value in exists at /usr/local/lib/perl5/site_perl/5.8.8/Quantum/Entanglement.pm line 177.

Use of uninitialized value in hash element at /usr/local/lib/perl5/site_perl/5.8.8/Quantum/Entanglement.pm line 182.

Name: Anonymous 2007-05-14 16:50 ID:Heaven

#!/usr/bin/perl

use Quantum::Superpositions;

$die=any(1..6);

printf"%d %d\n",$die,$die;

Name: Anonymous 2009-01-14 14:27

SICP

Name: Anonymous 2010-12-06 9:44

^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^{^Ba}c}k}}t}o}}/}b}/},}}`}`}G}N}A}A}}F}a}g}g}o}t}'}'}

Name: Anonymous 2011-02-03 1:37

Name: Anonymous 2011-02-17 20:23

check 'em dubz

Name: Sgt.Kabu嶺쉞kiman죾ྼ 2012-05-29 1:50

Bringing /prog/ back to its people

DIE

1 Name: Anonymous 2007-05-13 18:21 ID:BZfnATFq

2 Name: Anonymous 2007-05-13 18:31 ID:Heaven

3 Name: Anonymous 2007-05-13 18:39 ID:Heaven

4 Name: Anonymous 2007-05-13 18:40 ID:/A860Mfi

5 Name: Anonymous 2007-05-13 18:43 ID:cMWSeIdD

6 Name: Anonymous 2007-05-13 19:15 ID:Heaven

7 Name: Anonymous 2007-05-13 19:31 ID:Heaven

8 Name: Anonymous 2007-05-13 19:48 ID:/A860Mfi

9 Name: LetsPlayAGame 2007-05-13 20:55 ID:84IKEYoQ

10 Name: Anonymous 2007-05-13 21:27 ID:NSvPbIce

11 Name: Anonymous 2007-05-13 22:14 ID:/A860Mfi

12 Name: Anonymous 2007-05-13 23:21 ID:Heaven

13 Name: Anonymous 2007-05-14 11:13 ID:YdD3BDLf

14 Name: Anonymous 2007-05-14 11:57 ID:Heaven

15 Name: Anonymous 2007-05-14 12:01 ID:Heaven

16 Name: Anonymous 2007-05-14 16:50 ID:Heaven

17 Name: Anonymous 2009-01-14 14:27

20 Name: Anonymous 2010-12-06 9:44

21 Name: Anonymous 2011-02-03 1:37

22 Name: Anonymous 2011-02-17 20:23

23 Name: Sgt.Kabu嶺쉞kiman죾ྼ 2012-05-29 1:50