"А на воле-то, братцы, лафа" (советский фильм "Путевка в жизнь",1931).
Сообщение "ShadEx" просто потрясло (крупномасштабная провокация, сравнимая с ЕГЭ)! Может быть, опубликован список языков, на которых
"будет разрешено" программировать? Вполне согласен с уважаемым "haav": "обучался информатике на языке ЛОГО... и это не мешало разбирать алгоритмы"... Фокус вот в чем – в те времена разрыв межу учителями и учениками был не столь катастрофически велик – даже самому ленивому ученику можно было объяснить, что и как делает программа... В то время учитель говорил: "ребята, это просто, у вас получится", теперь учитель говорит: "это сложно, вы не поймете"! Я не стану агитировать за FreeBASIC, он сам о себе заявит и вскоре, надеюсь, станет достойной заменой системе программирования QBasic 4.5 (не в системном программировании, а там, где занимаются, например, алгоритмизацией технологических процессов)! Напомню слова Карла V Габсбурга (1500 — 1558): "с женщинами нужно разговаривать по-французски, со слугами - по-немецки, а с лошадьми по-английски" (хотя ему приписывают самые разные высказывания).
Каждый язык (в том числе и программирования) вещь до некоторой степени интимная...
Добавлено (05.10.2012, 13:36)
---------------------------------------------
Теперь по существу вопроса. Была заявлена тема: "Вывод текста в окна (текстовое - режим Screen 0 и графическое - режим Screen 11)" и задан вопрос: "В какой кодировке выводится текст в графическое окно?" Возникла это тема в связи с тем, что довольно быстро учитель и ученики поняли, что FreeBASIC (под Windows) вполне способен заменить QBasic 4.5 (под DOS) даже в режиме вывода данных на системную консоль, но "тлетворное влияние запада" сыграло свою роковую роль, и всем вдруг потребовалась графика! Иногда это требование не лишено смысла... Ну как можно запретить ученикам просто и быстро получать замечательные картинки типа "Анимация горящих колец":
http://www.freebasic-world.narod.ru/circleflame.html
Очень простой пример симуляции пламени...
Так неуклюже попытался ответить "ShadEx", спасибо ему!
Добавлено (05.10.2012, 13:53)
---------------------------------------------
Друзья, нужна ваша помощь! Ниже программа, где, видимо, делаю ошибку... Объясните, пожалуйста, влияние оператора Space$(MaxBufSize) на "ход машины" и каким чудом можно "распечатать" имя класса и имя окна (Screen 0 и Screen 11)?
#Include "windows.bi"
Dim MaxBufSize As Integer ' размер буфера заголовка
Dim hwndFound As HWND ' то, что будет возвращено
Dim pszWindowTitle As String ' текущий заголовок окна
Dim ErrorCode As UInteger ' код последней ошибки
Dim Res As UInteger ' результат операции
Screen 0
'Screen 11
MaxBufSize = 512 ' максимальный размер буфера
pszWindowTitle = Space$(MaxBufSize)
' если убрать этот оператор - шибка 12 segmentation violation
Res = GetConsoleOutputCP()
ErrorCode = GetLastError()
Print " ErrorCode = ", ErrorCode
Print " Res = ", Res
' Выбираем текущий заголовок окна.
Res = GetConsoleTitle(pszWindowTitle, MaxBufSize)
ErrorCode = GetLastError()
Print " ErrorCode = ", ErrorCode
Print " Res = ", Res ' 0
hwndFound = FindWindow(NULL, pszWindowTitle)
Print " HWND = ", hwndFound
Res = IsWindow(hwndFound)
ErrorCode = GetLastError()
Print " ErrorCode = ", ErrorCode
Print " Res = ", Res
Res = IsWindowUnicode(hwndFound)
ErrorCode = GetLastError()
Print " ErrorCode = ", ErrorCode
Print " Res = ", Res
Sleep
' При выводе на экран:
' Screen 0 Screen 11
' ---------------- ----------------
' ErrorCode = 2 ErrorCode = 0
' Res = 866 Res = 866
' ErrorCode = 2 ErrorCode = 0
' Res = 55 Res = 55
' HWND = 0 HWND = 0
' ErrorCode = 2 ErrorCode = 0
' Res = 0 Res = 0
' ErrorCode = 1400 ErrorCode = 1400
' Res = 0 Res = 0
