Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > Overige

Kan iemand me helpen met VBA script?

roelh - 23/09/2004 20:04

PHP gevorderde

php code - Bekijk de code zonder highlighting - Klap code in

Sub raadgetal()
Dim getal, zoekgetal As Integer
Worksheets("blad1").Range("A1:E30").Clear
Worksheets("blad1").Range("A1").Value = "Raad Het Getal!!"
Worksheets("blad1").Range("A1").Font.Size = 18
Worksheets("blad1").Range("A1").Font.Bold = True
Worksheets("blad1").Range("A1").Font.ColorIndex = 3
Worksheets("blad1").Range("A3").Font.Size = 16
Worksheets("blad1").Range("A3").Font.Bold = True
Worksheets("blad1").Range("A3").Font.ColorIndex = 5
Worksheets("blad1").Cells(4, 1) = "hallo " + FormatDateTime(Date, vbLongDate) + " " + FormatDateTime(Time, vbShortTime)


Gebruiker = InputBox("Type uw naam a.u.b.")
If Gebruiker = Empty Then End

If Hour(Time) > 6 And Hour(Time) < 12 Then Worksheets("Blad1").Range("A3").Value = "Goedemorgen" + " " + Gebruiker
If Hour(Time) > 12 And Hour(Time) < 18 Then Worksheets("Blad1").Range("A3").Value = "Goedemiddag" + " " + Gebruiker
If Hour(Time) > 18 And Hour(Time) < 24 Then Worksheets("Blad1").Range("A3").Value = "Goedenavond" + " " + Gebruiker
If Hour(Time) > 24 And Hour(Time) < 6 Then Worksheets("Blad1").Range("A3").Value = "Goedennacht" + " " + Gebruiker

answer = MsgBox(Gebruiker + " wilt u beginnen?", vbYesNo)
If answer = 7 Then End
If answer = 6 Then MsgBox ("Raad een getal tussen de 1 en de 100." + Chr(10) + "Je mag 15 keer raden")

zoekgetal = Int(Rnd * 100 + 1)
Do While getal <> zoekgetal
poging = 16 - 1

MsgBox zoekgetal
getal = CInt(InputBox("Voer een getal in tussen 1 en 100"))
If (getal = zoekgetal) Then
        MsgBox ("Proficiat! Je hebt het getal in" + aantalpogingen + " keer geraden.")
    Else
        If (getal > zoekgetal) Then
            MsgBox ("Het getal dat u zoekt ligt lager" + Chr(10) + "Poging 2, Je mag nog 14 X raden")
        Else
            MsgBox ("Het getal dat u zoekt ligt hoger" + Chr(10) + "Poging 2, Je mag nog 14 X raden")
        End If
    End If
    Loop
    
aantalpogingen = poging - 1


End Sub

Sub raadgetal()
Dim getal, zoekgetal As Integer
Worksheets("blad1").Range("A1:E30").Clear
Worksheets("blad1").Range("A1").Value = "Raad Het Getal!!"
Worksheets("blad1").Range("A1").Font.Size = 18
Worksheets("blad1").Range("A1").Font.Bold = True
Worksheets("blad1").Range("A1").Font.ColorIndex = 3
Worksheets("blad1").Range("A3").Font.Size = 16
Worksheets("blad1").Range("A3").Font.Bold = True
Worksheets("blad1").Range("A3").Font.ColorIndex = 5
Worksheets("blad1").Cells(4, 1) = "hallo " + FormatDateTime(Date, vbLongDate) + " " + FormatDateTime(Time, vbShortTime)
 
 
Gebruiker = InputBox("Type uw naam a.u.b.")
If Gebruiker = Empty Then End
 
