This repository has been archived by the owner on Sep 30, 2022. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
_Math.au3
52 lines (48 loc) · 2.45 KB
/
_Math.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#cs Function List
_Math_SquareField - pole kwadratu
_Math_GetPercent - procent jakiej jednej liczby jest druga
_Math_ByteTransform - Zamiana bitów na większe jednostki
_Math_AddPercent - Dodawanie procentu
#ce Function List
; #INDEX# =======================================================================================================================
; Title .........: Pole kwadratu
; Description ...: Pole kwadratu
; Author(s) .....: Krzysztof Żyłka
; Error .........: 1 - bok nie moze byc mniejszy lub równy 0
; ===============================================================================================================================
Func _Math_SquareField($side)
If $side <= 0 Then Return SetError(1)
Return $side * $side
EndFunc ;==>_Math_SquareField
; #INDEX# =======================================================================================================================
; Title .........: Procent
; Description ...: Zwraca procent której jednej liczby jest liczba druga
; Author(s) .....: Krzysztof Żyłka
; ===============================================================================================================================
Func _Math_GetPercent($int1, $int2)
Return ($int2 * 100) / $int1
EndFunc ;==>_Math_GetPercent
; #INDEX# =======================================================================================================================
; Title .........: Zamiana bitów na większe jednostki
; Description ...: Zamiana bitów na większe jednostki
; Author(s) .....: Krzysztof Żyłka
; ===============================================================================================================================
Func _Math_ByteTransform($bytes)
If Not IsInt($bytes) Then Return False
Local $count = 0, $str = ""
Local $arr[] = ['B', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB']
While $bytes > 1023
$count += 1
$bytes /= 1024
WEnd
If $count < UBound($arr) Then $str = " " & $arr[$count]
Return $bytes & $str
EndFunc ;==>_Math_ByteTransform
; #INDEX# =======================================================================================================================
; Title .........: Dodawanie procentu
; Description ...: Dodaje do liczby dany procent
; Author(s) .....: Krzysztof Żyłka
; ===============================================================================================================================
Func _Math_AddPercent($int, $percent)
Return $int*(1+($percent/100))
EndFunc ;==>_Math_AddPercent