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
Tein Tuheron
IndividualistiVS2017
8
2121
Vastaukset 8
- ä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
Kuhmolainen opettaja tuomittu vainoamisesta
https://yle.fi/a/74-20248184 ”Kuusikymppinen kuhmolaisnainen piinasi naapureitaan lähes kahdeksan vuoden ajan. Nainen251417- 751279
Olet nainen ollut vaikein rasti
Eniten olet tunteitani myllännyt ja niitä kuluttanut, ja tuottanut. 🤔841221Elämäni biisi -paljastus: Tänä lauantaina 26.9. nämä julkkikset istahtavat sinisille sohville!
Katsotko Elämäni biisiä? Elämäni biisi on monen suomalaisen suosikki. Vieraslista lauantaina 26.9. tarjoilee vieraita m101024Anteeksi J-mies
Anteeksi että myötävaikutin siihen että rakastuit minuun, jota et voi koskaan saada. Viimeksi kun näimme ja katselimme t1291015- 72926
Mihin Asiakirjat ovat voineet kunnasta kadota???
LUE kuinka verorahoja haaskattiin Yle: Ähtärin pandalaskelmat salattiin ja hukattiin - Satakunnan Kansa https://share.87871Ähtäri on taas TV: n ja radion ykkösuutinen
Uusi podcast on julkaistu ja on nyt kuunneltavissa. Mot on tehnyt hyvää työtä! Mikko Savola ja kepu ei ota mitään vast52722Mitä muuta on olemassa kuin lisääntyminen
Jos mies ei pääse lisääntymään niin mikä hänen osansa elämässä on? mitä jää jäljelle? Hän on vain muiden palvelija kok132702Siinä kävi mies nyt niin että tämä ämmä muuttaa ulkomaille
Vuonojen maa kutsuu, joten ei hätää. Et kuule minusta enää. 😂 Lycka till! Ämmä riittää.86687- 146604
- 50589
- 28588
Moottoripyöräonnettomuus
Mopomiitissä tapahtunut onnettomuus ja uutisointi. Ajoradan ylityksen vaarallisuudesta ei mitään uutisointia. Ei myöskää54583Miten sinä voit?
Kysytkö kukaan sitä sinulta? Olen huomannut, että jos kohtaa empaattisen ihmisen ja hän kysyy noin, saattaa padot murtua91577Suomen 4. seksikkäin mies Miika Nousiaisen tilalle - Pitääkö olla huolissaan palaa tv:seen
Suosittu keskusteluohjelma tekee paluun. Tällä kertaa panelistina ei jatka enää Miika Nousiainen, vaan hänen tilalleen t13559- 37548
Jos oikeasti haluat mies
Tiedät mitä on tehtävä. Luotan, että etenet jos haluat. En voi tehdä enää mitään kun ei ole numeroasi.94546- 46543
Uusi ruokapaikka
Tuleeko Haapavedelle uusi lounaspaikka ,haetaan kokkia? Uusi firma kyseessä20539