madlopt

Тебе не ко мне, тебе к грузинам, там мыло пригодится http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif АААА! Это когда я тебе весло в жопу засунул и начал проворачивать?? Ну ты мазохист, после этого тебе ещё было хорошо.

Сказки про сало тебе бабушка рассказывала? Ню-ню внучек, соси дальше.

Ладно, конрад ты тут прав. Бузина в этот раз не соврала. Признаю зря наехал.

Ну не придумала же она это. Вполне может быть, скорее искривила факты. Она ж это не раз делала. И сюда спорить заходила, дура.

Нет. Он вообще не пьёт. Он приезжал к нам в Киев, на акцию ВЕСТ и ему дали хлеб, соль и 100 грамм, он понюхал и категорически отказался.

Я родом из города у моря, что в переводе на греческий значит Мариуполь. Українці усіх країн єднайтесь. З Новим Роком та Різдво хрестовім. Бажаю усього...... Будьмо!!!

Хехе. Хвастаться в инете-это дело не благодарное. А я говорил про коды с API. Про то, что клиенты довольны моими прогами. И количество не значит качество. Говоришь на Microsoft работаешь? Ну да неплохие операционки пишут http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif Я единственный программер на фирме и 28 прог - это лично мои проги, у нас очень узкая специализация поэтому клиентура тоже не большая, тем не менее я зарабатываю.

У меня есть прикольная картинка. Сидят баба и дед в чате, она деду пишет, что она топ модель, а дед пишет, что он гонщик Ф-1 http://www.f-one.ru/formula-1/pic/ubb_gremlins/roflmao.gif Мне похуй, что он на дебила-Билла работает, он лоханулся, спор просрал. Всё. PS Если ты даже не знаешь , как вывести на экран надпись "Hello", какого хера ты лезешь? Оказывается ты не только Шуму сосешь. Сначала к Виллу подлизывался, защищал его своим дерьмом, потом Шумофил, теперь СГЦ...дальше больше. А ты не жигало случайно? Хотя нет извини, я ошибся, ты скорее педераст. http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif

Ты так и не привёл доказательств(ну хоть каких-то) того. что NET лучше, но я тебе приведу доказательства обратного. Во-первых VB.NET устанавливается под NT 4.0, НО для установки необходим SP6a, под 98-ую необходим SP1, под 2000-ую необходим SP2, ещё необходим Internet Explorer версии 6.0. Охуеть можно! Купил дорогущий NET и сиди качай сервис паки по 300 метров! Ещё необходим Windows Installer версии 2.0, помоему он должен поставлятся с диском. Только после всего этого можно установить VB.NET!!! НАХУЯ ТАКОЙ ГИММОРОЙ??? Это ещё не всё, при установке сначала все CAB-ы переписываются на винт - с них и производится установка. Потом идёт уборка мусора из temp каталогов. VB.NET некий мутант - гибрид. Причем очень сильно напоминает cи, от VB почти ничего нет. Оболочка очень напоминает Visual C++ с очень плоскомордой графикой. Огромный список стандартных контролов-количество вытесняющее качество. Многие контролы поменяли имена. Например CommandButton называется просто Button, зачем? Имена свойств тоже изменены. Например свойства Caption больше нет - есть только свойство Text, но тут я согласен разницы почти нет. С кодом вообще хуйня. Пример на VB::: Private St As Integer 'Это счетчик Private Sub Command1_Click() '+1 в счетчике St = St + 1 Label1.Caption = St End Sub И, что получилось при создании такого же примера на VB.NET::: Option Strict Off Option Explicit On Friend Class Form1 Inherits System.Windows.Forms.Form #Region "Windows Form Designer generated code " Public Sub New() MyBase.New() If m_vb6FormDefInstance Is Nothing Then If m_InitializingDefInstance Then m_vb6FormDefInstance = Me Else Try 'For the start-up form, the first instance created is the default instance. If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then m_vb6FormDefInstance = Me End If Catch End Try End If End If 'This call is required by the Windows Form Designer. InitializeComponent() End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean) If Disposing Then If Not components Is Nothing Then components.Dispose() End If End If MyBase.Dispose(Disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer Public ToolTip1 As System.Windows.Forms.ToolTip Public WithEvents Command1 As System.Windows.Forms.Button Public WithEvents Label1 As System.Windows.Forms.Label 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1)) Me.components = New System.ComponentModel.Container() Me.ToolTip1 = New System.Windows.Forms.ToolTip(components) Me.ToolTip1.Active = True Me.Command1 = New System.Windows.Forms.Button Me.Label1 = New System.Windows.Forms.Label Me.Text = "Form1" Me.ClientSize = New System.Drawing.Size(135, 66) Me.Location = New System.Drawing.Point(4, 23) Me.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultLocation Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackColor = System.Drawing.SystemColors.Control Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable Me.ControlBox = True Me.Enabled = True Me.KeyPreview = False Me.MaximizeBox = True Me.MinimizeBox = True Me.Cursor = System.Windows.Forms.Cursors.Default Me.RightToLeft = System.Windows.Forms.RightToLeft.No Me.ShowInTaskbar = True Me.HelpButton = False Me.WindowState = System.Windows.Forms.FormWindowState.Normal Me.Name = "Form1" Me.Command1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.Command1.Text = "Command1" Me.Command1.Size = New System.Drawing.Size(105, 25) Me.Command1.Location = New System.Drawing.Point(0, 32) Me.Command1.TabIndex = 1 Me.Command1.BackColor = System.Drawing.SystemColors.Control Me.Command1.CausesValidation = True Me.Command1.Enabled = True Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText Me.Command1.Cursor = System.Windows.Forms.Cursors.Default Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Command1.TabStop = True Me.Command1.Name = "Command1" Me.Label1.Text = "Label1" Me.Label1.Size = New System.Drawing.Size(97, 17) Me.Label1.Location = New System.Drawing.Point(8, 8) Me.Label1.TabIndex = 0 Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopLeft Me.Label1.BackColor = System.Drawing.SystemColors.Control Me.Label1.Enabled = True Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText Me.Label1.Cursor = System.Windows.Forms.Cursors.Default Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label1.UseMnemonic = True Me.Label1.Visible = True Me.Label1.AutoSize = False Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.None Me.Label1.Name = "Label1" Me.Controls.Add(Command1) Me.Controls.Add(Label1) End Sub #End Region #Region "Upgrade Support " Private Shared m_vb6FormDefInstance As Form1 Private Shared m_InitializingDefInstance As Boolean Public Shared Property DefInstance() As Form1 Get If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then m_InitializingDefInstance = True m_vb6FormDefInstance = New Form1() m_InitializingDefInstance = False End If DefInstance = m_vb6FormDefInstance End Get Set m_vb6FormDefInstance = Value End Set End Property #End Region Private St As Short 'Это будет счетчик Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click '+1 в счетчтке St = St + 1 Label1.Text = CStr(St) End Sub End Class Ну и где код меньше??? http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif При запуске проэкта винт тарахтит секунд 10-это приемущество? Проэкт в VB.NET требует MSCOREE.DLL для работы на другом компе в отличие от VB проэкта. В итоге на VB.NET невозможно(по сравнению с VB6) написать быстро небольшое качественное приложение, а об отладке и оптимизации кода до мелочей можно вообще забыть. ГОВНО твой NET!

А как же мне верит, если ты напости ещё несколько постов после этого http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif Балабол. Лучший способ не проиграть-это удрать!

Набрал я на Яндексе nesting depth и что? Где ты такое там узрел? Куча функций на английском и ничего конкретно. Ты ж даже не знаешь о чем я говорил. Опять шумососы используют грязные способы, чтоб почистить свой зад, не логично как-то.

Ах вот как мы знаниями на форуме блещем, понятно Konrad. http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif

Толку от твоей Console aplication, если инфу надо показать пользователю.

Ну и программер с тебя, если ты ничего не понял.

ХАХАХАХАХА! Обломали ламера!! http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif Для справки. За последние пол-года мои проги с подобными кодами использующими API продались в количестве 28 штук, жалоб от клиентов пока не поступало.

Конечно, а ДОС в 10 раз больше Винды.

Вот долбоёб. Откуда я знаю, что ты имел ввиду? В теориях про алгоритмы , конкретнее про алгоритмы рекурсивного поиска ты оказывается не шаришь. Бля! Да я это на втором курсе проходил! КАКОЙ ТЫ НАХЕР ПРОГРАММЕР?? ЛОХ! http://www.f-one.ru/formula-1/pic/ubb_gremlins/roflmao.gif http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh2.gif Можешь больше не пыжится, лучше книжки почитай, может и сможешь через пару лет блокнот написать.

А ты не сравнивал размеры подобного проэкта в VB6 и VB.NET? Вот тебе приемущество VB6.

