Hello World in Various .NET Syntax

يا جماعة والله المهم ان كل واحد يخلص في لغته و يديها وقته و جهده و تعبه و هيا كمان حتعطيه أكتر، أعتقد ان ال DotNet مسخت اللغات كلها الي لغة واحدة ولكن كل بلهجته فمن كان يبرمج vb يبرمج الان VB.NET و من كان يبرمج C او ++C أو ++VC او حتي JAVA يبرمج الان ب VC++.NET أو #C او #J أو........

ي النهاية الكود المصدري تقريبا واحد و ينفذ بنفس السرعة و الكفاءة ، و بعدين كل واحد يبرمج في البلد اللي تريحه :D ، الموضوع لا يعدوا كونه اختلافات لا تستحق الجدل حولها و كل هام و انتم بخييييييييييييييييييييييير جميعا اعضاء و مشرفين و خبراء و ادارة

اللهم بلغنا رمضان القادم و لا تحرمنا ثوابه و اغفر لي و لأبي و أمي و المؤمنين جميعا

أيوالله كلنا في الآخر MSIL ,

و الحمد لله انتهت علي خير :D , وكل واحد سلم سلاحه :lol:

و كل سنة وانتوا طيبين ,,,

شوف بعد كام سنه من نزول VB ... سيتم أخيرا وضع Operator Overloading بها ( 2005 ) يا للتأخر ! وأعتقد أنهم وضعوا هذه الامكانيه بها لثورة مبرمجين السي شارب ... لأننا بعمل Operator Overloading في الكود لم يكن كودنا حين ذاك CLS-Compliant وكان ينبغي علينا عمل دوال لها أسماء عاديه تقوم بعمليات الـ Operators المختلفه مثل الـ + والـ - وهذه الأشياء حتى نضمن بان الكلاس المكتوب بلغتنا ممكن يستخدمه مبرمجين الـ VB ... وكم كنا تعساء بذلك ... يعني اضافة الـ Operator Overloading للـ VB هى في الحقيقه أصلا ميزه واضافه وراحه لنا كمبرمجين سي شارب لأننا من الآن وصاعدا سنستطيع استخدام الـ Operator Overloading بدون أن نقلق بشأن أن كلاساتنا لن يعمل جزء منها اذا استخدمت في اللغات الضعيفه التي لا تدعم Operator Overloading وذلك لأن واحده من تلك اللغات الضعيفه التي كنا نقلق بشأنها أصبحت تدعمها الآن :P

اقتباس

انا مش عارف انت ازاي متعرفش ان احنا عندنا Operator OverLoading لغاية دلوقتي و الحكاية كلها ان مايكروسوفت مكانش عندها وقت تعمل ال Feature دي

بالنسبه للوصله التي وضعتها ففعلا هذه لا تمثل وثيقه من جهه رسميه أو شئ كهذا ولكن بعيدا عن الأرقام التي يكتبها وهذه الأشياء ! ... فأرى أن الأغلبيه متفقين مع رأيه أو مسبقا كان لديهم نفس الرأى أصلا :)

اقتباس

بالنسبه للوصله التي وضعتها ففعلا هذه لا تمثل وثيقه من جهه رسميه أو شئ كهذا

لا تعليق :D

لم اقرأ إلا خمس أو ست ردود من الموضوع ، ولكن أود المشاركة بالكـود الذي يطبع Hellow World بلغـة السي (وليس السي بلس بلس)

#include <windows.h>

int main()
{
MessageBox(NULL,"Hellow World" ,"Window",0);
return 0;
}

لا أدري إن كانت قائمة وسائط الدالة MessageBox كاملة أم لأ ... لأني أكره API

رغم ان الموضوع لا يمسني لا من قريب ولامن بعيد اقول

ان الVB لا تسطيع ان تجاري السي ومشتفاتها ابدا لا من Synatax ولا غيره ولا اعرف لماذا يجادل اهل الVB في هذه الحقيقة المتفق عليها من زمان... :(

ربما يكون الشي الوحيد الذي يمكن.... يمكن ان يتحدثوا عنه هو المقروئية ومع ذلك ليسوا افضل من غيرهم فيه

يا راجل دا أنا قلت ان احنا بقينا اصحاب خلاص وهتظبطني :lol:

YAVBCSC

:angry:

اقتباس

رغم ان الموضوع لا يمسني لا من قريب ولامن بعيد اقول

ان الVB لا تسطيع ان تجاري السي ومشتفاتها ابدا لا من Synatax ولا غيره ولا اعرف لماذا يجادل اهل الVB في هذه الحقيقة المتفق عليها من زمان... 

ربما يكون الشي الوحيد الذي يمكن.... يمكن ان يتحدثوا عنه هو المقروئية ومع ذلك ليسوا افضل من غيرهم فيه

هذا كلام مرسل و لا يوجد عليه أي دليل، أعطني أمثلة مع ملاحظة اننا نتكلم عن VB.NET 2005

------------------------------------------------------------------------------------------------

اقتباس

YAVBCSC

اقتباس

مع ملاحظة اننا نتكلم عن VB.NET 2005

افرض انك بتعمل برنامج بتستخدم فيه المصفوفات بكثره واكتشفت أن البرنامج بطئ نتيجة وضع كل هذه المصفوفات في الـ Heap ... فأردت أن تضع مصفوفاتك في الـ Stack لتكون العمليات أسرع .. كيف تفعل ذلك في الـ VB ؟

اقتباس

الـ VB طول عمرها حتفضل VB.

والله مفيش حاجة بتفضل علي حالها :D

الكود اللي حضرتك طلبته

Imports System
Imports System.Collections

Public Class SamplesStack    
    
    Public Shared Sub Main()
        
        ' Creates and initializes the source Stack.
        Dim mySourceQ As New Stack()
        mySourceQ.Push("barn")
        mySourceQ.Push("the")
        mySourceQ.Push("in")
        mySourceQ.Push("cats")
        mySourceQ.Push("napping")
        mySourceQ.Push("three")
        
        ' Creates and initializes the one-dimensional target Array.
        Dim myTargetArray As Array = Array.CreateInstance(GetType(String), 15)
        myTargetArray.SetValue("The", 0)
        myTargetArray.SetValue("quick", 1)
        myTargetArray.SetValue("brown", 2)
        myTargetArray.SetValue("fox", 3)
        myTargetArray.SetValue("jumped", 4)
        myTargetArray.SetValue("over", 5)
        myTargetArray.SetValue("the", 6)
        myTargetArray.SetValue("lazy", 7)
        myTargetArray.SetValue("dog", 8)
        
        ' Displays the values of the target Array.
        Console.WriteLine("The target Array contains the " & _
           "following (before and after copying):")
        PrintValues(myTargetArray, " "c)
        
        ' Copies the entire source Stack to the target Array, starting
        ' at index 6.
        mySourceQ.CopyTo(myTargetArray, 6)
        
        ' Displays the values of the target Array.
        PrintValues(myTargetArray, " "c)
        
        ' Copies the entire source Stack to a new standard array.
        Dim myStandardArray As Object() = mySourceQ.ToArray()
        
        ' Displays the values of the new standard array.
        Console.WriteLine("The new standard array contains the following:")
        PrintValues(myStandardArray, " "c)
    End Sub    
    
    Overloads Public Shared Sub PrintValues(myArr As Array, _
       mySeparator As Char)
       
        Dim myEnumerator As System.Collections.IEnumerator = _
           myArr.GetEnumerator()
        Dim i As Integer = 0
        Dim cols As Integer = myArr.GetLength(myArr.Rank - 1)
        While myEnumerator.MoveNext()
            If i < cols Then
                i += 1
            Else
                Console.WriteLine()
                i = 1
            End If
            Console.Write("{0}{1}", mySeparator, myEnumerator.Current)
        End While
        Console.WriteLine()
    End Sub
    
    Overloads Public Shared Sub PrintValues(myArr() As Object, _
       mySeparator As Char)
       
        Dim myObj As Object
        For Each myObj In  myArr
            Console.Write("{0}{1}", mySeparator, myObj)
        Next myObj
        Console.WriteLine()
    End Sub
End Class

:D :D :D

معتز شمس كتب:

يعني ايه ؟  (h)  Yet Another VB and CSharp ... ??

←

بالضبط بس ناقص كلمة:

Yet Anothier VB / C# Comparison

بصراحة ذهقت :angry: !!! كل فترة و التانية ألاقي مقارنة بين اللغتين و الموضوع محسوم منذ ولادة الدوت نت:

VB.Net = C#.Net = Delphi.Net = Cobol.Net = Python.Net = Eiffel.Net

romantic_boy كتب:

والله مفيش حاجة بتفضل علي حالها  :D

الكود اللي حضرتك طلبته

Imports System
Imports System.Collections

Public Class SamplesStack    
    
    Public Shared Sub Main()
        
        ' Creates and initializes the source Stack.
        Dim mySourceQ As New Stack()
        mySourceQ.Push("barn")
        mySourceQ.Push("the")
        mySourceQ.Push("in")
        mySourceQ.Push("cats")
        mySourceQ.Push("napping")
        mySourceQ.Push("three")
        
        ' Creates and initializes the one-dimensional target Array.
        Dim myTargetArray As Array = Array.CreateInstance(GetType(String), 15)
        myTargetArray.SetValue("The", 0)
        myTargetArray.SetValue("quick", 1)
        myTargetArray.SetValue("brown", 2)
        myTargetArray.SetValue("fox", 3)
        myTargetArray.SetValue("jumped", 4)
        myTargetArray.SetValue("over", 5)
        myTargetArray.SetValue("the", 6)
        myTargetArray.SetValue("lazy", 7)
        myTargetArray.SetValue("dog", 8)
        
        ' Displays the values of the target Array.
        Console.WriteLine("The target Array contains the " & _
           "following (before and after copying):")
        PrintValues(myTargetArray, " "c)
        
        ' Copies the entire source Stack to the target Array, starting
        ' at index 6.
        mySourceQ.CopyTo(myTargetArray, 6)
        
        ' Displays the values of the target Array.
        PrintValues(myTargetArray, " "c)
        
        ' Copies the entire source Stack to a new standard array.
        Dim myStandardArray As Object() = mySourceQ.ToArray()
        
        ' Displays the values of the new standard array.
        Console.WriteLine("The new standard array contains the following:")
        PrintValues(myStandardArray, " "c)
    End Sub    
    
    Overloads Public Shared Sub PrintValues(myArr As Array, _
       mySeparator As Char)
       
        Dim myEnumerator As System.Collections.IEnumerator = _
           myArr.GetEnumerator()
        Dim i As Integer = 0
        Dim cols As Integer = myArr.GetLength(myArr.Rank - 1)
        While myEnumerator.MoveNext()
            If i < cols Then
                i += 1
            Else
                Console.WriteLine()
                i = 1
            End If
            Console.Write("{0}{1}", mySeparator, myEnumerator.Current)
        End While
        Console.WriteLine()
    End Sub
    
    Overloads Public Shared Sub PrintValues(myArr() As Object, _
       mySeparator As Char)
       
        Dim myObj As Object
        For Each myObj In  myArr
            Console.Write("{0}{1}", mySeparator, myObj)
        Next myObj
        Console.WriteLine()
    End Sub
End Class

:D  :D  :D

←

هذا الكود ليس ما يقصده معتز

فالStack Object الذي استخدمته هو أيضاً Reference Type

أرو أن تقرأ قليلاً عن الفروق بين ال Heap و ال ٍStack

اقتباس

هذا الكود ليس ما يقصده معتز

فالStack Object الذي استخدمته هو أيضاً Reference Type

أرو أن تقرأ قليلاً عن الفروق بين ال Heap و ال ٍStack

بعد ذلك قمت بنقل مايحتويه الـ mySourceQ الى myTargetArray !!!! لماذا ؟! فـ myTargetArray هى من نوع System.Array و System.Array هى بالطبع كلاس والأوبجكت منها يتسجل في الـ Heap أيضا :lol: يعني كل الكود المكتوب فوق ده بيتعامل مع الـ Heap بالدرجه الأولى ومفيش أى حاجه خالص اتسجلت في الـ Stack اطلاقا !! ( سوى طبعا مجموعه من العناوين ).