هده المدونة اعترف لكم انها ليست ذات قيمة انا متاكد انكم لن تستفيدوا منها شيئا فلا تضيعوا وقتكم معي ماعداان كنتم مثلي في حالة تقاعد تقاعس الزمن/الوقت بالنسبة لكم كالسكر كالدهون الموصي باحراقها
السبت، 18 مايو 2013
الجمعة، 17 مايو 2013
الاثنين، 6 مايو 2013
SOMME
Module Module1
Function somme(ByVal a As Integer, ByVal b As Integer, Optional ByVal c As Integer = 0) As Integer
Return a + b + c
End Function
Sub Main()
Console.WriteLine("somme est" & somme(1, 5, 1))
Console.Read()
End Sub
End Module
السبت، 4 مايو 2013
TAB
Module Module1
Sub Main()
Dim tab(3) As Integer
For a As Integer = 0 To 3
tab(a) = Console.ReadLine
Next
For a As Integer = 0 To 4
Console.Write("" & tab(a))
Next
Console.Read()
End Sub
End Module
الجمعة، 3 مايو 2013
for for
Module Module1
Sub Main()
Dim A, B As Integer
For A = 0 To 10
For B = 0 To 10
Console.Write("a=")
Next
Console.WriteLine()
Next
Console.Read()
End Sub
End Module
WHHILE
le Module1
Sub Main()
Dim a, b As Integer
a = 0
a = 2
While a < 10
Console.WriteLine("a=" & a)
a = a + 1
End While
Console.Read()
End Sub
End Module
IF
Module Module1
Sub Main()
Dim a, b As Integer
a = 7
b = 5
If a = 7 Then
If b = 5 Then
Console.Write("correcte")
Else
Console.Write("faux")
End If
Else
Console.Write("faux2")
End If
Console.Read()
End Sub
End Module
WHILE
Module Module1
Sub Main()
Dim a, b As Integer
a = 0
a = 2
While a < 5
Console.WriteLine("a=" & a)
a = a + 1
End While
Console.Read()
End Sub
End Module
الاشتراك في:
الرسائل (Atom)