الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Hello World in Various .NET Syntax

مغلقرائج
بدأه hazzoom في 26 أكتوبر 2005 · 63 رد · 5,296 مشاهدة · في قسم تكنولوجيا Microsoft .NET العام
مشاركة: واتساب X فيسبوك تيليجرام
#51

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

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

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

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#52

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

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

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

#53

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

اقتباس
انا مش عارف انت ازاي متعرفش ان احنا عندنا Operator OverLoading لغاية دلوقتي و الحكاية كلها ان مايكروسوفت مكانش عندها وقت تعمل ال Feature دي
:lol: أيوا مكنوش فاضيين .. كانت بأه دخلت الشتاء وكل سنه وانت طيب وكان بيل جيتس عاوز فلوس علشان يجيب حاجات المدارس للعيال وكان محتاج فلوس ... فوزع الـ VB على طول قبل مايشطبها كويس ونسى يحط الامكانيه دي فيها وقال يأجلها لنسخة الـ 2005.

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

#Read

http://MoutazShams.blogspot.com

projects003.gif

أعتذر عن التغيب هذه الأيام نظرا للانشغال المريب

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

لا تعليق :D

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#55

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

#include <windows.h>

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

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

#56

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

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

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

أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر

وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري

كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو

أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري

عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري

فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري

منتديات الرياضيات العربية

#58

YAVBCSC

:angry:

رأس الحكمة الإيمان بالله

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

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

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

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

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

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#60
اقتباس
YAVBCSC
يعني ايه ؟ (h) Yet Another VB and CSharp ... ??
اقتباس
مع ملاحظة اننا نتكلم عن VB.NET 2005
الـ VB طول عمرها حتفضل VB.

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

#Read

http://MoutazShams.blogspot.com

projects003.gif

أعتذر عن التغيب هذه الأيام نظرا للانشغال المريب

#61
اقتباس
الـ 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

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#62
معتز شمس كتب:
يعني ايه ؟  (h)  Yet Another VB and CSharp ... ??

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

Yet Anothier VB / C# Comparison

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

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

رأس الحكمة الإيمان بالله

#63
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

Sr. Software Development Engineer
Hulu, LLC
My Blogs

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

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

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

بالظبط كدا ...ازاى تستخدم Object سواء من نوع Stack أو غيره في هذا الأمر ؟ فكل الـ Objects هى Reference Type وتتسجل في الـ Heap.

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

#Read

http://MoutazShams.blogspot.com

projects003.gif

أعتذر عن التغيب هذه الأيام نظرا للانشغال المريب

هذا الموضوع مغلق.

مواضيع مشابهة