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

677

Äänestä

    Vastaukset 4

    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. Mikä sua mies vaivaa?

      Siis oikeasti.
      Ikävä
      103
      1680

    2. Kuinka lähellä hän asuu?

      🤗
      Ikävä
      72
      1274

    3. Mitä vuosimallia kaivattusi on?

      🤣🤣🤣🤣🤣🤣
      Ikävä
      90
      1242

    4. Jasmin vauhdissa

      Kyllä pitää Jassulla kiirettä, kun yhtenään menoa mun äidin, isäpuolen ja Markon kanssa Ossianin ollessa tietysti sulois
      Kotimaiset julkkisjuorut
      280
      1043

    5. Onko kaivattusi

      seksuaalisesti vetovoimainen?
      Ikävä
      47
      961

    6. Haluatko enää mitään?

      😜
      Ikävä
      95
      939

    7. Miksi et halua kaivattusi

      kanssa suhteeseen? Onko jokin syy vaikka rakastat häntä?
      Ikävä
      83
      835

    8. Kuinka hyvin te sopisitte

      Toisillenne vai sopisivatko ollenkaan? Mitä eroja
      Ikävä
      50
      802

    9. Vinkkiä miehelle

      Huomenna olen kuudesta eteenpäin kotona, yksin… Pääsetkö/uskallatko tutustua?
      Ikävä
      55
      763

    10. Miten hän käyttäytyy kun näette jossain?

      😁
      Ikävä
      47
      729
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt