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

Поиск:

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


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


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

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



В этой теме задаём всевозможные мелкие вопросы, ради решения которых не стоит создавать отдельную тему. Очень часто бывает, что подобные вопросы кидают вдогонку в другуи етемы, в которых обсуждаются другие вопросы. Это нарушает одно из правил форума "Один топик - один вопрос". Поэтому если вы считаете, что вашь вопрос может быть решён быстро и не стоит ради него создавать отдельную тему  - добро пожаловать сюда.


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


Новичок



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

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



Код

        Dim tb4 As New DataTable 'временная таблица для выбора 
        tb4.Columns.Add("prefix", GetType(Long))
        tb4.Columns.Add("number", GetType(Long))
        Dim temprow As Integer

        temprow = 0

        For f = 0 To tb3.Rows.Count()

            If tb2.Rows(0).Item(1) = tb3.Rows(f).Item(2) Then
                'tut perenos nado
                tb4.Rows(temprow).Item(0) = tb3.Rows(f).Item(0) 'копируем префикс
                tb4.Rows(temprow).Item(1) = tb3.Rows(f).Item(1) 'копируем номер
                temprow = temprow + 1

            End If


        Next f


Помогите записать все содержимое tb4  datatable в файл txt. Пробовал поиск но оказалось сложно для моего понимания.
И есть какой-то способ зачистить datatable чтоб она была пуста? мне для цикла надо...
PM MAIL   Вверх
diadiavova
Дата 17.6.2010, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(AChrist @  17.6.2010,  18:40 Найти цитируемый пост)
И есть какой-то способ зачистить datatable чтоб она была пуста?

System.Data.DataTable.Clear()

Цитата(AChrist @  17.6.2010,  18:40 Найти цитируемый пост)
   If tb2.Rows(0).Item(1) = tb3.Rows(f).Item(2)

У тебя это условие не выполнится никогда из-за того, что индексация с нуля начинается и при двух столбцах столбца с индексом 2 быть просто не может.

А вообще для сохранения таблицы используй метод WriteXml.


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


Опытный
**


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

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



http://forum.vingrad.ru/forum/topic-300497/15.html
в файле есть текст
Chast1:Chast2
как разделить его что б часть 1 ишла в текстбокс1 а часть 2 в текстбокс 2 их ведь роделяет ":"
весь текст записан в столбчик... 


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Exai1e
Дата 1.7.2010, 10:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Natapro
Код

            string[] srcString = File.ReadAllLines(@"C:\some1.txt");

            foreach (string currentString in srcString)
            {
                int sepIndex = currentString.IndexOf(':');
                string partOne = currentString.Substring(0, sepIndex);
                string partTwo = currentString.Substring(++sepIndex, currentString.Length - sepIndex);
            }


упс не заметил что тема в разделе VB, извиняюсь

Это сообщение отредактировал(а) Exai1e - 1.7.2010, 10:33


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
diadiavova
Дата 1.7.2010, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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





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


Опытный
**


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

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



