Модераторы: diadiavova, gambit

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> 1000 мелочей, Вопросы, не стоящие отдельной темы 
:(
    Опции темы
diadiavova
Дата 27.3.2013, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Код

DateTime.Now.ToString("yyyyMMddHHmmss")



--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Feller
Дата 1.4.2013, 13:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 2.7.2010

Репутация: нет
Всего: нет
diadiavova, спасибо
PM MAIL   Вверх
Azhur
Дата 29.4.2013, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.4.2013

Репутация: нет
Всего: нет
Добрый день!Помогите новичку!! Есть 2 приложения 1.сервер и 2.клиент, при изменение значения label1 на сервере оно передается label1 клиенту и наоборот с label2 клиент передает значение на label2 сервер все писалось под vb 6.0, можно как нибудь реализовать на vb.net? или лучше не по Winsock ???

сервер:
Код

Private Sub Form_Load()
Winsock1.LocalPort = 101
Winsock1.Listen 
Form1.Caption = "Сервер"
End Sub

Private Sub label1_Change()
Winsock1.SendData Label1.Caption 
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim D As String 
Winsock1.GetData D
Label1.Caption = D 
End Sub

Private Sub Command1_Click(Index As Integer)
Label1 = Val(Label1) + 1
Label2 = Val(Label2) + 1
End Sub

Private Sub Command2_Click(Index As Integer)
Label1 = Val(Label1) + 1
Label2 = Val(Label2) + 1
End Sub


клиент:
Код

Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 101 
Winsock1.Connect
Form1.Caption = "Клиент"
End Sub

Private Sub Label1_change() ' Принимаем запрос
Winsock1.SendData Label1.Caption ' Принимаем запрос
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
Dim DD As String 
Winsock1.GetData DD 
Label1.Caption = DD
End Sub

Private Sub Command1_Click()
Label1 = Val(Label1) - 1
Label4.Caption = "идет прием"
Label5 = Val(Label5) + 1
End Sub

Private Sub Command2_Click()
Label4.Caption = "свободное окно"
End Sub


Заранее спасибо!
PM MAIL   Вверх
diadiavova
Дата 29.4.2013, 23:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(Azhur @  29.4.2013,  13:01 Найти цитируемый пост)
 или лучше не по Winsock ???

WCF


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Azhur
Дата 15.5.2013, 10:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.4.2013

Репутация: нет
Всего: нет
Все таки по Winsock решил сделать, еще вопрос появился, как несколько клиентов подключить к серверу на примере приведенного кода?Заранее спасибо.

Это сообщение отредактировал(а) Azhur - 15.5.2013, 11:04
PM MAIL   Вверх
diadiavova
Дата 15.5.2013, 11:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(Azhur @  15.5.2013,  11:29 Найти цитируемый пост)
на примере приведенного кода

Этот пример приведён на vb6, а это по сути другой язык, другая технология и с вопросами по ним нужно обращаться в соответствующий раздел.
http://forum.vingrad.ru/forum/vb-visual-basic.html


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Feller
Дата 21.5.2013, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 2.7.2010

Репутация: нет
Всего: нет
Как можно распарсить xml собщение чтоб вытащить значение Amount или status , зарание спасибо
<?xml version="1.0" encoding="UTF-8" ?>  
  <objects > 
    <OrderPay >  
     
      <Amount >100<Amount />   
      <status >1</ status > 
   
    </ OrderPay >  
 </ objects >
PM MAIL   Вверх
diadiavova
Дата 21.5.2013, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
http://msdn.microsoft.com/ru-ru/library/sy...mldocument.aspx
http://msdn.microsoft.com/ru-ru/library/sy....xdocument.aspx
Использовать можно любой, смотри какой тебе удобнее, хотя для такой задачи вообще без разницы.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Feller
Дата 22.5.2013, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 2.7.2010

Репутация: нет
Всего: нет
спасибо

Добавлено через 4 минуты и 13 секунд
Как сконвертировать string в decimal? пробую так
Код

Dim value As String
        Dim number As Decimal
        Dim style As NumberStyles

       
        value = "23000000.00"
        style = NumberStyles.AllowDecimalPoint
        Try
            number = Decimal.Parse(value, style)
                Catch ex As FormatException
         
        End Try

возникает ошибка (Входная строка имела неверный формат.) 
PM MAIL   Вверх
diadiavova
Дата 22.5.2013, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
NuberStyles это что? Возможно ты имел в виду
http://msdn.microsoft.com/ru-ru/library/sy...formatinfo.aspx


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Feller
Дата 24.5.2013, 07:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 2.7.2010

Репутация: нет
Всего: нет
Дело оказалось в запятой Convert.ToDecimal(Replace(pValueTrans, ".", ","))
PM MAIL   Вверх
diadiavova
Дата 24.5.2013, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(Feller @  24.5.2013,  08:16 Найти цитируемый пост)
Дело оказалось в запятой

А сразу это было непонятно? smile Метод Parse прекрасно работает как с запятой, так и с точкой, и что он будет считать десятичным разделителем зависит от форматпровайдера, который передается вторым аргументом. По умолчанию в качестве форматпровайдера используется культура операционной системы. Но это поведение можно изменить. А заменять точку на запятую реплейсом - это вообще отстой. smile 


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Feller
Дата 30.5.2013, 08:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 2.7.2010

Репутация: нет
Всего: нет
А как тогда красиво сделать, пробывал Parce разные стили, всё равно не работает?
PM MAIL   Вверх
diadiavova
Дата 30.5.2013, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Код

Decimal.Parse("23000000.00", System.Globalization.CultureInfo.InvariantCulture)
Или можно намберформатинфо из этой же культуры использовать. Разницы в принципе нет, поскольку оба класса реализуют интерфейс IFormatProvider


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Feller
Дата 6.6.2013, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 2.7.2010

Репутация: нет
Всего: нет
Как сделать тоже самое 
Код

Dim items As XmlNodeList = doc.GetElementsByTagName(pParam)
        For Each x As XmlNode In items
            Return x.InnerText
          
        Next x
        Return Nothing


но при помощи linq
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0915 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.