Почему C#, а не VB - Visual Basic .NET - Ответ 5266948

@lpvoid · 31.10.2013, 19:28

здравствуйте. хочу выразить свое мнение на следующем примере. возьмем две программы, обе helloworld, одна на шарпе, другая на vb:

C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace ConsoleApplication12
{
  class Program
  {
    static void Main(string[] args)
    {
      Console.WriteLine("Hello, world!");
    }
  }
}

VB.NET

Module Module1
 
    Sub Main()
    Console.WriteLine("Hello, world!")
    End Sub
 
End Module

дизассемблируем их и посмотрим на сгенерированный код. c#:

Кликните здесь для просмотра всего текста

C#

.namespace ConsoleApplication12
{
.class private auto ansi Program extends [mscorlib]System.Object
{
 
 
  .method private static hidebysig void Main(class System.String[] args)
  {
    .entrypoint
    ldstr "Hello, world!"
    call void [mscorlib]System.Console::WriteLine(class System.String)
    ret
  }
 
  .method public hidebysig specialname void .ctor()
  {
    ldarg.0
    call void [mscorlib]System.Object::.ctor()
    ret
  }
}
}

vb:

Кликните здесь для просмотра всего текста

C#

.namespace ConsoleApplication13.My
{
.class private auto ansi MyApplication extends [Microsoft.VisualBasic]Microsoft.VisualBasic.ApplicationServices.ConsoleApplicationBase
{
 
 
  .method public specialname void .ctor()
  {
    ldarg.0
    call void [Microsoft.VisualBasic]Microsoft.VisualBasic.ApplicationServices.ConsoleApplicationBase::.ctor()
    ret
  }
}
}
 
.namespace ConsoleApplication13.My
{
.class private auto ansi MyComputer extends [Microsoft.VisualBasic]Microsoft.VisualBasic.Devices.Computer
{
 
 
  .method public specialname void .ctor()
  {
    ldarg.0
    call void [Microsoft.VisualBasic]Microsoft.VisualBasic.Devices.Computer::.ctor()
    ret
  }
}
}
 
.namespace ConsoleApplication13.My  // DATA XREF: .cctor+5w get_Computerr
{
.class private auto sealed ansi MyProject extends [mscorlib]System.Object
{
  .field private static initonly !!T15 m_ComputerObjectProvider
 
  .field private static initonly !!T15 m_AppObjectProvider // DATA XREF: .cctor+Fw
                    // get_Applicationr
 
  .field private static initonly !!T15 m_UserObjectProvider // DATA XREF: .cctor+19w
                    // get_Userr
 
  .field private static initonly !!T15 m_MyWebServicesObjectProvider // DATA XREF: .cctor+23w
                    // get_WebServicesr
 
  .property class ConsoleApplication13.My.MyComputer Computer
  {
    .get instance class ConsoleApplication13.My.MyComputer get_Computer()
  }
 
  .property class ConsoleApplication13.My.MyApplication Application
  {
    .get instance class ConsoleApplication13.My.MyApplication get_Application()
  }
 
  .property class [Microsoft.VisualBasic]Microsoft.VisualBasic.ApplicationServices.User User
  {
    .get instance class [Microsoft.VisualBasic]Microsoft.VisualBasic.ApplicationServices.User get_User()
  }
 
  .property class MyWebServices WebServices
  {
    .get instance class MyWebServices get_WebServices()
  }
 
 
  .method private static specialname void .cctor()
  {
    newobj T0xA000009
    stsfld !!T15 ConsoleApplication13.My.MyProject::m_ComputerObjectProvider
    newobj T0xA00000A
    stsfld !!T15 ConsoleApplication13.My.MyProject::m_AppObjectProvider
    newobj T0xA00000B
    stsfld !!T15 ConsoleApplication13.My.MyProject::m_UserObjectProvider
    newobj T0xA00000C
    stsfld !!T15 ConsoleApplication13.My.MyProject::m_MyWebServicesObjectProvider
    ret
  }
 
  .method assembly static specialname class ConsoleApplication13.My.MyComputer get_Computer()
  {
    .locals init (class ConsoleApplication13.My.MyComputer V0)
    ldsfld !!T15 ConsoleApplication13.My.MyProject::m_ComputerObjectProvider
    callvirt T0xA00000D
    ret
  }
 
  .method assembly static specialname class ConsoleApplication13.My.MyApplication get_Application()
  {
    .locals init (class ConsoleApplication13.My.MyApplication V0)
    ldsfld !!T15 ConsoleApplication13.My.MyProject::m_AppObjectProvider
    callvirt T0xA00000E
    ret
  }
 
  .method assembly static specialname class [Microsoft.VisualBasic]Microsoft.VisualBasic.ApplicationServices.User get_User()
  {
    .locals init (class [Microsoft.VisualBasic]Microsoft.VisualBasic.ApplicationServices.User V0)
    ldsfld !!T15 ConsoleApplication13.My.MyProject::m_UserObjectProvider
    callvirt T0xA00000F
    ret
  }
 
  .method assembly static specialname class MyWebServices get_WebServices()
  {
    .locals init (class MyWebServices V0)
    ldsfld !!T15 ConsoleApplication13.My.MyProject::m_MyWebServicesObjectProvider
    callvirt T0xA000010
    ret
  }
}
}
 
.class nested assembly auto sealed ansi MyWebServices extends [mscorlib]System.Object
{
 
 
  .method public virtual bool Equals(class System.Object o)
  {
    .locals init (bool V0)
    ldarg.0
    ldarg.1
    call class System.Object [mscorlib]System.Runtime.CompilerServices.RuntimeHelpers::GetObjectValue(class System.Object)
    call bool [mscorlib]System.Object::Equals(class System.Object)
    ret
  }
 
  .method public virtual int32 GetHashCode()
  {
    .locals init (int32 V0)
    ldarg.0
    call int32 [mscorlib]System.Object::GetHashCode()
    ret
  }
 
  .method assembly hidebysig class [mscorlib]System.Type GetType()
  {
    .locals init (class [mscorlib]System.Type V0)
    ldtoken MyWebServices
    call class [mscorlib]System.Type [mscorlib]System.Type::GetTypeFromHandle(value class [mscorlib]System.RuntimeTypeHandle)
    ret
  }
 
  .method public virtual class System.String ToString()
  {
    .locals init (class System.String V0)
    ldarg.0
    call class System.String [mscorlib]System.Object::ToString()
    ret
  }
 
  .method private static void Create__Instance__(!!T1E instance)
  {
    .locals init (!!T1E V0)
    ldarg.0
    box !!T1E
    brtrue.s loc_11E
    call T0x2B000001
    ret
 
loc_11E:                // CODE XREF: Create__Instance__+6j
    ldarg.0
    ret
  }
  .method private void Dispose__Instance__(void instance)
  {
    .locals init (!!T1E V0)
    ldarg.1
    ldloca.s 0
    initobj !!T1E
    ldloc.0
    stobj !!T1E
    ret
  }
  .method public specialname void .ctor()
  {
    ldarg.0
    call void [mscorlib]System.Object::.ctor()
    ret
  }
}
 
