16 svar · 605 visningar · startad av Alvar s
Jag har försökt göra ett fråge program där man först ser en fråga, svarar man fel får man se en viss form och svarar man rätt fortsätter man till en ny form. Jag har haft vb i 2 dagar så det är lite för avancerat för mig för tillfälet 
Fullständig källkod skulle hjälpa..
( fattar bättre då.. )
Enklaste varianten
If txtSvar.Text = "Göran Persson" Then
Hide
Form2.Show
Else
MsgBox "Fel svar"
End If
------------------
/mvh Swey
Wadde Hadde Dudde Da
Programmera Php
swey@tjohoo.se
Har några extra frågor
1: Hur gör man så att man har många textfält och sen en command button och har man alla rätt så kommer man till en ny form, och ett fel så kör den en annan kod/form.. ?
2: hur gör man så att den öppnar den nya formen i samma fönster??
1.
Använd AND.
If ... And ... Then
...
End If
Du kan också dela upp det.
If ... Then
If .. Then
...
End If
End If
2.
Menar du MDI som i sysedit.exe?
------------------
/mvh Swey
Wadde Hadde Dudde Da
Programmera Php (snart)
swey@tjohoo.se
2: ?? / Jag menar så att den stänger den gamla formen och öppnar den nya..
har kommit på några frågor till jag skulle behöva svar på 
1: kan man göra så att den automatiskt hämtar ord från ett dokument?? Och kan programmet ta ut dom "random". Vilket ord som helst dvs..
1. Kolla in Rnd()
2. Förstår inte vad du menar. Vill du att det nya fönstret ska ha samma storlek och position eller?
------------------
/mvh Swey
Wadde Hadde Dudde Da
Programmera Php (snart)
swey@tjohoo.se
2: ja
Jag lyckades inte få AND varianten att funka 
Jag skrev så här:
Private Sub Command1_Click()
If Text1.Text = "cat" And
If Text2.Text = "dog" Then
MsgBox "Rätt!!"
Else
MsgBox "Fel!!"
End If
End Sub
Vad är fel?? Jag får syntax error...
2.
Såhär t.ex.
With Form2
.Left = Left
.Top = Top
.Width = Width
.Height = Height
.Show
End With
Unload Me
1. Om du vill ha två If ska det också vara två End If och två Then. Vill du köra med And ska det istället se ut så här:
If Text1.Text = "cat" And Text2.Text = "dog" Then
MsgBox "Rätt!!"
Else
MsgBox "Fel!!"
End If
------------------
/mvh Swey
Wadde Hadde Dudde Da
Programmera Php (snart)
swey@tjohoo.se
Allting funkar fint nu
Men jag förstog nog inte "Rnd()" Kan du förklara lite om det?
Och så en fråga till...
När man ska använda en egen ikon längst upp till vänster på programmet, vilka program kan man använda för att skapa *.ico filer?? Det står invalid picture på det mesta jag tar, det enda som funkar är windows cursors..
[Redigerat av Alvar s den 20 maj 2000]
Saxat från dokumentationen för Rnd
To produce random integers in a given range, use this formula:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">Int((upperbound - lowerbound + 1) * Rnd, + lowerbound)
För att få olika slumptal, ta en titt på Randomize i dokumentationen.
------------------
/mvh Swey
Wadde Hadde Dudde Da
Programmera Php (snart)
swey@tjohoo.se
Har kommit på några frågor till jag skulle behöva svar på...
1: När programmet ska "rätta" kan man göra så att programmet markerar vilka som var fel och så får man fortsätta med dom och så blir alla som är rätt frysta...
2: Kan man göra en synlig timer som kör en kod efter ca 3 minuter? Och isåfall, hur??
[Redigerat av Alvar s den 22 maj 2000]
1. Ja det är väl bara att ändra Enabled för dom objekt som ska frysas.
2. Skapa en Timer och sätt Interval till 3 * 60 000.
------------------
/mvh Swey
Wadde Hadde Dudde Da
Programmera Php (snart)
swey@tjohoo.se
Fattade nog inte riktigt...
1: jag förstod inte riktigt rättningen.. Så här ser koden ut nu:
Private Sub Command1_Click()
If Text1.Text = "8" And Text2.Text = "21" And Text3.Text = "27" And Text4.Text = "24" And Text5.Text = "14" Then MsgBox "du hade alla rätt, mycket bra!! "
Form2.Show
Unload Me
Else
MsgBox "Du hade ett eller flera fel Försök igen...."
End If
End Sub
hur ska koden se ut för att den ska frysa alla som är rätt och alla som är fel blir markerade på nått sätt??
2: Fick inte timern att funka Det stog "invalid propert value" kan du beskriva lite mer om den, lr hur man först har en timer som aktiverar en annan timer när en viss tid har gått..
3: Och så en ny fråga igen Hur gör man så att det inte spelar nån roll om det är stora lr små bokstäver?
Är nybörjare på det här så kan inte så bra
1.
Nått sånt här
Dim R As Integer
If Text1.Text = "a" Then
Text1.Enabled = False
R = R + 1
End If
If Text2.Text = "b" Then
Text2.Enabled = False
R = R + 1
End If
MsgBox "Du hade " & R & " rätt"
2. När fick du det? Om du skapar en Timer och sätter dess Interval till 1000 så körs den varje sekund om Enabled är True efteråt.
Stora eller små
If LCase(a) = LCase(b) Then
eller
If LCase(a) = "text med små bokstäver" Then
------------------
/mvh Swey
- Wadde Hadde Dudde Da
Nu har jag frågor igen
http://user.tninet.se/~xkk718a/matte.zip
1: jag förstår nu hur man skapar olika rnd tal, men med mitt program måste allting hamna på olika ställen, och det fattar jag inte hur man ska fixa..
2: Jag fixade timer problemet genom att dela upp programmet i 3 delar, men kan man inte få längre tider på nåt sätt??
Sätt en statisk räknare i timern så kan du öka intervallet.
Private Sub Timer1_Timer()
Static Counter As Integer
Counter = Counter + 1
If Counter = 5 Then
MsgBox "Tiden är ute, du hann inte Stänger ner programmet..."
Unload Me
End If
End Sub
Ger 5 gånger intervallet
Hej, angående frågan om vilket program man kan använda för att skapa ".ico" filer så kan du använda Microangelo, funkar även om du vill göra cursors tex.
finns på www.download.com
------------------
Fredrik Klarqvist
fredrik.klarqvist@swipnet.se
www.streetwise.se/fredrik/
