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

591

    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ä.

    Luetuimmat keskustelut

    1. Persujen mukaan rasismi on huumoria

      Vaan kun koomikko kutsui Halla-ahoa fasistiksi, niin piti haastaa oikeuteen. Mihin se huumorinitaju yhtäkkiä hävisi? ⠀
      Maailman menoa
      219
      6232
    2. Rasismia kaikkialla näkevät ovat Suomen tyhmimpiä ihmisiä

      ja monillahan kuluu myös mielialalääkkeitä, eli päässä on ongelmia. Mutta he eivät tajua kuinka paljon ja ihan todellis
      Maailman menoa
      180
      5791
    3. Ei kahta sanaa etteikö Petteri Orpo hyväksy rasismia

      Koska jatkaa hallituksessa rasistisen perussuomalaisiksi itseään kutsuvan puolueen kanssa. Se on Petteri Orpon arvomaai
      Maailman menoa
      15
      5424
    4. BOIKOTOIN - Ei mitään Suomi.fi postilaatikoita käyttöön

      Ainakaan minulle! Vai että pitäisi alkaa siellä käyädä katselemassa tammikuusta 2026 siis periaatteessa päivittäin että
      Maailman menoa
      251
      4310
    5. Mitkäs nuorisoporukat ovat toisia nuoria ryöstelleet (selvää rassismia)

      No poliisi kertoo, että maahanmuuttajataustaisia ovat, ja isot porukat sillä yhden suomalaisen uhrin kimpussa on ollut j
      Maailman menoa
      71
      4059
    6. 250
      3775
    7. Hallitus on kaadettava ja Orpon on erottava

      Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main
      Maailman menoa
      139
      3452
    8. Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta

      Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome
      Maailman menoa
      128
      3269
    9. HS 12/25 kysely: persut romahti, demarit raketoi

      Kyyti on kylmää persuleirissä, saattaa vetää siellä silmätkin viirulleen. Sen sijaan SDP:n puoluetoimistolla voidaan pok
      Maailman menoa
      21
      2976
    10. Töppö-persut ovat todella tyhmiä

      sen kertoo tämäkin avaus: "Persujen suosio vain laskee" Töppö-persu vaan unohtaa, että ennen tätä galluppia persujen kan
      Maailman menoa
      2
      2439
    Aihe