Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование (VB,C#,ASP,.NET): новости, советы, примеры



Выпуск # 421


http://www.kbyte.ru/

 

Новый выпуск!

Здравствуйте дамы и господа!
Очередной выпуск рассылки Kbyte.Ru!

 

Содержание выпуска

Система ЭКСПЕРТ

    Вопрос #001017: Бесплатные программы

    Вопрос #001014: Avi и Mpeg4 в Visual Basic

    Вопрос #000952: Обработка файлов в C# (.NET 2.0)

    Вопрос #000947: Секундомер

    Вопрос #000937: DLOOKUP??

Последнее на форумах

    Открытие и закрытие CD

    Помогите - замена исполняемого файла на сервере на новый

    Regex

    Помогите - сортировка методом пузырька Visual Basic

    Новый проект посвященный Visual Basic .NET

Последние статьи

    Нестандартная форма

    Как узнать размер базы данных MySQL через php

    Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

    Работа с SQL – Запросы

    Использование XML.Serialization

Интересные коды и решения

Юмор на Kbyte.Ru

 

Система ЭКСПЕРТ

 

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, просто спросите и получите ответ ;-)


Вопрос #001017: Бесплатные программы

Автор вопроса: Sarj // 03.06.2008 / 08:56

Уважаемые эксперты, поскажите пожалуйста бесплатный аналог Corel Draw. Очень надо...

.....

Отвечает: Алексей Немиро // 03.06.2008 / 09:02

Здравствуйте, Sarj.

http://inkscape.org/

--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

 

Вопрос #001014: Avi и Mpeg4 в Visual Basic

Автор вопроса: алексей // 02.06.2008 / 12:36

Как можно проигрывать эти форматы в вижал бэйсик? Пример на сайте не работает.

.....

Отвечает: Алексей Немиро // 02.06.2008 / 12:43

Здравствуйте, Алексей.

Можно использовать MediaPlayer. Для этого его нужно подключить к
проекту через меню Project (Проект) -> Components (Компоненты), в
появившемся окне найти и выбрать Windows Media Player. Далее, в
панели инструментов должна появиться иконка плеера, который можно
разместить на форме. Указать файл для проигрывания можно
в свойство URL, или FileName в зависимости от версии проигрывателя.

--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

 

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Автор вопроса: Сергей // 09.05.2008 / 18:07

Доброе время суток!
В общих словах, такая задача поставлена передо мной: На веб-странице
пользователь выбирает файл, нажимает кнопку "Импорт" и из этого файла
данные импортируются в таблицу БД Oracle.
Файл должен быть текстовым, первые 2 строки- информация о времени и
логине того, кто выгружал. После них идут строки данных, поля
разделяются симоволом | .
Просьба дать ссылки на документацию по работе с файлами, которые могут
помочь :-)

Отвечает: Алексей Немиро // 12.05.2008 / 10:34

Здравствуйте, Сергей.

Необходимые классы и функции для работы с файлами лежак в пространстве имен System.IO. Также Вам могут понадобиться классы для работы с регулярными выражениями, которые лежат в пространстве имен System.Text.RegularExpressions.
Что касается импорта файлов, то данные можно взять прямо из потока FileUpload.PostedFile.InputStream, передать их в StreamReader и обработать при помощи регулярных выражений.

--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

 

Вопрос #000947: Секундомер

Автор вопроса: Александр // 08.05.2008 / 17:40

Добрый день!
Как сделать секундомер на сайте kbyte.ru много но вот все они выдают результат как 345сек, а мне надо 1:45:01 то есть в временом формате. Как сделать???

.....

Отвечает: Алексей Немиро // 09.05.2008 / 08:29

Здравствуйте, Александр.

Зная, что в минуте 60 секунд, в часе 60 минут, а в сутках 24 часа, можно легко превратить 345 секунд в нужный формат.
001:
002:
003:
004:
005:
006:
007:
008:
009:
Dim sec As Integer
sec = 345
Dim ssec As Integer, min As Integer, hour As Integer
If sec > 59 Then
 min = Int(sec / 60)
 ssec = sec Mod 60
End If
If min > 59 Then hour = Int(min / 60)
MsgBox sec & " сек. = " & hour & " ч. " & min & " мин. " & ssec & " сек."



--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

 

Вопрос #000937: DLOOKUP??

Автор вопроса: Алексей // 05.05.2008 / 16:37

Почему те поля формы, которые имеют в ControlSource функцию Dlookup не записывают значение полей в конечную таблицу?

--------------------------------------
Категория: --- MS Access

Отвечает: Алексей Немиро // 06.05.2008 / 05:24

Здравствуйте, Алексей.

Из справки MS Access: Функция Dlookup
При использовании этой функции не учитываются
несохраненные изменения записей подмножества. Если функция
DLookup должна использовать измененные значения, необходимо сначала сохранить
изменения с помощью команды Сохранить запись в меню
Записи, с помощью перемещения фокуса на другую запись или
метода Update.


--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

 


Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

 

 

Последнее на форумах

Открытие и закрытие CD | Автор: petr
Добавлено: 26.12.2008 / 02:33 | ответов: 0 | просмотров: 54

Option Explicit

Private Sub Form_Load()
MMControl1.DeviceType = "CDAUdio"
MMControl1.Command = "open"
MMControl1.TimeFormat = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
MMControl1.Command = "close"
End Sub
Private Function toHMS(time As Long) As String
Dim H As Integer
Dim M As Integer
Dim S As Integer

H = Int((time / 1000) / 3600)
M = Int((time / 1000 Mod 3600) / 60)
S = (time / 1000 Mod 3600) Mod 60
If H > 0 Then toHMS = Str(H) + ":"
toHMS = toHMS + Format(M, "0#") + Format(S, "0#")
End Function

Private Sub MMControl1_StatusUpdate()
Select Case MMControl1.Mode
Case 530: 'msimodeStop
Label1.Caption = "stop" & Str(MMControl1.Tracks)
If MMControl1.Tracks > 1 Then
Label1.Caption = "нажмите на кнопку PLAY"
Label2.Caption = _
"Треков: " + Str(MMControl1.Tracks) + _
"Время звучания: " + _
toHMS(MMControl1.Length)
Else
Label1.Caption = "Диск не хуя не музыкальный"
Timer1.Enabled = True
End If
Case 540: ' mcimodePlay
Timer1.Enabled = False
Label1.Visible = True
Label2.ForeColor = vbYellow
If MMControl1.Position < _
MMControl1.TrackPosition + _
MMControl1.TrackLength Then
Label1.Caption = _
"треков: " + Format(MMControl1.Track, "0#") _
+ " " + toHMS(MMControl1.Position - _
MMControl1.TrackPosition)
Else
If MMControl1.Position < MMControl1.Length Then
MMControl1.Track = MMControl1.Track + 1
Label1.Caption = _
"треков:" + Format(MMControl1.Track, "#") _
+ " " + toHMS(MMControl1.Position - _
MMControl1.TrackPosition)
Else
MMControl1.Command = "stop"
End If
End If
Case 550: 'msimodePause
Label1.Caption = "pause"
Label2.Caption = "Треков: 0 Время звучания: 00:00"
Timer1.Enabled = True
Case Else
Label1.Caption = "mode:" & Str(MMControl1.Mode)
End Select
End Sub

Private Sub Timer1_Timer()
DoEvents
Label1.Visible = Not Label1.Visible
End Sub

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Помогите - замена исполняемого файла на сервере на новый | Автор: Стасик
Добавлено: 23.12.2008 / 16:45 | ответов: 0 | просмотров: 64

Если на клиенте изменился файл, то он должен заменить старый файл на сервере...

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Regex | Автор: abra
Добавлено: 22.12.2008 / 15:51 | ответов: 7 | просмотров: 241

Доброго времени суток.

Не могу понять как я вывожу результат парсинга на html страницу. Вот мой код.
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
string strURL = "MyURL";
    HttpWebRequest Request;
    HttpWebResponse Response;
    StreamReader st;
    string strHTML;
    Request = (HttpWebRequest)WebRequest.Create(strURL);
    Request.Method = "GET";
    Response = (HttpWebResponse)Request.GetResponse();
    st = new StreamReader(Response.GetResponseStream(), Encoding.GetEncoding(1251));

    string outStr = string.Empty;
    Regex r = new Regex("MyPatern", System.Text.RegularExpressions.RegexOptions.Multiline);  
    if (st!=null)
      {
        if (System.Text.RegularExpressions.Regex.IsMatch(strHTML, patern1))
,,,,
каким то образом нужную выборку внести в outStr.
,,,,          
Console.WriteLine(strHTML);
        else
            Console.WriteLine("Сбой на сервере");
      }

    strHTML = st.ReadToEnd();
    st.Close();
    Response.Close();
    Request.Abort();

Colorized by: Eros.CodeSyntaxColor Engine


........ и почему Console.WriteLine не выводит результат на страницу?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: Neco
Добавлено:22.12.2008 / 17:06
а как это должно выглядеть? у пользователя должно открыться окно консоли и там отобразиться данный текст?
попытайтесь, по крайней мере, через response.write, хотя это тоже не совсем правильно.
опять-таки strHTML, судя по коду, заполняется позже, чем используется - разве студия не подсветила это дело?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: abra
Добавлено:22.12.2008 / 17:27
,,,через response.write, хотя это тоже не совсем правильно,,,

а как привильно?

ЗЫ Какой класс надо добавить, что б response.write читало?
'System.Net.HttpWebResponse' does not contain a definition for 'Write'

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: Neco
Добавлено:22.12.2008 / 21:11
есть System.Web.HttpContext.Current.Response.Write("hello world");
также Page.Response или this.Response.
а правильным было бы разместить на странице какой-нибудь контрол и поместить результат парсинга в него через его собственные свойства. ну и конечно не забыть защитить спец. символы, чтобы они не участвовали в рендеринге.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 4 | Автор: abra
Добавлено:23.12.2008 / 14:43
Neco
Большое спасибо. Имено так и сделаю.

а по поводу того, с помощью какой ф-ции вносить выборку в outStr? Подозреваю, что с помощью какого то метода Match, но вот какого именно пока не пойму...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 5 | Автор: abra
Добавлено:23.12.2008 / 18:00
вопрос меняется :о)
Методом Match, получаю свою выборку. При выводе на страницу, получаю строку с текстами и тегами.

При попытке загнать все это в sntring, получаю ошибку.

Cannot implicitly convert type 'System.Text.RegularExpressions.Match' to 'string'

вопрос как конвертировать в стринг?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 6 | Автор: Neco
Добавлено:23.12.2008 / 18:34
однако, видимо, первый язык изучаете.
если я правильно понял вопрос, то дело в том, что Match это матрёшка - внутри есть Groups, а внутри групп Captures.
Соот-но string значение можно получить для каждой из этих матрёшек из свойства Value.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 7 | Автор: abra
Добавлено:24.12.2008 / 14:20
Действительно с NET никогда не пересекались. Благодарю

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Помогите - сортировка методом пузырька Visual Basic | Автор: #Nii
Добавлено: 18.12.2008 / 23:46 | ответов: 10 | просмотров: 310

Вот мне надо сделать, сортировку методом пузырька в Delphi или Visual Basic. И чтоб данные брались из файла, и записывались в другой файл.

Исходник пузырька

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
Sub Sort(Mus() As Long)
  Dim n As Long, i As Long, j As Long, tmp As Long
  i = 1
  Do While (i < UBound(Mus))
    If Mus(i) > Mus(i + 1) Then
      tmp = Mus(i)
      Mus(i) = Mus(i + 1)
      Mus(i + 1) = tmp

      If i > 1 Then
        i = i - 1
      Else
        i = i + 1
      End If
    Else
      i = i + 1
    End If
  Loop
End Sub

Colorized by: Eros.CodeSyntaxColor Engine



И создание и открытие файла



