Первые проблемы

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Georgiy
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 29.07.2003 (Вт) 12:16
Откуда: Питер

Первые проблемы

Сообщение Georgiy » 29.07.2003 (Вт) 12:29

Проблема такова: есть программка (автор не доступен), которая анализирует bmp-рисунки (карточки) с точками (результат опрыскивания - капли разного размера, формы и т.п.) - т.е. программка узкого с/х применения. Все, вроде, правильно делает, но один из параметром не меняется. Т.е. если взять несколько разных (видно на глаз) карточек, то все параметры разные, кроме одного. Я в VB ноль, но есть исходный код - на бумаге и так (отсканеный).
Может кто-нибудь посмотреть, что делается в этом (см. ниже) фрагменте пргоги (Медианно-массовый диаметр) - вот я вырезал сюда этот код, где и упоминается про MMD, может здесь вызываются еще какие-нибудь функции (короче, этого фрагмента будет мало) - то кину ссылку на *.exe, карточки в *.bmp и весь код...
(И еще: в VB вообще возможно такое сделать? Я про анализ bmp-шек?)

ReDim Beta(Class - 1)
For X = 0 To Class - 1
Beta(X) = SumClass(Sld, X + 1) / VSum
Next X
MMD
IblResMMD.Caption = Str$(MMDiam)
dmax = ((Min + WidthClass * MMDiam) * 6 / 3.14159265) (1 / 3)
IblResDatDiam.Caption = Str$(dmax)
StRatio
PaintIntLine
PaintGist
txtClass.Text = Str$(Class) End Sub
Private Sub MMD() SMMD = 0
Cter = 0
Do While SSMD < 0.5
SSMD = SSMD + Beta(Cter)
Cter = Cter + 1
Loop
MMDiam = Cter
End Sub

Алекс
Обычный пользователь
Обычный пользователь
 
Сообщения: 84
Зарегистрирован: 30.04.2003 (Ср) 15:59
Откуда: Краснодар

Сообщение Алекс » 29.07.2003 (Вт) 17:14

Кинь ссылку на весь сырец.
Алекс.

Georgiy
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 29.07.2003 (Вт) 12:16
Откуда: Питер

Сообщение Georgiy » 29.07.2003 (Вт) 17:53

Весь код: http://www.egor-spb.narod.ru/vb/vbsourse.rar (20 Кб)
Exe-шник + 3 карточки (bmp) + описание классов функции и т.п. здесь: http://www.egor-spb.narod.ru/vb/analyze.rar (267 Кб)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 4

    TopList