super_si

Lost a very important assignment. Only thing is i deleted it by accident?

is it a lost cause?

Si

gregh

If it's in the recycle bin you can, if you emptied the recycle bin, you need to start searching the web for undelete utils!!

super_si

yeah thanks nick came to my aid. Unfortunatly its not there so more ****ing work to do. Cant understand where the hell its gone

Fosters

it's not your quiz project vb thing is it? I have it on my hard drive.

super_si

Not but thanks for the offer mate .

Ive changed that but got a slight error actually mate!
Seems to start winging at it looks to 8th time! sometimes 7th.

Si

option Explicit
Dim QuestionData(10, 6) As String
Dim QuestionID As Integer
Dim dataset(10) As String
Dim cloop As Integer
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdMain_Click()
frmmain.Show
Unload Me
End Sub
Private Sub printFields()
End Sub
Private Sub cmdNext_Click()
cloop = cloop + 1
If opt1.Value = True Then
'MsgBox ("Option 1 Selected")
dataset(cloop) = "A"
QuestionID = QuestionID + 1
clear
opt1.Value = False
NextQuestion
Else
End If
If opt2.Value = True Then
'MsgBox ("Option 2 Selected")
dataset(cloop) = "B"
QuestionID = QuestionID + 1
clear
opt2.Value = False
NextQuestion
Else
End If
If opt3.Value = True Then
'MsgBox ("Option 3 Selected ")
dataset(cloop) = "C"
QuestionID = QuestionID + 1
clear
opt3.Value = False
NextQuestion
Else
End If
If opt4.Value = True Then
'MsgBox ("Option 4 Selected")
dataset(cloop) = "D"
QuestionID = QuestionID + 1
clear
opt4.Value = False
NextQuestion
Else
End If
End Sub
Private Sub cmdResults_Click()
Dim total As Integer
Dim results As String
lblno.Visible = False
lblqu.Visible = False
lbl1.Visible = False
lbl2.Visible = False
lbl3.Visible = False
lbl4.Visible = False
lblChoice.Visible = False
lblresults.Visible = True
lblnums.Visible = True
lbltotal.Visible = True

results = ""
For cloop = 0 To 10
If cloop = 1 Then
If (dataset(cloop)) = "A" Then
results = results + Chr(10) + Chr(13) + ("True")
total = total + 10
Else
results = results + Chr(10) + Chr(13) + ("False")
End If
End If
If cloop = 2 Then
If (dataset(cloop)) = "B" Then
results = results + Chr(10) + Chr(13) + ("True")
total = total + 10
Else
results = results + Chr(10) + Chr(13) + ("False")
End If
End If
If cloop = 3 Then
If (dataset(cloop)) = "D" Then
results = results + Chr(10) + Chr(13) + ("True")
total = total + 10
Else
results = results + Chr(10) + Chr(13) + ("False")
End If
End If
If cloop = 4 Then
If (dataset(cloop)) = "D" Then
results = results + Chr(10) + Chr(13) + ("True")
total = total + 10
Else
results = results + Chr(10) + Chr(13) + ("False")
End If
End If
If cloop = 5 Then
If (dataset(cloop)) = "A" Then
results = results + Chr(10) + Chr(13) + ("True")
total = total + 10
Else
results = results + Chr(10) + Chr(13) + ("False")
End If
End If
If cloop = 6 Then
If (dataset(cloop)) = "A" Then
results = results + Chr(10) + Chr(13) + ("True")
total = total + 10
Else
results = results + Chr(10) + Chr(13) + ("False")
End If
End If
If cloop = 7 Then
If (dataset(cloop)) = "B" Then
results = results + Chr(10) + Chr(13) + ("False")
End If
End If
If cloop = 9 Then
If (dataset(cloop)) = "C" Then
results = results + Chr(10) + Chr(13) + ("True")
total = total + 10
Else
results = results + Chr(10) + Chr(13) + ("False")
End If
End If
If cloop = 10 Then
If (dataset(cloop)) = "D" Then
results = results + Chr(10) + Chr(13) + ("True")
total = total + 10
Else
results = results + Chr(10) + Chr(13) + ("False")
End If
End If
Next cloop
lblresults.Caption = results
lbltotal.Caption = Str$(total) + "% Correct"
End Sub

0
lbl3.Caption = ""
lbl4.Caption = ""
End Sub
Public Sub NextQuestion()
lblno.Caption = lblno.Caption & Chr(13) & Chr(10) & QuestionData(QuestionID, 1) 'prints the data to label
lblqu.Caption = lblqu.Caption & Chr(13) & Chr(10) & QuestionData(QuestionID, 2)
lbl1.Caption = lbl1.Caption & Chr(13) & Chr(10) & QuestionData(QuestionID, 3)
lbl2.Caption = lbl2.Caption & Chr(13) & Chr(10) & QuestionData(QuestionID, 4)
lbl3.Caption = lbl3.Caption & Chr(13) & Chr(10) & QuestionData(QuestionID, 5)
lbl4.Caption = lbl4.Caption & Chr(13) & Chr(10) & QuestionData(QuestionID, 6)
End Sub


[Edited by super_si - 1/13/2003 8:32:04 PM]

ChrisB

Restore it from your backup Si...

super_si

Lost the damm thing hehehe Just made a fresh one.

I did the work yesterday but must have just deleted it completly by accident.

just re done it away .

Si

DominicA

you wanna use something like sourcesafe, it'll save you time in the long run....

super_si

Yeah keeps asking me that.

But it was a document id written abotu hardware architecture.

Loads time spend on Cpu clock cycles and ram structures and id bloody lost the damm thing.

Took some time writing it all out