Хехехе. Это ты всем остальным НЕ программерам можешь пиздеть, может они на форуме и поверят в твои бредни, а моя прога в отличие от твоей требует API и элемента ListBox на форме, ВСЁ. Моя прога РАБОТАЕТ не в теории , а на практике, я множество раз её использовал, она выдаёт результаты, а не теорию, мой код можно просто скопировать в проэкт VB поставить ListBOx на форму и ВСЁ, все будет пахать, а ты что написал? Видно книжда какого-нибуть Пристли у тебя под рукой, теорию напостить можешь, а с практикой говно. Кстати на Ассемблере я подобное писал ещё в школе http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif и на нём моя прога работала в раз 10 быстрее чем на любом другом современном языке, хотя код конечно большой.

Я не долбоёб поэтому отвечаю, а не выёбываюсь. Насколько я тебя понял nesting depth - это максимальная глубина рекурсивного запроса, например для поиска. Способ поиска "в глубину" на каждом шаге генерирует всех потомков наиболее отдаленного от корня узла. Таким образом, порядок генерации узлов будет таким, как ветки дерева, со ствола всё большая ветвистость. Реализация такого алгоритма требует запоминания количества узлов, сравнимого с максимальной глубиной, на которую опускается поиск. Запоминание осуществляется с помощью стека, это можно сделать двумя способами: явным и неявным. Последний способ подразумевает, что каждый узел запоминается в локальных переменных в стеке рекурсивных вызовов. Недостаток в том, что даже конечный граф может породить бесконечное дерево, что заставит "навсегда рекурсивно уйти вглубь". Именно для предупреждения таких ситуаций приходится делать ограничение на глубину, тобишь nesting depth, но наперед никогда неизвестна глубина оптимального решения. Поэтому поиск в глубину (Depth-First Search) так и остается всего лишь концепцией и в чистом виде не применяется.

Да сколько можно.......дааа, долбоебизм не излечим. Хотя наверное я вам просто говорил правду в лицо, поэтому я вам под каждым ником мерещусь http://www.f-one.ru/formula-1/pic/ubb_gremlins/laugh1.gif Що, правда очi коле?

Ага. Хорошо раз разговор пошел вот так, тогда не жди ничего хорошего от меня. Говнюк. Твой C#.NET мне на хуй не нужен и "небольшие различия в синтаксисе" - это просто твоё незнание предмета спора. Про C#.NET вообще разговора не было. Если ты нихуя не шаришь в VB, то не уходи от ответа, как Айртон, а скажи, что нихуя не шаришь. А теперь по проге. Признаюсь честно, что Scripting Host я почти не пользовался, но я не дебил, чтоб понять, что твоя прога должна работать, но конечно не в VB. Да и нахер в VB использовать эту библиотеку, если можно это сделать простейшими API функциями: Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Const DRIVE_CDROM = 5 Const DRIVE_FIXED = 3 Const DRIVE_RAMDISK = 6 Const DRIVE_REMOTE = 4 Const DRIVE_REMOVABLE = 2 Dim strDrive As String Dim strMessage As String Dim intCnt As Integer Private Sub Form_Load() For intCnt = 65 To 86 strDrive = Chr(intCnt) Select Case GetDriveType(strDrive + ":\") Case DRIVE_REMOVABLE rtn = "Floppy Drive" Case DRIVE_FIXED rtn = "Hard Drive" Case DRIVE_REMOTE rtn = "Network Drive" Case DRIVE_CDROM rtn = "CD-ROM Drive" Case DRIVE_RAMDISK rtn = "RAM Disk" Case Else rtn = "" End Select If rtn <> "" Then List1.AddItem "Drive " & strDrive & " is type: " & rtn 'strMessage = strMessage & vbCrLf & "Drive " & strDrive & " is type: " & rtn End If Next intCnt 'MsgBox (strMessage) End Sub

Если ты думаешь, что я это самый колобок, то ыт и есть ДОЛБОЁБ!!! Я сказал, что не буду пользоваться всякой хуйнёй? Сказал. Я таких долюоёбов , как ты могу обматерить и под своим ником, ничего со мной не сделается.

Я из Киева, а где ти народився, друже?

Ты дурень! А старз ты почаще читай, там ещё и не такое пишут. Сколько раз уже спорили по поводу этого сайта. Ссылок на источник нет, подобной инфы на буржуйских да и на русских сайтах нет. Задобала эта Бузина уже.