A forum for the Tanghinian

Forum Menu

Forum Index
Site Members
Popular Topics

Random Image

img_1364
img_1364
Browse Album

Topics

User Functions



    :




    Lost your password?

Welcome to Discuss
Monday, 6 September 2010 @ 04:50 PM HKT


 Forum Index > Computer Lessons > S2 Computer Game Programming New Topic Post Reply
 VB error
 |  Printable Version
S080093@eClass
 March 09 2010 21:13 PM (Read 555 times)  
Forum Newbie
Newbie

Status: offline

Registered: 02/23/09
Posts: 3

wong Sir, 我是2D班的劉燕珊，我VB有個error不知道該怎樣消除想請教下您，就因有這個error令到個game run不到我更新的版本。
error：“Unable to copy file "obj\Debug\Lunar New Year Holiday HW.exe" to "bin\Debug\Lunar New Year Holiday HW.exe". The process cannot access the file 'bin\Debug\Lunar New Year Holiday HW.exe' because it is being used by another process. Lunar New Year Holiday HW”

我一個game做2-3個levels，做到第2個level時我把第1個level的 code copied 過來了，然後level 1 的code又改了點，這個error就出現了... 該怎樣搞？？ Thanks！
 
Profile
Quote
S080114@eClass
 March 09 2010 21:38 PM  
Forum Junior
Junior

Status: offline

Registered: 02/12/10
Posts: 18

請俾CODE..........
同佢有無UNDERLINE一D字呢?
 
Profile
Quote
S080093@eClass
 March 09 2010 22:24 PM  
Forum Newbie
Newbie

Status: offline

Registered: 02/23/09
Posts: 3

Code： （level 2）
Public Class Form51
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = True
Button6.Visible = True
Button11.Visible = True
Button12.Visible = True
Button9.Visible = True
Button10.Visible = True
Button7.Enabled = False
Button8.Enabled = False
Timer1.Enabled = True
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button1.Left = 12
Button1.Top = 97
Button2.Left = 625
Button2.Top = 75
Button3.Left = 300
Button3.Top = 229
Button4.Left = 259
Button4.Top = 329
Button5.Left = 266
Button5.Top = 127
Button6.Left = 494
Button6.Top = 174
Button9.Left = 745
Button9.Top = 402
Button10.Left = 758
Button10.Top = 240
Button11.Left = 505
Button11.Top = 299
Button12.Left = 27
Button12.Top = 371
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
Label2.Text = Val(Label2.Text) + 1

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Label3.Visible = True
Label3.Text = "You Lose!"
Timer1.Enabled = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button11.Visible = False
Button12.Visible = False
Button9.Visible = False
Button10.Visible = False
Button8.Enabled = True
Button7.Enabled = False

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Enabled = False
Label2.Text = Val(Label2.Text) + 1

End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
Label3.Visible = True
Label3.Text = "You Lose!"
Timer1.Enabled = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button11.Visible = False
Button12.Visible = False
Button9.Visible = False
Button10.Visible = False
Button8.Enabled = True
Button7.Enabled = False
End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
Button5.Enabled = False
Label2.Text = Val(Label2.Text) + 1
End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
Label3.Visible = True
Label3.Text = "You Lose!"
Timer1.Enabled = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button11.Visible = False
Button12.Visible = False
Button9.Visible = False
Button10.Visible = False
Button8.Enabled = True
Button7.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Val(Label1.Text) - 1
Button1.Left = Button1.Left + 10
Button2.Left = Button2.Left + 10
Button3.Left = Button3.Left + 10
Button4.Left = Button4.Left + 10
Button5.Left = Button5.Left + 10
Button6.Left = Button6.Left + 10
Button11.Left = Button11.Left + 10
Button12.Left = Button12.Left + 10
Button9.Left = Button9.Left + 10
Button10.Left = Button10.Left + 10

While Button1.Left >= 393
Button1.Left = 12
End While
While Button2.Left >= 815
Button2.Left = 652
End While
While Button3.Left >= 395
Button3.Left = 38
End While
While Button4.Left >= 393
Button4.Left = 259
End While
While Button5.Left >= 393
Button5.Left = 266
End While
While Button6.Left >= 815
Button6.Left = 494
End While
While Button11.Left >= 815
Button11.Left = 505
End While
While Button12.Left >= 393
Button12.Left = 27
End While
While Button9.Left >= 815
Button9.Left = 745
End While
While Button10.Left >= 815
Button10.Left = 758
End While


