AAA

1
????? ???? ????? ?????? ????????? ???? ???????
??????http//motasimsoft.maktoobblog.com???????
?????? ??????/?? ????????????
249909932784(????? ??????? ??? ?????)??????
motasim2009_at_maktoob.com
????? ?????? ????????? ???? ??????? ??????
2
??????? ???? ??????? ????
3
???? ????? ??????

• ??? ????? ????????? ?? ??? ?????? ???? ????????
  ????? Dim

3-3
??? ????? ????????? ???????? ???? ???????????
????.
1
????? ????? ?????????
?????? ??????????????????
Dim var1 As Type
????????
Dim name As String
4

• ??? ????? ??????? ???????? ?????( Const )

2
????? ????? ???????
?????? ???????
Const Const1 Value
???????????????
??? ??????? ????? ???? ?????? ?????? ????????
??????? ???? ????????? Const HighScore
100
5
3
????? ??????? ?? ????????? ????????

• ????? ???????? ?? ????? ?????? ???? ???? ???
  ??? ????????? ???????? ???? ????????
• ?????? ??? ????? ????????? ???????? ????
  ????????? ?????? ???????? ( ??????? ).

Private Sub sub_name ( ) ?End Sub
??????? ?????????????????????
Private Sub Enter _ Cmd ( ) Dim
name As String Const HighScore
100 .. .. End Sub
????????
6
3-4
??? ??????? ???????? ?? ??? ?????? ????

• ??????
• ?????? ????? ??? ??????? ??? ???????? ??? ?????
  
• 1 ????? ???????.
• 2- ???? ???????.
• 3- ??? ??? ??????? ?????? ??????????.
• ????? ????? ????? ???? ????? ?? ????? ? ????
  ?????? ??????? ???? ??? ????? ?? ????? ??? ???
  ???????

1
????? ??????????????????
Var1 Value
?????? ??????????
7
?????? ?? ??????? ?????? ?? ??? ?????? ??? ????
???? ??????? ????? ??? ?????? ???? ??? ??? ???
????
Dim name As String , grade as Single ???? ???
name ????? ???????Grade 48.5

???????
3
???????? ????????????????????????? IF
?- ???? ( IF THEN )
?????? ????????????????????
IF condition THEN statements
???? IF grade gt 50 THEN text1
???????
8
? - ???? ( (IF THEN END IF
?????? ????????????????
IF condition THEN .. ?????? ??
???????Statements . END
IF
IF grade gt 50 THEN ???? Text1 ?????
Text2 ?END IF
?????????
9
? ?????? ( IF THEN ELSE )
IF condition THEN . Statements1 . ELSE . Stat
ements2 . END IF
?????? ??????????????????
10
IF grade gt 50 THEN ???? Text1 ?ELSE
??????? Text1 ?END IF
??????????????
?????????? ?????
?????? ??????? ?? ?- IF THEN ELSEIF
???????? ???? ??????? ??????