ÇáãÕÝæÝÇÊ æÇáãÊÛíÑÇÊ(1)


ÇáãÕÝæÝÉ åí Þíã ãÎÒäÉ Ýí ÇáÈÑäÇãÌ íÊã ÇáÅÖÇÝÉ ÅáíåÇ æÚÑÖåÇ.

ÇáÊÕÑíÍ Úä ÇáãÊÛíÑ íÊã ßãÇíáí:

1 - ÅãÇ Ýí ÇáÍÏË

Dim a, b As Integer

a æ b ãÊÍæáÇÊ ÚÏÏíÉ

2- Ýí ÞÓã ÇáÊÕÑíÍÇÊ General:

'ÊÚÑíÝ ãÊÍæá ÚÏÏí
Dim no1 As Integer
'ÊÚÑíÝ ãÕÝæÝÉ ÚÏÏíÉ ÓÚÊåÇ 10 ÚäÇÕÑ
Dim list(10) As Integer
'ÊÚÑíÝ ãÕÝæÝÉ ãÄáÝÉ ãä 10 ÚäÇÕÑ ÚÑÖ æ10 ÅÑÊÝÇÚ Ãí 100 ÚäÕÑ
Dim matrix(10, 10) As Integer
'ÊÚÑíÝ ãÊÛíÑ äÕí
Dim name1 As String
'ÊÚÑíÝ ãÊÛíÑ äÕí ÈØæá 50 ÍÑÝ
Dim name1 As String * 50
'ÊÚÑíÝ ãÕÝæÝÉ äÕíÉ ÊÊßæä ãä 10 ÚäÇÕÑ
Dim list1(10) As String
'ÊÚÑíÝ ãÕÝæÝÉ äÕíÉ ÊÊÃáÝ ãä 10 ÚäÇÕÑ ÈØæá 50 ÍÑÝ
Dim list1(10) As String * 50
'ÊÚÑíÝ ãÊÛíÑ ááÞíã äÚã æáÇ
Dim a As Boolean

ÇáÊÕÑíÍ Ýí æÍÏÉ äãØíÉ Module:



'ÊÚÑíÝ ãÊÛíÑ ÚÏÏí áßÇÝÉ äæÇÝÐ ÇáÈÑäÇãÌ
Global no1 As Integer

'ÊÚÑíÝ ÚÏÉ ãÊÛíÑÇÊ Ýí ãÌãæÚÉ æÇÍÏÉ
Type user
user_no As String * 70
user_name As String * 30
user_mark As Integer
End Type



ÇáÃä äÃÊí Åáì ßíÝíÉ ÅÓÊÎÏÇã ÇáãÊÛíÑÇÊ

ØÑíÞÉ ÇáÅÖÇÝÉ Åáì ÇáãÊÛíÑ åí

ãËáÇð áæ ÕÑÍäÇ Úä ãÊÍæá ÚÏÏí a äßÊÈ ßãÇ íáí:

a=90

ÃæÚä ØÑíÞ ÊÚáíãÉ ÇáÅÓäÇÏ Let æÊßÊÈ ßãÇ íáí

Let a=90

Ãæ íãßä ÅÓäÇÏ ÞíãÉ ÚãáíÉ ÑíÇÖíÉ Èíä ÚÏÏíä ãËá

Let a=5*6

áßí ÊÙåÑ ÞíãÉ ÇáãÊÍæá Úáì ÇáÝæÑã ÃßÊÈ ÇáÊÚáíãÉ Print Ëã ÅÓã ÇáãÊÍæá

Print a

æíãßäß ÚÑÖ ÞíãÉ ÇáãÊÍæá Ýí ÕäÏæÞ äÕ Textbox

Text1=a

æÇáÃä ÓæÝ äÚãá ãËÇá ÈÓíØ ááãÊÍæáÇÊ ÃáÉ ÍÇÓÈÉ:

ÃÖÝ Åáì ÇáÝæÑã ÃÑÈÚ ÃÒÑÇÑ ÃãÑ ÌãÚ æØÑÍ æÖÑÈ æÞÓãÉ

æÃÖÝ ËáÇË ÇÏÇÉ ÇáäÕ Text æáÊßä ÃÓãÇÆåÇ Text1 æ Text2 æText3

ÖÚ ÇáÊÕÑíÍ ÇáÊÇáí Ýí ÞÓã General

Dim a, b As Integer

Ëã Ýí ÇáÃÒÑÇÑ ÖÚ ÇáÃßæÇÏ

On Error Resume Next
a = Text1.Text
b = Text2.Text
Text3.Text = a + b

ÇáßæÏ ÇáÓÇÈÞ ááÌãÚ ÝÞØ ÃÈÏá ÇáÅÔÇÑÉ + ÈÇáÅÔÇÑÊ ÇáÅÎÑì