Permalänk

Behöver hjälp med VB

Hallå!

Jag behöver hjälp med en uppgift. Jag frågade läraren om hjälp först, han bad mig googla problemet för han hade själv ingen lösning. Efter lite googlande gav jag upp och hamnade jag här.

Problemet kortfattat:

Det är en bankomat, man ska kunna ta ut pengar från sitt saldo, som är ett slumptal mellan 1 och 100 000. Men, man ska bara kunna ta ut hela hundratal. Man ska alltså skriva in ett tal i en textbox, sen trycka på en knapp, då ska talet dras från en variabel. Men man ska bara kunna ta ut hela hundratal. Om talet inte är ett hundratal ska det komma upp ett felmeddelande..

Så... Hur löser jag det med hundratal?

Tack på förhand!

Permalänk
Medlem

Kolla lite på modulus. Är resten vid division med hundra skiljt från noll så är det inte ett helt hundratal.

I VB:
http://msdn.microsoft.com/en-us/library/se0w9esz(v=vs.80).asp...

Permalänk
Medlem

ta reda på längden av talet ex 1234 kr ger längd 4. Dividera sedan med en tiopotens 10^(längd-1) och kontrollera om resultatet är en Int

ex 1234 -> längd = 4
1234/10^(4-1) = 1.234 <> INT

2000/10^4-1 = 2 Vilket är ett heltal

Permalänk
Medlem

kan läraren inte lösningen på sina egna uppgifter, seems legit.

Kolla upp modulus operator borde finnas i vb.

är % i många andra språk iaf

Permalänk

Tack så jättemycket för hjälpen!

Lösningen blev något sånt här, då 'belopp' är det man ska ta ut:

If Int(belopp Mod 100)

Permalänk
Medlem

Om läraren själv inte har en lösning på ett så här enkelt problem så kanske han ska byta karriär...

Visa signatur

...

Permalänk
Hedersmedlem
Skrivet av Copperlord:

Tack så jättemycket för hjälpen!

Lösningen blev något sånt här, då 'belopp' är det man ska ta ut:

If Int(belopp Mod 100)

Det där ser inte rätt ut. Det bör vara typ:

If belopp Mod 100 > 0 Then
Msgbox.Show("Du kan bara ta ut jämna hundratal")
End If

Angående din lärare så tror jag inte att du ens har frågat honom/henne, för detta är inte precis raketforskning inom programmering.

Visa signatur

Använd gilla för att markera nyttiga inlägg!

Permalänk
Hedersmedlem
Skrivet av giplet:

Det där ser inte rätt ut. Det bör vara typ:

If belopp Mod 100 > 0 Then
Msgbox.Show("Du kan bara ta ut jämna hundratal")
End If

Vb tolkar väl dock, liksom c, "0" som false och andra värden som true, så det där borde fungera.