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
639
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
Moni islamilainen maa on jo kieltänyt burkat ja nigabit
mm. Marokko, Tunisia ja Turkki. Miksi he ovat sen tehneet? No perusteet ovat selkeät ja yhteneväiset: turvallisuus, yhte1492783Vain puolet SDP:n kannattajista luottaa puoluejohtoon häirintäkohussa
Ja SDP on ilmoittanut, että ainoa rangaistus häirintään syyllistyneille kansanedustajille on puhuttelu - aina sama. Eli1112211Persujen vaalilupaus oli euron bensa
Nyt puhutaan jo kolmen euron bensasta. Kyseessä on Suomen historian törkein vaalipetos.521849Maataloustuet perittävä korkojen kera takaisin
Yrittäjiltä jotka ovat myyneet tuotantoaan ulkomaille. Veronmaksajan kustantama tuki on tarkoitettu elintarvikkeiden hi431658Kyllä mies pakit kestää
Herranen aina nyt poijat! 😃 Jos pelkäätte pakkeja noin paljon niin hamekangasta hakemaan. Oon ite saanut useammatkin n621557Palomestari sytytti tulipalon Kankaanpäässä
Kankaanpää ei yllätä koskaan. Oukarinkadulla syttyi rivitalossa tulipalo toukokuussa 2024. Nyt sen sytyttäjää syytetään311314Kuka on Farmi Suomi Riiko?
Farmi Suomi -realityssä Riiko Sakkinen on saanut paljon tv-aikaa. Riikon ajatuksia ja toisten nokittelua sekä lopulta pe141271Topi osti Askon
Hieno mies. Pelastaa työpaikkoja. Kiitokset myös emännälleen, joka pitää isännän virkeänä. https://www.is.fi/taloussan641210Vastuuhenkilöt
Ketkä ovat Lapuan Kotiasunnot-yhtiön tili- ja vastuuhenkilöt? Nimet kehiin, julkista tietoa.691179Kastaa ja upottaa on eri sanat
Kastaa ja upottaa on eri sanat ja niillä on eri merkitys. Eikä Jeesusta haudattu upottamalla maahan kaivettuun kuoppaan187906