Computer Science Canada :: View topic

proc DrawButton (Index : int, loc, style, text : string, font : string, fontClr, x, y, Width, Height : int, act : procedure x ())
Mouse.Where (mx, my, mb)
var X, Y : int := 0

var fontX : string := font
var fClr : int := fontClr
var width : int := Width
var height : int := Height
if font = "Default" then
if style = "Standard" then
   fontX := "Ariel:10:Italic"
   fClr := 7
   %width := 120
elsif style = "Classic" then
   fontX := "Verdana:8:Italic"
   fClr := 7
elsif style = "ClassicX" then
   fontX := "Verdana:8:Italic"
   fClr := 29
elsif style = "Simple" then
   fontX := "Verdana:10"
   fClr := 7
elsif style = "SimpleX" then
   fontX := "Verdana:10"
   fClr := 29
elsif style (1) = "X" and style (2) = "P" then
   fontX := "Ariel:9"
   fClr := 7
elsif style (1) = "E" and style (2) = "O" and style (3) = "D" then
   fontX := "Ariel:8:bold"

   if style (4) = "b" then
fClr := 1
   elsif style (4) = "g" then
fClr := 7
   elsif style (4) = "r" then
fClr := red
   end if
elsif style = "MMJB" then
   fontX := "Ariel:8:bold"
   fClr := darkgrey
end if
end if
if btnEnb (Index) = false then
if style = "Standard" then
   fClr := darkgrey
   %width := 120
elsif style = "Classic" then
   fClr := darkgrey
elsif style = "ClassicX" then
   fClr := 27
elsif style = "Simple" then
   fClr := darkgrey
elsif style = "SimpleX" then
   fClr := 20
elsif style (1) = "X" and style (2) = "P" then
   fClr := 26
elsif style (1) = "E" and style (2) = "O" and style (3) = "D" then
   fClr := 27
elsif style = "MMJB" then
   fClr := grey
end if
end if
var err2 : string := Tokenize ("Test String", " ")
var err : string := Tokenize (fontX, ":")
var fontSz : int := strint (Tokenize (fontX, ":"))

if loc (1) = "B" then
Y := y
elsif loc (1) = "C" then
Y := y - (height div 2)
elsif loc (1) = "T" then
Y := y - height
end if

if loc (2) = "L" then
X := x
elsif loc (2) = "C" then
X := x - (width div 2)
elsif loc (2) = "R" then
X := x - width
end if

if mx < X or mx > X + width or my < Y or my > Y + height then
buttonPress (Index) := false
end if

%% DRAW BUTTON %%
if style = "Standard" and btnVis (Index) then
drawfillbox (X, Y, X + width, Y + height, grey)
drawbox (X, Y, X + width, Y + height, 7)
drawline (X + 1, Y + 2, X + 1, Y + height - 1, 0)
drawline (X + 1, Y + height - 1, X + width - 2, Y + height - 1, 0)
drawline (X + 1, Y + 1, X + width - 1, Y + 1, 22)
drawline (X + width - 1, Y + 1, X + width - 1, Y + height - 1, 22)
drawline (X + 2, Y + 2, X + width - 2, Y + 2, darkgrey)
drawline (X + width - 2, Y + 2, X + width - 2, Y + height - 2, darkgrey)
elsif style = "Classic" and btnVis (Index) then
drawfillbox (X, Y, X + width, Y + height, grey)
drawbox (X, Y, X + width, Y + height, 7)
drawbox (X + 2, Y + 2, X + width - 2, Y + height - 2, darkgrey)
elsif style = "ClassicX" and btnVis (Index) then
drawfillbox (X, Y, X + width, Y + height, darkgrey)
drawbox (X, Y, X + width, Y + height, 7)
drawbox (X + 2, Y + 2, X + width - 2, Y + height - 2, grey)
elsif style = "Simple" and btnVis (Index) then
drawfillbox (X, Y, X + width, Y + height, grey)
drawbox (X, Y, X + width, Y + height, 7)
elsif style = "SimpleX" and btnVis (Index) then
drawfillbox (X, Y, X + width, Y + height, 7)
drawbox (X, Y, X + width, Y + height, grey)
elsif style = "XPs" and btnVis (Index) then
drawfillbox (X + 1, Y + 1, X + width - 2, Y + height - 1, 0)
Pic.Draw (picXPsTL, X, Y + height - 3, picMerge)
Pic.Draw (picXPsBL, X, Y, picMerge)
Pic.Draw (picXPsTR, X + width - 3, Y + height - 3, picMerge)
Pic.Draw (picXPsBR, X + width - 3, Y, picMerge)
for i : 0 .. width by 7
   exit when i + 14 > width
   Pic.Draw (picXPsBM, X + 3 + i, Y, 0)
   Pic.Draw (picXPsTM, X + 3 + i, Y + height - 3, 0)
end for
Pic.Draw (picXPsBM, X + width - 10, Y, 0)
Pic.Draw (picXPsTM, X + width - 10, Y + height - 3, 0)
for i : 0 .. height by 9
   exit when i + 21 > height
   Pic.Draw (picXPsML, X, Y + 9 + i, picMerge)
   Pic.Draw (picXPsMR, X + width - 3, Y + 9 + i, picMerge)
end for
Pic.Draw (picXPsML, X, Y + height - 12, 0)
Pic.Draw (picXPsMR, X + width - 3, Y + height - 12, 0)
elsif style = "XPb" and btnVis (Index) then
drawfillbox (X + 1, Y + 1, X + width - 2, Y + height - 2, 0)
Pic.Draw (picXPbTL, X, Y + height - 4, picMerge)
Pic.Draw (picXPbBL, X, Y, picMerge)
Pic.Draw (picXPbTR, X + width - 3, Y + height - 4, picMerge)
Pic.Draw (picXPbBR, X + width - 3, Y, picMerge)
for i : 0 .. width by 9
   exit when i + 14 > width
   Pic.Draw (picXPbBM, X + 3 + i, Y, 0)
   Pic.Draw (picXPbTM, X + 3 + i, Y + height - 3, 0)
end for
Pic.Draw (picXPbBM, X + width - 10, Y, 0)
Pic.Draw (picXPbTM, X + width - 10, Y + height - 3, 0)
for i : 0 .. height by 7
   exit when i + 16 > height
   Pic.Draw (picXPbML, X, Y + 4 + i, 0)
   Pic.Draw (picXPbMR, X + width - 3, Y + 4 + i, 0)
end for
Pic.Draw (picXPbML, X, Y + height - 11, 0)
Pic.Draw (picXPbMR, X + width - 3, Y + height - 11, 0)
elsif style = "XPg" and btnVis (Index) then
drawfillbox (X + 1, Y + 1, X + width - 2, Y + height - 2, 0)
Pic.Draw (picXPgTL, X, Y + height - 4, picMerge)
Pic.Draw (picXPgBL, X, Y, picMerge)
Pic.Draw (picXPgTR, X + width - 3, Y + height - 4, picMerge)
Pic.Draw (picXPgBR, X + width - 3, Y, picMerge)
for i : 0 .. width by 9
   exit when i + 14 > width
   Pic.Draw (picXPgBM, X + 3 + i, Y, 0)
   Pic.Draw (picXPgTM, X + 3 + i, Y + height - 3, 0)
end for
Pic.Draw (picXPgBM, X + width - 10, Y, 0)
Pic.Draw (picXPgTM, X + width - 10, Y + height - 3, 0)
for i : 0 .. height by 7
   exit when i + 16 > height
   Pic.Draw (picXPgML, X, Y + 4 + i, 0)
   Pic.Draw (picXPgMR, X + width - 3, Y + 4 + i, 0)
end for
Pic.Draw (picXPgML, X, Y + height - 11, 0)
Pic.Draw (picXPgMR, X + width - 3, Y + height - 11, 0)
elsif style (1) = "E" and style (2) = "O" and style (3) = "D" and btnVis (Index) then
if style (4) = "b" then
   tclr := 53
elsif style (4) = "g" then
   tclr := 118
elsif style (4) = "r" then
   tclr := brightred
end if

drawfillbox (X + 5, Y + 3, X + width - 5, Y + height - 3, 0)
drawfillbox (X + 4, Y + 4, X + width - 4, Y + height - 4, 0)
drawfillbox (X + 3, Y + 5, X + width - 3, Y + height - 3, 0)

drawline (X, Y + 5, X, Y + height - 5, 7)
drawline (X + 1, Y + 3, X + 1, Y + 4, 7)
drawline (X + 1, Y + height - 3, X + 1, Y + height - 4, 7)
drawline (X + 2, Y + 2, X + 2, Y + 2, 7)
drawline (X + 2, Y + height - 2, X + 2, Y + height - 2, 7)
drawline (X + 3, Y + 1, X + 4, Y + 1, 7)
drawline (X + 3, Y + height - 1, X + 4, Y + height - 1, 7)
drawline (X + 5, Y, X + width - 5, Y, 7)
drawline (X + 5, Y + height, X + width - 5, Y + height, 7)
drawline (X + width - 4, Y + 1, X + width - 3, Y + 1, 7)
drawline (X + width - 4, Y + height - 1, X + width - 3, Y + height - 1, 7)
drawline (X + width - 2, Y + 2, X + width - 2, Y + 2, 7)
drawline (X + width - 2, Y + height - 2, X + width - 2, Y + height - 2, 7)
drawline (X + width - 1, Y + 3, X + width - 1, Y + 4, 7)
drawline (X + width - 1, Y + height - 3, X + width - 1, Y + height - 4, 7)
drawline (X + width, Y + 5, X + width, Y + height - 5, 7)

drawline (X + 1, Y + 5, X + 1, Y + height - 5, tclr)
drawline (X + 2, Y + 3, X + 2, Y + 4, tclr)
drawline (X + 2, Y + height - 3, X + 2, Y + height - 4, tclr)
drawline (X + 3, Y + 2, X + 4, Y + 2, tclr)
drawline (X + 3, Y + height - 2, X + 4, Y + height - 2, tclr)
drawline (X + 5, Y + 1, X + width - 5, Y + 1, tclr)
drawline (X + 5, Y + height - 1, X + width - 5, Y + height - 1, tclr)
drawline (X + width - 3, Y + 2, X + width - 4, Y + 2, tclr)
drawline (X + width - 3, Y + height - 2, X + width - 4, Y + height - 2, tclr)
drawline (X + width - 2, Y + 3, X + width - 2, Y + 4, tclr)
drawline (X + width - 2, Y + height - 3, X + width - 2, Y + height - 4, tclr)
drawline (X + width - 1, Y + 5, X + width - 1, Y + height - 5, tclr)

drawline (X + 2, Y + 5, X + 2, Y + height - 5, grey)
drawline (X + 3, Y + 3, X + 3, Y + 4, grey)
drawline (X + 3, Y + height - 3, X + 3, Y + height - 4, grey)
drawline (X + 3, Y + 3, X + 4, Y + 3, grey)
drawline (X + 3, Y + height - 3, X + 2, Y + height - 3, grey)
drawline (X + 5, Y + 2, X + width - 5, Y + 2, grey)
drawline (X + 5, Y + height - 2, X + width - 5, Y + height - 2, grey)
drawline (X + width - 3, Y + 3, X + width - 3, Y + 4, grey)
drawline (X + width - 3, Y + height - 3, X + width - 3, Y + height - 4, grey)
drawline (X + width - 3, Y + 3, X + width - 4, Y + 3, grey)
drawline (X + width - 3, Y + height - 3, X + width - 4, Y + height - 3, grey)
drawline (X + width - 2, Y + 5, X + width - 2, Y + height - 5, grey)
elsif style = "MMJB" and btnVis (Index) then
drawfillbox (X, Y + 2, X + width, Y + height - 3, 0)
drawfillbox (X + 1, Y + 1, X + width - 1, Y + height - 2, 0)
Pic.Draw (picMMJBTL2, X, Y + height - 4, picMerge)
Pic.Draw (picMMJBTR2, X + width - 3, Y + height - 4, picMerge)
Pic.Draw (picMMJBBL2, X, Y, picMerge)
Pic.Draw (picMMJBBR2, X + width - 3, Y, picMerge)

for i : 0 .. width by 15
   exit when 22 + i > width
   Pic.Draw (picMMJBTC2, X + 4 + i, Y + height - 1, 0)
   Pic.Draw (picMMJBBC2, X + 4 + i, Y, 0)
end for
Pic.Draw (picMMJBTC2, X + width - 18, Y + height - 1, 0)
Pic.Draw (picMMJBBC2, X + width - 18, Y, 0)
for i : 0 .. height by 9
   exit when 17 + i > height
   Pic.Draw (picMMJBCR2, X + width, Y + 4 + i, 0)
end for
Pic.Draw (picMMJBCR2, X + width, Y + height - 13, 0)
end if

%% ROLLOVER EFFECT %%
if mx > X and mx < X + width and my > Y and my < Y + height and mb = 0 and btnVis (Index) and btnEnb (Index) and unPress (Index) = false then
if style = "Classic" then
   drawfillbox (X, Y, X + width, Y + height, grey)
   drawbox (X, Y, X + width, Y + height, 7)
   drawbox (X + 1, Y + 1, X + width - 1, Y + height - 1, darkgrey)
elsif style = "ClassicX" then
   drawfillbox (X, Y, X + width, Y + height, darkgrey)
   drawbox (X, Y, X + width, Y + height, 7)
   drawbox (X + 1, Y + 1, X + width - 1, Y + height - 1, grey)
elsif style = "Simple" then
   drawfillbox (X, Y, X + width, Y + height, grey)
   drawbox (X, Y, X + width, Y + height, 7)
   drawbox (X + 1, Y + 1, X + width - 1, Y + height - 1, darkgrey)
elsif style = "SimpleX" then
   drawfillbox (X, Y, X + width, Y + height, 7)
   drawbox (X, Y, X + width, Y + height, grey)
   drawbox (X + 1, Y + 1, X + width - 1, Y + height - 1, darkgrey)
