Mahdoton tehtävä mulle

en vaan osaa :(

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?

4

655

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kunnissa - siis myös kaupungeissa - viihtyvät ovat kommunisteja

      Nehän ovat osa yhteiskunnan tuottamia instansseja, joista on vain haittaa veronmaksajille ja yrittäjlle, kuten ollaan ve
      Kommunismi
      12
      2960
    2. Järkevä ehdotus: reilun 8 miljardin euron veronkorotukset

      Nykyinen hallitus on päästänyt valtion tulopuolen rappeutumaan, vaikka varallisuutta on Suomessa enemmän kuin koskaan. U
      Maailman menoa
      46
      1951
    3. Iski taas katumus kun en jutellut sun kanssa

      Silloin kun halusit. Mutta en enää voi sille mitään, en saa muutettua sitä hetkeä..
      Ikävä
      141
      1733
    4. SDP todellisuudessa pahin pettäjä koskaan - se syyllistyi valtiopetokseen 1918

      kun aloittivat kapinan maan laillista valtiojärjestystä vastaan. Punaiset saivat tukea Neuvosto-Venäjän bolsevikeilta,
      Maailman menoa
      101
      1733
    5. Miksi vasemmisto ei vastusta ulkomaisen halpatyövoiman maahantuontia

      joka heikentää suomalaisten duunarien työmarkkina-asemaa ja rasittaa Suomen julkista taloutta? Vasemmistolla ideologin
      Maailman menoa
      81
      1459
    6. Uusi mahdollisuus

      Mitä tekisit toisin, jos saisit siihen mahdollisuuden?
      Ikävä
      71
      1001
    7. Martina Aitolehti murtui Erikoisjoukoissa Matias Petäistön käsittelyssä - Tästä oli kyse

      Yksi Erikoisjoukot-kauden julkkiskisaajista on yrittäjä ja hyvinvointivalmentaja Martina Aitolehti. Aitolehti on pärjän
      Tv-sarjat
      11
      918
    8. Miksi kaikki avioeronneet miehet eivät kunnioita naisia?

      Niin. Miksi avioeronneet miehet kohtelevat huonosti naisia, jotka lähestyvät heitä? Tämä on kokemuksen rintaääntä. Tämä
      Sinkut
      188
      914
    9. Tiedätkö hänen pituuden??

      Et tiedä!!
      Ikävä
      58
      830
    10. Poliisioperaatio

      Pääsiäisenä...... ja sit kahvila suljettu???
      Somero
      18
      784
    Aihe