>Jeg må hellere fortælle hvad det er jeg vil lave. Det er til brug for tabeløvning.
label15 og 17 indeholder tilfældige tal. Disse talværdier skal ganges med hinanden, og produktet anbringes i text1.text Hvis man vælger 1-tabellen bliver det ene tal konstant(1) og det andet tilfældigt. Men hvis jeg vil øve 1-tabellen må det altså ikke være fx 2 x 7, for det er jo 2-tabellen. Er det klart, hvad jeg mener?
Jo,principielt. Det prøvede jeg også indledningsvis men kunne ikke få det til at fungere. Derfor valgte jeg bare at holde det ene tal konstant i random. Men koden skal gælde for samtlige tabeller fra 1-20, så jeg er nødt til at have en if-sætning. Næste gang der skal udregnes nogle stykker, er det måske 13-tabellen, der skal bruges. Altså tallene på labels skal brugeren gange og placere resultatet i en text.box. Derefter tjekkes tallet i textboxen og der kaldes til nogle standardsvar afhængig af svarets rigtighed.
Nå ja, mere fuldstændigt forestil dig at jeg skal øve mig i 7-tabellen. Når jeg ikke gider det mere, taster jeg 8 i tabelboxen og jeg kan så øve mig på den tabel osv,
Prøv lige fælgende: 2 textboxe, 2 labels og 2 knapper på en form. Smid følgende ind og leg med det.
Option Explicit
Private Sub Command2_Click() If Val(Label1.Caption) * Val(Label2.Caption) = Val(Text2.Text) Then MsgBox "det var rigtigt", vbInformation Else MsgBox "forkert, prøv igen", vbCritical End If End Sub
Private Sub form_load() Command1.Caption = "bland tal" Command2.Caption = "kontroller resultat" Text1.Text = "tabel" Text2.Text = "resultat" End Sub Private Sub Command1_Click() On Error Resume Next Dim tal1 As Byte Randomize tal1 = Int((10 * Rnd) + 1) Label1.Caption = Text1.Text Label2.Caption = tal1 End Sub
I text1.text kan du jo så indtaste alle de tal du har lyst til, 23 tabellen for den sags skyld. Du skal bare gange tallene i label1 og label2 og skrive resultatat i text2.text. Så kontrolleres resultatet når du trykker på resultat.
>rynke10, OK, men så skal jeg synge en godnatsang for dig: Melodi: Rynke kan bare det gylle med VB. Mange tak for hjælpen rynke10, det hele fungerer nu, og jeg har sparet ca. 20 koder. :o)) PS Jeg tror du får mareridt i nat: Du har glemt at lave et svar! :D
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
