Forum » Programiranje » 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?
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?
- 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 :)
..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.
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
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."
"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 ()
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.
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
Gh0st ::
in kje je tuki flesh?
nč jasn!
vi ste mal...
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 ..
I don't get this one ??
WTF is going on ..
"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."
"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."
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | Matematični kenguru 01 (strani: 1 2 )Oddelek: Loža | 20140 (13308) | UrškaSonček |
| » | [Excel]Kako izvleči vrednost?Oddelek: Programiranje | 3777 (3500) | Mobidick |
| » | COM in Visual BasicOddelek: Programiranje | 2166 (1627) | pexo |
| » | Leteče luči; AT90S2313, AT89C2051Oddelek: Elektrotehnika in elektronika | 2465 (2286) | Red_Mamba |
| » | Brute forcing :) in VB problemiOddelek: Programiranje | 1331 (1129) | StratOS |