If Hour(Time) > 6 And Hour(Time) < 12 Then Worksheets("Blad1").Range("A3").Value = "Goedemorgen" + " " + Gebruiker
If Hour(Time) > 12 And Hour(Time) < 18 Then Worksheets("Blad1").Range("A3").Value = "Goedemiddag" + " " + Gebruiker
If Hour(Time) > 18 And Hour(Time) < 24 Then Worksheets("Blad1").Range("A3").Value = "Goedenavond" + " " + Gebruiker
If Hour(Time) > 24 And Hour(Time) < 6 Then Worksheets("Blad1").Range("A3").Value = "Goedennacht" + " " + Gebruiker
 
answer = MsgBox(Gebruiker + " wilt u beginnen?", vbYesNo)
If answer = 7 Then End
If answer = 6 Then MsgBox ("Raad een getal tussen de 1 en de 100." + Chr(10) + "Je mag 15 keer raden")
 
zoekgetal = Int(Rnd * 100 + 1)
Do While getal <> zoekgetal
poging = 16 - 1
 
MsgBox zoekgetal
getal = CInt(InputBox("Voer een getal in tussen 1 en 100"))
If (getal = zoekgetal) Then
        MsgBox ("Proficiat! Je hebt het getal in" + aantalpogingen + " keer geraden.")
    Else
        If (getal > zoekgetal) Then
            MsgBox ("Het getal dat u zoekt ligt lager" + Chr(10) + "Poging 2, Je mag nog 14 X raden")
        Else
            MsgBox ("Het getal dat u zoekt ligt hoger" + Chr(10) + "Poging 2, Je mag nog 14 X raden")
        End If
    End If
    Loop
 
aantalpogingen = poging - 1
 
 
End Sub

Ik heb nu dit script.
Alleen nu wil ik dat hij aftelt hoevaak je heb geprobeerd, en bij de 15e keer automatisch ermee stopt.
Kan iemand me er AUB mee helpen??
GreetZ,

Roel

17 antwoorden

Gesponsorde links

Stijn1 - 23/09/2004 21:43

PHP ver gevorderde

php code - Bekijk de code zonder highlighting - Klap code in

aantalpogingen = poging - 1 
If(aantalpogingen == 0) Then
  Msgbox("Je hebt al genoeg pogingen gehad, stop ermee!")
  hier stoppen
End If

aantalpogingen = poging - 1 
If(aantalpogingen == 0) Then
  Msgbox("Je hebt al genoeg pogingen gehad, stop ermee!")
  hier stoppen
End If

Ik ken geen vb maar dit lijkt me de logischte oplossing...

Metalhead - 23/09/2004 21:47
HTML gevorderde		Maar zolang poging = 16 - 1 in de loop staat, zal poging altijd 15 zijn, en aantalPogingen altijd minimaal 14... Dus ik denk niet dat het alleen daarmee al gaat werken

roelh - 23/09/2004 21:52

PHP gevorderde

Klopt, maar ik was aan testen op school.

php code - Bekijk de code zonder highlighting - Klap code in

aantalpogingen = poging - 1 
If(aantalpogingen == 0) Then 
  Msgbox("Je hebt al genoeg pogingen gehad, stop ermee!") 
  hier stoppen 
End If

aantalpogingen = poging - 1 
If(aantalpogingen == 0) Then 
  Msgbox("Je hebt al genoeg pogingen gehad, stop ermee!") 
  hier stoppen 
End If

waar haal je poging uit?

roelh - 23/09/2004 22:02
PHP gevorderde		En hoe kan ik ook neer laten zetten dat hij/zij nog maar zoveel pogingen heeft?

Stijn1 - 23/09/2004 22:05 (laatste wijziging 23/09/2004 22:07)

PHP ver gevorderde

Hmm ik heb het script eigenlijk nog niet goed bekeken. Dat stond daar al dus ik gebruikte het

php code - Bekijk de code zonder highlighting - Klap code in