не нашла там.. (( помоги пожалуйста


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
diadiavova
Дата 1.7.2010, 18:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



А чо там искать? первый же метод
Код

Dim s = "Chast1:Chast2"
Dim sa = s.Split(":"c)
MsgBox(sa(0))
MsgBox(sa(1))



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


Опытный
**


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

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



0-1 это до и после : да ?


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Exai1e
Дата 1.7.2010, 18:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Natapro, да


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
diadiavova
Дата 1.7.2010, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Natapro @  1.7.2010,  19:06 Найти цитируемый пост)
0-1 это до и после : да ?
У тебя получается массив строк, в элементах которого будет все, что между сепараторами.


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


Новичок



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

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



К сожалению не понимаю этого метода WriteXML...

Код

<?xml version="1.0" standalone="yes"?>
<DocumentElement />


Вот что получаю когда хочу всю таблицу в файл скинуть.
Код




 Dim temprow, x As Integer

        For x = 0 To tb2.Rows.Count - 1

            For f = 0 To tb3.Rows.Count() - 1

                If tb2.Rows(x).Item(2).ToString = tb3.Rows(f).Item(2).ToString Then
                    'тут запись из списка всех номеров только этого региона во временную таблицу
                    tb4.Rows(temprow).Item(0) = tb3.Rows(f).Item(0) 'копируем префикс
                    tb4.Rows(temprow).Item(1) = tb3.Rows(f).Item(1) 'копируем номер

                End If
                temprow = temprow + 1
            Next f

        Next x
        tb4.WriteXml("C:\1.txt")


И вообще может я совсем неправильно создавал таблицы?
Код

Public Class Form1
    Public Dim tb2 As New DataTable("tab2")
    Public tb1 As New DataTable("location")
    Public tb3 As New DataTable("persons")
    Public tb4 As New DataTable("temptab") 

tb2.Columns.Add("col1", GetType(String)) 
        tb2.Columns.Add("col2", GetType(Integer)) 
        tb2.Columns.Add("col3", GetType(Integer))
        tb1.Columns.Add("col1", GetType(String))
        tb1.Columns.Add("col2", GetType(Integer))
        tb1.Columns.Add("col3", GetType(Integer))
        tb3.Columns.Add("prefix", GetType(Long))
        tb3.Columns.Add("phone", GetType(Long))
        tb3.Columns.Add("locationid", GetType(Integer))
        tb4.Columns.Add("prefix", GetType(Long))
        tb4.Columns.Add("number", GetType(Long))


Вот так я создаю таблицы в которых держу данные.


Помогите пожалуйста сохранить таблицу tb4 в обычном txt файле. Файл в идеале должен получится tb4 столбик 1 + "-" + tb4 столбик 2 + "\n"


Это сообщение отредактировал(а) AChrist - 5.8.2010, 14:41
PM MAIL   Вверх
diadiavova
Дата 5.8.2010, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



AChrist, а почему ты не используешь базы данных? Ведь это все делается с помощью простейших запросов?


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


Новичок



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

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



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

я совсем начинающий в этом деле, уж простите  smile ...
PM MAIL   Вверх
diadiavova
Дата 5.8.2010, 18:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



AChrist, тогда объясни словами, что у тебя там и с чем пересекается, потому что, судя по всему таблица у тебя не заполняется.


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


Новичок



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

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



Нашел несколько ошибок у себя в разделе считывания с файла, потом стало получаться и стал выходить из проблем. 
Изменил стиль записи в таблицу и стало нормально записываться. 
Может кому пригодится:
Код

If tb2.Rows(x).Item(1) = tb3.Rows(f).Item(2) Then

                    trow = tb4.NewRow
                    trow(0) = tb3.Rows(f).Item(0)
                    trow(1) = tb3.Rows(f).Item(1)
                    tb4.Rows.Add(trow(0), trow(1))

                End If


PM MAIL   Вверх
AChrist
Дата 8.9.2010, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здравствуйте, стало интересно, как можно включить в проект файлы, что бы в итоге я имел 1 файл "myprog.exe" который уже содержит все что надо. 
Сейчас у меня получается так: file.csv, file2.csv, myprog.exe. А я хотел бы, чтоб myprog.exe уже содержал эти файлы.  

Я пробовал My.Resources.file, но при моем виде как я считывал файл - получается совсем не то. 

Вот так сейчас выглядит код:
Код

        Dim sFilename As String = "file.csv"
        Dim myStream As System.IO.StreamReader = New System.IO.StreamReader(sFilename)
        Dim line As String
        Dim aRow As DataRow
        Do
            line = myStream.ReadLine()
            If line Is Nothing Then
                Exit Do
            End If

'magic

        Loop
        myStream.Close()


Подскажите пожалуйста как быть?

PM MAIL   Вверх
diadiavova
Дата 8.9.2010, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



В свойствах проекта открой вкладку "Ресурсы", выбери тип ресурса и имя. Доступ в коде получишь через 
Код

My.Resources.<Имя ресурса>



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


Новичок



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

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



Код

My.Resources.<Имя ресурса>


Я пробовал это, но visual studio мне сsv  файл превращает в одну сплошную строку

Это сообщение отредактировал(а) AChrist - 10.9.2010, 12:07
PM MAIL   Вверх
diadiavova
Дата 10.9.2010, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(AChrist @  10.9.2010,  13:06 Найти цитируемый пост)
Я пробовал это, но visual studio мне сsv  файл превращает в одну сплошную строку

А надо? smile 


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


Новичок



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

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



А надо, чтоб я построчно мог считывать  smile 
PM MAIL   Вверх
diadiavova
Дата 10.9.2010, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Хочешь сказать, что обрывы строк удаляются? smile Такого быть не должно. smile 


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


Новичок



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

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



ссылка1
ссылка2

похоже, что да... или я может не так считываю из ресурсов.
PM MAIL   Вверх
diadiavova
Дата 10.9.2010, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(AChrist @  10.9.2010,  18:44 Найти цитируемый пост)
или я может не так считываю из ресурсов. 

Я у тебя там построчного считывания вообще не вижу. Ты сразу же в первой итерации цикла считываешь весь текст. Хотя всего кода там не видно
Код

Dim sr As New Io.StringReader(My.Resources.loca)
Dim line As String = sr.ReadLine()
Do Until String.NullOrEmpty(line)
    'Здесь добавляй line куда надо
    line = sr.ReadLine()
Loop
sr.Dispose()

Код набросал примерно, так что, если что подправь сам.

Это сообщение отредактировал(а) diadiavova - 10.9.2010, 18:17


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


Новичок



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

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



Спасибо! Вы можно сказать просто ткнули меня в мою собственную невнимательность и не способность догадаться правильно переделать по аналогии свой же код. Ведь все тоже самое уже было написано, но переделать надо было как Вы набросали.

PM MAIL   Вверх
andrey1636
Дата 16.8.2011, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Есть два текстбокса и кнопка. Какой нужен код, чтобы кнопка активировалась если 2 строки заполнены?
Код

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If TextBox1.Text = "" And TextBox3.Text = "" Then
            PictureBox10.Visible = False
        Else
            PictureBox10.Visible = True
        End If

Не робит, хотя в vb6 робило...

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


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


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

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



Цитата(andrey1636 @  16.8.2011,  16:19 Найти цитируемый пост)
Не робит, хотя в vb6 робило...

А что должно происходить-то? Я так понимаю, при загрузке формы текстбоксы всегда в одном состоянии находятся(например пусты), стало быть картинка всегда будет тоже появляться в одном состоянии. Если код разместить в обработчике клика какой-то кнопки, то в принципе должно работать. Только вместо And лучше использовать AndAlso(хотя и не обязательно, но о различиях читай мсдн), ну и код этот можно написать покороче

Код

PictureBox10.Visible = Not (TextBox1.Text = "" AndAlso TextBox3.Text = "")

А так я не вижу причин, для того, чтобы это не работало.


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


Новичок



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

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



Судя по коду, это процедура загрузки формы (Me.Load) Естественно, во время загрузки формы, текстБоксы пустые.
Больше эта процедура вызываться не будет, поэтому и код Visible = False / Visible = True не выполнится.
Надо привязываться к событиям изменения содержимого TextBox'-ов...


Код


Public Class Form1

Private Sub TextBox_Changed() Handles TextBox1.TextChanged, TextBox2.TextChanged
If TextBox1.Text = "" And TextBox2.Text = "" Then
Button1.Enabled = False
Else
Button1.Enabled = True
End If
End Sub

End Class


Вот в чем ошибка была) Спасибо мужику с ответы@mail.ru smile 

