Mite sen saa toimimaa???
olisi pikkasen helpompaa jos kertoisit minkä vierityspalkin!
Haun ihme paljasti seuraavat taikasanalla Scrollbar.
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?
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?
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
En tiädä saako formille scrollbaaria, mutta kokeileppa laittaa formille listbox ja tuon printin tilalle laita list1.additem "Celsius" & celsius & "Fahrenheit" & fahrenheit & "Kelvin" & kelvin
mite mie saan sitt tyhjennettyy sitä listboxia jos mie syötän toiset arvot siihe ku nyt ne tulee sillee allekkai kaikki...
Musse89 on hyvä ja tarkistaa mitä tapahtuu kun pistelee: List1.Clear
ei se toimi
Miten se ei toimi? Herjaa jotain? Ei herjaa, muttei tyhjennä?
valittaa jotai "wrong numper of arguments or invalid property assingnment" en mä tajuu mitä toi tarkottaa :D:D
Pistäpäs se koko koodi tänne.
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
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.
Siis nyt mie oon ihan pihalla täst mite ne tulee olee siin kodin seassa noi List1 jutut :D:D
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
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
No miks haluaisit tyhjentää sen listan aina sen jälkeen, kun lisäät siihen jotain?
Koska se on sitt helpompi tajuta ku eri asteeikkoiden määrä tulee erilliselle listalle
Häh? Ethän sä näe siinä listassa mitään, jos tyhjennät sen heti kun laitat siihen jotakin.
Aihe on jo aika vanha, joten et voi enää vastata siihen.