Для создания файла используем метод Create класса File и для создания нового текстового файла метод CreateText класса File.



Пример:



Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

System.IO.File.Create("Path")

System.IO.File.CreateText("Path")

End Sub


Path – полный путь и имя + расширение файла


Для открытия файла используем метод Open класса File.



Только вот незнаю как соединить их, чтоб работало

Помогите пожалуйста!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: andreymp
Добавлено:19.12.2008 / 13:53
Учитывая тематику форума (хотя автор приводит пример создания файла на дотнете) рискну предположить что речь идет о VB6.
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
'На форме одна кнопка. Подключаем в референсах библиотеку Microsoft Scripting Runtime
'Допустим что входной файл престаляет собой строку вида 3,22,66,44,88,,23,97,345,321
Private Sub Command1_Click()
  Dim MyArrStr() As String
  Dim MyArr() As Long
  Dim sStr As String
  Dim i As Long
  
  'Читаем из файла
  sStr = MyRead("in.txt")
  'Получаем массив строк
  MyArrStr = Split(sStr, ",")
  i = 0
  ReDim MyArr(i)
  'Преобразуем в массив Long
  For i = LBound(MyArrStr) To UBound(MyArrStr)
    ReDim Preserve MyArr(i)
    MyArr(i) = CLng(MyArrStr(i))
  Next i
  'Сортируем
  Call Sort(MyArr)
  'Собираем строку (чтоб вид бил как у входного файла)
  sStr = ""
  For i = LBound(MyArr) To UBound(MyArr)
    MyArrStr(i) = CStr(MyArr(i))
    sStr = sStr & MyArrStr(i)
    If i <> UBound(MyArr) Then sStr = sStr & ","
  Next i
  'Записываем файл
  Call MyWrite(sStr, "out.txt")
End Sub

Private Sub Sort(Mus() As Long)
  Dim n As Long, i As Long, j As Long, tmp  As Long
  i = 0 'немного подправил, чтоб начинало с 0
  Do While i < UBound(Mus)
    If Mus(i) > Mus(i + 1) Then
      tmp = Mus(i)
      Mus(i) = Mus(i + 1)
      Mus(i + 1) = tmp
      If i > 1 Then
        i = i - 1
      Else
        i = i + 1
      End If
    Else
      i = i + 1
    End If
  Loop
End Sub

'Процедура записи, используется FSO
Private Sub MyWrite(MyStr As String, outFile As String)
Dim fsoSave As New FileSystemObject
Dim filSave As TextStream
Set filSave = fsoSave.CreateTextFile(App.Path & "\" & outFile, True)
filSave.WriteLine (MyStr)
filSave.Close
End Sub

'Процедура чтения, используется FSO
Private Function MyRead(inFile As String) As String
Dim fsoSave As New FileSystemObject
Dim filSave As TextStream
Set filSave = fsoSave.OpenTextFile(App.Path & "\" & inFile)
MyRead = filSave.ReadLine
filSave.Close
End Function

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: #Nii
Добавлено:20.12.2008 / 00:16
А потом начать подпрограмму "Пузырька" ?
с кода

Sub Sort(Mus() As Long) ?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: andreymp
Добавлено:20.12.2008 / 12:51
Нет. Она уже выполнится. Это вся программа целиком. Ставишь на форму кнопку и копипастишь этот текст. Просто нажми кнопку и посмотри в папке с программой файл out.txt.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 4 | Автор: #Nii
Добавлено:20.12.2008 / 20:49
А как сделать, чтоб я мог другой кнопкой выбрать входной файл, чтоб данные из этого файла загрузились в программу?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 5 | Автор: #Nii
Добавлено:20.12.2008 / 23:20
А как еще загрузить данные в окно (text или label) чтоб значения показывались сначала в окне, потом нажимаешь полученные данные переходят в другое окно, а потом нажав кнопку сохранить все в файл?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 6 | Автор: #Nii
Добавлено:20.12.2008 / 23:55
Почему-то он у меня не запускается, поставил кнопку на форму. Пишет ошибку

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 7 | Автор: #Nii
Добавлено:21.12.2008 / 14:23
Все подключил в референсах Microsoft Scripting Runtime все идет теперь. Только вот терь надо чтоб выводилось в Textbox значение из in.txt а во второй textbox уже значения после сортировки. Как это сделать?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 8 | Автор: #Nii
Добавлено:22.12.2008 / 22:40
Наверно я не правильно выразился, надо чтобы на форме была кнопка при нажатии которой в Textbox загрузились числа из файла, и чтоб они были видны в программе, при нажатии другой кнопки массив сортируется, и в самой программе должно показаться массив уже обработанный. После чего нажимаем кнопку сохранить, значение сохраняется в файл.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 9 | Автор: Stuart
Добавлено:23.12.2008 / 00:43
Вот вроде все правильно написал, осталось тебе её только до оптимизировать ))
Если хочеш скажи мыло я те пришлю исходник в ZIP архивчике=))
Кинь на форму 3 текст бокса
3 кнопки
1 TextBox подпиши как: Путь к файлу с цифрами
2 TextBox: До сортировки
3 TextBox: После сортировки
1 кнопка: Вывод цифр из файла
2 кнопка: Сортировать
3 кнопка: Сохранить отсортированный массив в файл