А подскажите код сворачивания окна. Что то найти не могу...

Это сообщение отредактировал(а) andrey1636 - 17.8.2011, 07:57
PM MAIL   Вверх
diadiavova
Дата 17.8.2011, 08:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(andrey1636 @  17.8.2011,  08:57 Найти цитируемый пост)
Судя по коду, это процедура загрузки формы 

Что значит судя по коду? Ты написал код и не знаешь что и когда он делает что ли? smile 
Цитата(andrey1636 @  17.8.2011,  08:57 Найти цитируемый пост)
Больше эта процедура вызываться не будет, поэтому и код Visible = False / Visible = True не выполнится.

Ну я вообще-то это и написал
Цитата(diadiavova @  16.8.2011,  19:56 Найти цитируемый пост)
Я так понимаю, при загрузке формы текстбоксы всегда в одном состоянии находятся(например пусты), стало быть картинка всегда будет тоже появляться в одном состоянии. 


Цитата(andrey1636 @  17.8.2011,  08:57 Найти цитируемый пост)
А подскажите код сворачивания окна. Что то найти не могу...

http://msdn.microsoft.com/ru-ru/library/sy...indowstate.aspx


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


Новичок



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

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



diadiavova, это я процитировал чувака, который мне помог smile 
Во, спасибище за код smile 
PM MAIL   Вверх
diadiavova
Дата 17.8.2011, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



А почему не заменил это
Код

If TextBox1.Text = "" And TextBox2.Text = "" Then
Button1.Enabled = False
Else
Button1.Enabled = True
End If
Этим
Код

Button1.Enabled = Not (TextBox1.Text = "" AndAlso TextBox2.Text = "")
smile 

Это сообщение отредактировал(а) diadiavova - 17.8.2011, 21:22


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


Новичок



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

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



Не знаю smile 
Вот еще вопрос. Программы на написанные на VS2008 требуют установленной NF3.5. Как этого избежать? Или мне переходить с vb.net'а на vb6? smile 
PM MAIL   Вверх
diadiavova
Дата 18.8.2011, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(andrey1636 @  18.8.2011,  11:29 Найти цитируемый пост)
Вот еще вопрос. Программы на написанные на VS2008 требуют установленной NF3.5. Как этого избежать?

В вс 2008 при создании проекта можно выбрать целевой фреймворк. Если выбрать 2.0, то они будут требовать именно его.
Цитата(andrey1636 @  18.8.2011,  11:29 Найти цитируемый пост)
Или мне переходить с vb.net'а на vb6? 

Если установка фреймворка на целевом компьютере - проблема, то переходи. Хотя фреймворк уже в состав винды входит.


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


Новичок



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

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



Как сделать форму  в VB невидимой для мыши.
Есть полупрозрачная форма, надо сделать так, что бы все, 
что находится под ней реагировало на мышь(клики и т.д.).
Пример: 
Полупрозрачная форма находится над папкой(на рабочем столе), 
мы щелкаем по папке, форма нажатия мыши игнорирует, а папка открывается.
Заранее спасибо.

Это сообщение отредактировал(а) hmaraegor - 8.12.2011, 00:54
PM MAIL   Вверх
diadiavova
Дата 8.12.2011, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



hmaraegor, честно говоря, не уверен, что такое вообще возможно. А где ты такое видел?


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


Новичок



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

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



Не могу вспомнить, но где-то точно было.
Кажется огромные, почти прозрачные, часы во весь экран.
Там можно было и за компьютером нормально работать, и часы видеть.
PM MAIL   Вверх
workout333
Дата 31.1.2012, 19:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



я рад что у вас все получается
PM MAIL ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
ItsAtrap
Дата 6.2.2012, 08:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Всем привет. Ближайшие несколько месяцев буду докучать нубскими вопросами. Не серчайте.
Видимо эта тема как раз для меня.  smile 

Начал заниматься по учебнику: Зибиров В.В. - Visual Basic 2010 на примерах.

Первый вопрос:
Уже разобрался (вроде).

Код

    Sub Main()
        Dim X, Y, Z As Single
        Console.WriteLine("Please, enter first number:")
        X = Console.ReadLine()                                        ' Вводим переменную X
        Console.WriteLine("Please, enter second number:")
        Y = Console.ReadLine()                                        ' Вводим переменную Y
        Z = X + Y                                                     ' Присваеваем переменной Z значение X + Y
        Console.WriteLine("здесь текст", X, Y, Z)                     ' Проблема вот здесь. Процедура(?) должна выводить "здесь текст" и значения 3-х переменных. У меня выводит только "здесь текст".
        Console.ReadLine()
    End Sub


Вместо символа "," ставить "&". В учебнике стоят запятые.
Код

        Console.WriteLine(X & " + " & Y & " = " & Z)


Вопрос номер два.
Как сделать самую простую проверку на введение числа, и а не букв или других символов.

Вроде и с этим разобрался. Через IsNumeric.

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


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


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

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



Цитата(ItsAtrap @  6.2.2012,  09:06 Найти цитируемый пост)
Проблема вот здесь. Процедура(?) должна выводить "здесь текст" и значения 3-х переменных. У меня выводит только "здесь текст".
        Console.ReadLine()

Ну естественно она будет выводить тот текст, который ты ввел. а ты попробуй написать вот так
Код

