What's new
Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

VB.NET Programming Corner!

khernie09 said:
ito po ung error na nalabas sir bakit po ganyan?
Syntax error in string in query expression 'EmployeeIDNumber = ''.
Click to expand...

ganito gwin mo..

Private Sub LoanApp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim x As Integer
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & My.Application.Info.DirectoryPath.ToString() & "\Database\Coop.mdb;"
sql = "SELECT EmployeeIDNumber, LastName, FirstName, MiddleName FROM Members"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "Members")
max = ds.Tables("Members").Rows.Count
For x = 0 To max - 1
cboEmployeeIDNumber.Items.Add(ds.Tables("Members") .Rows(x).Item(0))
Next
con.Close()
MaxRows = ds.Tables("Members").Rows.Count
inc = -1
End Sub


Private Sub cboEmployeeIDNumber_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboEmployeeIDNumber.SelectedIndexChanged
GetData (cboEmployeeIDNumber.Text)
End Sub

Private Function GetData(IDNumber as String)
Dim x As Integer
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & My.Application.Info.DirectoryPath.ToString() & "\Database\Coop.mdb;"
sql = "SELECT EmployeeIDNumber, LastName, FirstName, MiddleName FROM Members WHERE EmployeeIDNumber = "' & IDNumber & "'"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "Members")
max = ds.Tables("Members").Rows.Count
Me.txtLastName.Text = ds.Tables("Members").Rows(0).Item("LastName")
Me.txtFirstName.Text = ds.Tables("Members").Rows(0).Item("FirstName")
Me.txtMiddleName.Text = ds.Tables("Members").Rows(0).Item("MiddleName")
con.Close()
MaxRows = ds.Tables("Members").Rows.Count
inc = -1
End Function


yan try mo.. nka auz n yan.. hnd q n natest wla n q tyme eh.. w n bahala jan.

dun nga pla s id.. nka string un s query.. make sure n match ung datatype s codes at DB mo.
 
Last edited:
hi sir.. tanung lang po possible po ba na
pagsamahin ang vb.net at php na program sir?
bale 2 pong .net na magkaiba po silang database isang sql
at access po. at ung isang program po php sir..salamat
 
anshity said:
hi sir.. tanung lang po possible po ba na
pagsamahin ang vb.net at php na program sir?
bale 2 pong .net na magkaiba po silang database isang sql
at access po. at ung isang program po php sir..salamat
Click to expand...

how do you mean na pagsamahin?

pwede ka gumawa ng DLL na COM sa vb.net para tawagin ng PHP, kung ganun ang nasa isip mo

kung magkahiwalay naman sila ng database, bakit meron pang "pagsamahin"

e di hayaan mo lang sialng mag access ng kanya kanyang data
 
cyrilkun said:
yoh..,:)

I'm back again hhe

I have a question.. :)

How can I disabled the code of this loop.. or codes when the the lives in the form turn out to 0 and show the GameOver form I've created a while ago to open the form that having the difficulty level of the questions?

Code:
Public Class Quiz1a
Const QuestionCount As Integer = 10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim QuestionList As List(Of Integer) = GenerateUnique(QuestionCount, 1, QuestionCount)

For Each x As Integer In QuestionList
Dim frm As Form = DirectCast(Activator.CreateInstance(Type.GetType(S tring.Format("{0}.{1}{2}", "software", "Easy", x))), Form)
frm.ShowDialog()


Next
End Sub
Private Shared Function GenerateUnique(ByVal LoopCount As Integer, ByVal rMin As Integer, ByVal rMax As Integer) As List(Of Integer)
Dim holder As New HashSet(Of Integer)
Dim rand As New Random
Do
holder.Add(rand.Next(rMin, rMax + 1))
Loop Until holder.Count = 10
Return holder.ToList
End Function
End Class

Code for the lives - 3, which is seen on the label of the form.. :
Public Class Easy1
Public Count As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.Show()
Me.Close()
End If
End
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.Show()
Me.Close()
End If
End Sub

Private Sub Easy1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Count = Label2.Text
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.Show()
Me.Close()
End If
End Sub
End Class
Click to expand...

no one wanna help me? :weep:
 
cyrilkun said:
yoh..,:)

I'm back again hhe

I have a question.. :)

How can I disabled the code of this loop.. or codes when the the lives in the form turn out to 0 and show the GameOver form I've created a while ago to open the form that having the difficulty level of the questions?

Code:
Public Class Quiz1a
Const QuestionCount As Integer = 10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim QuestionList As List(Of Integer) = GenerateUnique(QuestionCount, 1, QuestionCount)

For Each x As Integer In QuestionList
Dim frm As Form = DirectCast(Activator.CreateInstance(Type.GetType(S tring.Format("{0}.{1}{2}", "software", "Easy", x))), Form)
frm.ShowDialog()


Next
End Sub
Private Shared Function GenerateUnique(ByVal LoopCount As Integer, ByVal rMin As Integer, ByVal rMax As Integer) As List(Of Integer)
Dim holder As New HashSet(Of Integer)
Dim rand As New Random
Do
holder.Add(rand.Next(rMin, rMax + 1))
Loop Until holder.Count = 10
Return holder.ToList
End Function
End Class

Code for the lives - 3, which is seen on the label of the form.. :
Public Class Easy1
Public Count As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.Show()
Me.Close()
End If
End
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.Show()
Me.Close()
End If
End Sub

Private Sub Easy1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Count = Label2.Text
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.Show()
Me.Close()
End If
End Sub
End Class
Click to expand...



gwa k ng condition s loob ng loop, like

if condition =true then
exit for
end if

pra mag end agad ung loop mo.
 
3xpl0r3r said:
gwa k ng condition s loob ng loop, like

if condition =true then
exit for
end if

pra mag end agad ung loop mo.
Click to expand...

yph1 i've tried to put a condition on it but it seems not working at all.. it continue to open the forms... :)
 
cyrilkun said:
yph1 i've tried to put a condition on it but it seems not working at all.. it continue to open the forms... :)
Click to expand...

mag lagay k ng braek point s if statement to see the result of r condition. bka nman kc mali ang condition mo kya ayaw mag execute. ntry q n rin mag lagay ng condition s loop at gumagana nman skin.. check ur condition.
 
3xpl0r3r said:
mag lagay k ng braek point s if statement to see the result of r condition. bka nman kc mali ang condition mo kya ayaw mag execute. ntry q n rin mag lagay ng condition s loop at gumagana nman skin.. check ur condition.
Click to expand...

hhe oh.. then can you give me that breakpoint code? so that I can do what you have just requested? :)
 
cyrilkun said:
hhe oh.. then can you give me that breakpoint code? so that I can do what you have just requested? :)
Click to expand...

did you try this?

For Each x As Integer In QuestionList
if LIVE <> 0 THEN
Dim frm As Form = DirectCast(Activator.CreateInstance(Type.GetType(S tring.Format("{0}.{1}{2}", "software", "Easy", x))), Form)
frm.ShowDialog()
END IF


Next

asan ba yung variable kasi ng lives mo?


the problem here is that you keep on asking others for code or solve your code for you

if you just analyze your code makikita mo ang sagot e.

tip ko sayo; if you want fast reply from me,
gawin mong INDENTED yung code mo
exactly kung papano sa code window
 
ericgmejia said:
did you try this?

For Each x As Integer In QuestionList
if LIVE <> 0 THEN
Dim frm As Form = DirectCast(Activator.CreateInstance(Type.GetType(S tring.Format("{0}.{1}{2}", "software", "Easy", x))), Form)
frm.ShowDialog()
END IF


Next

asan ba yung variable kasi ng lives mo?


the problem here is that you keep on asking others for code or solve your code for you

if you just analyze your code makikita mo ang sagot e.

tip ko sayo; if you want fast reply from me,
gawin mong INDENTED yung code mo
exactly kung papano sa code window
Click to expand...

hhe oh... lives is not a variable but a label..

it is on the code that I presented to you all a while ago..

if you see the image of the form? there you will see a two label which have its name Lives: 3,

I prefer that when you clicked the wrong button it will lessen until it comes up to 0

and that label's value will also be show to other labels of the 10 forms..

here are my code for it..

Code: 
Public Class Easy1
Public Count As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.ShowDialog()
Me.Close()
End If
End
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.ShowDialog()
Me.Close()
End If
End Sub

Private Sub Easy1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Count = Label2.Text
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.ShowDialog()
Me.Close()
End If
End Sub
End Class
 
cyrilkun said:
hhe oh... lives is not a variable but a label..

it is on the code that I presented to you all a while ago..

if you see the image of the form? there you will see a two label which have its name Lives: 3,

I prefer that when you clicked the wrong button it will lessen until it comes up to 0

and that label's value will also be show to other labels of the 10 forms..

