dimarts, 3 de novembre del 2009

MiluTest 02. Codi lamentable (782)

Option Explicit

Private Sub Form_Load()

Dim ruta As String

ruta = "C:\LearnVisual\MiluTest_01\PlantillaPregunta.txt"

Dim Dato00 As String

Dim Materia As String

Dim Dato01 As String

Dim Dato02 As String

Dim Dato03 As String

Dim Dato04 As String

Dim Dato05 As String

Dim Dato06 As String

Dim Dato07 As String

Dim Dato08 As String

Dim Dato09 As String

Dim Dato10 As String

Open ruta For Input As #1

Input #1, Dato00

txtDato00 = Dato00

Materia = Left(Dato00, 4)

If Materia = "CAST" Then

ImgCAST.Visible = True

ElseIf Materia = "ANGL" Then

imgANGL.Visible = True

End If

Input #1, Dato01

txtDato01 = Dato01

Input #1, Dato02

txtDato02 = Dato02

Input #1, Dato03

txtDato03 = Dato03

Input #1, Dato04

txtDato04 = Dato04

Input #1, Dato05

txtDato05 = Dato05

Input #1, Dato06

txtDato06 = Dato06

Input #1, Dato07

txtDato07 = Dato07

Input #1, Dato08

txtDato08 = Dato08

Input #1, Dato09

txtDato09 = Dato09

Input #1, Dato10

txtDato10 = Dato10


Close

End Sub



Private Sub cmdNota_Click()

Dim ruta2 As String

Dim Solucion01 As String

Dim Solucion02 As String

Dim Solucion03 As String

Dim Solucion04 As String

Dim Solucion05 As String

Dim Solucion06 As String

Dim Solucion07 As String

Dim Solucion08 As String

Dim Solucion09 As String

Dim Solucion10 As String

ruta2 = "C:\LearnVisual\MiluTest_01\PlantillaSolucion.txt"

Open ruta2 For Input As #2

Input #2, Solucion01

Input #2, Solucion02

Input #2, Solucion03

Input #2, Solucion04

Input #2, Solucion05

Input #2, Solucion06

Input #2, Solucion07

Input #2, Solucion08

Input #2, Solucion09

Input #2, Solucion10

Close

Dim NotaNum As Integer

Dim Nota As String

Dim Respuesta01 As String

Dim Respuesta02 As String

Dim Respuesta03 As String

Dim Respuesta04 As String

Dim Respuesta05 As String

Dim Respuesta06 As String

Dim Respuesta07 As String

Dim Respuesta08 As String

Dim Respuesta09 As String

Dim Respuesta10 As String

Dim Resultado01 As Integer

Dim Resultado02 As Integer

Dim Resultado03 As Integer

Dim Resultado04 As Integer

Dim Resultado05 As Integer

Dim Resultado06 As Integer

Dim Resultado07 As Integer

Dim Resultado08 As Integer

Dim Resultado09 As Integer

Dim Resultado10 As Integer

Respuesta01 = txtRespuesta01

Respuesta02 = txtRespuesta02

Respuesta03 = txtRespuesta03

Respuesta04 = txtRespuesta04

Respuesta05 = txtRespuesta05

Respuesta06 = txtRespuesta06

Respuesta07 = txtRespuesta07

Respuesta08 = txtRespuesta08

Respuesta09 = txtRespuesta09

Respuesta10 = txtRespuesta10

If Respuesta01 = Solucion01 Then

Resultado01 = 1

img11.Visible = True

Else

Resultado01 = 0

img21.Visible = True

End If

If Respuesta02 = Solucion02 Then

Resultado02 = 1

img12.Visible = True

Else

Resultado02 = 0

img22.Visible = True

End If

If Respuesta03 = Solucion03 Then

Resultado03 = 1

img13.Visible = True

Else

Resultado03 = 0

img23.Visible = True

End If

If Respuesta04 = Solucion04 Then

Resultado04 = 1

img14.Visible = True

Else

Resultado04 = 0

img24.Visible = True

End If

If Respuesta05 = Solucion05 Then

Resultado05 = 1

img15.Visible = True

Else

Resultado05 = 0

img25.Visible = True

End If

If Respuesta06 = Solucion06 Then

Resultado06 = 1

img16.Visible = True

Else

Resultado06 = 0

img26.Visible = True

End If

If Respuesta07 = Solucion07 Then

Resultado07 = 1

img17.Visible = True

Else

Resultado07 = 0

img27.Visible = True

End If

If Respuesta08 = Solucion08 Then

Resultado08 = 1

img18.Visible = True

Else

Resultado08 = 0

img28.Visible = True

End If

If Respuesta09 = Solucion09 Then

Resultado09 = 1

img19.Visible = True

Else

Resultado09 = 0

img29.Visible = True

End If

If Respuesta10 = Solucion10 Then

Resultado10 = 1

img20.Visible = True

Else

Resultado10 = 0

img30.Visible = True

End If

NotaNum = Resultado01 + Resultado02 + Resultado03 + Resultado04 + Resultado05 + Resultado06 + Resultado07 + Resultado08 + Resultado09 + Resultado10

If NotaNum > 8 Then

Nota = "Excelente"

ElseIf NotaNum > 6 Then

Nota = "Notable"

ElseIf NotaNum > 5 Then

Nota = "Bién"

ElseIf NotaNum > 4 Then

Nota = "Suficiente"

Else

Nota = "Insuficiente"

End If

txtNota.Text = Nota

End Sub



Cap comentari:

Publica un comentari a l'entrada