Вот код:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
Option Explicit
Option Base 1

Dim CifriIzFile(900000) As Long
Dim M As Integer
Dim MIN As Integer
Dim H As Integer
Dim j As Integer
Dim i As Long
Dim N As Integer
Dim LenFile As Long


Private Sub Command1_Click()
Dim FN As Integer
FN = FreeFile
Open Text3.Text For Output As #FN
Print #FN, Text2.Text
Close #FN
MsgBox "Данные успешно сохранены", 64, "Информация"
End Sub

Private Sub Command2_Click()
Dim simvol As String
Dim j As Long
LenFile = FileLen(Text3.Text)
Open Text3.Text For Input As #1
For i = 1 To LenFile
simvol = Input(1, #1)
CifriIzFile(i - j) = CInt(simvol)
Text1.Text = Text1.Text + CStr(CifriIzFile(i - j))
Next i
Close #1
End Sub

Private Sub Command3_Click()

For i = 1 To LenFile
  MIN = Abs(CifriIzFile(i))
  H = i
    For j = i + 1 To LenFile
       If CifriIzFile(j) < MIN Then
       MIN = CifriIzFile(j)
       H = j
       End If
    Next j
    
    If H > i Then
       N = CifriIzFile(i)
       CifriIzFile(i) = CifriIzFile(H)
       CifriIzFile(H) = N
    End If
Next i

For i = 1 To LenFile
  Text2.Text = Text2.Text & CStr(CifriIzFile(i))
Next i
End Sub

Colorized by: Eros.CodeSyntaxColor Engine


PS: Используйте алгоритм сортировки Чарльза Хоара(Метод разделением) этот алгоритм сортировки самый быстрый, в отличии от Пузырькового

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 10 | Автор: Stuart
Добавлено:23.12.2008 / 00:54
блин касяк убери в command2 строчку: Dim j As Long
и затем ниже удали в коде эту переменную)))

И еще программа работает только с числами от 0 до 9


речь шла о VB6

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Новый проект посвященный Visual Basic .NET | Автор: Алексей
Добавлено: 18.12.2008 / 12:12 | ответов: 3 | просмотров: 151

Открылся новый проект, посвященный программированию на Visual Basic .NET - http://vbnet.su
Регистрация только по приглашению :) Код приглашения (инвайт) для пользователей Kbyte.Ru: kbyte
Ссылка для регистрации: http://vbnet.su/join?invite=kbyte

