Avunpyyntö.
Vastikään opinnot aloittaneena olen aivan paska vb:ssä. Löytyykö mistään hyviä neuvoja harjoitusten tekoon? Linkkejä? Nettiä olen kahlannut läpi hakusanoin Visual Basic ja sitä rataa. Etätehtävien palautusaika lähenee ja minä istun koneen edessä ja tuijotan tyhjyyteen.
Esimerkki harjoituksesta: teille varmaan ihan pässinlihaa.
Ohjelma pyytää käyttäjältä tuotekoodin tekstikentän avulla. Ohjelma tarkistaa, onko tuotekoodi oikean muotoinen.
Koodissa tulee olla kuusi merkkiä. Ensimmäisen
merkin pitää olla iso kirjain (A - F). Muut merkit ovat numeroita.
Ohjelma ilmoittaa käyttäjälle, oliko koodi oikeanmuotoinen vai ei.
Nimimerkillä "alanvaihto edessä?"
Vastikään opinnot aloittaneena olen aivan paska vb:ssä. Löytyykö mistään hyviä neuvoja harjoitusten tekoon? Linkkejä? Nettiä olen kahlannut läpi hakusanoin Visual Basic ja sitä rataa. Etätehtävien palautusaika lähenee ja minä istun koneen edessä ja tuijotan tyhjyyteen.
Esimerkki harjoituksesta: teille varmaan ihan pässinlihaa.
Ohjelma pyytää käyttäjältä tuotekoodin tekstikentän avulla. Ohjelma tarkistaa, onko tuotekoodi oikean muotoinen.
Koodissa tulee olla kuusi merkkiä. Ensimmäisen
merkin pitää olla iso kirjain (A - F). Muut merkit ovat numeroita.
Ohjelma ilmoittaa käyttäjälle, oliko koodi oikeanmuotoinen vai ei.
Nimimerkillä "alanvaihto edessä?"
Vastaukset 5
Vanhimmat
osoite http://www.programmersheaven.com siellä on ainakin jotain sorsia..
Oletan, että sinulla on tekstikenttä Text1. Koodini voi olla hieman Pascalista vaikutteita saanutta, mutta kyllä varmasti selviät sillä korkeintaan pienillä muutoksilla. Alleviivaukset eli _-merkit voit poistaa, jos laitat if-lauseen yhdelle riville. Numerot voit tarkistaa samaan tyyliin.
if len( text1.text ) = 6 then
EkaKirjain = left$( Text1.Text, 1 )
if EkaKirjain = "A" or EkaKirjain = "B" or_
EkaKirjain = "C" or EkaKirjain = "D" or_
EkaKirjain = "E" or EkaKirjain = "F" then
'Koodi oikein
else
'Koodi virheellinen
end if
else
' Koodi virheellinen
end if
syote on tekstilaatikko, johon koodi syötetään
dim apu as string ' apumerkkijonomuuttuja
dim oikeaMuoto as boolean 'onko koodi oikeaa muotoa vai ei
dim i as integer 'silmukkamuuttuja
dim j as integer 'apulaskuri
oikeaMuoto=true 'oletetaan, että on oikein
if len(syote.Text)=6 then 'pituus oikea
apu=Left$(syote.Text) 'eka merkki talteen
if apu>="A" and apu="0" and apu ei oikea koodi
else
oikeaMuoto=false 'ensimmäinen kirjain virheellinen
end if
else
oikeaMuoto=false 'pituus väärä
end if
'nyt muuttujassa oikeaMuoto on tieto siitä, onko koodi oikeaa muotoa vai ei. false=ei, true=on
Kiitos neuvoista, yritän saada jotain aikaiseksi sunnuntain deadlineen mennessä.. Tätä se teettää kun jättää asioita viime tinkaan ja huomaakin sitten että ei osakkaan..
No, tulevaisuudessa viisaampana.
http://www.aedu.kuopio.fi/opinnet/visbas/