Visual basic

[Tauri]

Hi Lista

2006. január 1., 13:08:36, írtad:

>> Most vagy nem szoktak vb 6.0-ban shift-elni,
> alapbol nincs benne

>>vagy nem értek a guglihoz. Kérlek segítsetek!
> ...ebben lehet valami

> visual basic left shift

> erre azert van par talalat... :-)

>> electroboy

> Public Function vbShiftLeft(ByVal Value As Long, _
>                             Count As Integer) As Long
> Dim i As Integer

>   vbShiftLeft = Value

>   For i = 1 To Count
>     vbShiftLeft = vbShiftLeft * 2
>   Next

> End Function

> Public Function vbShiftRight(ByVal Value As Long, _
>                              Count As Integer) As Long
> Dim i As Integer

>   vbShiftRight = Value

>   For i = 1 To Count
>     vbShiftRight = vbShiftRight \ 2
>   Next

> End Function

>

ez azert durva (nekem) erre functiont irni

*2^n




-- 
Ral tora ke 2006