tyomitch писал(а):Ramzes писал(а):а я думаю, Microsoft не откажется от Basic
Отказалась от Паскаля, от Фортрана, от ФоксПро и от Жавы.
Мало?
Вообщем да, Бейсиком дядя Билли лично занимался (Для "Альтаира")
tyomitch писал(а):Ramzes писал(а):а я думаю, Microsoft не откажется от Basic
Отказалась от Паскаля, от Фортрана, от ФоксПро и от Жавы.
Мало?
Function SaveLoadedFile(ByVal FileName As String, ByVal Data As String, Optional ByVal ShowProgress As Boolean = False) As Boolean
Dim fl As System.IO.FileStream, fsize As Long = Len(Data) \ 3
Try
fl = New System.IO.FileStream(FileName, FileMode.Create, FileAccess.Write)
Dim sTime As Long = Now.Ticks
Dim nn As Long = 0, nm As Long = 16384 'Обновлять инф. каждые 16 кб
For i As Long = 0 To fsize - 1
fl.WriteByte(CByte(Mid(Data, i * 3 + 1, 3)))
If ShowProgress Then
If nn + 1 = nm Then
nn = 0
lblFile.Text = (i + 1).ToString + " байт из " + fsize.ToString + " скопировано"
ProgressFile.Value = i * 100 / (fsize - 1)
Application.DoEvents()
Else
nn = nn + 1
End If
End If
Next
ProgressFile.Value = 0
fl.Close()
SaveLoadedFile = True
Catch
SaveLoadedFile = False
End Try
End Function
public bool SaveLoadedFile(string FileName, string Data, bool ShowProgress)
{
System.IO.FileStream fl;
long fsize = Data.Length / 3;
try
{
fl = new System.IO.FileStream(FileName, FileMode.Create, FileAccess.Write);
long sTime = DateTime.Now.Ticks;
long nn = 0, nm=16384; //Обновлять инф. каждые 16 кб
for (long i = 0; i <= fsize - 1; i++)
{
fl.WriteByte(byte.Parse(Data.Substring((int) (i * 3), 3)));
if (ShowProgress)
{
if (nn + 1 == nm)
{
nn = 0;
lblFile.Text = (i + 1).ToString() + " байт из " + fsize.ToString() + " скопировано";
ProgressFile.Value = (int) (i * 100 / (fsize - 1));
Application.DoEvents();
}
else
{
nn++;
}
}
}
ProgressFile.Value = 0;
fl.Close();
return true;
}
catch
{
return false;
}
}
CByte(Mid(Data, i * 3 + 1, 3))
byte.Parse(Data.Substring((int) (i * 3), 3))
nn+=1 рулит.StimorolD3DX писал(а):nn = nn + 1
fl.WriteByte(Byte.Parse(Data.Substring(CInt(i) * 3, 3)))
tyomitch писал(а):Да.
Я уверен, ещё несколько поколений VS -- и поддержку VB.net из него уберут совсем. Зачем им этот балласт поддерживать?
Оставят какой-нить конвертор для старых прог, и всё.
Хакер писал(а):VB-style-код вообще категорически сложен для разбора, в отличие от сишного.
tyomitch писал(а):В ряде мест (.., downto, as) делфийский синтаксис весьма изящен.
Ronin писал(а):Мое мнение таково: майкрософт не будет прекращать поддержку VB, со временем появится гибрид VB и C# и все перейдут на него и примут это как само собой разумеющееся. И тогда наступит нам счастье и закончится эта пустая война между C# и VB.
Ronin писал(а):P.S. Даже если предположить что VB окончательно загнется, то мне кажется хватит всего лишь недели для того что-бы тупо переключится на синтаксис C# - это очень просто, нужно только привыкнуть
Ronin писал(а):P.P.S. Надеюсь что в будущем гибриде не будет регистрочувствительности =)
Вообще я склоняюсь к мнению, что голый IL рулит. А производительность надстроек над IL`ом (коими и являются C# и VB) определяется только криворукостью, так что соревнования, имхо, абсолютно не уместныMikle писал(а):может проверим?
Вернуться в Holy Wars@VBStreets
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1