ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужно считать записи из dbgrid
174 сообщений из 174, показаны все 7 страниц
  все  
Нужно считать записи из dbgrid
    #36648919
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim mas() As Integer
Dim db As Database

Private Sub Command1_Click()
For i =  1  To Data1.Recordset.EOF
mas(i)= DBGrid1.
Data1.Recordset.NextRecordset
End If
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(Form1.CommonDialog1.FileName)
Set Data1.Recordset = db.OpenRecordset("Grafik")
End Sub

Нужно считать с бдгрида записи в массив, а потом по этим записям сделать график в таком стиле:
http://www.mforum.ru/quality/i/sqi4-1b.gif
в дбгриде вот что:
...
Рейтинг: 0 / 0
25.05.2010, 23:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648920
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
...
Рейтинг: 0 / 0
25.05.2010, 23:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648927
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Что нужно добавлять в массив?
...
Рейтинг: 0 / 0
25.05.2010, 23:31
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648932
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Поищите тут по слову "MSChart"
...
Рейтинг: 0 / 0
25.05.2010, 23:38
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648951
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Мне нельзя это использовать. Мб есть другие варианты что бы нарисовать график по запросу? Без дополнительных библиотек...
...
Рейтинг: 0 / 0
26.05.2010, 00:04
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648954
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsМне нельзя это использовать. Мб есть другие варианты что бы нарисовать график по запросу? Без дополнительных библиотек...

