Kun pistän 2 labelii ja yhe commandin, nii kun kirjottaa label1 jotain ja painaa command1 nii label2:seen tulee label1 kirjotettu teksti siten että kirjaimet on sikisokin, ne kirjaimet on miten sattuu mitkä on label1 kirjoitettu!
minkä laisen koodin toho pitäs tehä mulla ei oo mitää tietoo?
Mahdoton tehtävä mulle
4
607
Vastaukset
- mallia
Kokeilin piruuttani Linuxin Gambasilla eikä ole kovin kummoinen tehtävä. Pitäisi toimia VB:ssä pienellä modifioinnilla.
PUBLIC SUB Button1_Click()
DIM x AS Integer
DIM paikka1 AS Integer
DIM paikka2 AS Integer
DIM merkki AS String
DIM talle AS Integer
DIM s AS String
DIM d AS String
DIM j[50] AS Integer
s=TextBox1.Text
FOR x = 1 TO Len(s)
j[x]=x
NEXT
FOR x = 1 TO 2*Len(s)
paikka1 = Int(Rnd(1,Len(TextBox1.Text) 1))
paikka2 = Int(Rnd(1,Len(TextBox1.Text) 1))
WHILE paikka1 = paikka2
paikka2 = Int(Rnd(1,Len(TextBox1.Text) 1))
WEND
talle = j[paikka1]
j[paikka1]= j[paikka2]
j[paikka2]=talle
NEXT
d=""
FOR x = 1 TO Len(s)
merkki=Mid$(s,j[x],1)
d=d & merkki
NEXT
TextBox2.Text = d
END- ihan
QBasicilta tuo koodi DIMeineen ja WENDeineen.. mielenkiintoista.
- xxxxx
Koska tuo oli turhan pitkästi tehty, niin tein Visual Basic 2005:llä lyhyemmin:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SyötettyMrkjono As String
Dim UusiMrkjono As String
Dim i As Integer
SyötettyMrkjono = TextBox1.Text
UusiMrkjono = ""
Randomize() 'rnd-funktion satunnaisaloitus
While SyötettyMrkjono ""
i = Int(Rnd() * Len(SyötettyMrkjono) 1)
UusiMrkjono = UusiMrkjono Mid$(SyötettyMrkjono, i, 1)
SyötettyMrkjono = Microsoft.VisualBasic.Left$(SyötettyMrkjono, i - 1) Mid$(SyötettyMrkjono, i 1)
End While
TextBox2.Text = UusiMrkjono
End Sub
ps. Miten saat nuo vasemman reunan tyhjät merkit viestiisi?
- xxxxx
Koulutehtävät on annettu sitä varten, että niitä miettii ja siten oppii.
Voin toki minäkin neuvoa jossain yksityiskohdassa, mutta pääsisit liian helpolla jos koko koodin tänne panisin.
Label-kontrolleihin ei voi sitä paitsi kirjoittaa mitään, vaan niiden pitää olla Text-kontrolleja.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kumpi on sekaisempi - Koskenniemi vai Trump?
Koskenniemi haukkui Trumppia A-studiossa, niin että räkä lensi suusta. Sen sijaan Trump puheessaan sanoi, että Grönlant1703149Sannahan laski sähkön ALV:n 10 prosenttiin, Riikka runnoi 25,5 %:iin
Tässäkin nähdään kumpi on Suomen kansan puolella, ja kumpi omaa vastaan. Putinistipersuille Suomen kansa tulee aina vii631975Kolmen tuiki tavallisen demariahdistelijan nimet julki
Nyt tiedetään ketkä kolme oli niissä niin tavanomaisissa demarin jokapäiväisissä askareissa avustajia ahdistelemassa. K331935- 1981880
Saisinpa halata sinua joka päivä
ja kertoa miten paljon sinusta välitän. Vaikka olisi jommalla kummalla huono päivä, väsynyt päivä tai kiireinen päivä, a261830Riikka Purra perustelee hallituksen leikkauspolitiikkaa
Odotukset ovat kovat, mutta puhe on poikkeuksellisen onttoa jopa hallituksen omalla mittapuulla. Vastuu työnnetään alas,801295Kansalaispalkka ja maksuton joukkoliikenne
Noilla pienillä parannuksilla saadaan Suomesta taas hitusen parempi paikka peruskansalaiselle, joka elää ekologisesti ja911235Martinan pankkikortti
Seiska uutisoi, että Martina antoi pankkilortin tyttärilleen. Siinä on vaan sellainen pointti, että pankkikorttia ei saa2431178Muistattekos kun kaupassa piti pyytää tavarat myyjältä
Edes kahvipakettia ei saanut itse valita, vaan myyjä nouti sen hyllystä tiskille. Jos osti jauhelihaa, niin se jauhettii1851135- 221100