.class nested assembly auto sealed ansi ThreadSafeObjectProvider`1 extends [mscorlib]System.Object
{
  .field private static !!T13 m_ThreadStaticValue
 
  .property !!T13 GetInstance
  {
    .get instance !!T13 get_GetInstance()
  }
 
 
  .method assembly specialname !!T13 get_GetInstance()
  {
    .locals init (!!T13 V0)
    ldsfld T0xA00001B
    box !!T13
    brtrue.s loc_166
    call T0x2B000002
    stsfld T0xA00001B
 
loc_166:                // CODE XREF: get_GetInstance+Aj
    ldsfld T0xA00001B
    ret
  }
 
  .method public specialname void .ctor()
  {
    ldarg.0
    call void [mscorlib]System.Object::.ctor()
    ret
  }
}
 
.namespace ConsoleApplication13
{
.class private auto sealed ansi Module1 extends [mscorlib]System.Object
{
 
 
  .method public static void Main()
  {
    .entrypoint
    ldstr "Hello, world!"
    call void [mscorlib]System.Console::WriteLine(class System.String)
    ret
  }
}
}
 
.namespace ConsoleApplication13.My.Resources // DATA XREF: get_ResourceManagerr
                    // get_ResourceManager+28w ...
{
.class private auto sealed ansi Resources extends [mscorlib]System.Object
{
  .field private static class [mscorlib]System.Resources.ResourceManager resourceMan
 
  .field private static class [mscorlib]System.Globalization.CultureInfo resourceCulture
                    // DATA XREF: get_Culturer
                    // set_Culture+1w
 
  .property class [mscorlib]System.Resources.ResourceManager ResourceManager
  {
    .get instance class [mscorlib]System.Resources.ResourceManager get_ResourceManager()
  }
 
  .property class [mscorlib]System.Globalization.CultureInfo Culture
  {
    .get instance class [mscorlib]System.Globalization.CultureInfo get_Culture()
    .set instance void set_Culture(class [mscorlib]System.Globalization.CultureInfo value)
  }
 
 
  .method assembly static specialname class [mscorlib]System.Resources.ResourceManager get_ResourceManager()
  {
    .locals init (class [mscorlib]System.Resources.ResourceManager V0,
          class [mscorlib]System.Resources.ResourceManager V1)
    ldsfld class [mscorlib]System.Resources.ResourceManager ConsoleApplication13.My.Resources.Resources::resourceMan
    ldnull
    call bool [mscorlib]System.Object::ReferenceEquals(class System.Object, class System.Object)
    brfalse.s loc_1DD
    ldstr "ConsoleApplication13.Resources"
    ldtoken ConsoleApplication13.My.Resources.Resources
    call class [mscorlib]System.Type [mscorlib]System.Type::GetTypeFromHandle(value class [mscorlib]System.RuntimeTypeHandle)
    callvirt class [mscorlib]System.Reflection.Assembly [mscorlib]System.Type::get_Assembly()
    newobj void [mscorlib]System.Resources.ResourceManager::.ctor(class System.String, class [mscorlib]System.Reflection.Assembly)
    stloc.1
    ldloc.1
    stsfld class [mscorlib]System.Resources.ResourceManager ConsoleApplication13.My.Resources.Resources::resourceMan
 
loc_1DD:                // CODE XREF: get_ResourceManager+Bj
    ldsfld class [mscorlib]System.Resources.ResourceManager ConsoleApplication13.My.Resources.Resources::resourceMan
    ret
  }
 
  .method assembly static specialname class [mscorlib]System.Globalization.CultureInfo get_Culture()
  {
    .locals init (class [mscorlib]System.Globalization.CultureInfo V0)
    ldsfld class [mscorlib]System.Globalization.CultureInfo ConsoleApplication13.My.Resources.Resources::resourceCulture
    ret
  }
 
  .method assembly static specialname void set_Culture(class [mscorlib]System.Globalization.CultureInfo value)
  {
    ldarg.0
    stsfld class [mscorlib]System.Globalization.CultureInfo ConsoleApplication13.My.Resources.Resources::resourceCulture
    ret
  }
}
}
 
.namespace ConsoleApplication13.My  // DATA XREF: sub_220+Fw get_Defaultr
{
.class private auto sealed ansi MySettings extends [System]System.Configuration.ApplicationSettingsBase
{
  .field private static class ConsoleApplication13.My.MySettings defaultInstance
 
  .property class ConsoleApplication13.My.MySettings Default
  {
    .get instance class ConsoleApplication13.My.MySettings get_Default()
  }
 
 
  .method private static specialname void .cctor()
  {
    newobj void ConsoleApplication13.My.MySettings::.ctor()
    call class [System]System.Configuration.SettingsBase [System]System.Configuration.SettingsBase::Synchronized(class [System]System.Configuration.SettingsBase)
    castclass ConsoleApplication13.My.MySettings
    stsfld class ConsoleApplication13.My.MySettings ConsoleApplication13.My.MySettings::defaultInstance
    ret
  }
 
  .method public specialname void .ctor() // CODE XREF: sub_220p
  {
    ldarg.0
    call void [System]System.Configuration.ApplicationSettingsBase::.ctor()
    ret
  }
 
  .method public static specialname class ConsoleApplication13.My.MySettings get_Default()
                    // CODE XREF: get_Settingsp
  {
    .locals init (class ConsoleApplication13.My.MySettings V0)
    ldsfld class ConsoleApplication13.My.MySettings ConsoleApplication13.My.MySettings::defaultInstance
    ret
  }
}
}
 
.namespace ConsoleApplication13.My
{
.class private auto sealed ansi MySettingsProperty extends [mscorlib]System.Object
{
  .property class ConsoleApplication13.My.MySettings Settings
  {
    .get instance class ConsoleApplication13.My.MySettings get_Settings()
  }
 
 
  .method assembly static specialname class ConsoleApplication13.My.MySettings get_Settings()
  {
    .locals init (class ConsoleApplication13.My.MySettings V0)
    call class ConsoleApplication13.My.MySettings ConsoleApplication13.My.MySettings::get_Default()
    ret
  }
}
}

то есть компилятро vb пихает в исполняемый файл множество ненужного, какие-то средства для управления ресурсами и прочее, мне это очень не нравится.
возможно, кто-то может привести аргументы в пользу visual basic в этом вопросе, если так, хотелось бы их услышать.

Вернуться к обсуждению:
Почему C#, а не VB Visual Basic .NET

Следующий ответ

Другие темы раздела
Visual Basic .NET Длина максимальной неубывающей последовательности Прошу помощи: Дан одномерный массив arrX(100) As Integer Необходимо определить длину максимальной последовательности элементов, отсортированных по возрастанию. (Если весь массив отсортирован, то результат будет 101). https://www.cyberforum.ru/ vb-net/ thread993856.html	Visual Basic .NET Как вписать в PictureBox линию в 2 раза большей длины? Всем доброго времени суток. У меня 2048 значений (точек), из которых нужно нарисовать линию (DrawLines). Размер экрана 1024х768. Вопрос: как вписать в PictureBox линию в 2 раза большей длины? Прореживание путем "через одну" не подходит. Спасибо.
Visual Basic .NET Есть ли свойство Caption для текстбокса в VB.NET? https://www.cyberforum.ru/ vb-net/ thread993489.html Подскажите, если в VB6 есть свойство Caption к примеру для текстбокса, то подобное в VB.NET есть?	Visual Basic .NET Определение двух максимальных дат Прошу помощи в следующем задании: Необходимо написать подпрограмму, которая принимает три даты, определяет и возвращает две даты, которые больше (или равны) третьей. Также напишите пример вызова этой подпрограммы. https://www.cyberforum.ru/ vb-net/ thread993484.html
Visual Basic .NET Какое использовать события в datagridview, чтобы значения из combobox обновлялись в datagridview Всем привет.Нужна помощь по следующему вопросу.В datagridview загружаются значения из двух разных таблиц.Одно из полей datagridview это combobox.Вопрос в следующем, какое использовать события в datagridview, чтобы значения из combobox обновлялись в datagridview и одной из таблиц?	Visual Basic .NET Пропадение текста из CustomLabel https://www.cyberforum.ru/ vb-net/ thread993377.html Доброго времени суток. Понадобилось создать свой CustomLabel на базе UserControl. Переопределил свойство Text. <Browsable(True), Bindable(True), EditorBrowsable(EditorBrowsableState.Always)> _ Public Overrides Property Text() As String Get Return MyBase.Text End Get Set(ByVal value As String) MyBase.Text = value ...
Visual Basic .NET Вывод матрицы в TextBox Всем доброго времени суток. Помогите пожалуйста, ни как не могу реализовать вывод матрицы через textbox. К примеру матрица 2х2 и texboxv 4 штуки, каждый под свой элемент матрицы. Помогите вывести матрицу через цикл. Заранее спасибо. https://www.cyberforum.ru/ vb-net/ thread993206.html	Можно ли такой реализовать на vb? Visual Basic .NET Можно ли такой реализовать на vb? Обсуждение вредоносного ПО запрещено. Вложение удалено
Visual Basic .NET Текст на форме Как сделать, чтоб текст писался не в текстбоксе, а на самой форме, без применения лэйблов? После нажатия на кнопку https://www.cyberforum.ru/ vb-net/ thread993044.html	Visual Basic .NET Почему сформированный текстовый документ не сохраняет свое состояние https://www.cyberforum.ru/ vb-net/ thread992823.html почему сформированный текстовый документ не сохраняет свое состояние после того как я его отправил по почте на другой комп а при открытии строение документа меняется подскажите есть ли какой нибудь способ чтобы документ сохранял свое состояние и открывался в точности таким как до отправки
Обработка ошибки при потере COM порта Visual Basic .NET Добрый день! Пока не приходилось сталкиваться с обработкой ошибок, поэтому обращаюсь к вам. Есть программа, которая работает с COM портом. Причем Порт не запаянный на матери, а USB-преобразователь. В связи с этим и возникает проблема: если выдернуть шнур из преобразователя, то программа выдает ошибку, так как COM-порт пропадает. Помогите обрабатывать эту ошибку, что бы можно было вывести...	Visual Basic .NET Добавление и удаление записей в базу на SQL server 2008 https://www.cyberforum.ru/ vb-net/ thread992523.html Подскажите что делаю не так. Есть таблица. По нажатию на кнопку "Добавить" должна открываться форма для ввода нового элемента, а по щелчку на самой таблице должна открываться та же форма, только с заполненными полями для редактирования. Соответственно на открывающихся формах есть кнопка "сохранить", по которой изменения сохраняются,а форма закрывается. код кнопки, по которой открывается форма...

	31.10.2013, 19:28