elsif style (1) = "E" and style (2) = "O" and style (3) = "D" then
   if style (4) = "b" then
tclr := 53
   elsif style (4) = "g" then
tclr := 118
   elsif style (4) = "r" then
tclr := brightred
   end if

   drawfillbox (X + 5, Y + 3, X + width - 5, Y + height - 3, 29)
   drawfillbox (X + 4, Y + 4, X + width - 4, Y + height - 4, 29)
   drawfillbox (X + 3, Y + 5, X + width - 3, Y + height - 3, 29)

   drawline (X, Y + 5, X, Y + height - 5, 7)
   drawline (X + 1, Y + 3, X + 1, Y + 4, 7)
   drawline (X + 1, Y + height - 3, X + 1, Y + height - 4, 7)
   drawline (X + 2, Y + 2, X + 2, Y + 2, 7)
   drawline (X + 2, Y + height - 2, X + 2, Y + height - 2, 7)
   drawline (X + 3, Y + 1, X + 4, Y + 1, 7)
   drawline (X + 3, Y + height - 1, X + 4, Y + height - 1, 7)
   drawline (X + 5, Y, X + width - 5, Y, 7)
   drawline (X + 5, Y + height, X + width - 5, Y + height, 7)
   drawline (X + width - 4, Y + 1, X + width - 3, Y + 1, 7)
   drawline (X + width - 4, Y + height - 1, X + width - 3, Y + height - 1, 7)
   drawline (X + width - 2, Y + 2, X + width - 2, Y + 2, 7)
   drawline (X + width - 2, Y + height - 2, X + width - 2, Y + height - 2, 7)
   drawline (X + width - 1, Y + 3, X + width - 1, Y + 4, 7)
   drawline (X + width - 1, Y + height - 3, X + width - 1, Y + height - 4, 7)
   drawline (X + width, Y + 5, X + width, Y + height - 5, 7)

   drawline (X + 1, Y + 5, X + 1, Y + height - 5, tclr)
   drawline (X + 2, Y + 3, X + 2, Y + 4, tclr)
   drawline (X + 2, Y + height - 3, X + 2, Y + height - 4, tclr)
   drawline (X + 3, Y + 2, X + 4, Y + 2, tclr)
   drawline (X + 3, Y + height - 2, X + 4, Y + height - 2, tclr)
   drawline (X + 5, Y + 1, X + width - 5, Y + 1, tclr)
   drawline (X + 5, Y + height - 1, X + width - 5, Y + height - 1, tclr)
   drawline (X + width - 3, Y + 2, X + width - 4, Y + 2, tclr)
   drawline (X + width - 3, Y + height - 2, X + width - 4, Y + height - 2, tclr)
   drawline (X + width - 2, Y + 3, X + width - 2, Y + 4, tclr)
   drawline (X + width - 2, Y + height - 3, X + width - 2, Y + height - 4, tclr)
   drawline (X + width - 1, Y + 5, X + width - 1, Y + height - 5, tclr)

   drawline (X + 2, Y + 5, X + 2, Y + height - 5, grey)
   drawline (X + 3, Y + 3, X + 3, Y + 4, grey)
   drawline (X + 3, Y + height - 3, X + 3, Y + height - 4, grey)
   drawline (X + 3, Y + 3, X + 4, Y + 3, grey)
   drawline (X + 3, Y + height - 3, X + 2, Y + height - 3, grey)
   drawline (X + 5, Y + 2, X + width - 5, Y + 2, grey)
   drawline (X + 5, Y + height - 2, X + width - 5, Y + height - 2, grey)
   drawline (X + width - 3, Y + 3, X + width - 3, Y + 4, grey)
   drawline (X + width - 3, Y + height - 3, X + width - 3, Y + height - 4, grey)
   drawline (X + width - 3, Y + 3, X + width - 4, Y + 3, grey)
   drawline (X + width - 3, Y + height - 3, X + width - 4, Y + height - 3, grey)
   drawline (X + width - 2, Y + 5, X + width - 2, Y + height - 5, grey)
end if
end if

%% BUTTON DOWN %%
if mx > X and mx < X + width and my > Y and my < Y + height and mb = 1 and btnVis (Index) and btnEnb (Index) then
buttonPress (Index) := true
if style = "Standard" then
   drawfillbox (X, Y, X + width, Y + height, grey)
   drawbox (X, Y, X + width, Y + height, 7)
   drawbox (X + 1, Y + 1, X + width - 1, Y + height - 1, darkgrey)
elsif style = "XPs" then
   drawfillbox (X + 1, Y + 1, X + width - 2, Y + height - 1, 0)
   Pic.Draw (picXPsTL, X, Y + height - 3, picMerge)
   Pic.Draw (picXPsBL2, X, Y, picMerge)
   Pic.Draw (picXPsTR, X + width - 3, Y + height - 3, picMerge)
   Pic.Draw (picXPsBR2, X + width - 3, Y, picMerge)
   for i : 0 .. width by 7
exit when i + 14 > width
Pic.Draw (picXPsBM2, X + 3 + i, Y, 0)
Pic.Draw (picXPsTM2, X + 3 + i, Y + height - 13, 0)
   end for
   Pic.Draw (picXPsBM2, X + width - 10, Y, 0)
   Pic.Draw (picXPsTM2, X + width - 10, Y + height - 13, 0)
   for i : 0 .. height by 9
exit when i + 21 > height
Pic.Draw (picXPsML, X, Y + 3 + i, 0)
Pic.Draw (picXPsMR, X + width - 3, Y + 3 + i, 0)
   end for
   Pic.Draw (picXPsML, X, Y + height - 12, 0)
   Pic.Draw (picXPsMR, X + width - 3, Y + height - 12, 0)
elsif style = "XPb" then
   drawfillbox (X + 1, Y + 1, X + width - 2, Y + height - 2, 0)
   Pic.Draw (picXPbTL2, X, Y + height - 3, picMerge)
   Pic.Draw (picXPbBL2, X, Y, picMerge)
   Pic.Draw (picXPbTR2, X + width - 3, Y + height - 3, picMerge)
   Pic.Draw (picXPbBR2, X + width - 3, Y, picMerge)
   for i : 0 .. width by 9
exit when i + 15 > width
Pic.Draw (picXPbTM2, X + 3 + i, Y + height - 3, 0)
Pic.Draw (picXPbBM2, X + 3 + i, Y, 0)
   end for
   Pic.Draw (picXPbTM2, X + width - 12, Y + height - 3, 0)
   Pic.Draw (picXPbBM2, X + width - 12, Y, 0)
   for i : 0 .. height by 7
exit when i + 13 > height
Pic.Draw (picXPbML2, X, Y + 3 + i, 0)
Pic.Draw (picXPbMR2, X + width - 2, Y + 3 + i, 0)
   end for
   Pic.Draw (picXPbML2, X, Y + height - 10, 0)
elsif style = "XPg" then
   drawfillbox (X + 1, Y + 1, X + width - 2, Y + height - 2, 0)
   Pic.Draw (picXPgTL2, X, Y + height - 3, picMerge)
   Pic.Draw (picXPgBL2, X, Y, picMerge)
   Pic.Draw (picXPgTR2, X + width - 3, Y + height - 3, picMerge)
   Pic.Draw (picXPgBR2, X + width - 3, Y, picMerge)
   for i : 0 .. width by 9
exit when i + 15 > width
Pic.Draw (picXPgTM2, X + 3 + i, Y + height - 3, 0)
Pic.Draw (picXPgBM2, X + 3 + i, Y, 0)
   end for
   Pic.Draw (picXPgTM2, X + width - 12, Y + height - 3, 0)
   Pic.Draw (picXPgBM2, X + width - 12, Y, 0)
   for i : 0 .. height by 7
exit when i + 13 > height
Pic.Draw (picXPgML2, X, Y + 3 + i, 0)
Pic.Draw (picXPgMR2, X + width - 2, Y + 3 + i, 0)
   end for
   Pic.Draw (picXPgML2, X, Y + height - 10, 0)
elsif style = "MMJB" then
   drawfillbox (X, Y + 2, X + width, Y + height - 3, 0)
   drawfillbox (X + 1, Y + 1, X + width - 1, Y + height - 2, 0)
   Pic.Draw (picMMJBTL3, X, Y + height - 5, picMerge)
   Pic.Draw (picMMJBTR3, X + width - 3, Y + height - 5, picMerge)
   Pic.Draw (picMMJBBL3, X, Y, picMerge)
   Pic.Draw (picMMJBBR3, X + width - 3, Y, picMerge)

   for i : 0 .. width by 15
exit when 23 + i > width
Pic.Draw (picMMJBTC3, X + 4 + i, Y + height - 3, 0)
Pic.Draw (picMMJBBC3, X + 4 + i, Y, 0)
   end for
   Pic.Draw (picMMJBTC3, X + width - 18, Y + height - 3, 0)
   Pic.Draw (picMMJBBC3, X + width - 18, Y, 0)
   for i : 0 .. height by 9
exit when 17 + i > height
Pic.Draw (picMMJBCR3, X + width - 2, Y + 3 + i, 0)
Pic.Draw (picMMJBCL3, X, Y + 3 + i, 0)
   end for
   Pic.Draw (picMMJBCR3, X + width - 2, Y + height - 14, 0)
   Pic.Draw (picMMJBCL3, X, Y + height - 14, 0)
