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
648
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
Perintovero 100 prosenttiin, työeläkkeet ja maataloustuet pois
Noilla eväillä lähden tasapainottamaan valtiontaloutta ja korjaamaan työntekijöiden palkkakuoppaa nostamatta työnantajie3776671Riikka runnoo: polttoöljyn hinta nousi maaliskuussa 40 prosenttia
Onko irvistelijällä sakset hävinneet, vai miksei osaa leikata polttoaineiden hintaa kansalaisten kukkarolle sopivalle ta754295Dannysta tulee isä 83-vuotiaana
Huh huh sentään sellaista naista, joka laitattaa itsensä paksuksi ikälopulle papalle ! Ajatellaanko lapsen oikeuksia oll973750Purra ryöväsi Marinin Itä.-Suomelle neuvottelemat EU-rahat
Perust vihaavat suomalaisia, mutta eritoten itäsuomalaisia. "Osa kaksikäyttörahoista on alun perin Itä- ja Pohjois-Suom443654Miksi persut hyökkäävät jatkuvasti henkilöitä päin?
Miksei persut yritä lainkaan korjata asioita, vaan koko ajan haukkuvat henkilöitä? Ei tuollaisilla turvanpieksäjillä ole1343633Seida Sohrabi: Suomi ei ole rasistinen maa
Seidalta taas täyttä asiaa. Miksi punavihreät naiset eivät pysty samaan - no se ideologia estää. "Meillä on valitettava1493600Demariskandaali! Eveliina Heinäluoma (sdp) kahmii kaikki Hitas asunnot itselleen!
Heinäluoma on ostanut useita yhteiskunnan tukemia, hintasäännösteltyjä asuntoja itselleen! Ei ihme, että Hitas on ollut2473529Ketkä haukkuu suomalaisten ÄO:tä?
Siinä on kaksi vaihtoehtoa, joko siis rutiköyhä vajaaälyinen vasuri tai venäläinen. Kyllähän täällä käy suomenvenäläisi393088Pääsiäisen kunniaksi tekoälyn analyysi Riikka Purran kirjoituksesta
🧠 Mitä kirjoitus kertoo Riikka Purrasta? 1. Asenteellinen ja epäasiallinen sävy: Kirjoitus pursuaa halveksivaa, jopa a143064Demarien sanoin kuvaamaton ahneus - Eveliina Heinäluoma vain yksi esimerkki
Mutta näin se on demari-eliitissä aina ollut, käytännössä siis nämä eliittiin kuuluvat ovat puhtaasti porvareita - Marin1052799