FreeBasic
Вы хотите отреагировать на этот пост ? Создайте аккаунт всего в несколько кликов или войдите на форум.

Не печатает по русски!

+12
valdimir
vbman
Freebasic_ru_admin
Gena
tux
DoReMi
Рамуд
Eric-S
ShenZN
ZERNOEd
justar
DEPOzit
Участников: 16

Страница 3 из 3 Предыдущий  1, 2, 3

Перейти вниз

Не печатает по русски! - Страница 3 Empty Re: Не печатает по русски!

Сообщение  ap Пн Янв 17, 2011 2:46 pm

Спасибо за отзыв.
Открыл Блокнот, написал сию незамысловатую программу, сохранил в Юникоде, сменил .txt на .bas запустил через fbc.exe , получил exe-файл своей немудреной программы, запустил ее и получил на черненьком экране слово Привет! - на нормальном русском языке. Рад безмерно! ОФИГЕТЬ!!!

А можно как-нибудь попроще? Прямо в (из) FBIde?

ap

Сообщения : 2
Дата регистрации : 2011-01-17

Вернуться к началу Перейти вниз

Не печатает по русски! - Страница 3 Empty Re: Не печатает по русски!

Сообщение  Саня Пн Янв 17, 2011 3:38 pm

пожалуй вам сюда - https://freebasic.forum2x2.ru/t8-topic
Саня
Саня

Сообщения : 65
Дата регистрации : 2010-04-28
Возраст : 30
Откуда : Екатеринбург

http://vkontakte.ru/id30561430#/id57547166

Вернуться к началу Перейти вниз

Не печатает по русски! - Страница 3 Empty Re: Не печатает по русски!

Сообщение  Анатолий Пн Янв 17, 2011 6:31 pm

ap пишет:А можно как-нибудь попроще? Прямо в (из) FBIde?
Можно попроще (но не в FBIde, а в FbEdit). Ссылка находится здесь -- https://freebasic.forum2x2.ru/t8-topic
Открываем меню "файл", "сохранить как", далее в появимшемся окне отмечаем "Save As Unicode" и жмем "сохранить". Все, надеюсь что помог.
З.Ы. Если по ссылке в той теме не получится, то стоит поискать в гугле, или здесь http://fbedit.freebasic.net/

Анатолий

Сообщения : 4
Дата регистрации : 2010-11-17
Возраст : 49
Откуда : Енакиево, Донбасс

Вернуться к началу Перейти вниз

Не печатает по русски! - Страница 3 Empty Re: Не печатает по русски!

Сообщение  trew Пт Янв 21, 2011 3:47 pm

Вот так можно выводить русские символы в консоль, без всяких сохранений файла в юникод:

Код:
#Include "windows.bi"

Var aa="Привет, выпить нет?"
Var blen = (Len(aa)*2)+2
Dim As WString Ptr wbuf
wbuf  = Allocate( blen  )
MultiByteToWideChar(CP_ACP, 0, aa, -1, wbuf, blen)
? *wbuf
sleep

trew

Сообщения : 331
Дата регистрации : 2010-10-14

Вернуться к началу Перейти вниз

Страница 3 из 3 Предыдущий  1, 2, 3

Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения