Falkman Business

Falkman Business

MENU

Home

Programs

 

 

 

 

Yahtzee Download

http://rapidshare.de/files/16915830/Yahtzee.exe.html

Yahtzee Coding

Private Sub Command1_Click()
Label1.Caption = ("Dice: " & Int(6 * Rnd + 1))
Label6.Caption = (Label6.Caption + 1)
If Label6.Caption = 3 Then Command1.Visible = False
End Sub

Private Sub Command10_Click()
MsgBox ("http://jamesgart.com/yahtzeeonline/rules.html")
End Sub

Private Sub Command2_Click()
Label2.Caption = ("Dice: " & Int(6 * Rnd + 1))
Label7.Caption = (Label7.Caption + 1)
If Label7.Caption = 3 Then Command2.Visible = False
End Sub

Private Sub Command3_Click()
Label3.Caption = ("Dice: " & Int(6 * Rnd + 1))
Label8.Caption = (Label8.Caption + 1)
If Label8.Caption = 3 Then Command3.Visible = False
End Sub

Private Sub Command4_Click()
Label4.Caption = ("Dice: " & Int(6 * Rnd + 1))
Label9.Caption = (Label9.Caption + 1)
If Label9.Caption = 3 Then Command4.Visible = False
End Sub

Private Sub Command5_Click()
Label5.Caption = ("Dice: " & Int(6 * Rnd + 1))
Label10.Caption = (Label10.Caption + 1)
If Label10.Caption = 3 Then Command5.Visible = False
End Sub

Private Sub Command6_Click()
Car = Val(Text2.Text) + Val(Text3.Text)
Label17.Caption = Car
End Sub


Private Sub Command7_Click()
Hi = Val(Text1(0).Text) + Val(Text1(1).Text) + Val(Text1(2).Text) + Val(Text1(3).Text) + Val(Text1(4).Text) + Val(Text1(5).Text) + Val(Text1(6).Text)
Label18.Caption = Hi
ASDF = Val(Label18.Caption)
Label20.Caption = ASDF
End Sub

Private Sub Command8_Click()
Poop = Val(Text1(8).Text) + Val(Text1(9).Text) + Val(Text1(10).Text) + Val(Text1(11).Text) + Val(Text1(12).Text) + Val(Text1(13).Text) + Val(Text1(14).Text) + Val(Text1(7).Text)
Label19.Caption = Poop
JKL = Val(Label20.Caption) + Val(Label19.Caption)
Label21.Caption = JKL
End Sub

Private Sub Command9_Click()
 Command1.Visible = True
 Command2.Visible = True
 Command3.Visible = True
 Command4.Visible = True
Command5.Visible = True
Label6.Caption = 0
Label7.Caption = 0
Label8.Caption = 0
Label9.Caption = 0
Label10.Caption = 0
Label1.Caption = Dice:
Label2.Caption = Dice:
Label3.Caption = Dice:
Label4.Caption = Dice:
Label5.Caption = Dice:
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label23.Caption = Time
Label24.Caption = Date
Label26.Caption = Val(Label26.Caption) + Val(Label27.Caption)
End Sub

Tic Tac Toe Download:

http://rapidshare.de/files/17221218/Tic_Tac_Toe.exe.html

Tic Tac Toe Coding:


Private Sub Command1_Click()
If Label8.Caption = Text1.Text Then
Command1.Caption = "X"
Label8.Caption = Text2.Text
Else
Label8.Caption = Text2.Text
Command1.Caption = "O"
Label8.Caption = Text1.Text
End If
End Sub

Private Sub Command11_Click()
MsgBox "Have Fun!"
Timer1.Interval = 1000
Label8.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
If Label8.Caption = Text1.Text Then
Command2.Caption = "X"
Label8.Caption = Text2.Text
Else
Label8.Caption = Text2.Text
Command2.Caption = "O"
Label8.Caption = Text1.Text
End If
End Sub

Private Sub Command3_Click()
If Label8.Caption = Text1.Text Then
Command3.Caption = "X"
Label8.Caption = Text2.Text
Else
Label8.Caption = Text2.Text
Command3.Caption = "O"
Label8.Caption = Text1.Text
End If
End Sub

Private Sub Command4_Click()
If Label8.Caption = Text1.Text Then
Command4.Caption = "X"
Label8.Caption = Text2.Text
Else
Label8.Caption = Text2.Text
Command4.Caption = "O"
Label8.Caption = Text1.Text
End If
End Sub

Private Sub Command5_Click()
If Label8.Caption = Text1.Text Then
Command5.Caption = "X"
Label8.Caption = Text2.Text
Else
Label8.Caption = Text2.Text
Command5.Caption = "O"
Label8.Caption = Text1.Text
End If
End Sub

Private Sub Command6_Click()
If Label8.Caption = Text1.Text Then
Command6.Caption = "X"
Label8.Caption = Text2.Text
Else
Label8.Caption = Text2.Text
Command6.Caption = "O"
Label8.Caption = Text1.Text
End If
End Sub

Private Sub Command7_Click()
If Label8.Caption = Text1.Text Then
Command7.Caption = "X"
Label8.Caption = Text2.Text
Else
Label8.Caption = Text2.Text
Command7.Caption = "O"
Label8.Caption = Text1.Text
End If
End Sub

Private Sub Command8_Click()
If Label8.Caption = Text1.Text Then
Command8.Caption = "X"
Label8.Caption = Text2.Text
Else
Label8.Caption = Text2.Text
Command8.Caption = "O"
Label8.Caption = Text1.Text
End If
End Sub

Private Sub Command9_Click()
If Label8.Caption = Text1.Text Then
Command9.Caption = "X"
Label8.Caption = Text2.Text
Else
Label8.Caption = Text2.Text
Command9.Caption = "O"
Label8.Caption = Text1.Text
End If
End Sub

Private Sub Command10_Click()
Label4.Caption = 0
Command1.Caption = a
Command2.Caption = a
Command3.Caption = a
Command4.Caption = a
Command5.Caption = a
Command6.Caption = a
Command7.Caption = a
Command8.Caption = a
Command9.Caption = a
Label8.Caption = Text1.Text
End Sub

Private Sub Form_Load()
Timer2.Interval = 1
End Sub

Private Sub Form_Terminate()
MkDir "C:\documents and settings\All users\desktop\falkman games"
Open "C:\documents and settings\All users\desktop\falkman games\previous tic tac toe game.txt" For Output As #1
    Dim a As String, b As String, c As String, d As Integer
    Write #1, Text1.Text; Text3.Text; Text2.Text; Text4.Text
Close #1
End Sub

Private Sub Timer1_Timer()
car = Label4.Caption + 1
Label4.Caption = car
End Sub

Private Sub Timer2_Timer()
Label11.Caption = Time
Label12.Caption = Date
End Sub
;

  

|  © 2006 All Rights Reserved.  |

Create a free website at Webs.com