Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Vierityspalkki

Sivun loppuun

musse89 [09.02.2006 11:19:24]

#

Mite sen saa toimimaa???

Henu [09.02.2006 11:50:06]

#

olisi pikkasen helpompaa jos kertoisit minkä vierityspalkin!

BadSource [09.02.2006 13:00:37]

#

Haun ihme paljasti seuraavat taikasanalla Scrollbar.

musse89 [09.02.2006 16:06:13]

#

Siis mie tein semmosen ohjelman jossa pitää syöttä lukuja ja sitt se laskee sillee hienosti Celsius asteen, mutt ku niit lukuja tulee nii paljon ett ei ne mahdu formille.

mite mie saan sen vierityspalkin asennettuu siihe ett vois selta ne kaikki tulokset siitä läpi?
toimiskoha se sillee?

Henu [09.02.2006 18:58:18]

#

Mielestäni yksi hyvä vaihtoehto olisi lisätä ne listboxiin.
ja listboxin lisäys = list1.additem Celsius.
Voisitko viellä selventää että lisäätkö niitä arvoja formille, textboxiin vai johonki muualle?

musse89 [09.02.2006 22:44:50]

#

Siis miull on tämmöne koodi:

jos toho syöttää vaikka alarajaksi 1, ylärajaksi 100 ja väliks 1, nii tulos on nii iso ett ei se mahdu formille...

Mite mie saan sen vierityspalkin asennettuu ett voisin kattoo siit kaikki tulokset???

Private Sub Cmdpaina2_Click()
Cls
'määritetään muuttuja

Dim celsius As Integer
Dim kelvin As Integer
Dim fahrenheit As Integer
Dim alaraja As Integer
Dim ylaraja As Integer
Dim vali As Integer

'annetaan alkuarvo

celsius = 0
kelvin = 273
fahrenheit = 32
alaraja = 0
ylaraja = 0
vali = 0

'suoritetaan ehto
alaraja = InputBox(" Anna alaraja ")
ylaraja = InputBox(" Anna ylärja ")
vali = InputBox(" Anna väli ")

For celsius = alaraja To ylaraja Step vali
    fahrenheit = 9 / 5 * celsius + 32
    kelvin = celsius + 273
    Print "Celsius" & celsius & "Fahrenheit" & fahrenheit & "Kelvin" & kelvin & ""
Next

End Sub

Henu [10.02.2006 21:13:32]

#

En tiädä saako formille scrollbaaria, mutta kokeileppa laittaa formille listbox ja tuon printin tilalle laita list1.additem "Celsius" & celsius & "Fahrenheit" & fahrenheit & "Kelvin" & kelvin

musse89 [11.02.2006 14:49:24]

#

mite mie saan sitt tyhjennettyy sitä listboxia jos mie syötän toiset arvot siihe ku nyt ne tulee sillee allekkai kaikki...

nomic [11.02.2006 15:04:07]

#

Musse89 on hyvä ja tarkistaa mitä tapahtuu kun pistelee: List1.Clear

musse89 [11.02.2006 15:10:11]

#

ei se toimi

hunajavohveli [11.02.2006 15:14:35]

#

Miten se ei toimi? Herjaa jotain? Ei herjaa, muttei tyhjennä?

musse89 [11.02.2006 15:16:02]

#

valittaa jotai "wrong numper of arguments or invalid property assingnment" en mä tajuu mitä toi tarkottaa :D:D

hunajavohveli [11.02.2006 15:18:49]

#

Pistäpäs se koko koodi tänne.

musse89 [11.02.2006 15:20:19]

#

Private Sub Cmdpaina2_Click()
'tyhjentää ruudun
Cls
'määritetään muuttuja

Dim celsius As Integer
Dim kelvin As Integer
Dim fahrenheit As Integer
Dim alaraja As Integer
Dim ylaraja As Integer
Dim vali As Integer

'annetaan alkuarvo

celsius = 0
kelvin = 273
fahrenheit = 32
alaraja = 0
ylaraja = 0
vali = 0

'suoritetaan ehto
alaraja = InputBox(" Anna alaraja ")
ylaraja = InputBox(" Anna ylärja ")
vali = InputBox(" Anna väli ")

For celsius = alaraja To ylaraja Step vali
    fahrenheit = 9 / 5 * celsius + 32
    kelvin = celsius + 273
     List1.Clear "Celsius" & celsius & "Fahrenheit" & fahrenheit & "Kelvin" & kelvin & ""
Next

End Sub

hunajavohveli [11.02.2006 15:21:20]

#

List1.Clear -metodin tarkoitus on siis tyhjätä se lista. Lisäämiseen käytetään edelleen sitä Add-metodia.
Edit: Ja käytä kooditageja, kiitos.

musse89 [11.02.2006 15:28:24]

#

Siis nyt mie oon ihan pihalla täst mite ne tulee olee siin kodin seassa noi List1 jutut :D:D

hunajavohveli [11.02.2006 15:31:55]

#

Siis siihen kohtaan, missä halutaan lisätä tietoa, tulee edelleen:

list1.additem "Celsius" & celsius & "Fahrenheit" & fahrenheit & "Kelvin" & kelvin

Ja siihen kohtaan, missä lista pitää tyhjätä, tulee pelkästään:

List1.Clear

musse89 [11.02.2006 15:37:22]

#

For celsius = alaraja To ylaraja Step vali
fahrenheit = 9 / 5 * celsius + 32
kelvin = celsius + 273
list1.additem "Celsius" & celsius & "Fahrenheit" & fahrenheit & "Kelvin" & kelvin& "Kelvin" & kelvin & ""
list1.clear

Next


mie laitoin tällee mut en mie oikee tajuu ett onks tääkää oikee :D

sooda [11.02.2006 15:46:13]

#

No miks haluaisit tyhjentää sen listan aina sen jälkeen, kun lisäät siihen jotain?

musse89 [11.02.2006 15:48:30]

#

Koska se on sitt helpompi tajuta ku eri asteeikkoiden määrä tulee erilliselle listalle

sooda [12.02.2006 15:15:23]

#

Häh? Ethän sä näe siinä listassa mitään, jos tyhjennät sen heti kun laitat siihen jotakin.


Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta