hé! niet lachen! mijn eerste vb prutsels hadden ook invisible labels om men data te saven 
mjah, achteraf denk je dan, toch logisch om vars te gebruiken, maar als je nog nooit van zoiets had gehoort, wat moet je dan?
edit: net even gekeken naar mijn oudste progsel dat ik nog heb (al mijn vb dingen heb ik niet meer, jammer, zouden zeker leuke dingen tussen gezeten hebben)
vreselijk, en als ik die labels enzo zie krijg ik al rillingen
(is btw een 4 op een rij in delphi)
mjah, achteraf denk je dan, toch logisch om vars te gebruiken, maar als je nog nooit van zoiets had gehoort, wat moet je dan?
edit: net even gekeken naar mijn oudste progsel dat ik nog heb (al mijn vb dingen heb ik niet meer, jammer, zouden zeker leuke dingen tussen gezeten hebben)
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
| procedure cplayer; label misschien; begin if Thereisawinner then begin Thereisawinner := False; goto misschien; end; if numplayers = 2 then begin if playercolor = kleur[1] then begin playercolor := kleur[2]; mainform.status.panels[0].bevel := pbnone; mainform.status.panels[1].bevel := pbnone; mainform.status.panels[2].bevel := pbRaised; mainform.status.panels[3].bevel := pbRaised; mainform.status.panels[4].bevel := pbnone; mainform.status.panels[5].bevel := pbnone; mainform.status.panels[6].bevel := pbnone; mainform.status.panels[7].bevel := pbnone; end else begin playercolor := kleur[1]; mainform.status.panels[0].bevel := pbraised; mainform.status.panels[1].bevel := pbraised; mainform.status.panels[2].bevel := pbnone; mainform.status.panels[3].bevel := pbnone; mainform.status.panels[4].bevel := pbnone; mainform.status.panels[5].bevel := pbnone; mainform.status.panels[6].bevel := pbnone; mainform.status.panels[7].bevel := pbnone; end; end; if numplayers = 3 then begin if playercolor = kleur[3] then begin playercolor := kleur[1]; mainform.status.panels[0].bevel := pbraised; mainform.status.panels[1].bevel := pbraised; mainform.status.panels[2].bevel := pbnone; mainform.status.panels[3].bevel := pbnone; mainform.status.panels[4].bevel := pbnone; mainform.status.panels[5].bevel := pbnone; mainform.status.panels[6].bevel := pbnone; mainform.status.panels[7].bevel := pbnone; goto misschien; end; if playercolor = kleur[2] then begin playercolor := kleur[3]; mainform.status.panels[0].bevel := pbnone; mainform.status.panels[1].bevel := pbnone; mainform.status.panels[2].bevel := pbnone; mainform.status.panels[3].bevel := pbnone; mainform.status.panels[4].bevel := pbraised; mainform.status.panels[5].bevel := pbraised; mainform.status.panels[6].bevel := pbnone; mainform.status.panels[7].bevel := pbnone; goto misschien; end; if playercolor = kleur[1] then begin playercolor := kleur[2]; mainform.status.panels[0].bevel := pbnone; mainform.status.panels[1].bevel := pbnone; mainform.status.panels[2].bevel := pbRaised; mainform.status.panels[3].bevel := pbRaised; mainform.status.panels[4].bevel := pbnone; mainform.status.panels[5].bevel := pbnone; mainform.status.panels[6].bevel := pbnone; mainform.status.panels[7].bevel := pbnone; goto misschien; end; end; if numplayers = 4 then begin if playercolor = kleur[3] then begin playercolor := kleur[4]; mainform.status.panels[0].bevel := pbnone; mainform.status.panels[1].bevel := pbnone; mainform.status.panels[2].bevel := pbnone; mainform.status.panels[3].bevel := pbnone; mainform.status.panels[4].bevel := pbnone; mainform.status.panels[5].bevel := pbnone; mainform.status.panels[6].bevel := pbraised; mainform.status.panels[7].bevel := pbraised; goto misschien; end; if playercolor = kleur[4] then begin playercolor := kleur[1]; mainform.status.panels[0].bevel := pbraised; mainform.status.panels[1].bevel := pbraised; mainform.status.panels[2].bevel := pbnone; mainform.status.panels[3].bevel := pbnone; mainform.status.panels[4].bevel := pbnone; mainform.status.panels[5].bevel := pbnone; mainform.status.panels[6].bevel := pbnone; mainform.status.panels[7].bevel := pbnone; goto misschien; end; if playercolor = kleur[2] then begin playercolor := kleur[3]; mainform.status.panels[0].bevel := pbnone; mainform.status.panels[1].bevel := pbnone; mainform.status.panels[2].bevel := pbnone; mainform.status.panels[3].bevel := pbnone; mainform.status.panels[4].bevel := pbraised; mainform.status.panels[5].bevel := pbraised; mainform.status.panels[6].bevel := pbnone; mainform.status.panels[7].bevel := pbnone; goto misschien; end; if playercolor = kleur[1] then begin playercolor := kleur[2]; mainform.status.panels[0].bevel := pbnone; mainform.status.panels[1].bevel := pbnone; mainform.status.panels[2].bevel := pbRaised; mainform.status.panels[3].bevel := pbRaised; mainform.status.panels[4].bevel := pbnone; mainform.status.panels[5].bevel := pbnone; mainform.status.panels[6].bevel := pbnone; mainform.status.panels[7].bevel := pbnone; goto misschien; end; misschien: computerturn; end; end; |
vreselijk, en als ik die labels enzo zie krijg ik al rillingen
(is btw een 4 op een rij in delphi)
[ Voor 93% gewijzigd door Mayco op 23-04-2004 18:52 ]