Sub raadgetal() 
Dim getal, zoekgetal As Integer 
Worksheets("blad1").Range("A1:E30").Clear 
Worksheets("blad1").Range("A1").Value = "Raad Het Getal!!" 
Worksheets("blad1").Range("A1").Font.Size = 18 
Worksheets("blad1").Range("A1").Font.Bold = True 
Worksheets("blad1").Range("A1").Font.ColorIndex = 3 
Worksheets("blad1").Range("A3").Font.Size = 16 
Worksheets("blad1").Range("A3").Font.Bold = True 
Worksheets("blad1").Range("A3").Font.ColorIndex = 5 
Worksheets("blad1").Cells(4, 1) = "hallo " + FormatDateTime(Date, vbLongDate) + " " + FormatDateTime(Time, vbShortTime) 


Gebruiker = InputBox("Type uw naam a.u.b.") 
If Gebruiker = Empty Then End 

If Hour(Time) > 6 And Hour(Time) < 12 Then Worksheets("Blad1").Range("A3").Value = "Goedemorgen" + " " + Gebruiker 
If Hour(Time) > 12 And Hour(Time) < 18 Then Worksheets("Blad1").Range("A3").Value = "Goedemiddag" + " " + Gebruiker 
If Hour(Time) > 18 And Hour(Time) < 24 Then Worksheets("Blad1").Range("A3").Value = "Goedenavond" + " " + Gebruiker 
If Hour(Time) > 24 And Hour(Time) < 6 Then Worksheets("Blad1").Range("A3").Value = "Goedennacht" + " " + Gebruiker 

answer = MsgBox(Gebruiker + " wilt u beginnen?", vbYesNo) 
If answer = 7 Then End 
If answer = 6 Then MsgBox ("Raad een getal tussen de 1 en de 100." + Chr(10) + "Je mag 15 keer raden") 

zoekgetal = Int(Rnd * 100 + 1) 
poging = 15
Do While getal <> zoekgetal 
MsgBox zoekgetal 
getal = CInt(InputBox("Voer een getal in tussen 1 en 100")) 
If (getal = zoekgetal) Then 
        MsgBox ("Proficiat! Je hebt het getal in" + poging + " keer geraden.") 
    Else 
        If (getal > zoekgetal) Then 
            MsgBox ("Het getal dat u zoekt ligt lager" + Chr(10) + "Poging 2, Je mag nog " + poging + " X raden") 
        Else 
            MsgBox ("Het getal dat u zoekt ligt hoger" + Chr(10) + "Poging 2, Je mag nog " + poging + " X raden") 
        End If 
    End If
    If(poging == 0) Then 
      Msgbox("Je hebt al genoeg pogingen gehad, stop ermee!") 
      hier stoppen 
    End If 
    poging = poging-1 
    Loop 
End Sub

Sub raadgetal() 
Dim getal, zoekgetal As Integer 
Worksheets("blad1").Range("A1:E30").Clear 
Worksheets("blad1").Range("A1").Value = "Raad Het Getal!!" 
Worksheets("blad1").Range("A1").Font.Size = 18 
Worksheets("blad1").Range("A1").Font.Bold = True 
Worksheets("blad1").Range("A1").Font.ColorIndex = 3 
Worksheets("blad1").Range("A3").Font.Size = 16 
Worksheets("blad1").Range("A3").Font.Bold = True 
Worksheets("blad1").Range("A3").Font.ColorIndex = 5 
Worksheets("blad1").Cells(4, 1) = "hallo " + FormatDateTime(Date, vbLongDate) + " " + FormatDateTime(Time, vbShortTime) 
 
 
Gebruiker = InputBox("Type uw naam a.u.b.") 
If Gebruiker = Empty Then End 
 
If Hour(Time) > 6 And Hour(Time) < 12 Then Worksheets("Blad1").Range("A3").Value = "Goedemorgen" + " " + Gebruiker 
If Hour(Time) > 12 And Hour(Time) < 18 Then Worksheets("Blad1").Range("A3").Value = "Goedemiddag" + " " + Gebruiker 
If Hour(Time) > 18 And Hour(Time) < 24 Then Worksheets("Blad1").Range("A3").Value = "Goedenavond" + " " + Gebruiker 
If Hour(Time) > 24 And Hour(Time) < 6 Then Worksheets("Blad1").Range("A3").Value = "Goedennacht" + " " + Gebruiker 
 