Количестве "мест" ограничено ;)

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: andreymp
Добавлено:18.12.2008 / 16:22
В общем неплохо, но:
1. Может стоило сначала раскрутить этот проект? В общем то ничего не мешает раскручивать их паралельно, если хватит сил, времени и денег.
2. Использование vbnet в названии как то не совсем корректно по отношению к vbnet.ru.
3. Учитывая активность на kbyte.ru (который более менее раскручен):
а) Быстро получить любой ответ на любой вопрос можно на vbnet.ru ( странице на 2-3 может даже и по теме, а если повезет то и правильный) :)
б) Без особого флуда - на sql.ru, исходники.ru, vbstreets и пр. Конкуренция очень большая.
в) На очень сложные вопросы - исходники.ru.
Но это все ИМХО.
Постараюсь поддержать, Когда письмо на активацию аккаунта придет. Удачи.
Андрей.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: Алексей
Добавлено:18.12.2008 / 16:53
1. Может стоило сначала раскрутить этот проект?

этому проекту уже три года..
2. Использование vbnet в названии как то не совсем корректно по отношению к vbnet.ru.

и к vbnet.com, vbnet.info, vbnet.org :)
Да и на ру флудилня, ничего некорректного не вижу в этом.

а) Быстро получить любой ответ на любой вопрос можно на vbnet.ru (
странице на 2-3 может даже и по теме, а если повезет то и правильный):

учитывая раскрученность vbnet.su, сейчас там можно получить быстро
ответ на любой вопрос, возможно даже правильный, ибо я пока там :)
Здесь я сейчас редко отвечаю на вопросы, но прейдет время и на kbyte.ru
будет праздник. Для kbyte.ru у меня запланирован отдельный план
мероприятий.

б) Без особого флуда - на sql.ru, исходники.ru, vbstreets и пр. Конкуренция очень большая.

за флуд и тут и на vbnet.su можно в баню попасть.
Конкуренция нормальная, большой её назвать нельзя.

в) На очень сложные вопросы - исходники.ru.

