| | |
help with a project(tomagatchi clone)
Please support our VB.NET advertiser: Intel Parallel Studio Home
![]() |
•
•
Join Date: Nov 2006
Posts: 3
Reputation:
Solved Threads: 0
hey i wanted to start a tomagatchi clone project with vb..
im having problems with it...
cann't get it so that as time pass( every 1 minute) that the hunger,boredom, and need to poop increase
i tried to use the timer but i cant get it down...
an example would help a lot!:mrgreen:
oh yea im using vb express and im just learning vb as school and wanted to try to program somthing cool with vb.
thx
im having problems with it...
cann't get it so that as time pass( every 1 minute) that the hunger,boredom, and need to poop increase
i tried to use the timer but i cant get it down...
an example would help a lot!:mrgreen:
oh yea im using vb express and im just learning vb as school and wanted to try to program somthing cool with vb.
thx
•
•
Join Date: Nov 2006
Posts: 3
Reputation:
Solved Threads: 0
go easy on me
i just started and don't really know what im doin 
Public Class Form1
Dim play As Integer = lblplay.Text
Dim fullness As Integer = lblfullness.Text
Dim potty As Integer = lblfullness.Text
Private Sub btnfeed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfeed.Click
If fullness > 90 Then
MsgBox("Im full!!!")
Else
fullness = fullness + 10
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If play < 90 Then
play = play + 10
ElseIf play > 90 Then
MsgBox("I dont want to play anymore!")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If potty < 90 Then
potty = potty + 10
ElseIf potty > 90 Then
MsgBox("I don't need to take a crap anymore!")
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = True
Timer1.Interval = 1000
Dim play As Integer
Dim potty As Integer
Dim fullness As Integer
neglect(play, potty, fullness)
End Sub
Public Function neglect(ByVal hun As Integer, ByVal pla As Integer, ByVal pott As Integer)
Return hun = hun - 1
Return pla = pla - 1
Return pott = pott - 1
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End Class
i just started and don't really know what im doin 
Public Class Form1
Dim play As Integer = lblplay.Text
Dim fullness As Integer = lblfullness.Text
Dim potty As Integer = lblfullness.Text
Private Sub btnfeed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfeed.Click
If fullness > 90 Then
MsgBox("Im full!!!")
Else
fullness = fullness + 10
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If play < 90 Then
play = play + 10
ElseIf play > 90 Then
MsgBox("I dont want to play anymore!")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If potty < 90 Then
potty = potty + 10
ElseIf potty > 90 Then
MsgBox("I don't need to take a crap anymore!")
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = True
Timer1.Interval = 1000
Dim play As Integer
Dim potty As Integer
Dim fullness As Integer
neglect(play, potty, fullness)
End Sub
Public Function neglect(ByVal hun As Integer, ByVal pla As Integer, ByVal pott As Integer)
Return hun = hun - 1
Return pla = pla - 1
Return pott = pott - 1
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End Class
![]() |
Similar Threads
- final year project help!!!!! (Computer Science)
- photo upload editor clone (Visual Basic 4 / 5 / 6)
- php project (PHP)
- amateur coders needed , project in audio streaming (C++)
- Group Project Ideas (Geeks' Lounge)
Other Threads in the VB.NET Forum
- Previous Thread: navigation within multiple form in VB.NET
- Next Thread: Am Getting System Errors When running my VB.NET project
| Thread Tools | Search this Thread |
Tag cloud for VB.NET
.net .net2008 2005 2008 access account arithmetic array arrays basic bing button buttons c# center check checkbox code convert crystalreport data database datagrid datagridview date dissertation dissertations dropdownlist excel fade file-dialog filter ftp generatetags google gridview hardcopy images inline input insert intel internet listview mobile monitor ms net networking objects output panel passingparameters picturebox picturebox1 port position print printing problem project read remove save searchbox searchvb.net select serial server shutdown soap sorting survey table tcp temperature text textbox timer timespan toolbox trim update user validation vb vb.net vb.netformclosing()eventpictureboxmessagebox vb2008 vbnet view visual visualbasic visualbasic.net visualstudio visualstudio2008 web winforms wpf year