прямоугольники, линии, метки - вперед
...
Рейтинг: 0 / 0
26.05.2010, 00:09
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648960
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
У меня не получается считать данные в массив:
Код: plaintext
mas(i)= DBGrid1.
Я не знаю как из дбгрида запись выбрать.
...
Рейтинг: 0 / 0
26.05.2010, 00:11
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648975
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
а че в dbgrid movenext нету?
...
Рейтинг: 0 / 0
26.05.2010, 00:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648990
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Есть ток dbgrid1.Move
Капец как я задолбался(((
...
Рейтинг: 0 / 0
26.05.2010, 00:41
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648996
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
в ado так
Код: plaintext
Me.Adodc1.Recordset.MoveNext
а в data нет типо
Код: plaintext
Data1.Recordset.Movenext
или обязательно с GRIDA данные брать?
хотя вроде разницы нет
...
Рейтинг: 0 / 0
26.05.2010, 00:54
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648998
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Выбирайте из рекордсета
...
Рейтинг: 0 / 0
26.05.2010, 00:55
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649001
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
а в массив так загонять,примерно также думаю будет и в DATA
Код: plaintext
1.
2.
3.
4.
5.
ad1 = Me.Adodc1.Recordset.RecordCount
For i =  0  To ad1
mas(i)=Me.Adodc1.Recordset("mark_avto").Value
Me.Adodc1.Recordset.MoveNext
Next i
...
Рейтинг: 0 / 0
26.05.2010, 00:59
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649004
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
http://www.vbnet.ru/articles/Showarticle.aspx?id=178
зайди по ссылке там True DBGRID , можно использовать
вместо Dbgrid и как раз увидишь че как работает
...
Рейтинг: 0 / 0
26.05.2010, 01:02
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649009
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
С data1 тоже можно считывать?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim mas() As Integer
Dim db As Database
Dim rs As String

Private Sub Command1_Click()
rc = Data1.Recordset.RecordCount
For i =  0  To rc
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
Next i
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(Form1.CommonDialog1.FileName)
Set Data1.Recordset = db.OpenRecordset("Grafik")
End Sub
Recordset("Выражение1").Value - я вписал название второго столбца, правильно?
Пишет переполнение
...
Рейтинг: 0 / 0
26.05.2010, 01:07
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649012
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
aduka05admbosscs,
http://www.vbnet.ru/articles/Showarticle.aspx?id=178
зайди по ссылке там True DBGRID , можно использовать
вместо Dbgrid и как раз увидишь че как работает

Не могу пользоваться другими библиотеками, только теми, что дам препод.
...
Рейтинг: 0 / 0
26.05.2010, 01:09
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649018
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsПишет переполнение

и чему равно Data1.Recordset("Выражение1").Value ?
...
Рейтинг: 0 / 0
26.05.2010, 01:13
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649022
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.ProbosscsПишет переполнение

и чему равно Data1.Recordset("Выражение1").Value ?
713175025
...
Рейтинг: 0 / 0
26.05.2010, 01:16
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649024
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsShocker.ProbosscsПишет переполнение

и чему равно Data1.Recordset("Выражение1").Value ?
713175025

И куда вы пытаетесь это засунуть?
Код: plaintext
Dim mas() As Integer
...
Рейтинг: 0 / 0
26.05.2010, 01:18
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649030
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim mas() As Double
Dim db As Database
Dim rs As String

Private Sub Command1_Click()
rc = Data1.Recordset.RecordCount
For i =  0  To rs
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
Next i
End Sub

Становится на строку
For i = 0 To rs
Ошибка:
Type mismatch
...
Рейтинг: 0 / 0
26.05.2010, 01:24
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649031
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
bosscs
Recordset("Выражение1").Value - я вписал название второго столбца, правильно?
вам только с одного поля данные нужны или с двух?
...
Рейтинг: 0 / 0
26.05.2010, 01:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649032
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
неправильно
Код: plaintext
Dim rs As String
надо
Код: plaintext
Dim rs As Integer
...
Рейтинг: 0 / 0
26.05.2010, 01:27
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649037
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
Код: plaintext
1.
2.
3.
4.
5.
For i =  0  To rs
If NOT Data1.Recordset.EOF Then
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
End If
Next i
...
Рейтинг: 0 / 0
26.05.2010, 01:32
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649044
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
aduka05admbosscs,
bosscs
Recordset("Выражение1").Value - я вписал название второго столбца, правильно?
вам только с одного поля данные нужны или с двух?

Да блин мне хотя бы с одного считать, и то чудесно будет.
----
Код: plaintext
1.
2.
3.
4.
5.
For i =  0  To rs
If NOT Data1.Recordset.EOF Then
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
End If
Next i
Subscript out of range

И вообще вы что то не то написали.

Я уже ввел сам 11 значений
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim mas() As Double
Dim db As Database
Dim rs As Integer

Private Sub Command1_Click()
'rc = Data1.Recordset.RecordCount
For i =  0  To  11 
mas(i) = Data1.Recordset("Âûðàæåíèå1").Value
Data1.Recordset.MoveNext
Next i
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(Form1.CommonDialog1.FileName)
Set Data1.Recordset = db.OpenRecordset("Grafik")
End Sub
Становится на
mas(i) = Data1.Recordset("Выражение1").Value
ошибка:
Subscript out of range.
Я уже не знаю что это мб.
...
Рейтинг: 0 / 0
26.05.2010, 01:41
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649048
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscs,

Почитайте уже какой-нибудь учебник про массивы и типы данных. Чукча не читатель, чукча писатель?
...
Рейтинг: 0 / 0
26.05.2010, 01:49
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649054
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Можно тогда уже конкретнее в чем у меня ошибка? Не правильно объявлен массив?
...
Рейтинг: 0 / 0
26.05.2010, 01:57
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649061
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsМожно тогда уже конкретнее в чем у меня ошибка? Не правильно объявлен массив?

Я вам отвечу - да неправильно объявлен массив. Дальше вы опять начнете гадать, "а так правильно?", "а как правильно?", вместо того, чтобы почитать уже в конце-концов хоть какой-нибудь учебник, и подумать над каждой своей написанной строкой прежде, чем вываливать весь свой бред сюда и просить всех разобраться, где же вы забыли подумать.
...
Рейтинг: 0 / 0
26.05.2010, 02:08
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649069
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Ну, главное, что вы указали в каком месте ошибка, там я уже попробую разобраться. Если больше ошибок нет - все должно заработать.
...
Рейтинг: 0 / 0
26.05.2010, 02:37
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649288
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
попробуйте сначало выгружать в listbox (для проверки)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Command1_Click()
For i =  0  To  11 
If NOT Data1.Recordset.EOF Then
strtemp= Data1.Recordset("Выражение1").Value
List1.AddItem (str(strtemp))
Data1.Recordset.MoveNext
End If
Next i
End Sub
а эта строчка по идее должна работать у вас
Код: plaintext
rc = Data1.Recordset.RecordCount
...
Рейтинг: 0 / 0
26.05.2010, 10:16
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649299
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscsЕсли больше ошибок нет - все должно заработать.Отсутствие синтаксических ошибок не страхует от отсутствия логических ошибок.
...
Рейтинг: 0 / 0
26.05.2010, 10:20
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649321
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
aduka05adm
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Command1_Click()
For i =  0  To  11 
     If NOT Data1.Recordset.EOF Then
           ...
           Data1.Recordset.MoveNext
     End If
Next i
End Sub

Кстати, а зачем здесь цикл For? Где переход в начало рекордсета? Почему цикл только по 12-ти записям? Если в рекордсете меньше 12-ти записей, цикл будет работать в холостую, зачем? Почему нельзя сделать так:
Код: plaintext
1.
2.
3.
4.
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
   ....
   Data1.Recordset.MoveNext
Loop
...
Рейтинг: 0 / 0
26.05.2010, 10:26
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649446
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Dim mas( 11 ) As Variant
Dim db As Database
Dim rs As Long

Private Sub Command1_Click()
'rc = Data1.Recordset.RecordCount
'MsgBox Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
For i =  1  To  11 
mas(i) = Data1.Recordset("Âûðàæåíèå1").Value
MsgBox Data1.Recordset("Âûðàæåíèå1").Value
Data1.Recordset.MoveNext
Next i
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(Form1.CommonDialog1.FileName)
Set Data1.Recordset = db.OpenRecordset("Grafik")
End Sub

Если в массиве указать кол-ство записей (хотя в масиве начинается с 0 и сейчас 12 записей) то ошибок не выбивает. Но я заранее не знаю сколько будет элементов в массиве, потому нужно динамический массив.
...
Рейтинг: 0 / 0
26.05.2010, 11:06
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649501
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscs,

Перенаправлю вопросы
Кстати, а зачем здесь цикл For? Почему цикл только по 11-ти первым записям? Если в рекордсете меньше 11-ти записей будет ошибка, где обработка этой ситуации?

Зачем массив?
Для построения графика тебе нужно знать диапазон выводимых данных для оси Х и минимум и максимум для оси Y, что-бы правильно рассчитать коэффициенты масштабирования. После этого можно рисовать сразу, напрямую используя данные рекордсета.
В чем проблема?
Для получения границ данных можно сделать два дополнительных запроса, получить 4 числа и просчитать коэффициенты, после этого можно открывать всю таблицу и идти по каждой записи и сразу выводить данные на график.
...
Рейтинг: 0 / 0
26.05.2010, 11:24
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649534
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Игорь Горбонос,
Игорь ГорбоносКстати, а зачем здесь цикл For? Где переход в начало рекордсета? Почему цикл только по 12-ти записям? Если в рекордсете меньше 12-ти записей, цикл будет работать в холостую, зачем? Почему нельзя сделать так:
у меня при такой констукции выдавало постоянно ошибку , если я добавлял записи вручную за день до этого допустим, то цикл не останавливался
Код: plaintext
1.
2.
3.
4.
5.
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
   ....
   Data1.Recordset.MoveNext
Loop
а с for next в случае ошибки просто цикл заканчивался
...
Рейтинг: 0 / 0
26.05.2010, 11:30
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649541
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05admу меня при такой констукции выдавало постоянно ошибку , если я добавлял записи вручную за день до этого допустим, то цикл не останавливался

Надо открывать рекордсет в режиме SnapShot (KeySet)
...
Рейтинг: 0 / 0
26.05.2010, 11:31
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649555
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Игорь Горбонос,
правильно было так
Код: plaintext
1.
2.
3.
4.
5.
6.
rs=Data1.Recordset.RecordCount
For i =  0  To rs
If NOT Data1.Recordset.EOF Then
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
End If
Next i
...
Рейтинг: 0 / 0
26.05.2010, 11:34
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649557
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Игорь Горбоносbosscs,

Перенаправлю вопросы
Кстати, а зачем здесь цикл For? Почему цикл только по 11-ти первым записям? Если в рекордсете меньше 11-ти записей будет ошибка, где обработка этой ситуации?

Зачем массив?
Для построения графика тебе нужно знать диапазон выводимых данных для оси Х и минимум и максимум для оси Y, что-бы правильно рассчитать коэффициенты масштабирования. После этого можно рисовать сразу, напрямую используя данные рекордсета.
В чем проблема?
Для получения границ данных можно сделать два дополнительных запроса, получить 4 числа и просчитать коэффициенты, после этого можно открывать всю таблицу и идти по каждой записи и сразу выводить данные на график.

For i = 1 To 11
mas(i) = Data1.Recordset("Выражение1").Value
цикл, что бы пройтись по всем элементам массива.
У меня в дбгриде 11 записей, но я конечно хотел бы сделать что бы оно само считало сколько там записей, да и Data1.Recordset.RecordCount работает, 11 записей выводит, но у меня ошибку выбивает. Потому пока что хотя бы так сделать.

Если в рекордсете меньше 11-ти записей будет ошибка, где обработка этой ситуации?
Я до этого еще дойду, нужно сделать что бы оно считывало для начала.
Зачем массив хз, по другому не знаю как. Да и с массивом не знаю как)
Вообщем я хочу сделать график не столбиковый а точечный, думаю он легче будет. На оси Х я хочу равномерно разделить на части как то, а по у в высоту уже по точкам( Бредовая идея, но завтра блин работу здавать, я уже все что хочешь придумываю
...
Рейтинг: 0 / 0
26.05.2010, 11:35
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649576
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Proaduka05admу меня при такой констукции выдавало постоянно ошибку , если я добавлял записи вручную за день до этого допустим, то цикл не останавливался

Надо открывать рекордсет в режиме SnapShot (KeySet)
это для того чтобы запретить вносить данные?
...
Рейтинг: 0 / 0
26.05.2010, 11:37
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649585
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05admShocker.Proaduka05admу меня при такой констукции выдавало постоянно ошибку , если я добавлял записи вручную за день до этого допустим, то цикл не останавливался

Надо открывать рекордсет в режиме SnapShot (KeySet)
это для того чтобы запретить вносить данные?

Нет
Это для того, чтобы изменение таблицы не отражались на рекордсете.
...
Рейтинг: 0 / 0
26.05.2010, 11:39
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649601
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Pro,
так мне надо чтобы изменялись в recordset-e
...
Рейтинг: 0 / 0
26.05.2010, 11:41
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649615
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05admShocker.Pro,
так мне надо чтобы изменялись в recordset-e

Ну тогда цикл обработки данных, которые непрерывно меняются в процессе вывода - задача нетривиальная
...
Рейтинг: 0 / 0
26.05.2010, 11:44
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649621
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
Код: plaintext
1.
2.
3.
4.
5.
For i =  0  To rs
If NOT Data1.Recordset.EOF Then
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
End If
Next i
поставьте это условие
Код: plaintext
If NOT Data1.Recordset.EOF Then
...
Рейтинг: 0 / 0
26.05.2010, 11:44
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649628
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Pro,
если можно пример ))
а так и так нормально))
...
Рейтинг: 0 / 0
26.05.2010, 11:45
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649677
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05admа так и так нормально))

Так что нормально-то?
aduka05admу меня при такой констукции выдавало постоянно ошибку , если я добавлял записи вручную за день до этого допустим, то цикл не останавливался
...
Рейтинг: 0 / 0
26.05.2010, 11:54
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649728
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
вот примерчик, почти то, что вы хотели. разбирайтесь
...
Рейтинг: 0 / 0
26.05.2010, 12:02
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649741
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Proaduka05admа так и так нормально))