да, это пожалуй проблема, ибо я редко отвечаю на сложные вопросы,
поскольку времени в пустую тратится много, и даже "спасибо" не всегда говорят :(

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: andreymp
Добавлено:19.12.2008 / 11:25
за флуд и тут и на vbnet.su можно в баню попасть.
И это правильно.
и даже "спасибо" не всегда говорят
Это точно. Бывает даже нахомят непоняв ответа. :(

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Наверх

 

Последние статьи

Нестандартная форма
Автор: Zhenik Ipatov | добавлено: 05.05.2008 / 12:42 | просмотров: 1817

Первое что бросается в глаза, когда первый раз используешь программу это конечно же её облик, внешний вид. Есть вероятность что если пользователю не понравится внешний вид окна, то он не будет пользоваться продуктом. Значит нам, не побоюсь этого слова, программистам нужно как можно лучше, удобнее, понятнее, красивее и приветливее сделать лицо программы. Нужно как можно эффектнее преподнести программу. С самого первого появления Windows окна получили прямоугольный стандарт и все User Control’ы

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 2116

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 8686

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 16869

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 4151

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

 

Статьи на Kbyte.Ru

Наверх

 

Интересные коды и решения

Как узнать дату создания/изменения файла?
Дата добавления: 31.07.2006 / 12:42 | просмотров: 2953 | платформа: VB

Как программно вызвать окно свойств (Properties) файла?
Дата добавления: 31.07.2006 / 12:42 | просмотров: 2153 | платформа: VB

Воспроизведение звукового файла #2
Дата добавления: 31.07.2006 / 12:54 | просмотров: 2901 | платформа: VB

Как ограничить передвижение мыши?
Дата добавления: 16.08.2006 / 19:46 | просмотров: 1944 | платформа: VB

Как программно установить/получить значение текстового поля (HtmlInputTextBox)?
Дата добавления: 31.07.2006 / 16:15 | просмотров: 2462 | платформа: ASP .NET (VB)

Получение имен классов и всех заголовков доступных окон системы
Дата добавления: 31.07.2006 / 12:50 | просмотров: 2254 | платформа: VB

Ключ = Значение
Дата добавления: 24.03.2007 / 11:07 | просмотров: 1870 | платформа: RegEx

Поиск и замена
Дата добавления: 16.08.2006 / 18:54 | просмотров: 2514 | платформа: VB

Как удалить данные из базы данных?
Дата добавления: 31.07.2006 / 12:48 | просмотров: 2275 | платформа: VB

Как запретить изменение размера панелей в SplitContainer?
Дата добавления: 26.08.2006 / 12:35 | просмотров: 2015 | платформа: VB .NET

 

Универсальные коды на Kbyte.Ru

Наверх

 

Юмор на Kbyte.Ru

Учительница:
- Петя, составь предложение со словами "вылупился" и "цыплёнок".
Петя:
- Вася вылупился на мои новые кроссовки как новорождённый цыплёнок.

 

Рейтинг: 636
Всего голосов: 1000
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Самый трудный год в семейной жизни - это текущий.

 

Рейтинг: 1419
Всего голосов: 2115
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

- Вовочка, какие зубы растут последними?
- Золотые, - ответил Вовочка

 

Рейтинг: 530
Всего голосов: 890
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Стоит взвод молодых бойцов. Старшина:
- По порядку номеров рассчитайсь!!!
Солдат-программист:
- Можно вопрос ?
- Можно...
- А в какой системе? Десятичной? Шестнадцатеричной?
- Для дураков объясняю, в десятичной!!!
- Понял! Нулевой!!!

 

Рейтинг: 532
Всего голосов: 835
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Святой Петр (СП) с Господом (Г) разговаривают.
СП: - Что это ты, Господи, на людишек-то осерчал?
Г: - Да нет, с чего это ты взял?
СП: - Дык давечa вон, пол Сиэтла разбомбил.
Г: - Да что ты, это просто опять винда заглючила и выдала ошибку, мол, надо мне к разработчику обратиться.
СП: - Ну а ты?
Г: - Ну а что я, я и обратился...

 

Рейтинг: 393
Всего голосов: 672
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

В чем зарплата, брат? Вот и я думал, что в баксах. А зарплата - она в юанях...

 

Рейтинг: 355
Всего голосов: 631
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

- Что общего между системой Windows и выборами президента США?
- Сначала тормозят, потом зависают

 

Рейтинг: 381
Всего голосов: 613
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Оставили мы ребенка на хозяйстве. На два часа. Сами с супругой гулять пошли. С собакой. А детенышу 11 лет дали задание:
– Илья, перед тем, как оседлать компьютер, сделаешь вот чего: собаке свари макароны, а нам – картошку. Вода для макарон закипит – засыпешь макароны и будешь мешать, пока не всплывут. Затем газ убавишь до минимума и 15 минут можешь "Мадагаскар" смотреть. Картошка же вскипит – просто убавишь газ. На те же 15 минут. Как все сварится, макароны выльешь на дуршлаг, промоешь и обратно в кастрюлю без воды с кусочком масла. А воду от картошки, как сварится, просто сольешь, картошку оставишь в кастрюле, и, соответственно, тоже масла туда. Кастрюлю накроешь полотенцем, чтобы не остыл корнеплод. Как сделаешь, позвонишь, мы с мамой вернемся - будем ужинать. Понял?
– Понял!
Звонит. Все, говорит, в порядке, все сделано.
Мы вертаемся. Макаронная каша из макарон, масла и воды накрыта полотенцем. В раковине стоит дуршлаг с картошкой, под ним лужа масла, дуршлаг тоже аккуратно накрыт полотенцем...

 

Рейтинг: 448
Всего голосов: 724
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Программист ошибается дважды: первый раз - при рождении, а второй раз - при выборе профессии.

 

Рейтинг: 483
Всего голосов: 768
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

У нового русского спрашивают:
- Как вы заработали такое состояние?
- Ну, для начала нужен стартовый капитал.
- А как вы заработали стартовый капитал?
- Ну, для начала нужен хотя бы стартовый пистолет...

 

Рейтинг: 839
Всего голосов: 1246
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Весь юмор на Kbyte.Ru

Наверх


Выпуск подготовил: R-KDR-19826

Редактор: Немиро Алексей

Copyright (c) Nemiro AS, 2005-2007


В избранное