Псевдографика

[baranich]

Помогите дали задание по псевдографике. У кого есть примеры работы с ней, скиньте, буду очень благодарна.
Как с помощью таблицы ASCII на VB можно написать код, чтобы в блокноте нарисовать например квадрат?

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=19961

[SHURUP]

Код: Выделить всё

Dim stX As Single
Dim stY As Single
Dim Draw As Boolean

Const H = "і"
Const V = "Д"
Const LT = "Ъ"
Const LB = "А"
Const RT = "ї"
Const RB = "Щ"

Private Sub Form_Load()
FontName = "Terminal"
FontSize = 14
If Not (Text1.MultiLine) Then
    MsgBox "Установите свойтво Text1.MultiLine= true"
    End
End If
Text1.Move 0, 0, 5000, 5000
Text1.FontName = "Terminal"
Text1.FontSize = 14
Text1.Text = "ўл¤Ґ«ЁвҐ Їаאַ㣮«м­го ®Ў« бвм ЏЉЊ"
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    stX = X
    stY = Y
    Draw = True
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    pic_Width = (X - stX) / TextWidth("|")
    pic_height = (Y - stY) / TextHeight("|")
   
If pic_Width < 2 Or Button <> vbRightButton Then Exit Sub

    pic_left = stX / TextWidth("|")
    pic_Width = (X - stX) / TextWidth("|")
    pic_height = (Y - stY) / TextHeight("|")
    pic_top = stY / TextHeight("|")
    pic_txt = ""

On Error Resume Next
For i = 1 To pic_top
    pic_txt = pic_txt & vbNewLine
Next
pic_txt = pic_txt & Space$(pic_left)  ' отступаем от верха
pic_txt = pic_txt & LT & String$(pic_Width - 2, V) & RT 'рисуем ВЕРХ
For i = 0 To pic_height - 2
    pic_txt = pic_txt & vbNewLine & Space$(pic_left)   ' отступаем от верха
    pic_txt = pic_txt & H & Space$(pic_Width - 2) & H  'рисуем промежуточные
Next
pic_txt = pic_txt & vbNewLine & Space$(pic_left)    ' отступаем от верха
pic_txt = pic_txt & LB & String$(pic_Width - 2, V) & RB 'НИЗ

Text1 = pic_txt
Text1.SelStart = 0
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Draw = False
End Sub

Написано криво - но работает

[baranich]

спасибо, буду разбираться

[Andrey Fedorov]

FontName = "Terminal"

Народ, а откуда у большинства такой заскок, что если псевдографика и OEM то надо использовать Terminal ????

Смотрим приложеный пример (я чуть изменил выложенный ранее).

[Info_m.be_free]

Это не заскок , просто изначально шрифт терминал предназначался именно для этого (Таблицы там, закрашивания итд. как режим "Г" на Спектрум Синклер)

[Andrey Fedorov]

Это не заскок , просто изначально шрифт терминал предназначался именно для этого (Таблицы там, закрашивания итд. как режим "Г" на Спектрум Синклер)

Это все же заскок ибо сам по себе Terminal довольно коряв (для чего он там изначально предназначался - кто его точно знает, да это и мало интересует), а текст с DOS-овский текст можно вывести безо всякой перекодировки и обычными фонтами. Видимо просто про CharSet=255 мало кто знает...

[Ruslan Demidow]

Это не заскок , просто изначально шрифт терминал предназначался именно для этого (Таблицы там, закрашивания итд. как режим "Г" на Спектрум Синклер)

Это все же заскок ибо сам по себе Terminal довольно коряв (для чего он там изначально предназначался - кто его точно знает, да это и мало интересует), а текст с DOS-овский текст можно вывести безо всякой перекодировки и обычными фонтами. Видимо просто про CharSet=255 мало кто знает...

Я одно время долго пытался вывести в RTB псевдографику - безрезультатно. Устанавливать CharSet пробовал....

[Andrey Fedorov]

Я одно время долго пытался вывести в RTB псевдографику - безрезультатно. Устанавливать CharSet пробовал....

Можно и в него - но разбираться надо, не пробовал.

Да и не интересует меня RichTextBox ибо навороченных редакторов я не пишу, а для красивого отображения чего-либо я предпочитаю WebBrowser - ибо с ним все элементарно...

