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

618

    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. Hallitus pyrkii rajoittamaan kaupan omien halpamerkkien myyntiä

      Helsingin Sanomien mukaan hallitus valmistelee lakihanketta, joka suitsii kaupan valtaa ja rajoittaa omien halpamerkkien
      Yhteiskunta
      159
      2950
    2. Tapettu

      On joku kangaskadulla perjantaina
      Sotkamo
      50
      2238
    3. Kysy jotain kaivatultasi

      Tämä ketju on sitä varten.
      Ikävä
      235
      2203
    4. Huomenna sähkö maksaa jo yli 60 snt/kWh. Milloin ALV putoaa?

      Kysynkin persuilta, että milloin aiotte pudottaa sähkön arvonlisäveron kuten Marinin hallitus teki sähkön hinnan noustes
      Maailman menoa
      247
      2006
    5. Vain persut vastustivat hiilivoimaloiden alasajoa

      Persut vastusti jyrkästi hiilen kieltolakia ja on myöhemmin vaatinut hiilivoimaloiden pitämistä käytössä. He perusteliva
      Maailman menoa
      26
      1720
    6. Työvoimatoimisto

      Nyt kysyisin miksi pitää käydä työvoimatoimistossa paikanpäällä, kun he eivät muuta tee kuin laittavat koneelle uudet ve
      Työttömyys
      45
      1481
    7. Muistattekos kuinka kokoomus ja persut vinkuivat sähkön hinnasta?

      Oppositiossa vuonna 2022, kun sähkön hinta uhkasi nousta 20 senttiin kilowattitunnilta? Nyt ovat hiiren hiljaa, kun pitä
      Maailman menoa
      83
      1470
    8. Mitä ajattelet hänestä

      Millaisena pidät kaivattuasi?
      Ikävä
      132
      1249
    9. Onko jollekin vielä epäselvää Raamatun kanta homoseksuaaliseen käytökseen?

      😺 On oma mielipiteesi mikä tahansa on hyvä muistaa, mikä on Jumalan mielipide. Edelliset ketjut ovat tulleet täyteen jo
      Luterilaisuus
      317
      1070
    10. Mietin sua liikaa

      Mietin nytkin sitä, että millaista se olisi tulla kotiin, kun sinä olisit täällä vastassa. Tai niin päin, että sinä tuli
      Ikävä
      65
      905
    Aihe