» »

hello world

hello world

Mercier ::

Sub HowDidHeDoThat()
Dim x As Byte
Dim x1 As String
Dim x2 As String
For x = 0 To 5
x1 = x1 & Chr(x * (x * (x * (x * (-0.75 * x + 7.2917) - 22.5) + 16.708) + 28.25) + 72)
Next x
For x = 0 To 6
x2 = x2 & Chr(x * (x * (x * (x * (x * (0.425 * x - 6.8667) + 40.833) - 109.58) + 122.24) - 23.05) + 87)
Next x
MsgBox x1 & x2
End Sub


No... How did he do that? 8-O
  • premaknilo: Alec999 ()

pro2c ::

...in kaj je tukaj nerazumljivega?

..ce se ti zdi cudno kako je dobil crke iz stevilk si poglej ukaz: npr. "msgbox chr$(65)" - in dobis crko "A"

..pac malo je zongliral z racuni :)
--- www.DrinkProg.com ---

Zgodovina sprememb…

  • spremenil: pro2c ()

Mercier ::

..ce se ti zdi cudno kako je dobil crke iz stevilk si poglej ukaz: npr. "msgbox chr$(65)" - in dobis crko "A"
Če bi takih stvari ne vedel, bi postavil temo v Programiranje...
..pac malo je zongliral z racuni :)
...tako sem pa jo v Znanost in tehnologijo.

Zgodovina sprememb…

  • spremenil: Mercier ()

Baja ::

A se da komu naret ti za hello Slovenia. Pa prosu bi za kakšen komentar postopka, če se bo kdo zraven spravil.

Mercier ::

Avtor tega je po mojem viru neznan.

Če pa kdo zna...

StratOS ::

On je pac zelodober pofitu f(x), zaradi dolzine "Slovenia" sem razdelil drug string na dva dela tudi chr$(32) sem vklopu zraven.
Ni se mi lubilo fitat celoten string, ker bi nucal min 15 stopnje polinom. No, na hitro

Sub Main()

x = "hello Slovenia"
For n = 1 To Len(x)
Debug.Print Asc(Mid$(x, n, 1))
Next n

For n = 1 To 5 '"hello"
o = 1.125 * n ^ 4 - 14.083 * n ^ 3 + 61.375 * n ^ 2 - 105.42 * n + 161
x1 = x1 & Chr(o)
Next n

For n = 1 To 4' " Slo"
x2 = x2 & Chr$(0.6667 * n ^ 3 - 17 * n ^ 2 + 97.333 * n - 49)
Next n

For n = 1 To 5 '"venia"
x2 = x2 & Chr$(2.125 * n ^ 4 - 27.917 * n ^ 3 + 127.38 * n ^ 2 - 235.58 * n + 252)
Next n
MsgBox x1 & x2
End Sub
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

Zgodovina sprememb…

  • spremenila: StratOS ()

Mercier ::

Svaka čast!

Thomas ::

enija ~ x*(x*(x*(x*(x*(x*(-77.62599*x+4.217167)+22.7568)-1.843106)-1.319224)-91.23571)-9.166245)-1.164803


Tole je pa slovenska končnica za Slovenija ...

Da se katerokoli besedo, samo čez 6 dolžine je zelo težko prit v enem kosu.

Dobra zaščita za cel program tole, ali pa za sliko ali dokument.

Kar nej eden sheka, če more.

:)
Man muss immer generalisieren - Carl Jacobi

Mercier ::

Kul, pa je še oblika.

Gh0st ::

in kje je tuki flesh?
nč jasn!
vi ste mal...:\ :)
you might start believe in Gh0st stories. you're in one. :)

StratOS ::

??
I don't get this one ??
WTF is going on ..:P
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

Thomas ::

Ghostu se ne fleša, kukr razumem. >:D :))
Man muss immer generalisieren - Carl Jacobi


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Matematični kenguru 01 (strani: 1 2 )

Oddelek: Loža
9520170 (13338) UrškaSonček
»

[Excel]Kako izvleči vrednost?

Oddelek: Programiranje
223783 (3506) Mobidick
»

COM in Visual Basic

Oddelek: Programiranje
222171 (1632) pexo
»

Leteče luči; AT90S2313, AT89C2051

Oddelek: Elektrotehnika in elektronika
122473 (2294) Red_Mamba
»

Brute forcing :) in VB problemi

Oddelek: Programiranje
101334 (1132) StratOS

Več podobnih tem