[tyomitch]

Это не заскок , просто изначально шрифт терминал предназначался именно для этого (Таблицы там, закрашивания итд. как режим "Г" на Спектрум Синклер)

Это все же заскок ибо сам по себе Terminal довольно коряв (для чего он там изначально предназначался - кто его точно знает, да это и мало интересует)

Предназначался, да и сейчас предназначается, он для консольных окон.

Я одно время долго пытался вывести в RTB псевдографику - безрезультатно. Устанавливать CharSet пробовал....

Всё это уже было.

[Info_m.be_free]

Это все же заскок ибо сам по себе Terminal довольно коряв (для чего он там изначально предназначался - кто его точно знает, да это и мало интересует), а текст с DOS-овский текст можно вывести безо всякой перекодировки и обычными фонтами. Видимо просто про CharSet=255 мало кто знает...

Стоит предположить, что Вы, Сэр, для построения консольных таблиц используете Arial, и висите под Линуксом... а может поскольку вас это "мало интересует" (проглядывается неуважение к классической консоли)... короче сомнения закрадываются однако. И причем тут кодировка к псевдографике? Можно и иероглифами складывать имхо.
А терминал чем коряв?, он недостаточно моноширный или буквы неровные?
_____Итог____________
Постановляю: ввиду отсутствия конструктивной критики - незаскок и некоряв.

[SHURUP]

Info_m.be_free, доля правды в корявости есть.
Т.к. в терминале изменение размера шрифта слишком скачкообразно.
Видимо дает знать разность типов файлов TTF (Courier New) и ... вообще неясно шо (Terminal я в папке Fonts вообще не нашел)
--

Видимо просто про CharSet=255 мало кто знает...

Да. Я в это "мало" не попал . Поэтому и выбрал Terminal

[tyomitch]

Info_m.be_free, доля правды в корявости есть.
Т.к. в терминале изменение размера шрифта слишком скачкообразно.
Видимо дает знать разность типов файлов TTF (Courier New) и ... вообще неясно шо (Terminal я в папке Fonts вообще не нашел)

TTF (контуры) и FON (битмапы).
В зависимости от выбранной локали и настроек дисплея, Terminal загружается из одного из (скрытых) файлов 8514????.fon, app???.fon, cga?????.fon, ega?????.fon, vga???.fon +ещё несколько вариантов. Эти же шрифты загружаются в знакогенератор в текстовых режимах, поэтому их столько много.

[Andrey Fedorov]

Стоит предположить, что Вы, Сэр, для построения консольных таблиц используете Arial, и висите под Линуксом...

Каких-каких таблиц? Иде это? Ну таблицы в MS Sql, Access, DBF и подобные - знаю, но консольных никогда не строил... Хотя под луниксом не сижу...

а может поскольку вас это "мало интересует" (проглядывается неуважение к классической консоли)... короче сомнения закрадываются однако. И причем тут кодировка к псевдографике? Можно и иероглифами складывать имхо.
А терминал чем коряв?, он недостаточно моноширный или буквы неровные?

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

_____Итог____________
Постановляю: ввиду отсутствия конструктивной критики - незаскок и некоряв.

Да ради бога - ездите на своем лисапеде, Cэр

[Info_m.be_free]

Каких-каких таблиц? Иде это? Ну таблицы в MS Sql, Access, DBF и подобные - знаю, но консольных никогда не строил... Хотя под луниксом не сижу...

Ну окошки под нортоном видел? или хотя бы вот пример:

Код: Выделить всё

<table>
╔═══╦═══╦═══╦═══╦═══╗
╠═══╬═══╬═══╬═══╬═══╣
╠═══╬═══╬═══╬═══╬═══╣
╚═══╩═══╩═══╩═══╩═══╝
</table>


для консоли полне...
А вот насчет понятий, то судя по вышеследующемубуквенному набору речь идёт о базах данных, при чем здесь таблицы,Сэр?
_________________________________________________________
........................................................................вот и все что я хотел сказать....

........................................................................нет...не .всё...

[tyomitch]

Какое отношение имеют консольные программы и VB?
Никак, под юниксы теперь на VB начали писать?