Console.WriteLine("{0} + {1} = {2}", X, Y, Z) 
 smile 


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


Новичок



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

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



Ядрён батон! Вот это да =)))) Я и не думал, что он может что-то понимать внутри кавычек.
Спасибо. Впредь обещаю быть внимательнее.

Разбираюсь дальше.
PM MAIL   Вверх
error0x40
Дата 14.2.2012, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Есть идея для перевода на несколько языков не большой программы. 
Пример файла языка:

mnuFile->Файл
mnuFileOpen->Открыть
mnuFileClose->Закрыть

Данные строки относятся к главному меню
Как избежать избыточного кода? Альтернатива следующему:


Код

//код открытия файла языка
//помещение строки в массив Line типа String

//Назначение текста у одного контрола тип MenuItems
Dim nId as Integer

nId = Line.FindString("mnuFile")

If nFind >=0 Then 
Dim Text as String() = Split(Line(nId), "->")
mnuFile.Text = Line(1)
End IF


Т.е. мне нужно получить все имеющиеся контролы на всех формах, и каждому присвоить в свойство Text строку назначенную в файле.
Как реализовать правильней функцию назначения каждому элементу формы?

Буду благодарен за помощь.



Это сообщение отредактировал(а) error0x40 - 14.2.2012, 21:26
PM MAIL   Вверх
error0x40
Дата 14.2.2012, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Извините за глупый вопрос, собственно решил своими силами:

Код

    Dim MyContol As Control.ControlCollection

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim nID As Integer
        Dim Text As String()
        MyContol = Me.Controls

        For i = 0 To MyContol.Count - 1
            nID = ListText.FindString(MyContol.Item(i).Name)
            If nID >= 0 Then
                Text = Split(ListText.Items(nID), "->")
                If Text(1) <> Nothing Then MyContol.Item(i).Text = Text(1)
            End If
        Next
    End Sub


Выслушаю любые альтернативные варианты

Это сообщение отредактировал(а) error0x40 - 14.2.2012, 22:23
PM MAIL   Вверх
diadiavova
Дата 15.2.2012, 00:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(error0x40 @  14.2.2012,  22:11 Найти цитируемый пост)
Есть идея для перевода на несколько языков не большой программы. 

Хорошая идея, только зачем велосипед изобретать? Поищи в msdn по слову "Локализация" или можно начать к примеру отсюда
http://msdn.microsoft.com/ru-ru/library/y99d1cd3.aspx



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


Новичок



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

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



diadiavova,  спасибо,  честно говоря я даже не знал=)
PM MAIL   Вверх
Feller
Дата 22.2.2012, 09:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Как вернуть путь где находится приложение? Ну аналог |DataDirectory|.
PM MAIL   Вверх
diadiavova
Дата 22.2.2012, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Feller, в винформ приложении - System.Windows.Forms.Application.StartupPath , а ток вообще можно получить его через System.Windows.Forms.Application.StartupPath, или к примеру через
System.Reflection.Assembly.GetExecutingAssembly().Location



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


Шустрый
*


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

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



diadiavova,  А как получить доступ например у меня в папке приложения есть папки import и экспорт как можно получить путь до них ?

PM MAIL   Вверх
diadiavova
Дата 23.2.2012, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Feller @  23.2.2012,  10:10 Найти цитируемый пост)
diadiavova,  А как получить доступ например у меня в папке приложения есть папки import и экспорт как можно получить путь до них ?

Ну так построить путь например с помощью методов класса System.IO.Path.


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


Шустрый
*


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

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



diadiavova,  Помогите пожалуйста функцию на C# перевести в VB.net


Код

  public static string Encode(string cStr)
        {
            int length = 0;
            string str = "j,ofzyfghfdktyyjcnmcfvjghjbpdjkmys[ghjwtccjdytnjkmrjzdkztnczghbxbyjqkf,bkmyjcnbdscjrjlbcgthcnys[cbcntvyjbjnrhsdftngenmcnf,bkbpfwbblbcgthcnyjcnbgentvbpvtytybzvt;afpjds[gjdth[yjcntq";
            string str3 = "";
            string str2 = str;
            length = cStr.Length;
            while (length > str.Length)
            {
                str = str + str2;
            }
            for (int i = 0; i < length; i++)
            {
                string str4 = Convert.ToString((int) (cStr[i] ^ str[i])).PadLeft(3, '0');
                str3 = str3 + str4;
            }
            return str3;
        }


PM MAIL   Вверх
diadiavova
Дата 7.6.2012, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Feller, с таким простым кодом вполне справится любой автоматический конвертер. Вот такой например(нашел за пару минут в гугле)
http://converter.foxtools.ru/Default.aspx


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


Шустрый
*


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

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



diadiavova
В этом месте возникает ошибка    Оператор "Xor" для типов "Char" и "Char" не определен.
 
Код

Dim str4 As String = Convert.ToString(DirectCast(([cStr](i) Xor str(i)), Integer)).PadLeft(3, "0"c)

PM MAIL   Вверх
diadiavova
Дата 7.6.2012, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Feller @  7.6.2012,  15:26 Найти цитируемый пост)
В этом месте возникает ошибка    Оператор "Xor" для типов "Char" и "Char" не определен.

Нужно привести к типу Integer, то есть замени 
Код

[cStr](i) Xor str(i)

на
Код

CInt([cStr](i)) Xor CInt(str(i))



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


Шустрый
*


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

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



diadiavova

Студия выдала ошибку сказала что char нельзя преобразовать в integer, и предложила вариант AscW. Хотя  AscW не подходит, он не конвертирует в integer.
Код

 Dim str4 As String = Convert.ToString((CInt(AscW([cStr](i))) Xor (CInt(AscW(str1(i)))))).PadLeft(3, "0"c)