While Button1.Left <= 12
Button1.Left = Button1.Left + 10
End While
While Button2.Left <= 652
Button2.Left = Button2.Left + 10
End While
While Button3.Left <= 38
Button3.Left = Button3.Left + 10
End While
While Button4.Left <= 259
Button4.Left = Button4.Left + 10
End While
While Button5.Left <= 266
Button5.Left = Button5.Left + 10
End While
While Button6.Left <= 494
Button6.Left = Button6.Left + 10
End While
While Button11.Left <= 505
Button11.Left = Button11.Left + 10
End While
While Button12.Left <= 27
Button12.Left = Button12.Left + 10
End While
While Button9.Left <= 745
Button9.Left = Button9.Left + 10
End While
While Button10.Left <= 758
Button10.Left = Button10.Left + 10
End While



If Label1.Text = 0 Then
Label3.Visible = True
Label3.Text = "You Lose!"
Timer1.Enabled = False
Button8.Enabled = True
Button7.Enabled = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button7.Visible = False
Button8.Visible = True
Button9.Visible = False
Button10.Visible = False

End If
If Label2.Text = "5" Then
Label3.Visible = True
Label3.Text = "You Win!"
Timer1.Enabled = False
Button8.Enabled = True
Button7.Enabled = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button7.Visible = False
Button8.Visible = True
Button9.Visible = False
Button10.Visible = False

End If


End Sub

Private Sub Form7_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Button7.Enabled = True
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button8.Enabled = False
Button9.Visible = False
Button10.Visible = False
Button11.Visible = False
Button12.Visible = False


End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click
Button7.Enabled = True
Button7.Visible = True
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button11.Visible = False
Button12.Visible = False
Button9.Visible = False
Button10.Visible = False
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Label1.Text = 90
Label2.Text = 0
Label3.Visible = False

End Sub


Private Sub Button11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.Click
Button11.Enabled = False
Label2.Text = Val(Label2.Text) + 1
End Sub

Private Sub Button12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button12.Click
Label3.Visible = True
Label3.Text = "You Lose!"
Timer1.Enabled = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button11.Visible = False
Button12.Visible = False
Button9.Visible = False
Button10.Visible = False
Button8.Enabled = True
Button7.Enabled = False

End Sub


Private Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
Button9.Enabled = False
Label2.Text = Val(Label2.Text) + 1
End Sub

Private Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.Click
Label3.Visible = True
Label3.Text = "You Lose!"
Timer1.Enabled = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button11.Visible = False
Button12.Visible = False
Button9.Visible = False
Button10.Visible = False
Button8.Enabled = True
Button7.Enabled = False
End Sub

Private Sub Button13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button13.Click
If Label2.Text = "5" Then
Label3.Visible = True
Label3.Text = "You Win!"
Timer1.Enabled = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = True
Button6.Enabled = True
Button7.Visible = True
Button7.Enabled = True
Button8.Enabled = True
Button13.Enabled = False
Button9.Visible = False
Button10.Visible = False
Button11.Visible = False
Button12.Visible = False
Button14.Visible = True
Else
Label3.Visible = True
Label3.Text = "You Lose!"
Timer1.Enabled = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button11.Visible = False
Button12.Visible = False
Button9.Visible = False
Button10.Visible = False
Button8.Enabled = True
Button7.Enabled = False

End If



End Sub





Private Sub Button14_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.Click
Me.Hide()
Form5.Show()
End Sub
End Class



好長...Sorry...
 
Profile
Quote
S080093@eClass
 March 09 2010 22:25 PM  
Forum Newbie
Newbie

Status: offline

Registered: 02/23/09
Posts: 3

無underline任何野
 
Profile
Quote
Wong sir
 March 13 2010 16:32 PM  
Forum Chatty
Chatty

Status: offline

Registered: 12/28/06
Posts: 57

應該係因為你用手指或網絡硬碟~
你copy 成個project 到c:/d: drive.即可
 
Profile Email Website
Quote
Content generated in: 0.71 seconds
New Topic Post Reply



 All times are HKT. The time is now 04:50 PM.
Normal Topic Normal Topic
Locked Topic Locked Topic
Sticky Topic Sticky Topic
New Post New Post
Sticky Topic W/ New Post Sticky Topic W/ New Post
Locked Topic W/ New Post Locked Topic W/ New Post
View Anonymous Posts 
Anonymous users can post 
Full HTML Allowed 
Censored Content 

 Copyright © 2010 Discuss
 All trademarks and copyrights on this page are owned by their respective owners. 		HTML  CSS  CC  RSS  THEME