07. august 2005 - 23:05Der er
4 kommentarer og 2 løsninger
Goto eller noget smartere
Jeg skal lave noget i VBA. Det fungerer fint nok, vil bare lige høre om det er den rigtige måde og gøre det på. Eller der er en smartere måde
Det jeg har lavet er, man skal vælge et tal mellem 1 og 4. Og vælger man ikke det, skal der komme en fejl meddelelse og man skal så trykke 1 til 4 igen.
Her er lidt kode
A = InputBox("Velkommen til ohm Lommeregneren" & vbCrLf & "Vælg hvad du vil have regnet ud" & vbCrLf & "1. Effekt" & vbCrLf & "2. Strøm" & vbCrLf & "3. Spænding" & vbCrLf & "4. Modstand") If A > 4 Then MsgBox " Du skal skrive et tal imellem 1-4!", vbCritical
Men så forsætter den jo bare med og køre resten af koden? Skal jeg sætte en Goto ind? Eller er der en smartere måde, for ens kode kan vel hurtigt blive noget roderi, hvis man har for mange Goto
Ahh, jamen så er det den korrekte måde du gør det på... Næsten da... du skal skrive: If A => 4 Then MsgBox (" Du skal skrive et tal imellem 1-4!", vbCritical)
Do A = InputBox("Velkommen til ohm Lommeregneren" & vbCrLf & "Vælg hvad du vil have regnet ud" & vbCrLf & "1. Effekt" & vbCrLf & "2. Strøm" & vbCrLf & "3. Spænding" & vbCrLf & "4. Modstand") If A > 4 Then MsgBox " Du skal skrive et tal imellem 1-4!", vbCritical Loop While A > 4
Så nu kører den det stykke igen og igen indtil man har tastet et tal imellem 1-4. Men hvis man taster 0, skal den også køre løkken igen. Hvordan ordner jeg lige det
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.
