Jump to content

Desafio procuro


cartas de trunfo

Recommended Posts

cartas de trunfo

Malta eu sou do 12º ano só tenho um mês de aulas de AI(aplicações informaticas), logo não sei muito disto nem conheço as funcionalidade de tudo... o que eu gostava era que me proposessem desafios para eu fazer! e que me digam mais ao menos algumas dicas ou topicos para fazer!

Atenção :NÃO QUERO O CÓDIGO!!

o meu objetivo e aprender algumas das funcionalidades do vb e evoluir ! obvio para saberem o que fazem vou ao yt mas o resto da programação eu quero antes tentar sozinho! dps qq duvida exponho a vocês!

Neste momento acabei um desafio que me deram ( a minha mãe) que me pediu para fazer um teste com escolhas múltiplas. andei um mês porque haviam certas coisas que ainda não sabia tipo a diferença de radiobutons para checkboox e a maneira como programar. para além de vários erros que iam dando, nao por estar errado o código mas por dps a execução não ser 100% aquilo que eu queria! vou deixar ai o código. Se calhar é um código muito fraco por ser iniciante mas deiam dicas!

Public Class formulário
    Dim resultado, resultado1, resultado2, resultado3 As String
    Private Sub Bnfinal_Click(sender As System.Object, e As System.EventArgs) Handles Btnfinal.Click
        Dim a, b, c, d As Integer
        If ChckF1.Checked Then
            resultado = "Nice!!"
            a = 25
        Else
            resultado = "WHAT???"
            a = 0
        End If

        If ChckV2.Checked Then
            resultado1 = "Nice!!"
            b = 25
        Else
            resultado1 = "WHAT???"
            b = 0
        End If

        If ChckV3.Checked Then
            resultado2 = "Nice!!"
            c = 25
        Else
            resultado2 = "WHAT???"
            c = 0
        End If

        If ChckF4.Checked Then
            resultado3 = "Nice!!"
            d = 25
        Else
            resultado3 = "WHAT???"
            d = 0
        End If

        LblR1.Text = resultado
        LblR2.Text = resultado1
        LblR3.Text = resultado2
        LblR4.Text = resultado3

        Lblcassificacao.Text = a + b + c + d & "/100"
        If Lblcassificacao.Text = 100 & "/100" Then
            MsgBox("Tiveste 100!! PRBS")
        Else
            MsgBox("tiveste " & Lblcassificacao.Text & ". Para a Próxima corre melhor!")
        End If

    End Sub
    
    Private Sub BtnLimpar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpar.Click
        LblR1.Text = ""
        LblR2.Text = ""
        LblR3.Text = ""
        LblR4.Text = ""
        ChckF1.Checked = False
        ChckV1.Checked = False
        ChckF2.Checked = False
        ChckV2.Checked = False
        ChckF5.Checked = False
        ChckV3.Checked = False
        ChckF4.Checked = False
        ChckV4.Checked = False
        ChckF1.Enabled = True
        ChckV1.Enabled = True
        ChckF2.Enabled = True
        ChckV2.Enabled = True
        ChckF5.Enabled = True
        ChckV3.Enabled = True
        ChckF4.Enabled = True
        ChckV4.Enabled = True
        Lblcassificacao.Text = "0/100"
    End Sub

    Private Sub ChckF1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF1.CheckedChanged
        ChckF1.Enabled = False
        ChckV1.Enabled = False
    End Sub

    Private Sub ChckV1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV1.CheckedChanged
        ChckF1.Enabled = False
        ChckV1.Enabled = False
    End Sub

    Private Sub ChckF2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF2.CheckedChanged
        ChckF2.Enabled = False
        ChckV2.Enabled = False
    End Sub

    Private Sub ChckV2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV2.CheckedChanged
        ChckF2.Enabled = False
        ChckV2.Enabled = False
    End Sub

    Private Sub ChckF5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF5.CheckedChanged
        ChckF5.Enabled = False
        ChckV3.Enabled = False
    End Sub

    Private Sub ChckV3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV3.CheckedChanged
        ChckF5.Enabled = False
        ChckV3.Enabled = False
    End Sub

    Private Sub ChckF4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF4.CheckedChanged
        ChckF4.Enabled = False
        ChckV4.Enabled = False
    End Sub

    Private Sub ChckV4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV4.CheckedChanged
        ChckF4.Enabled = False
        ChckV4.Enabled = False
    End Sub

    
    Private Sub Btnlimpar4_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar4.Click
        ChckF4.Checked = False
        ChckV4.Checked = False
        ChckF4.Enabled = True
        ChckV4.Enabled = True

    End Sub

    Private Sub Btnlimpar3_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar3.Click
        ChckF5.Checked = False
        ChckV3.Checked = False
        ChckF5.Enabled = True
        ChckV3.Enabled = True

    End Sub

    Private Sub Btnlimpar2_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar2.Click
        ChckF2.Checked = False
        ChckV2.Checked = False
        ChckF2.Enabled = True
        ChckV2.Enabled = True

    End Sub

    Private Sub Btnlimpar1_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar1.Click
        ChckF1.Checked = False
        ChckV1.Checked = False
        ChckF1.Enabled = True
        ChckV1.Enabled = True

    End Sub

End Class

PS : não se esqueçam de mandar um desafio!

Link to post
Share on other sites

Também estou no 12º Ano e também tenho Aplicações Informáticas. A nossa professora dá-nos fichas frequentemente e, apesar de eu (e provavelmente tu também) achar os exercícios bastante fáceis, pode ser que te entretenhas. Aqui tens

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.