Tein Tuheron

IndividualistiVS2017

No ei tänne juuri kukaan kirjoittele, tekeeköhän kukaan muu mitään Visual Basicilla?
Mulla on Visual Studio 2017 Community jonka saa ilmaseksi tuolta:
https://www.visualstudio.com/downloads/

Function Tuhero(ByVal k As Integer)
Dim sa As String
Dim so As String
Dim ls As Integer
sa = ""
so = k
ls = so.Length
While ls >= 3
sa = so.Substring(ls - 3) & " " & sa
so = so.Substring(0, ls - 3)
ls = ls - 3
End While
sa = so & " " & sa
Return sa
End Function

8

1884

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • äheltäjä

      "Tein Tuheron"
      Tuheroksi kutsutaan jotain sellaista, joka liittyy ihmisen lisääntymiseen ;-D

      • IndividualistiVS2017

        Kyllähän tuollakin tuherolla lisääntyy stringin pituus kun tulee välilyönti aina 3 numeron välein, väkilukuun sillä ei tiettävästi ole vaikutusta.
        Eli tuo on tuhaterotin, jos on iso luku (saa olla helvetin isokin) niin sen voi muuttaa luettavammaksi:
        Teksti=Tuhero(isoluku)
        Jos iso luku on vaikka 29 miljoonaa 742 tuhatta 258 niin tuhero muuttaa sen muotoon 29 752 258 joka on helpompi ymmärtää kun luku 29742258.


      • tussu.t.u.hero
        IndividualistiVS2017 kirjoitti:

        Kyllähän tuollakin tuherolla lisääntyy stringin pituus kun tulee välilyönti aina 3 numeron välein, väkilukuun sillä ei tiettävästi ole vaikutusta.
        Eli tuo on tuhaterotin, jos on iso luku (saa olla helvetin isokin) niin sen voi muuttaa luettavammaksi:
        Teksti=Tuhero(isoluku)
        Jos iso luku on vaikka 29 miljoonaa 742 tuhatta 258 niin tuhero muuttaa sen muotoon 29 752 258 joka on helpompi ymmärtää kun luku 29742258.

        29,742,258.


      • IndividualistiVS2017
        tussu.t.u.hero kirjoitti:

        29,742,258.

        Korjattu versio. Voi itse määrätä mikä väliin tulee
        Function Tuhero(ByVal k As Integer, ByVal terotin As String)
        Dim sa As String
        Dim so As String
        Dim ls As Integer
        sa = ""
        so = k
        ls = so.Length
        While ls >= 3
        sa = so.Substring(ls - 3) & terotin & sa
        so = so.Substring(0, ls - 3)
        ls = ls - 3
        End While
        sa = so & " " & sa
        Return sa
        End Function

        Teksti=Tuhero(isoluku,"persläpi")
        😁


      • usa.tussu
        tussu.t.u.hero kirjoitti:

        29,742,258.

        "29,742,258"

        Suomessa ei tuolla tavalla pil*uteta.


    • Anonyymi

      Jatkoa Tuherolle...
      Tein JsonninPerseri-nimisen function, siihen tuli kirjoitusvirhe tehdessä jota en viitsnyt korjata, takoitus oli tehdä JsonninParseri 😁
      No ei nimi functiota pahenna ellei functio nimeään.

      Lyhyt ja ytimekäs JsonninPerseri

      Function JsonninPerseri(ByVal tx As String)
      Dim pal As String = ""
      Dim tul As String
      Dim hajo() As String
      Dim reader As JsonTextReader = New JsonTextReader(New StringReader(tx))
      While reader.Read
      If reader.Value <> Nothing Then
      tul = reader.TokenType & vbTab & reader.Value
      hajo = tul.Split(vbTab)
      pal &= hajo(1) & vbCrLf
      End If
      End While
      Return pal
      End Function


      Jos tätä joku lukee niin voisi kertoa hassuista tai vakio-muuttujanimistä.

      Aloitan
      boolean muuttujanimiä on usein joo, jee, onei,onjo ja savonkielinen tosj. Tuo tosj on tarttunut savoissa (Etelä- ja Pohjois-) asuttujen ja/tai leivän tai jopa elävän lihan perässä juostujen vuosien aikana joita on reilusti yli 20.

      Rectangle on reu ja Rectanglef fetu.
      GraphicsPath on tietenkin patu
      Pen on pena
      SolidBrush on suti

      Jos tätä ei kukaan lue eikä tähän vastaa niin siitä huolimatta hyvää kesää kaikille 👍

      • Anonyymi

        Siis Rectangle on retu ja kerran oli SolidBrush PerseenSuti 😆


      • Anonyymi
        Anonyymi kirjoitti:

        Siis Rectangle on retu ja kerran oli SolidBrush PerseenSuti 😆

        Uusi
        Public Sub Narautus()

        Enpäs kerro mitä se tekee 😄


    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Minkä ikäistä ikävöit?

      Minkä ikäinen hän on ja mitä hän sinulle merkitsee/merkitsi?
      Ikävä
      87
      1767
    2. Teemu Keskisarja (ps) loisti- ja hurmasi MTV:n tentissä.

      https://www.mtvuutiset.fi/artikkeli/kommentti-keskisarja-sekoitti-pakan-suomiareenan-puheenjohtajatentissa/9180380 Kuten
      Maailman menoa
      397
      1756
    3. Koko familia taas lehdissä jauhamassa vanhoja asioitaan

      Nyt menee familialla lujaa. Martina ja äiti MeNaisissa (taas) ja Esko IS:ssa. Kuinkakohan monta kymmentä kertaa nuo sam
      Kotimaiset julkkisjuorut
      379
      1733
    4. Olet hirvein ihminen kenet olen tavannut.

      Olet järkyttävä.
      Ikävä
      96
      1669
    5. Taas syytöntä ja rehellisintä rangaistiin

      Ja vielä 13 000 euroa kaupungin oikeudenkäyntikuluja maksuun. Lisää tällaisia päätöksiä.😀
      Haapavesi
      51
      1344
    6. Aika pieni se on

      Joku sanoo että matala on suihku. Säätöä tarviaa nyt ruisku, että se ruiskuaa korkeudelle valopylvään Näin saamme näht
      Haapavesi
      51
      1300
    7. Heh, Irvi-Riikka vie duunareilta nyt arkipyhätkin

      Voihan saksilla näköjään leikellä kalenteriakin. Irvi-Riikalla ne osuivat arkipyhiin. Että sellainen duunaripuolue 😆
      Maailman menoa
      291
      1183
    8. Sinun ja kaipaamasi törmääminen

      Missä sinä haluaisit sen satunnaisen kohtaamisen mieluiten tapahtuvan?
      Ikävä
      97
      1036
    9. vinkki miehille

      Jos on ollut erimielisyyksiä ja sun käytös on satuttanut naisya, et voi palata takaisin kevyesti niin kuin mitään ei oli
      Ikävä
      168
      998
    10. Kiitos siitä

      Kiitos siitä hahmosta jonka loit, ja jonka sain tuntea, ja kutsua ystäväksi. Se oli hyvä tyyppi ja siihen oli helppo rak
      Ikävä
      43
      975
    Aihe