Visual Basic.
() Visual Basic :
( ).
() .
.
.
.
:
1. ( +), , , . .
2. . .
, (Properrties). Label1, , ( Label1 Label). Caption () , .
Caption () Label2 . .
. , ( Text1 Text) txtDollars ( Name (), . txtRuble. .
(View Code).
Private Sub txtDollars_KeyPress(KeyAscii As Integer)
Dim Dollars As Currency
If KeyAscii = 13 Then
Dollars = Val(txtDollars.Text)
txtRuble.Text = Str(Dollars * 30)
End If
End Sub
Private Sub txtRuble_KeyPress(KeyAscii As Integer)
Dim Rubls As Currency
If KeyAscii = 13 Then
Rubls = Val(txtRuble.Text)
txtDollars.Text = Str(Rubls / 30)
End If
End Sub
Val , Str .
.
, .
:
, , , Visual Basic, :
() , ;
, , ;
([ ]) ;
({ }), (|), ;
|
|
(...), , , .
: :
[{+|-}] { 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 }[{ 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 }]...
, . (.. ). ( ).
Properties (), (.. ) , , .
(, ). (, ). , , .
() ( c (Properties)) ( ). . , .
[ _. ] __. =
:
Form1. Left = 200 - Left Form1 ( ) 200;
Form5. Text1. Width = 1215 - Width () ( Text1) Form5 1215;
Label3. FontItalic = True - FontItalic () Label3 True ( )
.
. . . :
Name () - . .
Caption () - .
Top ( ), Left ( ) .
Height (), Width () . 1 twip 1/1440 0,0018 .
BorderStyle ( ) , ( ):
|
|
0-None - ;
1 - Fixed Single - , , ;
2 - Sizeable - ;
3 - Fixed Double - , , .
MaxButton ( ), MinButton ( ) .
BackColor ( ) ForeColor ( ) .
FontName (), FontSise (), FontBold (), FontItalic (), FontStrikethru (), FontUnderline () .
(point) - (1 1/72 0,035 ).
ControlBox ( ) , :
True - ;
False - .
Enabled () :
True - ( );
False - ( , ).
Visible (), WindowsState ( ) (True - , False - ) (0 - , 1 - , 2 - ).
Picture - ().
.
:
Click () DblClick ( ) Form_Click Form_DblClick.
KeyPress ( ) Form_KeyPress, ASCII- .
Load () - (, ) .
Cls . :
.]Cls
Print . :