end if
end if

%% DRAW FACE %%
if btnVis (Index) then
if mx > X and mx < X + width and my > Y and my < Y + height and mb = 1 and btnEnb (Index) then
   if style = "Classic" then
fClr := darkgrey
   elsif style = "ClassicX" then
fClr := 30
   elsif style = "Simple" then
fClr := darkgrey
   elsif style = "SimpleX" then
fClr := 26
   elsif style (1) = "E" and style (2) = "O" and style (3) = "D" then
fClr := 7
   end if
elsif mx > X and mx < X + width and my > Y and my < Y + height and mb = 0 and btnEnb (Index) then
   if style = "MMJB" then
fClr := 79
   end if
end if

tempfont := Font.New (fontX)
Font.Draw (text, X + (width div 2) - (Font.Width (text, tempfont) div 2), Y + (height div 2) - (fontSz div 2) + 1, tempfont, fClr)
Font.Free (tempfont)
end if

%% OPERATE BUTTON %%
if unPress (Index) then
unPress (Index) := false
lastButton := Index
act
end if

if buttonPress (Index) and unPress (Index) = false and mb = 0 and mx > X and mx < X + width and my > Y and my < Y + height and btnVis (Index) and btnEnb (Index) then
unPress (Index) := true
buttonPress (Index) := false
end if
end DrawButton

Author:	SNIPERDUDE [ Wed May 14, 2008 7:07 am ]
Post subject:	Visual Turing!?
I can up with this idea for a new turing project... What if I were to come up with a form creator similar to that of visual basic, and have it hardcode the form into a turing file that can be imported (or copy + pasted) into your programme? So what I mean is: you create the visual look of your form (buttons, pics, etc), then when you save it would hardcode it into a turing file that can either be called or copy and pasted into the programme you want.. This would be particularly useful for making menus. I thought about the creativity and flexibility of it, so it will be using my custom GUI package I made here Tell me what you guys think, and let me know if you come up with any ideas \|,,\| (?_?) \|,,\|

Author:	SNIPERDUDE [ Wed May 14, 2008 7:09 am ]
Post subject:	RE:Visual Turing!?
lmao, it put '?' where it was supposed to be a degrees symbol

Author:	SNIPERDUDE [ Wed May 14, 2008 7:12 am ]
Post subject:	RE:Visual Turing!?
btw the gui package has been much updated since then... When I get the chance I'll post a screenshot of it and of the project whe I have some progress.

Author:	Mackie [ Wed May 14, 2008 7:14 am ]
Post subject:	RE:Visual Turing!?
Not necessary in Turing's current state. Maybe if we had OpenT done.

Author:	SNIPERDUDE [ Wed May 14, 2008 7:20 am ]
Post subject:	RE:Visual Turing!?
It gives me something to do. I'm not trying to imply that turing's GUI is difficult to use; just that I have some friends that use vb and started turing but are still in VB denial. I thought of this when I was trying to teach them... But nonetheless this programme would be nice if you wanted to create a more of a form based programme (as in not so game like) in turing.

Author:	SNIPERDUDE [ Wed May 14, 2008 9:45 am ]
Post subject:	RE:Visual Turing!?
I meant to say VB withdrawal, not denial... I just couldn't think of the word

Author:	SNIPERDUDE [ Tue May 20, 2008 10:18 am ]
Post subject:	Re: Visual Turing!?
Here it is! I have the first preview of my programme! It will still be a while untill I post it, because making a non-object oriented programming language object- oriented does take alot. But once I post this version other versions will come out faster, as I will have the template done. Ideas, comments, questions welcome

Author:	Mackie [ Tue May 20, 2008 1:33 pm ]
Post subject:	RE:Visual Turing!?
Does it work? Can you post some code?

Author:	SNIPERDUDE [ Tue May 20, 2008 3:01 pm ]
Post subject:	RE:Visual Turing!?
Yes, I spent about half a year making an effective coding for custom GUI - so this programme is just an expantion of that. I'm sorry I can't post the code quite yet, but on my first official release of this programme I will post the GUI code (not the form editor code, maybe later). But if you want to see if it really works - I will post a demo hopefully soon.

Author:	apomb [ Tue May 20, 2008 3:33 pm ]
Post subject:	RE:Visual Turing!?
I sense some grade-A bullplop... but who knows.

Author:	SNIPERDUDE [ Wed May 21, 2008 7:08 am ]
Post subject:	RE:Visual Turing!?
why thank you for the early praise I guess... I certainly think it is, it's up to you guys to properly judge it...

