. , , ,

,,,

-

1-

0212

:

:

:

..

:

.

..

____________1999 .

_________

1999 .

.......................................................................3

1. ..........4

2. ...................................................5

3. ............6

4. ..................................7

5. ..................................................8

6. ..................................................9

7.

...........................................................14

8. ....................................................15

9.

......15

10. ...............................16

................................................................17

..............................................................18


.

. - , , .. . - , , FoxPro . Visual Basic , .. . .


.

.

.

:

+1

= ------------

2

- ;

- , ;

1 - , ;

2 - , .

8 .


.

.

(. Leverage - ) TOC o "1-3" , .

+1

= ------------

2

- ; - , ; 1 - , ; 2 - , .

, . - , .

: 10%- 10.000.000 , 2.000.000 , 40% 20.000.000 ,

10+2

= ---------- = 0,6

20

2.200.000 : - 1.000.000 , - 800.000 , - 400.000 . 1.100.000 , , , . . .



.

kol - (Integer).

summa - (Single).

pr_ak - (Currency).

ob_ak - (Currency).

obl - (Currency).

lev - (Currency).

t1,t2 - (String).



.

Begin Form FIN_LEV

Caption = " "

ClientHeight = 4560

ClientLeft = 1410

ClientTop = 1995

ClientWidth = 7305

Height = 4965

Icon = (Icon)

Left = 1350

LinkTopic = "Form1"

ScaleHeight = 304

ScaleMode = 3 'Pixel

ScaleWidth = 487

Top = 1650

Width = 7425

Begin CommandButton EXT

Caption = ""

Height = 495

Left = 5040

TabIndex = 7

Top = 3960

Width = 1455

End

Begin CommandButton calc

Caption = ""

Height = 495

Left = 720

TabIndex = 6

Top = 3960

Width = 1455

End

Begin TextBox V_OB_AK

Height = 375

Left = 3240

TabIndex = 5

Text = "0"

Top = 2400

Width = 2295

End

Begin TextBox V_PR_AK

Height = 375

Left = 3240

TabIndex = 4

Text = "0"

Top = 1560

Width = 2295

End

Begin TextBox V_obl

Height = 375

Left = 3240

TabIndex = 1

Text = "0"

Top = 720

Width = 2295

End

Begin Label srd_lev

BorderStyle = 1 'Fixed Single

Caption = " "

Height = 255

Left = 120

TabIndex = 10

Top = 3480

Width = 6975

End

Begin Label Titul

Caption = " 1"

FontBold = -1 'True

FontItalic = 0 'False

FontName = "MS Sans Serif"

FontSize = 13.5

FontStrikethru = 0 'False

FontUnderline = 0 'False

Height = 375

Left = 2520

TabIndex = 9

Top = 120

Width = 2295

End

Begin Label vivod

BorderStyle = 1 'Fixed Single

Caption = " "

Height = 255

Left = 120

TabIndex = 8

Top = 3000

Width = 6975

End

Begin Label T_OB_AK

Caption = " , "

Height = 495

Left = 120

TabIndex = 3

Top = 2400

Width = 2895

End

Begin Label T_PR_AK

Caption = " , "

Height = 495

Left = 120

TabIndex = 2

Top = 1560

Width = 2895

End

Begin Label T_obl

Caption = " , "

Height = 255

Left = 120

TabIndex = 0

Top = 840

Width = 2895

End

End


.

Module fin_lev.bas

Global kol As Integer

Global summa As Single

End Module

Sub calc_Click ()

If Val(v_obl.Text) < 0 Then

MsgBox " "

Exit Sub

End If

If Val(v_pr_ak.Text) < 0 Then

MsgBox " "

Exit Sub

End If

If Val(v_ob_ak.Text) <= 0 Then

MsgBox " "

Exit Sub

End If

obl = Val(v_obl.Text)

pr_ak = Val(v_pr_ak.Text)

ob_ak = Val(v_ob_ak.Text)

lev = (obl + pr_ak) / ob_ak

kol = kol + 1

t1 = " "

vivod.Caption = t1 + Str(kol) + " " + Mid$(Str(lev), 1, 10)

summa = summa + lev

t1 = " "

t2 = " "

srd_lev.Caption = t1 + Str(kol) + t2 + Str(summa / kol)

titul.Caption = " #" + Str(kol + 1)

v_pr_ak.Text = "0"

v_obl.Text = "0"

v_ob_ak.Text = "0"

End Sub

Sub EXT_Click ()

End

End Sub

Sub Form_Load ()

kol = 0

summa = 0

End Sub

Sub V_OB_AK_Change ()

If Val(v_ob_ak.Text) < 0 Then

MsgBox " "

v_ob_ak.Text = "0"

End If

End Sub

Sub V_obl_Change ()

If Val(v_obl.Text) < 0 Then

MsgBox " "

v_obl.Text = "0"

End If

End Sub

Sub V_PR_AK_Change ()

If Val(v_pr_ak.Text) < 0 Then

MsgBox " "

v_pr_ak.Text = "0"

End If

End Sub


.

8 , .

(.)

(.)

(.)

1

2

3

4

5

6

7

8

10

14

18

14

9

0

0.8

0.3

2

8

4

0

12

7

0.4

0.5

20

31

22

18

60

3.5

2.1

1.3

.

1

2

3

4

5

6

7

8

0.600

0.710

1.000

0.778

0.350

2.000

0.571

0.615

0.600

0.710

1.000

0.778

0.350

2.000

0.571

0.615

0.828

0.828


.

. ( ) - , . , .

, . . .

.

, ( ) . 10 .


.

, , . - , , .

, 10-15 [1].

. ; , , ; . .


.

1. .

2. Visual Basic 5.0 - .

3. .. Quick Basic - 1994

4. Microsoft Visual Basic /

5. .. .



[1] - , , , .

1- 0212 : :

 

 

 

! , , , .
. , :