Так что нормально-то?
aduka05admу меня при такой констукции выдавало постоянно ошибку , если я добавлял записи вручную за день до этого допустим, то цикл не останавливался
ну те строки которые вручную добавляю и так не нужны , они добавляются в конец recordset-a
, не нужны по той причине что две таблицы сравниваются по полю KOD , а в новых строках
оно бывает не заполненным
...
Рейтинг: 0 / 0
26.05.2010, 12:04
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649756
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05admShocker.Proaduka05admа так и так нормально))

Так что нормально-то?
aduka05admу меня при такой констукции выдавало постоянно ошибку , если я добавлял записи вручную за день до этого допустим, то цикл не останавливался
ну те строки которые вручную добавляю и так не нужны , они добавляются в конец recordset-a
, не нужны по той причине что две таблицы сравниваются по полю KOD , а в новых строках
оно бывает не заполненным

Тогда надо добавить в условие рекордсета WHERE KOD=0 (ну или что-там у вас) и они не будут появляться и мешать.
...
Рейтинг: 0 / 0
26.05.2010, 12:08
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649761
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
aduka05adm
поставьте это условие
Код: plaintext
If NOT Data1.Recordset.EOF Then

Поставил, ошибка та же:
Subscript out of range((
...
Рейтинг: 0 / 0
26.05.2010, 12:10
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649769
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsПоставил, ошибка та же:
Subscript out of range((

Выход за пределы массива
И явно не на этой строке.
...
Рейтинг: 0 / 0
26.05.2010, 12:10
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649783
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Pro,
нельзя вместо этого
Код: plaintext
Dim mas( 11 ) As Variant
вот так написать
Код: plaintext
Dim mas() As Variant
...
Рейтинг: 0 / 0
26.05.2010, 12:14
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649784
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05adm,

можно
...
Рейтинг: 0 / 0
26.05.2010, 12:14
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649796
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
посмотрите что вам скинул
Konst_One
...
Рейтинг: 0 / 0
26.05.2010, 12:16
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649802
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Капец всю ночь игрался...Может кто у себя проверить 3ю форму? Мб это только у меня такие конченые ошибки
...
Рейтинг: 0 / 0
26.05.2010, 12:17
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649805
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
aduka05admbosscs,
посмотрите что вам скинул
Konst_One
Мне нельзя использовать дополнительные библиотеки
...
Рейтинг: 0 / 0
26.05.2010, 12:19
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649808
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsКапец всю ночь игрался...Может кто у себя проверить 3ю форму? Мб это только у меня такие конченые ошибки

А что там проверять?
Размер массива mas не определен, можно дальше ничего не проверять.
...
Рейтинг: 0 / 0
26.05.2010, 12:19
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649811
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscsaduka05admbosscs,
посмотрите что вам скинул
Konst_One
Мне нельзя использовать дополнительные библиотеки

там нет никаких дополнительных библиотек, вы activex можете напрямую вставить в ваш проект
...
Рейтинг: 0 / 0
26.05.2010, 12:20
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649895
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
вроде так
...
Рейтинг: 0 / 0
26.05.2010, 12:38
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650008
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.Pro
А что там проверять?
Размер массива mas не определен, можно дальше ничего не проверять.
Логично, я не знаю сколько у меня будет элементов.

aduka05adm, а что вы изменили? Вы просто сделали вывод записей в листбокс? И все?
...
Рейтинг: 0 / 0
26.05.2010, 13:06
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650014
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsЛогично, я не знаю сколько у меня будет элементов.

Значит надо расширять массив по мере занесения туда записей.

Хотя, как верно отметил Игорь, вам и массив-то не особо нужен. Сам рекордсет в данном случае играет роль массива, чего переливать-то из пустого в порожнее.
...
Рейтинг: 0 / 0
26.05.2010, 13:09
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650019
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscsShocker.Pro
А что там проверять?
Размер массива mas не определен, можно дальше ничего не проверять.
Логично, я не знаю сколько у меня будет элементов.

aduka05adm, а что вы изменили? Вы просто сделали вывод записей в листбокс? И все?
а что вы хотели ?
...
Рейтинг: 0 / 0
26.05.2010, 13:10
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650225
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
aduka05adm
а что вы хотели ?
Да все нормально, спасибо
Я тут вдруг вонял что мне этот листбок не сильно и нужен, но пусть будет.

Теперь мне нужно начертить линии
For i = 0 To rc
Picture1.Line (200, 3280)-(900, a / 1000)
Next

Я не совсем понимаю что мне писать в координатах.
х1 по ходу должен каждый раз двигаться вправо, что бы график получися. у1 должен кажись быть статичным...А блин запутался совсем.
...
Рейтинг: 0 / 0
26.05.2010, 13:59
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650323
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
это вам к Shocker.Pro надо
...
Рейтинг: 0 / 0
26.05.2010, 14:18
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650333
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05admbosscs,
это вам к Shocker.Pro надо

Это ему сначала к здравому смыслу надо.
Вместо того, чтобы обдумать алгоритм, прописать его на бумажке и т.п. он работает методом: напишу шопопало и положу на форум, авось там до ума доведут.
...
Рейтинг: 0 / 0
26.05.2010, 14:20
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650359
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.Proaduka05admbosscs,
это вам к Shocker.Pro надо

Это ему сначала к здравому смыслу надо.
Вместо того, чтобы обдумать алгоритм, прописать его на бумажке и т.п. он работает методом: напишу шопопало и положу на форум, авось там до ума доведут.

Я кстати уже 2 стр. графиками изрисовал. Просто времени мало, мне еще 50 стр. текста писать.
Вот что я накалякал

Код: plaintext
1.
2.
3.
4.
5.
For i =  0  To rc
b =  100 
Picture1.Line (b,  3280 )-(c, a /  5000000 )
b = b +  500 
c = b +  500 
Next
В принципе график должен идти вправо, но почему-то не идет( Но зато уже 2 линии рисует) Значит я на правильном пути
...
Рейтинг: 0 / 0
26.05.2010, 14:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650389
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsПросто времени мало
тише едешь, дальше будешь...
...
Рейтинг: 0 / 0
26.05.2010, 14:32
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650418
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscsShocker.Proaduka05admbosscs,
это вам к Shocker.Pro надо

Это ему сначала к здравому смыслу надо.
Вместо того, чтобы обдумать алгоритм, прописать его на бумажке и т.п. он работает методом: напишу шопопало и положу на форум, авось там до ума доведут.

Я кстати уже 2 стр. графиками изрисовал. Просто времени мало, мне еще 50 стр. текста писать.
Вот что я накалякал

Код: plaintext
1.
2.
3.
4.
5.
For i =  0  To rc
b =  100 
Picture1.Line (b,  3280 )-(c, a /  5000000 )
b = b +  500 
c = b +  500 
Next
В принципе график должен идти вправо, но почему-то не идет( Но зато уже 2 линии рисует) Значит я на правильном пути
у меня больше рисует))
...
Рейтинг: 0 / 0
26.05.2010, 14:37
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650429
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
...
Рейтинг: 0 / 0
26.05.2010, 14:39
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650437
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
я уже дал готовый пример, оформленный как юзерконтрол. там всё это уже реализовано и даже больше (можно двигать точки на графике и сохранять изменения в базу)
...
Рейтинг: 0 / 0
26.05.2010, 14:41
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650444
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Command1_Click()
rc = Data1.Recordset.RecordCount
b =  100 
For i =  0  To rc
If Not Data1.Recordset.EOF Then
a = Data1.Recordset("Âûðàæåíèå1").Value
Data1.Recordset.MoveNext
List1.AddItem (a)

Picture1.Line (b,  3280 )-(c, a /  5000000 )
b = b +  500 
c = b +  500 

End If
Next

Получается много линий, но как их соединить?
...
Рейтинг: 0 / 0
26.05.2010, 14:42
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650445
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
rc = Data1.Recordset.RecordCount
For i =  0  To rc
If Not Data1.Recordset.EOF Then
    a = Data1.Recordset("Выражение1").Value
    mas = Data1.Recordset("marka_auto").Value
    mas2 = Data1.Recordset("Выражение1").Value
    List1.AddItem mas
    List2.AddItem mas2
    b =  100 
    Picture1.Line (b,  3280 )-(c, a /  5000000 )
    b = b +  500 
    c = b +  500 
    Data1.Recordset.MoveNext
End If
Next
End Sub
вот код
...
Рейтинг: 0 / 0
26.05.2010, 14:42
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650484
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Что я не понял, это же мой код только с массивами. И не понятно зачем...
...
Рейтинг: 0 / 0
26.05.2010, 14:49
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650490
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
aduka05admbosscs,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
rc = Data1.Recordset.RecordCount
For i =  0  To rc
If Not Data1.Recordset.EOF Then
    a = Data1.Recordset("Выражение1").Value
    mas = Data1.Recordset("marka_auto").Value
    mas2 = Data1.Recordset("Выражение1").Value
    List1.AddItem mas
    List2.AddItem mas2
    b =  100 
    Picture1.Line (b,  3280 )-(c, a /  5000000 )
    b = b +  500 
    c = b +  500 
    Data1.Recordset.MoveNext
End If
Next
End Sub
вот код
забудьте про него))
...
Рейтинг: 0 / 0
26.05.2010, 14:50
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650494
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsПолучается много линий, но как их соединить?

aduka05adm - вот иллюстрация.
Человек даже не хочет подумать 5 минут и понять, что чтобы нарисовать ломаную из нескольких линий, начало одной линии должно совпадать с концом другой линии. Нет - этот вопрос надо было вынести на форум! Причем я лично уже давал ему ссылку на простейший пример, и Konst_One давал пример. Нет, ему же изучать некогда, ему сдавать надо, пусть лучше aduka05adm за него подумает. Эдакая разновидность троллизма, хотя, казалось бы, откуда тролли на таком узкоспециализированном форуме.
...
Рейтинг: 0 / 0
26.05.2010, 14:51
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650517
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.ProbosscsПолучается много линий, но как их соединить?

aduka05adm - вот иллюстрация.
Человек даже не хочет подумать 5 минут и понять, что чтобы нарисовать ломаную из нескольких линий, начало одной линии должно совпадать с концом другой линии. Нет - этот вопрос надо было вынести на форум! Причем я лично уже давал ему ссылку на простейший пример, и Konst_One давал пример. Нет, ему же изучать некогда, ему сдавать надо, пусть лучше aduka05adm за него подумает. Эдакая разновидность троллизма, хотя, казалось бы, откуда тролли на таком узкоспециализированном форуме.

Я прекрасно понимаю что они должны соеденяться и я не знаю как это сделать. Я прекрасно знаю, что вы любите критиковать людей, и заставлять их самим все делать, но не у всех такой ум как у вас. А чужие примеры принципиально разбирать не хочу, все равно мало что пойму, и потрачу еще больше времени. Когда сам пишешь хоть что то запомнить можно. А aduka05adm отдельное спасибо.
...
Рейтинг: 0 / 0
26.05.2010, 14:56
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650528
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Я же не могу в
Код: plaintext
Picture1.Line (b,  3280 )-(c, a /  5000000 )
(c, a / 5000000) присвоить (b, 3280)
...
Рейтинг: 0 / 0
26.05.2010, 14:58
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650535
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsЯ прекрасно понимаю что они должны соеденяться и я не знаю как это сделать.
....
А чужие примеры принципиально разбирать не хочу , все равно мало что пойму,

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

Konst_One, aduka05adm - зачем же мы тут ему примеры даем который день? Он их все равно не разбирает.
...
Рейтинг: 0 / 0
26.05.2010, 15:00
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650540
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
на примерах и учатся
так что изучайте примеры
...
Рейтинг: 0 / 0
26.05.2010, 15:01
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650541
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
1)
даны координаты:

x1=100
y1=100

x2=200
y2=100


нарисуйте линию.

2)
теперь даны такие координаты:

x3 = 500
y3 = 200

продолжите график от последней точки.

PS
если после этого вы не разберётесь, то вам помочь нечем
...
Рейтинг: 0 / 0
26.05.2010, 15:01
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650545
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscsА чужие примеры принципиально разбирать не хочу
Но ты все равно разбираешь примеры кода, которые тебе дают здесь. Это тоже "чужие примеры".
Ну как хочешь, сам, так сам.
Удачи
...
Рейтинг: 0 / 0
26.05.2010, 15:02
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650560
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Ну тут же не готовые роботы.
...
Рейтинг: 0 / 0
26.05.2010, 15:05
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650566
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscsНу тут же не готовые роботы.

тут вообще нет роботов =)
...
Рейтинг: 0 / 0
26.05.2010, 15:06
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650575
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
xD. Прост всю ночь не спал, и еще тут как то думать пытаюсь.
Я не могу понять как соеденить линии в цикле.
Если просто отдельно нарисовать 2 линии то просто координаты 2й точки первого отрезка = 1й точке второго отрезка. В цикле я не напишу так.
...
Рейтинг: 0 / 0
26.05.2010, 15:09
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650590
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
переменую переприсвоить вам наверное религия не позволяет?
...
Рейтинг: 0 / 0
26.05.2010, 15:13
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650604
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Konst_Oneпеременую переприсвоить вам наверное религия не позволяет?
Какую? Из зачем?
...
Рейтинг: 0 / 0
26.05.2010, 15:15
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650607
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscsKonst_Oneпеременую переприсвоить вам наверное религия не позволяет?
Какую? Из зачем?

ту, что отвечает за стартовую кординату (начало линии)
...
Рейтинг: 0 / 0
26.05.2010, 15:16
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650612
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneпеременую переприсвоить вам наверное религия не позволяет?

ему примеры изучать религия не позволяет, он же уже озвучил...
...
Рейтинг: 0 / 0
26.05.2010, 15:17
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650618
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim v As Integer, PrevX As Integer, PrevY As Integer, X As Integer, Y As Integer

X = v *  50 
Y = (v -  20 ) ^  2  *  5 
For v =  1  To  40 
  PrevX = X
  PrevY = Y
  X = v *  50 
  Y = (v -  20 ) ^  2  *  5 
  Picture1.Line (PrevX, PrevY)-(X, Y)
Next v

(PrevX, PrevY) - это начало
(X, Y) - это конец
...
Рейтинг: 0 / 0
26.05.2010, 15:18
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650724
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscs,

ещё раз:
Для того что-бы получилась ломанная линия нужно начинать рисовать следующую линию с координат второй точки предыдущей линии. Например:
Код: plaintext
1.
Line ( 1 , 1 )-[color=red]( 10 , 10 )[/color]
Line [color=red]( 10 , 10 )[/color]-( 20 , 20 )
...
Рейтинг: 0 / 0
26.05.2010, 15:42
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650761
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Не понимаю я этот пример((( Меня парабола путает. Если бы просто точки соединялись было бы понятнее.
...
Рейтинг: 0 / 0
26.05.2010, 15:48
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650766
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscsНе понимаю я этот пример((( Меня парабола путает. Если бы просто точки соединялись было бы понятнее.

где вы тут параболу то нашли?
...
Рейтинг: 0 / 0
26.05.2010, 15:49
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650773
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Konst_OnebosscsНе понимаю я этот пример((( Меня парабола путает. Если бы просто точки соединялись было бы понятнее.

где вы тут параболу то нашли?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim v As Integer, PrevX As Integer, PrevY As Integer, X As Integer, Y As Integer

X = v *  50 
Y = (v -  20 ) ^  2  *  5 
For v =  1  To  40 
  PrevX = X
  PrevY = Y
  X = v *  50 
  Y = (v -  20 ) ^  2  *  5 
  Picture1.Line (PrevX, PrevY)-(X, Y)
Next v
здесь
...
Рейтинг: 0 / 0
26.05.2010, 15:50
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650774
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Konst_One,

ну как-же, степень есть при вычислении координат, значит парабола
...
Рейтинг: 0 / 0
26.05.2010, 15:50
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650776
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneгде вы тут параболу то нашли?

Ты будешь смеяться, но это парабола.

Только какая разница, вычисляется следующая точка по формуле квадратного уравнения или берется из базы. Принцип-то один и тот же.
...
Рейтинг: 0 / 0
26.05.2010, 15:50
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650780
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Игорь Горбоносbosscs,

ещё раз:
Для того что-бы получилась ломанная линия нужно начинать рисовать следующую линию с координат второй точки предыдущей линии. Например:
Код: plaintext
1.
Line ( 1 , 1 )-[color=red]( 10 , 10 )[/color]
Line [color=red]( 10 , 10 )[/color]-( 20 , 20 )



я думал он тут её нашёл
...
Рейтинг: 0 / 0
26.05.2010, 15:51
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650788
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneя думал он тут её нашёл

Частный случай
Парабола по трем точкам
...
Рейтинг: 0 / 0
26.05.2010, 15:52
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650791
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProKonst_Oneя думал он тут её нашёл

Частный случай
Парабола по трем точкам

почему не гипербола ?
...
Рейтинг: 0 / 0
26.05.2010, 15:53
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650801
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Picture1.Line (w, s)-(x, e)
w = (b = b +  500 )
e = (a /  5000000 )
s =  3280 
x = (c = b +  500 )
теперь нам нужно присвоить координаты 2й точки коодинатам первой:
x = w
e = s
Что не так?
...
Рейтинг: 0 / 0
26.05.2010, 15:55
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650808
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscs
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Picture1.Line (w, s)-(x, e)
w = (b = b +  500 )
e = (a /  5000000 )
s =  3280 
x = (c = b +  500 )
теперь нам нужно присвоить координаты 2й точки коодинатам первой:
x = w
e = s
Что не так?

бред вы написали
...
Рейтинг: 0 / 0
26.05.2010, 15:57
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650812
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Костя, ты прикалываешься? ставь смайлик, а то не понятно.

парабола потому, что ветви расположены в соседствующих четвертях графика, у гиперболы ветви находятся в несоприкасающихся четвертях.
Но вообще как-то так принято все что загнуто, называть параболическим.
...
Рейтинг: 0 / 0
26.05.2010, 15:58
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650821
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneпочему не гипербола ?

не путай
Парабола
Кубическая парабола
Гипербола
...
Рейтинг: 0 / 0
26.05.2010, 15:59
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650822
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Игорь ГорбоносКостя, ты прикалываешься? ставь смайлик, а то не понятно.

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

да, конечно смайлик. но видимо автор что с юмором, что без не хочет понимать
...
Рейтинг: 0 / 0
26.05.2010, 15:59
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650829
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Konst_Onebosscs
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Picture1.Line (w, s)-(x, e)
w = (b = b +  500 )
e = (a /  5000000 )
s =  3280 
x = (c = b +  500 )
теперь нам нужно присвоить координаты 2й точки коодинатам первой:
x = w
e = s
Что не так?

бред вы написали

После того как начертит первую линию нужно присвоить
w = x
s = e
Так же?
...
Рейтинг: 0 / 0
26.05.2010, 16:01
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650835
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
w = (b = b + 500)


и чему это будет равно интересно
...
Рейтинг: 0 / 0
26.05.2010, 16:03
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650838
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Onew = (b = b + 500)
и чему это будет равно интересно

Можно, можно я отвечу?!!!!
False
...
Рейтинг: 0 / 0
26.05.2010, 16:04
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650842
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Onew = (b = b + 500)
и чему это будет равно интересно

Анекдот вспомнился, только программист может ответить на вопрос, сколько будет 2х2=4
...
Рейтинг: 0 / 0
26.05.2010, 16:05
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650844
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProKonst_Onew = (b = b + 500)
и чему это будет равно интересно

Можно, можно я отвечу?!!!!
False

не подсказывать
...
Рейтинг: 0 / 0
26.05.2010, 16:05
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650881
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Command3_Click()
rc = Data1.Recordset.RecordCount
b =  100 
z =  3280 
For i =  0  To rc
If Not Data1.Recordset.EOF Then
a = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
List1.AddItem (a)
Picture1.Line (b, z)-(c, d)
b = b +  500 
c = b +  500 
d = a /  5000000 
End If
Next
End Sub
Как же я могу написать, например, что b=c если оно уже присвоено b = b + 500
...
Рейтинг: 0 / 0
26.05.2010, 16:18
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650888
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsКак же я могу написать, например, что b=c если оно уже присвоено b = b + 500

так вы сначала себе объясните, зачем
b = b + 500
тогда и вопрос отпадет
...
Рейтинг: 0 / 0
26.05.2010, 16:21
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650899
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.ProbosscsКак же я могу написать, например, что b=c если оно уже присвоено b = b + 500

так вы сначала себе объясните, зачем
b = b + 500
тогда и вопрос отпадет
b = b + 500 для того, что бы график двигался в правую сторону, точнее начальная координата.
...
Рейтинг: 0 / 0
26.05.2010, 16:23
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650904
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
и почему у вас b=c в таком случае?
...
Рейтинг: 0 / 0
26.05.2010, 16:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650908
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Konst_Oneи почему у вас b=c в таком случае?

простите, ступил. у вас всё время на 500 по X сдвигается
...
Рейтинг: 0 / 0
26.05.2010, 16:26
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650910
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
*Смайлик, бьющийся головой об стену.*


1) Нарисуйте нужный график на бумаге
2) Перепишите в столбик (в четыре столбика) координаты каждой линии
3) Выведите закономерность, как изменяется каждая координата в зависимости от предыдущих значений
4) Покажите мне на этой таблице, где это будет b = b + 500
...
Рейтинг: 0 / 0
26.05.2010, 16:27
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650911
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Konst_Oneи почему у вас b=c в таком случае?
не b= c а
c = b + 500
Что бы вторую точку тоже передвинуть вправо
...
Рейтинг: 0 / 0
26.05.2010, 16:27
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650913
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
Picture1.Line (b, z)-(c, d)
b = c
c = b +  500
...
Рейтинг: 0 / 0
26.05.2010, 16:28
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650919
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Konst_One
Код: plaintext
1.
2.
Picture1.Line (b, z)-(c, d)
b = c
c = b +  500

Смотри последний код
...
Рейтинг: 0 / 0
26.05.2010, 16:29
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650925
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscsKonst_One
Код: plaintext
1.
2.
Picture1.Line (b, z)-(c, d)
b = c
c = b +  500

Смотри последний код

я вам написал как надо.
вместо вашего:

авторPicture1.Line (b, z)-(c, d)
b = b + 500
c = b + 500
...
Рейтинг: 0 / 0
26.05.2010, 16:30
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650956
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Command3_Click()
rc = Data1.Recordset.RecordCount
b =  100 
z =  3280 
For i =  0  To rc
If Not Data1.Recordset.EOF Then
a = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
List1.AddItem (a)
Picture1.Line (b, z)-(c, d)
b = c
c = b +  500 
d = a /  5000000 
End If

Next
End Sub
Так все равно не соединяет
...
Рейтинг: 0 / 0
26.05.2010, 16:38
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650962
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsТак все равно не соединяет

Код: plaintext
z =  3280
...
Рейтинг: 0 / 0
26.05.2010, 16:39
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650964
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscs
Код: plaintext
1.
2.
3.
4.
5.
6.
...
Picture1.Line (b, z)-(c, d)
b = c
z = d
c = b +  500 
d = a /  5000000 
...

А так?
...
Рейтинг: 0 / 0
26.05.2010, 16:40
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650966
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProbosscsТак все равно не соединяет

Код: plaintext
z =  3280



вы всё ещё хотите чтоб за вас всё сделали. Вам и так подсказали по X-координате. ИТак соизвольте по Y уже сами.
...
Рейтинг: 0 / 0
26.05.2010, 16:40
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650982
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
О Боже мой, кажись получилось. А как возле точек поставить названия автомобилей?
...
Рейтинг: 0 / 0
26.05.2010, 16:47
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650985
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Konst_OneShocker.ProbosscsТак все равно не соединяет

Код: plaintext
z =  3280



вы всё ещё хотите чтоб за вас всё сделали. Вам и так подсказали по X-координате. ИТак соизвольте по Y уже сами.

Что там по у? Уже все вроди бы нормально:
Код: plaintext
1.
2.
3.
4.
5.
Picture1.Line (b, z)-(c, d)
b = c
z = d
c = b +  500 
d = a /  5000000 
End If
...
Рейтинг: 0 / 0
26.05.2010, 16:48
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36650990
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscs,

координаты точек есть, теперь возле каждой точки ставь PSet'ом точку и после этого Picture1.Print выведет тебе текст
...
Рейтинг: 0 / 0
26.05.2010, 16:50
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651004
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscsKonst_OneShocker.ProbosscsТак все равно не соединяет

Код: plaintext
z =  3280



вы всё ещё хотите чтоб за вас всё сделали. Вам и так подсказали по X-координате. ИТак соизвольте по Y уже сами.

Что там по у? Уже все вроди бы нормально:
Код: plaintext
1.
2.
3.
4.
5.
Picture1.Line (b, z)-(c, d)
b = c
z = d
c = b +  500 
d = a /  5000000 
End If


да, и это не ваша заслуга, что всё нормально.
...
Рейтинг: 0 / 0
26.05.2010, 16:56
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651041
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Konst_One
да, и это не ваша заслуга, что всё нормально.
Ну молодец, я и не говорил, что это моя заслуга.
...
Рейтинг: 0 / 0
26.05.2010, 17:09
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651068
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Игорь Горбоносbosscs,

координаты точек есть, теперь возле каждой точки ставь PSet'ом точку и после этого Picture1.Print выведет тебе текст
Код: plaintext
1.
2.
Picture1.Line (b, z)-(c, d)
Picture1.PSet (c, d)
Picture1.PSet (b, z)
Так что ли сделать?
...
Рейтинг: 0 / 0
26.05.2010, 17:17
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651084
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsKonst_One
да, и это не ваша заслуга, что всё нормально.
Ну молодец, я и не говорил, что это моя заслуга.

Konst_One, скажем так, график нарисован не благодаря, а вопреки действиям автора, при преодолении его мощного сопротивления
...
Рейтинг: 0 / 0
26.05.2010, 17:21
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651089
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscs,

можно и так, а где печать текста? и зачем Picture1.PSet (c, d)? ведь по точке с координатами начала линии мы печатали текст когда рисовали предыдущую линию.
...
Рейтинг: 0 / 0
26.05.2010, 17:22
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651092
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProbosscsKonst_One
да, и это не ваша заслуга, что всё нормально.
Ну молодец, я и не говорил, что это моя заслуга.

Konst_One, скажем так, график нарисован не благодаря, а вопреки действиям автора, при преодолении его мощного сопротивления

+1
...
Рейтинг: 0 / 0
26.05.2010, 17:23
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651097
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Игорь Горбоносbosscs,

можно и так, а где печать текста? и зачем Picture1.PSet (c, d)? ведь по точке с координатами начала линии мы печатали текст когда рисовали предыдущую линию.

Что то я совсем вас не понимаю. Извините, котелок не варит совсем.
...
Рейтинг: 0 / 0
26.05.2010, 17:24
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651122
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscsИгорь Горбоносbosscs,

можно и так, а где печать текста? и зачем Picture1.PSet (c, d)? ведь по точке с координатами начала линии мы печатали текст когда рисовали предыдущую линию.

Что то я совсем вас не понимаю. Извините, котелок не варит совсем.

как бы тебе объяснить

Picture.Line - рисует линию
Picture.PSet - рисует точку
Picture.Print - печатает текст в текущем месте (по координатам где последний раз что-то рисовали или печатали)
...
Рейтинг: 0 / 0
26.05.2010, 17:30
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651136
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscs,

Код: plaintext
Private Sub Command3_Click()\nrc = Data1.Recordset.RecordCount\nb =  100 \nz =  3280 \nFor i =  0  To rc\nIf Not Data1.Recordset.EOF Then\na = Data1.Recordset("Выражение1").Value\n\'Data1.Recordset.MoveNext\nList1.AddItem (a)\nPicture1.Line (b, z)-(c, d)\nb = c\n\'-------------------------\nz = d\nPicture1.PSet (c, d)\nPicture1.Print Data1.Recordset("Подпись Выражения 1").Value\n\'-------------------------\nc = b +  500 \nd = a /  5000000 \nData1.Recordset.MoveNext\nEnd If\n\nNext\nEnd Sub
Код скопирован из этого сообщения
...
Рейтинг: 0 / 0
26.05.2010, 17:33
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651172
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub Command3_Click()
rc = Data1.Recordset.RecordCount
b =  500 
z = a /  1200000 
For i =  0  To rc
If Not Data1.Recordset.EOF Then
a = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
List1.AddItem (a)
Picture1.Line (b, z)-(c, d)
z = d
Picture1.Print Data1.Recordset("marka_auto").Value
b = c
z = d
c = b +  500 
d = a /  1200000 
End If
Next
End Sub

Я заметил что оно не совпадает со значениями моими. И ошибку выбивает теперь
...
Рейтинг: 0 / 0
26.05.2010, 17:41
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651175
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
For i =  0  To rc


помедитируйте над этим своим перлом =)
...
Рейтинг: 0 / 0
26.05.2010, 17:42
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651178
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Konst_One
Код: plaintext
For i =  0  To rc


помедитируйте над этим своим перлом =)
Я это первым делал поменял. Результат тот же(
...
Рейтинг: 0 / 0
26.05.2010, 17:43
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651185
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscsKonst_One
Код: plaintext
For i =  0  To rc


помедитируйте над этим своим перлом =)
Я это первым делал поменял. Результат тот же(

и каков последний ваш код, который даёт вышеуказанную вами ошибку?
...
Рейтинг: 0 / 0
26.05.2010, 17:44
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651187
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscs,

а MoveNext я для кого комментировал и писал в новом месте?
...
Рейтинг: 0 / 0
26.05.2010, 17:45
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651195
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Konst_OnebosscsKonst_One
Код: plaintext
For i =  0  To rc


помедитируйте над этим своим перлом =)
Я это первым делал поменял. Результат тот же(

и каков последний ваш код, который даёт вышеуказанную вами ошибку?
For i = 1 To rc
...
Рейтинг: 0 / 0
26.05.2010, 17:48
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651202
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
мда

Код: plaintext
1.
2.
3.
4.
5.
Data1.Recordset.MoveFirst 'это только потому-что вы криво внутри цикле работаете
Do While Not Data1.Recordset.EOF

    ....
    Data1.Recordset.MoveNext
Loop
...
Рейтинг: 0 / 0
26.05.2010, 17:50
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651219
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Игорь Горбоносbosscs,

а MoveNext я для кого комментировал и писал в новом месте?
Для меня наверно. Теперь нормально пишет, с 1о записи. Но я не понимаю почему оно не совпадает с данными. и почему ауди начинает рисовать с угла, когда первые точки у меня:
b = 500
z = a / 1200000
...
Рейтинг: 0 / 0
26.05.2010, 17:54
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651222
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
bosscsИгорь Горбоносbosscs,

а MoveNext я для кого комментировал и писал в новом месте?
Для меня наверно. Теперь нормально пишет, с 1о записи. Но я не понимаю почему оно не совпадает с данными. и почему ауди начинает рисовать с угла, когда первые точки у меня:
b = 500
z = a / 1200000

так потому , что вы так написали
...
Рейтинг: 0 / 0
26.05.2010, 17:56
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651224
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
bosscs,

это первая пара координат, а вторая пара чему равна(с и д)?
...
Рейтинг: 0 / 0
26.05.2010, 17:58
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651241
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Игорь Горбоносbosscs,

это первая пара координат, а вторая пара чему равна(с и д)?
хз...0 наверно
мб нужно в начале написать так?
Код: plaintext
1.
2.
3.
b =  500 
z = a /  1200000 
c =  500 
d = a /  1200000
...
Рейтинг: 0 / 0
26.05.2010, 18:06
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651247
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Хотя нет, ауди все равно с потолка начинается
...
Рейтинг: 0 / 0
26.05.2010, 18:07
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651250
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsэто первая пара координат, а вторая пара чему равна(с и д)?
хз...0 наверно
мб нужно в начале написать так?
Код: plaintext
1.
2.
3.
b =  500 
z = a /  1200000 
c =  500 
d = a /  1200000
[/quot]

А вопрос-то остался.
Чему равно z и d?
...
Рейтинг: 0 / 0
26.05.2010, 18:09
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651269
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.Probosscsэто первая пара координат, а вторая пара чему равна(с и д)?
хз...0 наверно
мб нужно в начале написать так?
Код: plaintext
1.
2.
3.
b =  500 
z = a /  1200000 
c =  500 
d = a /  1200000


А вопрос-то остался.
Чему равно z и d?[/quot]

А можно ли написать первую точку 0 а остальные:
Код: plaintext
1.
2.
3.
b =  0 
z =  0 
c =  800 
d = (Data1.Recordset("Выражение1").Value) /  1200000
...
Рейтинг: 0 / 0
26.05.2010, 18:16
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651287
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Блин, первая точка получается такая же как и вторая по высоте. Оно же потом начинает считывать опять с первой. Как быть?
...
Рейтинг: 0 / 0
26.05.2010, 18:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651293
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Нужно же считывать потмо в цикле со 2го автомобиля, если 1ю точку указать вручную так:
Код: plaintext
1.
2.
3.
4.
5.
rc = Data1.Recordset.RecordCount
b =  800 
z = (Data1.Recordset("Выражение1").Value) /  1220000 
c =  800 
d = (Data1.Recordset("Выражение1").Value) /  1220000
В цикле присвоил i=1 и 2 тоже, бесполезно
...
Рейтинг: 0 / 0
26.05.2010, 18:28
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651351
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Плиз выручайте, как мне быть с первой точкой, и график совсем не совпадает с данными( Отблагодарю красивым номером аськи кому нужно.
...
Рейтинг: 0 / 0
26.05.2010, 18:59
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651471
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsкак мне быть с первой точкой, и график совсем не совпадает с данными

Как быть - я уже писал: нарисовать график на бумажке, расписать табличку, раз уж представить себе ее не можете. Из свежего добавления - сразу там и марки машин укажете, напротив нужных точек. Потом мысленно пройдите по своей программе и посмотрите, какие переменные какое значение принимают при подготовке, при первом, при втором проходе цикла. И все сразу станет ясно. Я вас уверяю - VB рисует именно то, что вы у него просите нарисовать.
...
Рейтинг: 0 / 0
26.05.2010, 20:29
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651501
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsВ цикле присвоил i=1 и 2 тоже, бесполезно

Если не думать, зачем это было сделано, то, естественно, бесполезно.
Как-то так: http://millionofmonkeys.ru/
...
Рейтинг: 0 / 0
26.05.2010, 20:46
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651748
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
PSet (1000, 2000) 'точка
Line (2000(наше b), 1000(наше z))-(5000(c), 3000(d)) 'отрезок прямой
Line (3000, 3000)-(1000, 4000) , , B 'прямоугольник
Circle (4000, 2000) , 1000 'окружность
b и c (x) 0 nachalo 5000 konec
z и d (y) 0 verh 5000 niz
...
Рейтинг: 0 / 0
27.05.2010, 02:02
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651750
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
изучи предыдущий пример
а ниже код запусти и проверь как он работает по мойму тебе так надо было
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
c =  0 
d =  3280 
For i =  1  To  1 
a = Data1.Recordset("Выражение1").Value
c =  0 
d =  3280 
b = c
z = d
List1.AddItem (a)
c = c +  500 
d = d -  2000 
Picture1.PSet (c, d)
Picture1.Print Data1.Recordset("marka_auto").Value
Picture1.Line (b, z)-(c, d)
b = c
z = d
c = c +  500 
d = d +  2000 
Picture1.Line (b, z)-(c, d)
Next
...
Рейтинг: 0 / 0
27.05.2010, 02:06
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651766
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
aduka05adm,
bosscs,
даже лучше этот код для большей наглядности
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
c =  0 
d =  3280 
For i =  1  To  6 
a = Data1.Recordset("Выражение1").Value
b = c
z = d
List1.AddItem (a)
c = c +  500 
d = d -  2000 
Picture1.PSet (c, d)
Picture1.Print Data1.Recordset("marka_auto").Value
Picture1.Line (b, z)-(c, d)
b = c
z = d
c = c +  500 
d = d +  2000 
Picture1.Line (b, z)-(c, d)
Next
...
Рейтинг: 0 / 0
27.05.2010, 03:00
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651813
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Всем большое спасибо, уже сделал, что хотел.
...
Рейтинг: 0 / 0
27.05.2010, 07:36
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36651851
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscsВсем большое спасибо, уже сделал, что хотел.
код покажите
...
Рейтинг: 0 / 0
27.05.2010, 08:24
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652025
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05admbosscsВсем большое спасибо, уже сделал, что хотел.
код покажите

А может не надо?
А то мы щас еще тут семь страниц напишем.
Пусть препод проверяет.

Полагаю, он все-таки успешно воспользовался советом - подумать (один раз в другой ветке уже случалось такое просветление). Отсутствие ответов на вопросы в онлайне сильно этому способствует.
...
Рейтинг: 0 / 0
27.05.2010, 10:12
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652030
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Pro,
может на самом деле у человека со временем проблемы
хотелось помочь аж самому пришлось разбираться)))
...
Рейтинг: 0 / 0
27.05.2010, 10:14
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652057
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05admShocker.Pro,
может на самом деле у человека со временем проблемы
хотелось помочь аж самому пришлось разбираться)))

Если человек начинает делать курсовую за два дня до сдачи - да - у него проблемы. Но не с временем.

К тому же "сдавать завтра" наблюдается не в первой ветке, вот, к примеру...
...
Рейтинг: 0 / 0
27.05.2010, 10:21
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652063
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
aduka05adm,

Практически у половины спрашивающих - проблемы со временем. И проблема состоит не в том, что на завтра нужно сделать, а в том, что они не хотят/умеют планировать время. Вот поэтому и получается, сначала занимаемся более важными делами, а потом всем, что не успели.
В том что ты разобрался, это тебе полюс в копилку. И времени у тебя это много не заняло. Максимум пару часов на построение хоть какого-то графика и потом ещё часок на наведение красоты :)
А мы вчера убили весь день, пытаясь нарисовать хоть какой-то график вопреки стараниям автора.
...
Рейтинг: 0 / 0
27.05.2010, 10:22
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652069
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Игорь Горбонос,
большие числа идут внизу это нормально,
но как сделать чтобы они шли вверху?
...
Рейтинг: 0 / 0
27.05.2010, 10:24
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652098
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
aduka05adm,

Дык у всех окон начало координат находится в левом верхнем углу, а не в левом нижнем, нужен простой пересчет координат по оси Y, ну или заворачиваться на АПИ функцию SetViewPort
...
Рейтинг: 0 / 0
27.05.2010, 10:37
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652107
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Proaduka05admShocker.Pro,
может на самом деле у человека со временем проблемы
хотелось помочь аж самому пришлось разбираться)))

Если человек начинает делать курсовую за два дня до сдачи - да - у него проблемы. Но не с временем.

К тому же "сдавать завтра" наблюдается не в первой ветке, вот, к примеру...
значит вы уже знакомы))
...
Рейтинг: 0 / 0
27.05.2010, 10:42
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652162
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
видимо никто так и не посмотрел мой пример. там уже всё готово и с комментариями.
...
Рейтинг: 0 / 0
27.05.2010, 11:03
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652172
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
aduka05admзначит вы уже знакомы))

Прежде чем отвечать по теме, всегда смотрю список тем автора.
Вот , к примеру, клинический случай
...
Рейтинг: 0 / 0
27.05.2010, 11:06
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652175
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneвидимо никто так и не посмотрел мой пример. там уже всё готово и с комментариями.

Жаль, что нам так и не удалось сегодня заслушать начальника транспортного цеха (с)
...
Рейтинг: 0 / 0
27.05.2010, 11:06
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652183
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Konst_Oneвидимо никто так и не посмотрел мой пример. там уже всё готово и с комментариями.
че то я комментарии не видел))
и не понял где вы там меняеете координаты
...
Рейтинг: 0 / 0
27.05.2010, 11:09
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652187
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Proaduka05admзначит вы уже знакомы))

Прежде чем отвечать по теме, всегда смотрю список тем автора.
Вот , к примеру, клинический случай
по ходу конкретно время поджимало)
...
Рейтинг: 0 / 0
27.05.2010, 11:11
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652210
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Shocker.ProВот, к примеру, клинический случай Это не случай, это любимый пациент
...
Рейтинг: 0 / 0
27.05.2010, 11:16
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652224
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
Public Sub Plot()
Dim sss As String
Dim i%
Dim R As Long
Dim HnFont As Long, HoFont As Long

        If Label1.Count >  1  Then
                For i = Label1.Count -  1  To  1  Step - 1 
                        Unload Label1(i)
                Next i
        End If
        
        With UserControl
                .AutoRedraw = True
                .Cls
                If Me.GraphScaleWidth =  0  Then
                        .ScaleWidth = cMaxX + cMaxX \  5 
                Else
                        .ScaleWidth = Me.GraphScaleWidth
                End If
                If Me.GraphScaleHeight =  0  Then
                        .ScaleHeight = -(cMaxY \  2  + cMaxY)
                Else
                        .ScaleHeight = Me.GraphScaleHeight
                End If
                .ScaleTop = cMaxY \  3  + cMaxY
                .ScaleLeft = -cMaxX \  8 

                'Axis X - рисуем ось X
                Line ( 0 ,  0 )-(cMaxX,  0 ), QBColor( 0 )
                'Axis Y - рисуем ось Y
                Line ( 0 ,  0 )-( 0 , cMaxY), QBColor( 0 )
                
                .CurrentX =  0 
                .CurrentY =  0 
                .FontSize =  8 
                'scale X - рисуем шкалу по оси X
                For i = dx ^  2  To cMaxX Step dx ^  2 
                    Line (i, - 5 )-(i,  10 ), QBColor( 0 )
                    .CurrentX = .CurrentX -  10 
                    .CurrentY = .CurrentY -  20 
                    Print i / dx
                Next i
                'scale Y - рисуем шкалу по оси Y
                For i = dx ^  2  To cMaxY Step dx ^  2 
                    Line (- 5 , i)-( 6 , i), QBColor( 0 )
                    .CurrentX = .CurrentX - (.TextWidth(CStr(cMaxY)) + .TextWidth(CStr(cMaxY)) \  5 )
                    Print i / dx
                Next i
                
                'draw graph - рисуем сам график
                .DrawStyle = vbDot
                For i =  1  To UBound(PtArr) -  1 
                    X1 = PtArr(i).X: Y1 = PtArr(i).Y
                    X2 = PtArr(i +  1 ).X: Y2 = PtArr(i +  1 ).Y
                    Line (X1, Y1)-(X2, Y2), QBColor( 1 )
                Next i
                
                'draw point label - рисуем точки и подписи на графике
                .DrawStyle = vbSolid
                For i =  1  To UBound(PtArr)
                    X1 = PtArr(i).X
                    Y1 = PtArr(i).Y
                    'point
                    Line (X1 -  10 , Y1)-(X1 +  14 , Y1), QBColor( 5 )
                    Line (X1, Y1 -  15 )-(X1, Y1 +  15 ), QBColor( 5 )
                    .ForeColor = vbRed
                    Circle (X1, Y1),  5 
                    Load Label1(i)
                    Label1(i).Caption = PtArr(i).ID & "(" & PtArr(i).X / dx & ":" & PtArr(i).Y / dx & ")"
                    Label1(i).Left = .CurrentX +  20 
                    Label1(i).Top = .CurrentY +  20 
                    Label1(i).Tag = PtArr(i).ID
                    Label1(i).Visible = True
                Next i
                
                .ForeColor = vbBlack
                'label axis x - подпись оси X
                .CurrentX = cMaxX /  2  - .TextWidth(Me.AxisXCaption) /  2 
                .CurrentY = - 50 
                .Font.Name = "Arial"
                .FontSize =  10 
                Print Me.AxisXCaption
                'label axis Y - подпись оси Y
                HnFont = CreateFont( 14 ,  0 ,  900 ,  900 , FW_NORMAL, False, False, False, OEM_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,  34 , "Arial")
                HoFont = SelectObject(hdc, HnFont)
                sss = Me.AxisYCaption
                .CurrentY = cMaxY /  2  - .TextWidth(sss) /  2 
                .CurrentX = .ScaleLeft +  30 
                Print sss
                .lblHeader.Visible = True
                .AutoRedraw = False
        End With
        UserControl_Resize
End Sub

вот собственно вся ф-я для рисования графика.
комментарии дописал =)
...
Рейтинг: 0 / 0
27.05.2010, 11:19
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652236
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
а это загрузка значений для графика из базы и вычисление масштаба графика

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Public Sub SetValues(cn As ADODB.Connection, TableName As String, IDField As String, AxisXField As String, AxisYField As String)
Dim rs As ADODB.Recordset
Dim sqls As String
Dim i%
Dim PtXMax As Single, PtYMax As Single
        
        Me.ConnectionString = cn.ConnectionString
        Me.TableName = TableName
        Me.FieldNameID = IDField
        Me.FieldNameAxisX = AxisXField
        Me.FieldNameAxisY = AxisYField
        
        sqls = "SELECT " & IDField & "," & AxisXField & "," & AxisYField & " FROM " & TableName & " ORDER BY " & AxisXField
        Set rs = New ADODB.Recordset
        With rs
                .Open sqls, cn, adOpenStatic, adLockReadOnly, adCmdText
                ReDim PtArr(.RecordCount)
                Do While Not .EOF
                        i = i +  1 
                        PtArr(i).ID = .Fields(IDField)
                        PtArr(i).X = .Fields(AxisXField) * dx
                        PtArr(i).Y = .Fields(AxisYField) * dx
                        If PtArr(i).X > PtXMax Then PtXMax = PtArr(i).X
                        If PtArr(i).Y > PtYMax Then PtYMax = PtArr(i).Y
                        .MoveNext
                Loop
        End With
        Set rs = Nothing
        
        cMaxX = (PtXMax \ (dx ^  2 ) +  1 ) * (dx ^  2 )
        cMaxY = (PtYMax \ (dx ^  2 ) +  1 ) * (dx ^  2 )
        Me.GraphScaleWidth = cMaxX + cMaxX \  5 
        Me.GraphScaleHeight = -(cMaxY \  2  + cMaxY)
        
End Sub
...
Рейтинг: 0 / 0
27.05.2010, 11:21
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652337
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Konst_One,
можешь показать в какой строке координаты меняешь?
в плане 0 верх 5000 низ
а у тебя 5000 верх 0 низ
в какой строке идет?
...
Рейтинг: 0 / 0
27.05.2010, 11:47
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652361
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
aduka05admKonst_One,
можешь показать в какой строке координаты меняешь?
в плане 0 верх 5000 низ
а у тебя 5000 верх 0 низ
в какой строке идет?

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

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
                

'draw graph - рисуем сам график
.DrawStyle = vbDot
                For i =  1  To UBound(PtArr) -  1 
                    X1 = PtArr(i).X: Y1 = PtArr(i).Y
                    X2 = PtArr(i +  1 ).X: Y2 = PtArr(i +  1 ).Y
                    Line (X1, Y1)-(X2, Y2), QBColor( 1 )
                Next i
...
Рейтинг: 0 / 0
27.05.2010, 11:53
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652369
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Type PointGraph
        ID As Long
        X As Single
        Y As Single
End Type

Private PtArr() As PointGraph

загрузку данных я уже выше показал
...
Рейтинг: 0 / 0
27.05.2010, 11:55
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36652379
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Konst_One,
спасибо буду пробовать
...
Рейтинг: 0 / 0
27.05.2010, 11:57
| Ответить | Цитировать | Написать  
174 сообщений из 174, показаны все 7 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужно считать записи из dbgrid
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2159725]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 158ms
get tp. blocked users:
 1ms
others: 217ms
total:  467ms
созд. / загр.: 467ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]