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
en vaan osaa :(
4
645
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
Ranskan vasemmistojohtaja: "Kyllä, meneillään on suuri väestönvaihto!"
Ranskan vasemmistojohtaja Jean-Luc Mélenchon järkytti myöntämällä avoimesti sen, mitä tiedotusvälineet ovat pitkään pitä752326Valion maitotehtaalla kapina
Ilmastonmuutoksesta, eläinten hyvinvoinnista ja ympäristön saastumisesta huolestuneet eläinkapinalliset estävät panssa512241SDP haluaa tappaa maaseudun - bensan hinta mahdollisimman korkealle
Maaseudulla auto on välttämätön asia, ja lähes kaikilla on bensa-autot. Kuinka tyhmä pitää olla jos äänestää demareita?1622035Päivän Riikka: polttoöljyn hinta räjähti
Näyttää tuo putinismi ilmenevän persuissa myös Suomen yrittäjien kampittamisena. Polttoöljy on se katalyytti, joka pitää171821Helsingin yllä valopalloja
https://www.iltalehti.fi/kotimaa/a/1508be00-28c9-4156-83dc-0be5e7aa3066 "Helsingin taivaalla lensi lauantaina puolen yön861261Kovasti on hävittäjiä ilmassa. Nytkö se alkoi?
Onko nyt sota ?? `Vai harjoituksiako vain? Hävittäjät pörrää kovasti.781164HÄLYYTYS!!
Ukraina se hyökkää jo Suomen maaperälle. https://www.iltalehti.fi/kotimaa/a/645b83ce-e074-4f00-8b99-245d01b38a363031060Jumalauta! Ukraina hyökkää jo Suomeenkin!
Ukrainan drooneja tullut Suomeen ainakin kolme, ehkä enemmäkin! Syvälle Suomeen! Nyt on klovnipressa hukkapätkä mennyt T325986Helsingin yllä lensi yöllä jotain outoa puolen yön aikaan valopalloja
Poliisi on saanut tapauksesta yhden havaintoilmoituksen. Valopalloja oli noin parikymmentä ILtalehdessä on video tapah100953- 76939