answer = MsgBox(Gebruiker + " wilt u beginnen?", vbYesNo) 
If answer = 7 Then End 
If answer = 6 Then MsgBox ("Raad een getal tussen de 1 en de 100." + Chr(10) + "Je mag 15 keer raden") 
 
zoekgetal = Int(Rnd * 100 + 1) 
poging = 15
Do While getal <> zoekgetal 
MsgBox zoekgetal 
getal = CInt(InputBox("Voer een getal in tussen 1 en 100")) 
If (getal = zoekgetal) Then 
        MsgBox ("Proficiat! Je hebt het getal in" + poging + " keer geraden.") 
    Else 
        If (getal > zoekgetal) Then 
            MsgBox ("Het getal dat u zoekt ligt lager" + Chr(10) + "Poging 2, Je mag nog " + poging + " X raden") 
        Else 
            MsgBox ("Het getal dat u zoekt ligt hoger" + Chr(10) + "Poging 2, Je mag nog " + poging + " X raden") 
        End If 
    End If
    If(poging == 0) Then 
      Msgbox("Je hebt al genoeg pogingen gehad, stop ermee!") 
      hier stoppen 
    End If 
    poging = poging-1 
    Loop 
End Sub

zo dan?

edit:
FF scriptje aangepast voor 2e vraag...

roelh - 23/09/2004 22:10
PHP gevorderde		Hij geeft naar 15 keer wel aan dat je niet meer mag, alleen dan neemt hij automatisch een ander getal

