Input funktion käyttö

[jonezuki]

Mulla on sellainen ongelma että yritän tehdä laskinta joka laskee vain laskun "x + 5". X on tässä tapauksessa input funktioon näppäiltävä luku ja tämä luku pitäisi saada tähän lasku funktio juttuun

tässä ois tämä coolbasic projekti. Toivottavasti joku ymmärtää mitä haen takaa tässä asiassa

Code: Select all

 
    jokin=Input("x: ")
    
 
    DrawScreen
 
    Until KeyHit (cbKeyreturn)
    
    Text 0, 100, LisääViisi(x)
    End
 
   //Input funtioon näppäiltävä luku olisi tarkoitus saada tohon x tilalle
 
   Function LisääViisi(x)
       x= x + 5
       Return 
       Print 
   End Function 
   

[esa94]

Mulla on sellainen ongelma että yritän tehdä laskinta joka laskee vain laskun "x + 5". X on tässä tapauksessa input funktioon näppäiltävä luku ja tämä luku pitäisi saada tähän lasku funktio juttuun

tässä ois tämä coolbasic projekti. Toivottavasti joku ymmärtää mitä haen takaa tässä asiassa :D

Code: Select all

 
    jokin=Input("x: ")
    
 
    DrawScreen
 
    Until KeyHit (cbKeyreturn)
    
    Text 0, 100, LisääViisi(x)
    End
 
   //Input funtioon näppäiltävä luku olisi tarkoitus saada tohon x tilalle
 
   Function LisääViisi(x)
       x= x + 5
       Return 
       Print 
   End Function 
   

Code: Select all

x = x + 5
Return

Muuta muotoon

Code: Select all

return x + 5

EDIT:

Jaa niin, tässä tapauksessa tee mieluummin x:sta globaali jos et voi vain laittaa koodiin x = x + 5 ilman erillistä funktiota, joka, no, ei tee mitään.

[jonezuki]

Ei sytyttäny että mitä pitäs tehä. Se vastauski pitäs saaha näkymään siihe laskimeen

[joku1]

Lisää alkuun:

Code: Select all

Global x

Ja muuta

Code: Select all

Return x=x+5

[Wingman]

muuta myös muuttuja jokin -> x

[Timblex]

Yritätkö siis tehdä näin?

Code: Select all

Repeat
in$=Input("x: ")
x=Int(in$) 'muunnetaan inputin arvo numeroksi
Text 0,100,LisääViisi(x)
Until Escapekey()
Function LisääViisi(num)
Return Str(num+5) 'palautetaan numero+5 merkkijonona
EndFunction

[MaGetzUb]

Joo kannattaa muistaa aina silmukan aloituskin, lopetus näytti sinulla olevankin.

[TukeKoodi]

Yritätkö siis tehdä näin?

Code: Select all

Repeat
in$=Input("x: ")
x=Int(in$) 'muunnetaan inputin arvo numeroksi
Text 0,100,LisääViisi(x)
Until Escapekey()
Function LisääViisi(num)
Return Str(num+5) 'palautetaan numero+5 merkkijonona
EndFunction

Juuri näin, mutta tuo DrawScreen huodyttää ennen Untilia
Sori tästäki