Just nu i M3-nätverket
Jump to content

Upprepning?


Alicia

Recommended Posts

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]

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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?

 

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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 :-(

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...