Stijn1 - 23/09/2004 22:11
PHP ver gevorderde		heb je hier stoppen veranderd? (ik ken de taal niet dus moet je zelf ff veranderen...

roelh - 23/09/2004 22:11
PHP gevorderde		Werkt niet Jammer..is zo moeilijk dit

Duikboot - 23/09/2004 23:27
Grafische gevorderde		VBA? Is dat ook al weer een webtaal? Nog nooit eerder van gehoord.

twopeak - 24/09/2004 00:05
PHP ver gevorderde		Michieltjuh, het is geen webtaal. VBScritp is wel een webtaal (een soort javascript variant vol fouten dat enkel voor de windows/explorer combinatie werkt) (hoewel werken een groot woord is) Waar de A voor staat weet ik niet meer... VB = visual basic je doet het verkeerd denk ik Je wilt een getal laten raden, dan doe je dus best met een for-loop: php code - Bekijk de code zonder highlighting - Klap code in for i<15 step -1 probeersel = inputbox("geef je getal") if probeersel = zoekgetal then break end if msgbox "fout, u hebt nog "&i&" pogingen" next i for i<15 step -1 probeersel = inputbox("geef je getal") if probeersel = zoekgetal then break end if msgbox "fout, u hebt nog "&i&" pogingen" next i dat lijkt mij simpeler!

roelh - 24/09/2004 08:46
PHP gevorderde		Mmmm, zou je het in dat script bovenin in kunnen bouwen? Want deze snap ik dus niet zo...

Metalhead - 24/09/2004 09:25

HTML gevorderde

En je eigen snap je wel?

php code - Bekijk de code zonder highlighting - Klap code in

Sub raadgetal()
Dim getal, zoekgetal As Integer
Worksheets("blad1").Range("A1:E30").Clear
Worksheets("blad1").Range("A1").Value = "Raad Het Getal!!"
Worksheets("blad1").Range("A1").Font.Size = 18
Worksheets("blad1").Range("A1").Font.Bold = True
Worksheets("blad1").Range("A1").Font.ColorIndex = 3
Worksheets("blad1").Range("A3").Font.Size = 16
Worksheets("blad1").Range("A3").Font.Bold = True
Worksheets("blad1").Range("A3").Font.ColorIndex = 5
Worksheets("blad1").Cells(4, 1) = "hallo " + FormatDateTime(Date, vbLongDate) + " " + FormatDateTime(Time, vbShortTime)


Gebruiker = InputBox("Type uw naam a.u.b.")
If Gebruiker = Empty Then End

If Hour(Time) > 6 And Hour(Time) < 12 Then Worksheets("Blad1").Range("A3").Value = "Goedemorgen" + " " + Gebruiker
If Hour(Time) > 12 And Hour(Time) < 18 Then Worksheets("Blad1").Range("A3").Value = "Goedemiddag" + " " + Gebruiker
If Hour(Time) > 18 And Hour(Time) < 24 Then Worksheets("Blad1").Range("A3").Value = "Goedenavond" + " " + Gebruiker
If Hour(Time) > 24 And Hour(Time) < 6 Then Worksheets("Blad1").Range("A3").Value = "Goedennacht" + " " + Gebruiker

answer = MsgBox(Gebruiker + " wilt u beginnen?", vbYesNo)
If answer = 7 Then End
If answer = 6 Then
for i<15 step -1
probeersel = inputbox("geef je getal")
if probeersel = zoekgetal then
   break
end if
msgbox "fout, u hebt nog "&i&" pogingen"
next i 
end if
end sub

Sub raadgetal()
Dim getal, zoekgetal As Integer
Worksheets("blad1").Range("A1:E30").Clear
Worksheets("blad1").Range("A1").Value = "Raad Het Getal!!"
Worksheets("blad1").Range("A1").Font.Size = 18
Worksheets("blad1").Range("A1").Font.Bold = True
Worksheets("blad1").Range("A1").Font.ColorIndex = 3
Worksheets("blad1").Range("A3").Font.Size = 16
Worksheets("blad1").Range("A3").Font.Bold = True
Worksheets("blad1").Range("A3").Font.ColorIndex = 5
Worksheets("blad1").Cells(4, 1) = "hallo " + FormatDateTime(Date, vbLongDate) + " " + FormatDateTime(Time, vbShortTime)
 
 
Gebruiker = InputBox("Type uw naam a.u.b.")
If Gebruiker = Empty Then End
 
If Hour(Time) > 6 And Hour(Time) < 12 Then Worksheets("Blad1").Range("A3").Value = "Goedemorgen" + " " + Gebruiker
If Hour(Time) > 12 And Hour(Time) < 18 Then Worksheets("Blad1").Range("A3").Value = "Goedemiddag" + " " + Gebruiker
If Hour(Time) > 18 And Hour(Time) < 24 Then Worksheets("Blad1").Range("A3").Value = "Goedenavond" + " " + Gebruiker
If Hour(Time) > 24 And Hour(Time) < 6 Then Worksheets("Blad1").Range("A3").Value = "Goedennacht" + " " + Gebruiker
 
answer = MsgBox(Gebruiker + " wilt u beginnen?", vbYesNo)
If answer = 7 Then End
If answer = 6 Then
for i<15 step -1
probeersel = inputbox("geef je getal")
if probeersel = zoekgetal then
   break
end if
msgbox "fout, u hebt nog "&i&" pogingen"
next i 
end if
end sub

Zoiets?
(Ik ken btw ook geen VB-script... maar wel VB (en QB, en GWB, ...)

roelh - 24/09/2004 11:27
PHP gevorderde		Werkt niet

roelh - 26/09/2004 11:32
PHP gevorderde		Kan iemand meer AUB mee helpen? Kheb het echt nodig voor school, en snap er gwoon NIKS van

Insane - 26/09/2004 11:38
Onbekend		welke webtaal is dit....?:s

Joel - 26/09/2004 11:39
Eigenaar		Er bestaan wel wat Visual basic forums op internet hoor. Een jaar geleden heb ik me daar ook eens met bezig gehouden, en kon toch altijd mijn vragen stellen op een VB forum.

roelh - 26/09/2004 11:41
PHP gevorderde		Zou je AUB dat forum kunnen geven dan?

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten