| Вопрос: Распознование текста с экрана (Помогите) | Добавлено: 03.11.09 12:48 |
Автор вопроса:  Dmitry | ICQ: 293773627 |
| Ответы | Всего ответов: 28 |
|
Номер ответа: 16 Автор ответа:  Dmitry ICQ: 293773627 Вопросов: 2 Ответов: 17 |
Профиль | | #16 | Добавлено: 09.11.09 10:51 |
|
Smith
Спасиб, сеня вечером буду пробовать, если вот так в теме сделаем, за мной не заржавеет Использую языз Vb .net 2003 |
||
|
Номер ответа: 17 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #17 | Добавлено: 09.11.09 12:11 |
|
Dmitry пишет:
Использую языз Vb .net 2003 Ну блин, знаток разделов, для .NET есть одноименый раздел. Незнаю пойдёт ли мой пример в твоей студии это пока там тока АПИ, а потом? |
||
|
Номер ответа: 18 Автор ответа: DmitryICQ: 293773627 Вопросов: 2 Ответов: 17 |
Профиль | | #18 | Добавлено: 09.11.09 15:10 |
|
Smith
Ну блин, знаток разделов, для .NET
Че мож попросить модера перенести тему в раздел .NET, Или здесь продолжим? это пока там тока АПИ, а потом?
эту часть фразы не понял |
||
|
Номер ответа: 19 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #19 | Добавлено: 09.11.09 15:55 |
|
Сейчас в моем коде только часть копирующая фрагмент активного окна в пикчербокс с использованием пары апи функций, с этим думаю проблем не будет, но дальше пойдет более хитрый код вб6 и как он будет портироваться в 2008 студию я незнаю.
Вот и весь смысл. |
||
|
Номер ответа: 20 Автор ответа: DmitryICQ: 293773627 Вопросов: 2 Ответов: 17 |
Профиль | | #20 | Добавлено: 10.11.09 10:24 |
|
На форме три кнопки btn1, btn2, btnG
И три текстовых поля txt1, txt2, txtG ' Клик кнопки btn1
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click txt2().Text = txt2().Text + 1 txt1().Text = 0 End Sub ' Клик кнопки btn1 Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click txt1().Text = txt1().Text + 1 txt2().Text = 0 End Sub ' Клик кнопки btnG Private Sub btnG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnG.Click  im myRnd As New Random
im dice As Integer
dice = myRnd.Next(1, 3) txtG.Text() = CStr(dice) If txtG.Text() = 2 Then 'btn2_Click() Как заставить кнопку btn2 кликать при этом условии? End If If txtG.Text() = 1 Then 'btn1_Click() Как заставить кнопку btn1 кликать при этом условии? End If End Sub |
||
|
Номер ответа: 21 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #21 | Добавлено: 10.11.09 17:06 |
|
Btn_Click Sender, e
не пробовал? |
||
|
Номер ответа: 22 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #22 | Добавлено: 10.11.09 17:11 |
|
Так, что на счет скриншотов цифр?
Или дай название шрифта, кегль и жирность, и я уже под него распознавалку заточу. Вообще моя идея распознавания цифр состоит в следующем |
||
|
Номер ответа: 23 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #23 | Добавлено: 10.11.09 17:22 |
|
Построчным сканированием находим первые пустые строки сверху и снизу от цыфр(ы).
Сканируя столбцы находим начала и концы цыфр, определяем, у нас один или два прямоугольника для распознавания. Дальше проверяем точки специфические для каждой из десяти цыфр. |
||
|
Номер ответа: 24 Автор ответа: DmitryICQ: 293773627 Вопросов: 2 Ответов: 17 |
Профиль | | #24 | Добавлено: 10.11.09 19:26 |
|
Btn_Click Sender, e
не пробовал? Помогло Me.Btn_Click(Me, Nothing) С какого то примера, из книжки выдернул Smith Подажди, мыльни мне на почту onkg@ya.ru (если не хочешь свое мыло здесь светить) я тебе все скрины скину, и если нада сам проект, который уже сделан. А вот как быть с языком даж не знаю, у меня все же студия 2003 |
||
|
Номер ответа: 25 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #25 | Добавлено: 15.11.09 17:49 |
Кто мне скажет где я был целую неделю ? (вылезая из машины времени  )
Отписался, шли скрины. |
||
|
Номер ответа: 26 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #26 | Добавлено: 15.11.09 23:33 |
| Сейчас нормально распознаются цифры нарисованные Tahoma "нормальный" кегль 8 | ||
|
Номер ответа: 27 Автор ответа: DmitryICQ: 293773627 Вопросов: 2 Ответов: 17 |
Профиль | | #27 | Добавлено: 18.11.09 14:18 |
| Я тут | ||
|
Номер ответа: 28 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #28 | Добавлено: 20.11.09 20:29 |
| Smith, где ты был целую неделю?! | ||