Author:	apomb [ Wed May 21, 2008 7:38 am ]
Post subject:	RE:Visual Turing!?
We cant judge something we cant see/use... and im not sure you read my post very well last time :S

Author:	SNIPERDUDE [ Wed May 21, 2008 9:56 am ]
Post subject:	RE:Visual Turing!?
lol, anywho liek I said - a demo version will be out hopefully soon. Maybe a week? 2? somewhere around those lines I hope - school does get busy these days...

Author:	SNIPERDUDE [ Wed May 21, 2008 9:59 am ]
Post subject:	RE:Visual Turing!?
accually now that I think about it - you can see an eary demo I made of the GUI (the link is on my first post on this thread). Let me know what you think of it... I know there are still some minor stuff I need to fix, but they should be easy

Author:	Zren [ Wed May 21, 2008 5:11 pm ]
Post subject:	Re: Visual Turing!?
How'd you get the Windows GUI into turing. Did you honnestly rip up every single image a apply them into the window. I'm with apomp on this being fishylike. Quote: Yes, I spent about half a year making an effective coding for custom GUI Holy Crap, how large is this thing...

Author:	SNIPERDUDE [ Thu May 22, 2008 6:44 am ]
Post subject:	RE:Visual Turing!?
It's accually not Windows' GUI at all, I made this from scratch. The reason it was taking so long to make was I did most of the graphics using RGB and drawline - the only outside images I use are corner pieces (and some side pieces) as you can see in the pics folder (I got those images from printscreen). And by Large, what do you mean? Space size? It shouldn't be too big because I'm not using images for too much...

Author:	nastynika [ Fri May 23, 2008 8:14 am ]
Post subject:	Re: Visual Turing!?
the sample that u posted doesnt work i got 21 errors and 1 warning lol

Author:	SNIPERDUDE [ Fri May 23, 2008 9:45 am ]
Post subject:	RE:Visual Turing!?
Triple posted? Where? What are you talking about? And as I said - SOME OF THE STUFF USES IMAGES, that's why it doesn't work (plus the variables aren't declared there). I just posted that piece of code to show you guys that I have been working hard on an alternate turing GUI - I said I'll post the code for the actual GUI package LATER. PATIENCE. You guys are really bugging me - just because the programme is supposed to be everything it claims to be, doesn't mean that you should jump to the conclusion that it isn't. You don't know me - it's not like you can base my programme on my ability [or lack there of] (as in "you wished you could do that - you're not there yet"). NOW, I ask for ideas and etc - NOT rude comments like 'poster', 'poser', and others. I AM STILL GOING TO POST THE PROGRAMME ... you would like it if I didn't. Your attitude shows it. ALL I ask is to keep an open mind - and stop being such pricks. Thank you. EDIT: realized what you mean by double/triple posting. Sorry, all you had to do was ask - not smite.

Author:	apomb [ Fri May 23, 2008 3:16 pm ]
Post subject:	Re: Visual Turing!?
nastynika @ Fri May 23, 2008 8:33 am wrote: well he has triple posted at least once thrice, actually... and to Sniperdude: all we ask is that you show some sort of proof that you made this and have been working on it. We dont need all the workup to it. (I dont even care about turing, i havent written a program in it in over 4 years). the more you hesitate to post workable code, the more it seems like you are trying to avoid embarrasment from it not working, or a conceit to you not actually writing this yourself. that is all.

Author:	apomb [ Wed May 21, 2008 10:42 pm ]
Post subject:	Re: Visual Turing!?
Zren @ Wed May 21, 2008 5:11 pm wrote: How'd you get the Windows GUI into turing. Did you honnestly rip up every single image a apply them into the window. I'm with apomp on this being fishylike. Quote: Yes, I spent about half a year making an effective coding for custom GUI Holy Crap, how large is this thing... exactly, and if you have been "coding" it for half a year, why cant you just show a snippet of that code? thats all we ask. not to steal it, not to copyright infringe it, just to see what kind of effort would go into making such a thing.

Author:	SNIPERDUDE [ Thu May 22, 2008 6:45 am ]
Post subject:	RE:Visual Turing!?
OK, I'll post some code sometime today...

Author:	Sean [ Thu May 22, 2008 7:00 am ]
Post subject:	Re: Visual Turing!?
We will all be waiting for the code. Hurry up with it

Author:	SNIPERDUDE [ Thu May 22, 2008 7:16 am ]
Post subject:	RE:Visual Turing!?
Have fun with that... sorry the formating (indenting) got messed up when I posted it...

Author:	SNIPERDUDE [ Fri May 23, 2008 7:04 am ]
Post subject:	RE:Visual Turing!?
Annnddddddd?????????????

Author:	Mackie [ Fri May 23, 2008 7:06 am ]
Post subject:	RE:Visual Turing!?
It doesn't work.

Author:	SNIPERDUDE [ Fri May 23, 2008 7:08 am ]
Post subject:	RE:Visual Turing!?
ANOUNCEMENT: I have made amazing progress and the demo will be relaeased in under a week - most likely sooner.

Author:	apomb [ Fri May 23, 2008 8:19 am ]
Post subject:	RE:Visual Turing!?
not only does the code not work, the MASS amounts of double/triple posts is underwhelming. I vote to call this poster a troll.

Author:	nastynika [ Fri May 23, 2008 8:33 am ]
Post subject:	Re: Visual Turing!?
well he has triple posted at least once

Author:	SNIPERDUDE [ Fri May 23, 2008 4:00 pm ]
Post subject:	RE:Visual Turing!?
I told you I was working on it - don't try and rush me. The reason this thread was started was for opinions on the making of it (should I or not), just read the first post. Besides - I posted some form of proof I'm not all talk here (both with the old GUI thread, the screenshot, and a snippet of code). I'm just asking that you don't be so rude... Now, I have done alot today and I will post it as soon as I get home (I have 4.1.1 with me and it doesn't compile, might be around 10PM tonight, not sure EXACTLY when) - so hold your horses. Do note that once it is posted it still has some small problems - but I've ironed out enough to post what I have so far.

Author:	gitoxa [ Fri May 23, 2008 4:37 pm ]
Post subject:	RE:Visual Turing!?
Reading, serious business.

Author:	Sean [ Fri May 23, 2008 5:10 pm ]
Post subject:	Re: Visual Turing!?
Honestly I'll believe it when I see it.

Author:	SNIPERDUDE [ Fri May 23, 2008 6:48 pm ]
Post subject:	Re: Visual Turing!?
well here it is. Shuttup. Now - I ask for programme related (ex: the interface is too cluttered) and not coding related (ex: this button doesn't work) criticism - I know some of it doesn't work - it's still under construction.

Author:	Sean [ Fri May 23, 2008 6:54 pm ]
Post subject:	RE:Visual Turing!?
Thanks for the code, I wasn't critizing you.

Author:	Mackie [ Fri May 23, 2008 9:17 pm ]
Post subject:	RE:Visual Turing!?
What am I supposed to do with an executable? /me demands code, for scrutination of course. That button didn't look to impressive code wise. ( Not because it didn't run ) I'd like to see how bad/good the code is for the rest of it. No one is going to steal it.

Author:	Zren [ Fri May 23, 2008 9:42 pm ]
Post subject:	Re: Visual Turing!?
After pressing a bunch of buttons I get an error: Quote: A Run-Time Error has occured. Line 1424 of : Pic was never allocated It may be going over a maximum image quota of some sort? Since your program is kinda heavy based on images.

Author:	SNIPERDUDE [ Sat May 24, 2008 5:43 am ]
Post subject:	RE:Visual Turing!?
I am NOT going to post the code until later, calm down. Judge it upon what I showed you. What didn't you like about the coding of the button? And about the pic problem, it runs fine in turing, but it's probably just a Pic.Free problem. The thing is only heavily image based in the sense that there are alot of tiny pics used (which I want to cut down on) like 3 X 3 pixels, etc. EDIT: When I asked for your opinion on the button, I want to know what I can do to clean it up - not just saying it's bad and leaving it at that. EDIT: (better more edits than posts I guess) Was thinking, this is the turing SUBMISSIONS forum is it not? Why then do you ask for code - I have submitted as I pleased and am under no obligation to give you code. It's not as if this is the help forum and I am asking for coding help without giving you anything to analyse... I will repost the programme when I get the chance (I have to go to work now) with the problem fixed - but you can still explore the programme in the given time before the error occurs for now. What do you guys think of it?

Author:	Sean [ Sat May 24, 2008 10:14 am ]
Post subject:	Re: Visual Turing!?
With the errors that pop up, and the fact that parts of it doesn't work, people want to see what you were doing to assist you, not cut you down. Mackie is a person that wouldn't do that. So, for your best interest Sniper. Post the code in a PM to him, or the people who ask for it.

Author:	Nick [ Sat May 24, 2008 1:59 pm ]
Post subject:	RE:Visual Turing!?
usually the point of GUI or a module is to help other code, which cannot be done through an exe, only through the actual code... I really don't care if you submit it or not, I can make my own GUI, just saying that's how it usually works

Author:	SNIPERDUDE [ Sat May 24, 2008 5:11 pm ]
Post subject:	RE:Visual Turing!?
Goodness, I know what problems exist in it - and how to fix them. The thing is I was kind of rushed into posting - so that's why some errors still occur, not because of lack of ability to do the job right. Mackie - If you want to help out with coding, fine. I'll pm you it later.