here are my code for it..

Code: 
Public Class Easy1
Public Count As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.ShowDialog()
Me.Close()
End If
End
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.ShowDialog()
Me.Close()
End If
End Sub

Private Sub Easy1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Count = Label2.Text
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Count -= 1
Label2.Text = Str(Count)
Easy2.Label2.Text = Label2.Visible
Easy3.Label2.Text = Label2.Text
Easy4.Label2.Text = Label2.Text
Easy5.Label2.Text = Label2.Text
Easy6.Label2.Text = Label2.Text
Easy8.Label2.Text = Label2.Text
Easy7.Label2.Text = Label2.Text
Easy9.Label2.Text = Label2.Text
Easy10.Label2.Text = Label2.Text
If Label2.Text = 0 Then
GameOver.ShowDialog()
Me.Close()
End If
End Sub
End Class
Click to expand...


awts magulo to,
i asked you to create the database ng question sa YM kanina right?
it seems di ka naman interested sa solution ko and you keep on pushing your code

magulo ang code mo dahil di matrack sa bawat form yung lives kasi kanya kanyang instance sila,
i have a solution in mind but that needs a database for all the questions, ituturo ko sana sayo
and actually i began coding na kanina dahil may idea ako sa implementation
bigla mo naman ako iniwan sa YM
 
ericgmejia said:
awts magulo to,
i asked you to create the database ng question sa YM kanina right?
it seems di ka naman interested sa solution ko and you keep on pushing your code

magulo ang code mo dahil di matrack sa bawat form yung lives kasi kanya kanyang instance sila,
i have a solution in mind but that needs a database for all the questions, ituturo ko sana sayo
and actually i began coding na kanina dahil may idea ako sa implementation
bigla mo naman ako iniwan sa YM
Click to expand...

hhe oh, kase time na aku sir,, hhe

wala na aku time.. kaya umuwi muna aku at kumain hhe,...

sorry
 
cyrilkun said:
hhe oh, kase time na aku sir,, hhe

wala na aku time.. kaya umuwi muna aku at kumain hhe,...

sorry
Click to expand...

there i am helping you maski may ginagawa ako
tapos bigla ka nawala
 
ericgmejia said:
there i am helping you maski may ginagawa ako
tapos bigla ka nawala
Click to expand...

sorry sir... wala pu akung magagwa nun.. saka talagang di nagcoconect database.. and time consuming kase pag bagung codes and process ginawa,, sorry sir... hhe
 
cyrilkun said:
sorry sir... wala pu akung magagwa nun.. saka talagang di nagcoconect database.. and time consuming kase pag bagung codes and process ginawa,, sorry sir... hhe
Click to expand...

you are solving your problem in bits and pieces kasi kaya mas time consuming yan

my solution is to have a
quiz type application na iisang form lang,
nagbabago ng question kada click,
may timer pa kung gusto mo
nakikita mo yung lives sa taas
at nasa database yung questions (thats why i asked you to do it)

maski isang form pwede na dyan at ilang dipa ng code
ma re-use mo pa yung ibang codes mo

anyways im not questioning your creativity nor your code,
i just have a different approach to the problem
 
cyrilkun said:
sorry sir... wala pu akung magagwa nun.. saka talagang di nagcoconect database.. and time consuming kase pag bagung codes and process ginawa,, sorry sir... hhe
Click to expand...

Magpasalamat ka kuya at may nagtiyatiyagang tulungan ka kahit may trabaho ngayon yung tao.
Maganda kung susubukan mo sinusuggest nya sayo and compare it with your idea. Mas time consuming yang plano mo kesa sa paggawa ng database. Mas mababawasan pa ang mahabang coding :)
 
cyrilkun said:
sorry sir... wala pu akung magagwa nun.. saka talagang di nagcoconect database.. and time consuming kase pag bagung codes and process ginawa,, sorry sir... hhe
Click to expand...

mkinig k ke sir erik.. i passed my thesis dahil nkinig aq s kanya. ginawa q ang mga idea n sinav nya.. tz nga pla. nkita q ung profile nya. SR. Programmer xa. kya magtiwla k.. hwak nya taung mga JR. nya.

:salute::salute::salute:
 
@cyrilkun - madali.ang pagkagawa. bahala ka na dyan. running na yan.

Code: 
Module Module1
    Public MaxQuestionNo As Integer
    Public MinQuestionNo As Integer
    Public MaxLife As Integer = 3
    Public TotalCorrect As Integer
    Public ListPoint As New List(Of Point)

    Sub New()
        ' palitan ang point depende kung saan ang location ng buttons
        With ListPoint
            .Add(New System.Drawing.Point(12, 12))
            .Add(New System.Drawing.Point(93, 12))
            .Add(New System.Drawing.Point(12, 41))
            .Add(New System.Drawing.Point(93, 41))
        End With
    End Sub

    Public Sub shuffle(ByVal nListPoint As List(Of Point), ByVal ShuffledList As List(Of Integer), ByVal nForm As Form)
        ' minus 1 kasi ang index nag start ng 0
        Dim j As Integer

        For Each objControl In nForm.Controls
            If TypeOf objControl Is Button Then
                Dim objButton As Button = objControl
                objButton.Location = nListPoint(ShuffledList(j) - 1)
                j = j + 1
            End If
        Next
    End Sub

    Public Function GenerateUnique(ByVal LoopCount As Integer, ByVal rMin As Integer, ByVal rMax As Integer) As List(Of Integer)
        Dim holder As New HashSet(Of Integer)
        Dim rand As New Random

        Do
            holder.Add(rand.Next(rMin, rMax + 1))
        Loop Until holder.Count = LoopCount

        Return holder.ToList
    End Function
End Module

Code: 
Public Class Main

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        btnStart.Enabled = False

        MinQuestionNo = 1 ' Easy1
        MaxQuestionNo = 5 ' Easy5
        ' palitan mo nalang ang min max mo depende kung ilang forms ilalabas mo

        Dim QuestionList As List(Of Integer) = GenerateUnique(MaxQuestionNo, MinQuestionNo, MaxQuestionNo)

        For Each x As Integer In QuestionList
            Dim frm As Form = DirectCast(Activator.CreateInstance(Type.GetType(String.Format("{0}.{1}{2}", "QuizNiCyrilkun", "Easy", x))), Form)
            frm.StartPosition = FormStartPosition.CenterScreen
            frm.ShowDialog()

            If MaxLife <= 0 Then
                MsgBox("game over.")
                Exit For
            Else
                txtLives.Text = MaxLife
                txtRunningTotal.Text = TotalCorrect
            End If

            frm.Dispose()
        Next
    End Sub

    Private Sub btnRetry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRetry.Click
        MaxLife = 3
        TotalCorrect = 0

        txtLives.Text = MaxLife
        txtRunningTotal.Text = TotalCorrect

        btnStart.Enabled = True
    End Sub

    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtLives.Text = MaxLife
        txtRunningTotal.Text = 0
    End Sub
End Class

add this code on all Easy2, Easy3 Easy4, etc...

Code: 
Public Class Easy1

    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ListButton As List(Of Integer) = GenerateUnique(4, 1, 4)
        shuffle(ListPoint, ListButton, Me)
    End Sub

    Private Sub btnCorrect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCorrect.Click
        TotalCorrect = TotalCorrect + 1
        Close()
    End Sub

    Private Sub btnWrong1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrong1.Click, btnWrong2.Click, btnWrong3.Click
        MaxLife = MaxLife - 1
        Close()
    End Sub
End Class
 

Attachments

  • Quiz.rar
    88.6 KB · Views: 14
ibang approach ginawa ko sa problem ni @cyrilkun..
read from text files lng ako 1 form lng...so far asa randomization na ako...:clap:

to @cyrilkun:
daming approach pero nag stick ka pa rin sa gusto mong gawin kaya naubus ang oras mo...
 
You must log in or register to reply here.

Similar threads

raven2709
Android (Kotlin & Java) Programming Corner!
Replies
1
Views
518
manlors
manlors
walo
Bootstrap Studio 6.7 | Website design program
Replies
1
Views
171
jeffreygo
jeffreygo
TambayBlues
Hands-On Visual Studio 2022: A Developer's Guide to New Features and Best Practices with .NET 8 and VS 2022 for Maximum Productivity, 2nd Edition
Replies
0
Views
351
TambayBlues
TambayBlues
TambayBlues
Visual Studio 2023 - The Most Concise and Detailed Guide to Mastering all the Features and the Use of Visual Studio
Replies
0
Views
341
TambayBlues
TambayBlues
walo
Tutorial A complete Android, iOS unlock program for free (TFT Unlock Tools 2024 v4.6.3.3)
2
Replies
22
Views
2K
Raikage
R
Back
Top Bottom