Keskustelu: Ohjelmointikysymykset: VB6: VB valittaa: "Procedure is too large"

Oon aloottelija tuos vb:n käytös ja YRITÄN työstää sellaasta autopeliä missä viritetään autoja ja kiihdytetään varttimailia.
Siinä on vissiin liikaa turhaa koodia ku se noin herjaa.
Mulla on siinä melekeen pelkkää if-lausetta koko sähellykses
ja pitääs saada vähä ohjeita kuinka esim. autojen viriosien oston voi koodata vähän yksinkertaisemmalla tavalla ku tuo if-lause.
Siinä joka osalle varmaan 15 riviä koodia ja osia on joku 50.
Niijja se tosiaan herjaa: "Procedure is too large"

Koodisi täytyy olla jo aika pitkä, jos tulee tuommoinen ilmoitus. Se pitää ehkä panna perin pohjin uusiksi. Jos koodissa on suuri määrä samanlaisia ehtorakenteita, ne pystyy yhdistämään, jolloin ohjelman koko pienenee. Kerro vähän tarkemmin, kuinka olet toteuttanut pelin ja anna vaikka näyte koodista (yksi 15 rivin osuus riittää).

Rivejä oliki kymmenen.
No form1:ssä on tälläänen ku "Asenna" painike joka on label75. Osat on listboxis ja sieltä osa asennetaan moottorille tarkootetulle textboxille.

Tuo moottori.text on se että ei voi asentaa ku yhyren moottorin autoon kerralla eli 0=ei moottoria 1=moottori on asennettu.
Nopeus on sitte se että kuinka lujaa se liikkuu kisas se auto.

Tuon sais varmaa palio yksinkertaasemminki.

Älkää kuoko nauruun!!!!

Private Sub Label75_Click()
If Form1.List1.Text = "182 cid v6 Ford" And moottori.Text = "0" Then
hevosvoimat = Form1.hevosvoimat.Text
hevosvoimat = hevosvoimat + 100
Form1.hevosvoimat.Text = hevosvoimat
Text1.Text = List1.Text
Me.List1.RemoveItem (Me.List1.ListIndex)
On Error Resume Next
moottori.Text = "1"
nopeus = nopeus.Text
nopeus = nopeus + 10
End If

Autojen tietoja ei kannata kirjoittaa suoraan koodiin, vaan ne on järkevintä tallentaa erilliseen tiedostoon, jonka sisältö luetaan ohjelmassa olevaan taulukkoon. Silloin kaikkien autojen tiedot voi tarkistaa yhdellä For-silmukalla. Esimerkiksi tiedostossa lukisi ensimmäisen auton nimi, hevosvoimien lisäys ja nopeuden lisäys.

Näitä asioita ei pysty selittämään lyhyesti kunnollisesti, mutta koeta lukea kirjoittamiani Visual Basic -oppaita!

Kaikki suurempi data kannattaa ilman muuta laittaa erilliseen tiedostoon. Koodina se veisi paljon enemmän tilaa, kun pitäisi kirjoittaa muotoon:

Auto(1).Hevosvoimat = 70
Auto(2).Hevosvoimat = 80
Auto(3).Hevosvoimat = 90
Auto(4).Hevosvoimat = 100
Auto(5).Hevosvoimat = 110
Auto(6).Hevosvoimat = 120

Kun taas tiedostoon kirjoitettuna kaikki saadaan muotoon:

70,80,90,100,110,120

Josta kaikki vain yhdellä silmukalla ladataan oikeassa järjestyksessä. Ja binäärimuotoinen tallennus vie vieläkin vähemmän tilaa. Kannattaa lukea mm. tämä