Upprepning?

[Alicia]

Jag håller på med en uppgift i VB och har kört fast.

Man kan välja olika räknesätt med hjälp av radioknappar och så när man trycker på en knapp så kommer det upp i den nedre textrutan om man har svarat rätt eller fel och det verkar funka som det ska.

Men som det egentligen ska vara så ska det i den övre textrutan stå hur många rätt utav antalet försök man har gjort, och i undre textrutan ska det stå om man är godkänd eller inte, dvs antaletratt > antalforsok * 0.75

Nån som förstår vad jag menar och kan hjälpa mig?

 

[color="#0000ff"]Private[/color] [color="#0000ff"]Sub[/color] Command1_Click()


[color="#0000ff"]If[/color] Option1.Value = [color="#0000ff"]True[/color] [color="#0000ff"]Then[/color]

[color="#0000ff"]If[/color] Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) [color="#0000ff"]Then[/color]


Text5.Text = [GRÅ]"Rätt svar"[/GRÅ]


[color="#0000ff"]Else[/color]
    Text5.Text = [GRÅ]"Fel svar"[/GRÅ]
    [color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]



[color="#0000ff"]If[/color] Option2.Value = [color="#0000ff"]True[/color] [color="#0000ff"]Then[/color]

[color="#0000ff"]If[/color] Val(Text1.Text) - Val(Text2.Text) = Val(Text3.Text) [color="#0000ff"]Then[/color]
    Text5.Text = [GRÅ]"Rätt svar"[/GRÅ]


[color="#0000ff"]Else[/color]
    Text5.Text = [GRÅ]"Fel svar"[/GRÅ]



[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]

[color="#0000ff"]If[/color] Option3.Value = [color="#0000ff"]True[/color] [color="#0000ff"]Then[/color]

[color="#0000ff"]If[/color] Val(Text1.Text) * Val(Text2.Text) = Val(Text3.Text) [color="#0000ff"]Then[/color]
    Text5.Text = [GRÅ]"Rätt svar"[/GRÅ]


[color="#0000ff"]Else[/color]
    Text5.Text = [GRÅ]"Fel svar"[/GRÅ]



[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]

[color="#0000ff"]If[/color] Option4.Value = [color="#0000ff"]True[/color] [color="#0000ff"]Then[/color]

[color="#0000ff"]If[/color] Val(Text1.Text) / Val(Text2.Text) = Val(Text3.Text) [color="#0000ff"]Then[/color]
    Text5.Text = [GRÅ]"Rätt svar"[/GRÅ]


[color="#0000ff"]Else[/color]
    Text5.Text = [GRÅ]"Fel svar"[/GRÅ]


[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]


[color="#0000ff"]End[/color] [color="#0000ff"]Sub[/color]

 

[inlägget ändrat 2005-02-23 20:59:58 av Alicia]

[Jetmoon]

Du kan alltid definiera två nya variabler som du använder dig av och visar upp i textrutan som håller räkningen på dessa. det var ett tag sen jag pysslade med VB men hoppas du förstår poängen i alla fall.

 

definiera Rättsvar som siffror

definiera felsvar som siffror

 

 

rättsvar = 0

felsvar = 0

 

If Option1.Value = True Then

Rättsvar = Rättsvar + 1

Textbox1.text = "rättsvar"

else

Felsvar = felsvar + 1

Textbox2.text = "felsvar"

 

 

 

 

Lycka till

 

/Jetmoon

 

[Alicia]

Tackar för svar :-)

Har testat och klurat lite på detta, men hur får jag Textbox1 att skriva ut hur många rätt jag har utav antalet försök?

"Du har X rätt utav Y försök" typ?

 

 

[Anjuna Moon]

Kanske

Textbox1.text="Du har " & Rättsvar & " rätt utav " & (Rättsvar+Felsvar) & " försök"

 

[Jetmoon]

har du på förhand bestämt hur många försök man ska ha så kan du räkna ner och sen ha en endfunktion.

 

Annars har Anjuna moon ett bra tipps.

 

Räkna ihop rättsvar och felsvar efter det att dom har förändrats och visa i en tredje textbox.

 

[Alicia]

I ruta ett ska man skriva in ett tal och likaså i ruta två.

I ruta tre ska jag själv skriva in vad svaret blir.

Sedan ska användaren kunna trycka på en knapp och då räknar programmet ut om det är rätt eller fel och skriver ut i fjärde textrutan hur många rätt utav hur många försök man har. Detta ska upprepas i det oändliga tills man avslutar programmet.

Jag har totalt kört fast på detta :-(