PM MAIL   Вверх
diadiavova
Дата 7.6.2012, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Feller @  7.6.2012,  15:48 Найти цитируемый пост)
Хотя  AscW не подходит, он не конвертирует в integer.

Ну эта функция делает как раз то, что надо. Есть еще у самой структуры Char метод, который можно использовать. Просто в шарпе это делает компилятор, а в бейсике надо делать вручную.

Добавлено через 1 минуту и 43 секунды
Метод, о котором я написал - System.Char.ConvertToUtf32


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


Шустрый
*


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

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



diadiavova, Спасибо
А что за метод в Char?  А для чего нужен оператор XOR , в msdn почитал но там не множко не понятно.
PM MAIL   Вверх
diadiavova
Дата 7.6.2012, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Feller @  7.6.2012,  15:57 Найти цитируемый пост)
А что за метод в Char? 

Я же написал
Цитата(diadiavova @  7.6.2012,  15:51 Найти цитируемый пост)
System.Char.ConvertToUtf32 

 smile 

Цитата(Feller @  7.6.2012,  15:57 Найти цитируемый пост)
А для чего нужен оператор XOR , в msdn почитал но там не множко не понятно. 

Что именно непонятно? Я знаю ровно то, что написано в мсдн.


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


Шустрый
*


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

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



Как из строки заменить 3 символа ,:.  на пустоту.?Это можно сделать при помощи Replace но тогда Replace придётся писать 3 раза.
PM MAIL   Вверх
diadiavova
Дата 14.7.2012, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Feller @  29.6.2012,  08:58 Найти цитируемый пост)
но тогда Replace придётся писать 3 раза. 

Если это проблема, то решить можно методом Replace класса Regex.
Нужный тебе паттерн будет выглядеть так
Код

[,:\.]


Это сообщение отредактировал(а) diadiavova - 14.7.2012, 19:05


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


Шустрый
*


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

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



имеется текст файл.как удалить строчку в файле ,если знаем что строчка должна содержать в себе "строчка".перерыл 4 форума.приемлимого  ответа не нашел.код 2-3 строчки должен занимать,как мне кажется
PM MAIL   Вверх
diadiavova
Дата 27.8.2012, 18:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



gangsterovich, Так, а в чем проблема-то? Считываешь файл с помощью IO.File.ReadAllLines, получаешь массив строк передаешь их в другую коллекцию, проверяя попутно нет ли там удаляемой строчки(ее пропусти), что останется либо впиши в файл заново построчно( с помощью StreamWriter например), либо объедини с помощью String.Join и запиши в файл в одно действие.


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


Шустрый
*


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

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



Как сделать регулярку для проверки номера 792123456777 чтоб код был 792 и номер телефона 9 значным, заранее спасибо
PM MAIL   Вверх
diadiavova
Дата 6.11.2012, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



^792\d{9}$


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


Новичок



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

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



Всем здравствуйте! Есть проблема - странно запускается приложение на другом компьютере - на форме каша из объектов. Установлен VB.NET express 2008 на обеих машинах. Подскажите пожалуйста,  где ковырять ? 
PM MAIL   Вверх
diadiavova
Дата 23.2.2013, 10:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



swq25, недостаточно информации, чтобы сказать что-то конкретное.


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


Новичок



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

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



Добрый день ! Уточняю по поводу запуска приложений. Открываю проект , выполняю пункт   построение -> построить . Построение без ошибок и предепреждений.  Из каталога имя_проекта-bin копирую папку release на флешку. Запускаю на другой машине с установленным с одной копии vb.net 2008 и получаю кашу на экране.  Сморю второй день на это безобразие и продолжать не хочется. На третьей машине такая же хрень. Даже обработка нажатий кнопок на форме не корректная. Наверное очередная лажа от мелкософта ?

Перенес папку с  проектом на другую машину. Эффект тот же !!!!!!!!!!!!!?????????????


Это сообщение отредактировал(а) swq25 - 24.2.2013, 07:03

Присоединённый файл ( Кол-во скачиваний: 10 )
Присоединённый файл  2013_02_24_060018.png 173,73 Kb
PM MAIL   Вверх
diadiavova
Дата 24.2.2013, 09:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



swq25, то, что ты описал, было ясно и с первого раза. Каким, по-твоему, образом я или кто-либо ещё сможем определить источник проблемы, не зная о программе ровным счётом ничего кроме того, что она неправильно работает? 
Цитата(swq25 @  24.2.2013,  07:22 Найти цитируемый пост)
Наверное очередная лажа от мелкософта ?

 Началось. smile


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


Новичок



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

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



Прошу прощения, но  по-моему такой эффект вызван не моими способностями в программировании. Обычная форма, обычные объекты. Позволю себе повториться -  При открытии проекта на другом компе - форма имеет вид как на картинке. В проекте еще нет ни одной строчки, написанной мной.
PM MAIL   Вверх
diadiavova
Дата 24.2.2013, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(swq25 @  24.2.2013,  10:56 Найти цитируемый пост)
Прошу прощения, но  по-моему такой эффект вызван не моими способностями в программировании. 

Технология, о которой мы говорим, существует более десяти лет, при этом речь идёт не о какой-то поделке никому неизвестного энтузиаста, а о флагманском продукте одного из лидеров софтверного рынка. На протяжении всего этого времени огромная армия разработчиков пишет неимоверное количество программных продуктов, используя .Net Framework и всё у них получается. Но вот приходит новичок, первый опыт работы с технологией оказался неудачным, и во всём ессно виноват производитель продукта, но только не сам новичок. Я ничего не упустил? 

Цитата(swq25 @  24.2.2013,  10:56 Найти цитируемый пост)
Обычная форма, обычные объекты. 

Что форма и контролы обычные, я тоже понял, я не понял, что ты с ними делал, что они так себя повели. Если бы ты выложил проект, это, возможно, прояснило бы ситуацию, но поскольку проект у тебя секретный и выложить ты его не можешь, что ж, так и быть достану свой хрустальный шар и буду смотреть через него...
Во-первых, для распространения проекта, его желательно бы не скопировать из указанной папки, а опубликовать и на целевой машине выполнить установку. Не думаю, что проблема именно в этом, хотя вполне может быть, что такой подход её и решит.
Во-вторых, если ты потыкал в дизайнере, это ещё не значит, что ты не занимался программированием, ибо компановка элементов управления - задача ой какая непростая. В технологию компановки обычно закладывается не только возможность расположить контрол где надо, но и динамическое поведение, регулирующее взаиморасположение контролов при изменении размеров формы или её частей, а так же то, как всё это хозяйство будет выглядеть в условиях экрана с другим разрешением или, скажем, в другой локализации, где надписи на другом языке могут занимать пространство другого размера.
Кроме того, меня малость смущает, что в последнем посте ты пишешь об отсутствии в проекте твоего кода, хотя в предыдущем жаловался на то, что кнопки неправильно реагируют на клики. Как они должны на них реагировать, если код обработки ты не писал? Что-то здесь не сходится smile


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


Новичок



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

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



Вот это и смущает - без хрустального шара трудно обойтись . Еще бубна для комплекта не хватает.
Делаю вывод - VB.net в мусорку. Не хочу тратить свое время и простите, что отнял Ваше.

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


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


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

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



 Ну удачи тогда, она явно будет кстати smile


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


Шустрый
*


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

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



Как можно преобразовать системную дату в формат 'YYYYMMDDHH24MISS'? Зарание спасибо
PM MAIL   Вверх
diadiavova
Дата 27.3.2013, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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





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


Шустрый
*


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

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



diadiavova,  Что я не нашёл там как задать нужный мне формат , в sql это легко TO_CHAR(SYSDATE,  'YYYYMMDDHH24MISS'). Думаю это не правильно отправлять запрос в базу из за даты.

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


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


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

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





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


Шустрый
*


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

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



diadiavova,  Date.Now.ToString("YYYYMMDDHH24MISS")  не получаеться выдаёт  YYYY03DD15243ISS
PM MAIL   Вверх
diadiavova
Дата 27.3.2013, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 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 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 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 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 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 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 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 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 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 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 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 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 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   Вверх
diadiavova
Дата 6.6.2013, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Попробуй так
Код

Return From x As XmlNode In doc.GetElementsByTagName(pParam) Select x.InnerText



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


Новичок



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

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



Как реализовать в одной структуре два метода с одинаковми именами. Один метод принадлежит интерфесу, а второй структуре.
Код

Structure S
            Implements I

            Private m_prop As T


            ' Пишет: "... не могут перегружать друг друга, т. к. они отличаются только возвращаемыми типами."
            ' подчеркивает Prop
            Public ReadOnly Property Prop() As T
                Get
                    Return Me.m_prop 
                End Get
            End Property

            Public ReadOnly Property Prop() As Object Implements I
                Get

                End Get
            End Property
End Structure

PM MAIL   Вверх
diadiavova
Дата 5.8.2013, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Переименуй второе свойство, его имя не обязательно должно совпадать с именем в интерфейсе.


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


Шустрый
*


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

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



Как сравнить два datatable  и найти одинаковые значения по 2 полям?
PM MAIL   Вверх
diadiavova
Дата 10.12.2013, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Feller @  10.12.2013,  23:25 Найти цитируемый пост)
Как сравнить два datatable  и найти одинаковые значения по 2 полям? 

Двойным циклом. Во внешнем перебираешь строки первой таблицы, во внутреннем - второй. Внутри сравниваешь.

Добавлено через 1 минуту и 52 секунды
А вообще вопрос не очень понятен, это общий метод, но для конкретного случая может и можно найти более элегантное решение.


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


Шустрый
*


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

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



Функция возвращает sql.GetDateUpdate() строку из базы  20.01.2014 0:00:00.
Как её преобразовать к формату  dd.MM.yyyy?
Зарание спасибо.

Me.txtDateUpdate.Text = [String].Format(sql.GetDateUpdate(), "dd.MM.yyyy") не работает
PM MAIL   Вверх
diadiavova
Дата 11.2.2014, 00:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Код

Date.Parse("20.01.2014 0:00:00").ToString("dd.MM.yyyy")



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


Шустрый
*


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

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



Спасибо
PM MAIL   Вверх
Feller
Дата 11.2.2014, 10:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Есть DataSet который заполняет контрол , после того как он его заполнил я хочу достучаться к нему из своей формы form2? Private row1 As form1.PersonsDataset.PERSONSRow = form1.PersonsDataset.PERSONSRow
PM MAIL   Вверх
diadiavova
Дата 12.2.2014, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Feller @  11.2.2014,  11:16 Найти цитируемый пост)
Есть DataSet который заполняет контрол , после того как он его заполнил я хочу достучаться к нему из своей формы form2? Private row1 As form1.PersonsDataset.PERSONSRow = form1.PersonsDataset.PERSONSRow 

К приватному полю можно достучаться через свойство с более широкой областью видимости. Либо создай метод, который будет присваивать ему значение, переданное аргументом.


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


Шустрый
*


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

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



ок, спасибо

Добавлено через 1 минуту и 10 секунд
Как можно скопировать данные из колонки в DataSet в переменую?
PM MAIL   Вверх
diadiavova
Дата 12.2.2014, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Feller @  12.2.2014,  13:04 Найти цитируемый пост)
Как можно скопировать данные из колонки в DataSet в переменую? 

А что такое колонка в DataSet? Там есть таблицы, связи и всякое такое, а колонки есть уже у самих таблиц. В таблице просто обойди строки и получи из каждой значение нужной ячейки.


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


Новичок



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

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



Добрый вечер!Недавно начал изучать программирование,в частности, тему "переменные".Создал программу,но работает она неверно.(например при значении Text1 =2, Text 2 равен 3)Найдите ошибку,заранее спасибо)

Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  ПРОГРАММА.png 195,28 Kb
PM MAIL   Вверх
Timeformiaa
Дата 11.6.2014, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Получается "3",а должно  быть "4"

Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  Безымянный.png 207,22 Kb
PM MAIL   Вверх
diadiavova
Дата 11.6.2014, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Timeformiaa @  11.6.2014,  15:51 Найти цитируемый пост)
Получается "3",а должно  быть "4" 

Почему 4? У тебя Х инициируется со значением 2, далее к значению TextBox1 ты прибавляешь X*0.5, но 2*0.5 равно единице и таким образом во втором текстбоксе должно быть значение на 1 больше чем в первом. Так что все правильно.

И судя по скриншотам ты пишешь на старом бейсике, так что тебе сюда
http://forum.vingrad.ru/forum/vb-visual-basic.html


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


Новичок



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

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



Не понял.Значение tex1 = 2. X= значение text1 +2,то есть равно 4. Потом умножаем x * 0,5 и прибавляем опять значение text 1.Должно получится 4.Что не так?Порядок действий?

PM MAIL   Вверх
diadiavova
Дата 25.6.2014, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Timeformiaa, Х у тебя инициируется при загрузке формы и своё значение нигде не меняет. В момент инициализации текстовое поле пусто, что при приведении его значения к числовому типу интерпретируется как ноль. Таким образом значение Х у тебя всегда будет 2.


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


Новичок



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

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



Хорошо,а можно ли сделать так,как я хотел бы?То есть чтобы число ,введенное в text1 влияло на X?
PM MAIL   Вверх
diadiavova
Дата 25.6.2014, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Присваивай значение переменной в обработчике события изменения текста текстбокса. Если ты работаешь с VB6(об этом сужу из картинки), то код будет таким (насколько я знаю)
Код

Private Sub TextBox1_Change()
    If IsNumeric(TextBox1.Text) Then
       X = Val(TextBox1.Text)
    End If
End Sub




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


Новичок



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

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



Спасибо.а что обозначает эта строка:If IsNumeric(TextBox1.Text) Then?


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


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


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

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



Проверка, являются ли введённые символы числом. Если не нужно - можешь убрать, работать будет и без этого.


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


Новичок



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

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



Всем привет! 
Прошу, уважаемые форумчане, объясните кто-нибудь разницу между итератором и методом рекуренции. Если у кого-нибудь есть пример написания какого-нибудь кода и тем и другим способами, прошу выложить, мне это очень поможет. 

Заранее благодарю и жду Вашей помощи! 
PM MAIL   Вверх
diadiavova
Дата 12.11.2014, 21:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Timur95 @  12.11.2014,  12:01 Найти цитируемый пост)
методом рекуренции

Что это? smile 


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


Новичок



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

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



Цитата(diadiavova @ 12.11.2014,  21:03)
Цитата(Timur95 @  12.11.2014,  12:01 Найти цитируемый пост)
методом рекуренции

Что это? smile



Прошу прощения, 
метод рекурсии 

Так уж случилось. Совсем новичок в программировании, нужно понять принцип, а то я не могу записать формулу Фибоначчи, формулы Тейлора для синусов и косинусов, ряды Фаррея. 
Если кто может объяснить, прошу, помогите. Через неделю сессия
PM MAIL   Вверх
diadiavova
Дата 15.11.2014, 01:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Я так понимаю, под итераторами тоже подразумевались не итераторы, а итеративный метод вычисления.
Ну собственно различия в том, что итеративный метод реализуется через циклы, а рекурсивный - через самовызов функции с другим аргументом. В обоих случаях достигается повторение операции нужное количество раз, только в рекурсии управление вычислением достигается через аргумент функции, а в цикле - с помощью изменения значения какой-то переменной(как правило, хотя есть варианты). 

В качестве примера покажу вычисление числа Фибоначчи обоими способами
Код

   Function Fib_iter(n As Integer) As Integer
        Select Case n
            Case Is < 1
                Throw New ArgumentException("Аргумент должен быть больше нуля.")
            Case 1
                Return 0
            Case 2, 3
                Return 1
            Case Else
                Dim minus1 = 1
                Dim minus2 = 1
                Dim result As Integer
                For i = 4 To n
                    result = minus1 + minus2
                    minus1 = minus2
                    minus2 = result
                Next
                Return result
        End Select

    End Function

    Function Fib_rec(n As Integer) As Integer
        Select Case n
            Case Is < 1
                Throw New ArgumentException("Аргумент должен быть больше нуля.")
            Case 1
                Return 0
            Case 2, 3
                Return 1
            Case Else
                Return Fib_rec(n - 1) + Fib_rec(n - 2)
        End Select

    End Function


В обеих функциях сначала проверяется аргумент и если он меньше единицы - инициируется исключение, а для первых трех значений результат не вычисляется, а возвращается напрямую. Для всех остальных значений рекурсивная функция складывает результаты самовызова для предыдущих двух значений и таким образом мы получаем запись вычислительной логики близкую к математическому определению этого ряда. В итеративной функции результаты предыдущих вычислений запоминаются в двух переменных и в каждой итерации они складываются, после чего им присваиваются новые значения, актуальные для следующей итерации.
Для понимания рекурсивный метод вроде проще, но тут имеет место бешеный расход ресурсов. Подробнее читай здесь
https://ru.wikibooks.org/wiki/%D0%A0%D0%B5%....87.D1.87.D0.B8


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


Новичок



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

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



Цитата(diadiavova @ 15.11.2014,  01:00)
Я так понимаю, под итераторами тоже подразумевались не итераторы, а итеративный метод вычисления.
Ну собственно различия в том, что итеративный метод реализуется через циклы, а рекурсивный - через самовызов функции с другим аргументом. В обоих случаях достигается повторение операции нужное количество раз, только в рекурсии управление вычислением достигается через аргумент функции, а в цикле - с помощью изменения значения какой-то переменной(как правило, хотя есть варианты). 

В качестве примера покажу вычисление числа Фибоначчи обоими способами
Код

   Function Fib_iter(n As Integer) As Integer
        Select Case n
            Case Is < 1
                Throw New ArgumentException("Аргумент должен быть больше нуля.")
            Case 1
                Return 0
            Case 2, 3
                Return 1
            Case Else
                Dim minus1 = 1
                Dim minus2 = 1
                Dim result As Integer
                For i = 4 To n
                    result = minus1 + minus2
                    minus1 = minus2
                    minus2 = result
                Next
                Return result
        End Select

    End Function

    Function Fib_rec(n As Integer) As Integer
        Select Case n
            Case Is < 1
                Throw New ArgumentException("Аргумент должен быть больше нуля.")
            Case 1
                Return 0
            Case 2, 3
                Return 1
            Case Else
                Return Fib_rec(n - 1) + Fib_rec(n - 2)
        End Select

    End Function


В обеих функциях сначала проверяется аргумент и если он меньше единицы - инициируется исключение, а для первых трех значений результат не вычисляется, а возвращается напрямую. Для всех остальных значений рекурсивная функция складывает результаты самовызова для предыдущих двух значений и таким образом мы получаем запись вычислительной логики близкую к математическому определению этого ряда. В итеративной функции результаты предыдущих вычислений запоминаются в двух переменных и в каждой итерации они складываются, после чего им присваиваются новые значения, актуальные для следующей итерации.
Для понимания рекурсивный метод вроде проще, но тут имеет место бешеный расход ресурсов. Подробнее читай здесь
https://ru.wikibooks.org/wiki/%D0%A0%D0%B5%....87.D1.87.D0.B8

Огромное спасибо. Ответ Ваш очень развёрнутый, мне конечно не совсем понятны некоторые вещи, но я вижу, что здесь всё "разложено по полочкам". Ещё раз благодарю, пару дней почитаю ваше сообщение, думаю вопрос разницы между процессами отпадёт. 

Спасибо!
PM MAIL   Вверх
kshyms
Дата 25.9.2015, 07:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 303
Регистрация: 30.8.2006
Где: Душанбе

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



проект отлажен код рабочий на vb.net
D.Workbooks.open("expert.xlsx") 'Открываем книгу по указанному адресу для чтения
из другого проекта тоже код отлажен 
скомпилированный  .exe тоже работает с  expert.xlsx только если поместить его в папку c:документы 
   oBook.SaveAs("Book22.xls") файл сохраняется почему-то в папке c:документы хотя проект в диске e
.exe 
Вопрос как указать путь или изменить настройки ide что бы .exe 
 работал с файлами, которые находятся в одной папке не зависимо от месторасположения всего проекта

Добавлено через 13 минут и 5 секунд
проект отлажен код рабочий на vb.net
D.Workbooks.open("expert.xlsx") 'Открываем книгу по указанному адресу для чтения из другого проекта тоже код отлажен скомпилированный .exe тоже работает с expert.xlsx только если поместить его в папку c:документы 
 oBook.SaveAs("Book22.xls")  файл сохраняется почему-то в папке c:документы хотя проект в диске e
.exe 
Вопрос как указать путь или изменить настройки ide что бы .exe 
работал с файлами, которые находятся в одной папке не зависимо от месторасположения всего проекта? 
При работе с devc++ такой проблемы у меня не возникало. В чем проблема? 

PM MAIL WWW Skype   Вверх
diadiavova
Дата 7.11.2015, 23:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



kshyms, по идее, если верить документации, то сохраняться файл должен в той же папке, в которой находится исходный файл. 
Workbook.SaveAs - метод (Object, Object, Object, Object, Object, Object, XlSaveAsAccessMode, Object, Object, Object, Object, Object) (Microsoft.Office.Tools.Excel) 
Если это не подходит, то что мешает указывать полный путь к файлу?


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


Новичок



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

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



Помогите пожалуйста со скриптом vbs
нужен зацикленный скрипт запуска и закрытия программы
1 Запускается Calc.exe
2 Скрипт стоит в ожидании 60 сек
3 Закрывает Calc.exe
4 И снова по циклу запускает Calc.exe
PM MAIL   Вверх
diadiavova
Дата 15.6.2017, 19:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



virus3003, vbs - это совсем другой язык.


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


Новичок



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

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



diadiavova
Ну скрипт как он называется с расширением vbscript
PM MAIL   Вверх
diadiavova
Дата 15.6.2017, 22:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



virus3003, язык, которому посвящён этот раздел называется VB.Net. Это другой язык.


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


Новичок



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

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



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

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »


 




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


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

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