Важная информация
Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 11

Тема: Часы с датой в окне

  1. #1 Часы с датой в окне 
    Новичок
    Регистрация
    22.11.2011
    Сообщений
    4
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Помогите, пожалуйста, с задачкой! У меня есть прога, в ней на экран выводятся стрелочные часы и прямоугольное окошко, в котором должна быть выведена дата и день недели (та же самая, что и в момент запуска программы, т.е., если вы запустили программу сегодня 22 ноября вторник, то в окошке должно появиться 22 вт). Но у меня она не выводится, помогите, чтобы выводилась.
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] FUNCTION DayOfWeek$ (Day%, Month%, Year&)
    [Ссылки могут видеть только зарегистрированные пользователи. ] u = (2 * 3.14159265358#) / 60
      [Ссылки могут видеть только зарегистрированные пользователи. ] SUB FLIP ()
      [Ссылки могут видеть только зарегистрированные пользователи. ] SUB Strel (N, r)
      [Ссылки могут видеть только зарегистрированные пользователи. ] FUNCTION DayOfWeek$ (Day%, Month%, Year&)
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ] Act%, Viz%, Day$
     
    '  Экран
    Act% = 1: Viz% = 0
    [Ссылки могут видеть только зарегистрированные пользователи. ] 9, , Act%, Viz%
     
    Chis% = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ], 4, 2))
    Mesac% = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ], 2))
    God& = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ], 4))
    Day$ = DayOfWeek$(Chis%, Mesac%, God&)
     
    '  Палитра
     [Ссылки могут видеть только зарегистрированные пользователи. ] 1, 8: [Ссылки могут видеть только зарегистрированные пользователи. ] 2, 31: [Ссылки могут видеть только зарегистрированные пользователи. ] 3, 0
     [Ссылки могут видеть только зарегистрированные пользователи. ] 11, 38: [Ссылки могут видеть только зарегистрированные пользователи. ] 0, 17: [Ссылки могут видеть только зарегистрированные пользователи. ] 7, 14
     
    WHILE [Ссылки могут видеть только зарегистрированные пользователи. ] = ""
    [Ссылки могут видеть только зарегистрированные пользователи. ] 2
                               ' Время и день недели
       [Ссылки могут видеть только зарегистрированные пользователи. ] 17, 37: [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
       COLOR 11: [Ссылки могут видеть только зарегистрированные пользователи. ] 18, 39: [Ссылки могут видеть только зарегистрированные пользователи. ] Day$
       [Ссылки могут видеть только зарегистрированные пользователи. ] (285, 223)-(354, 252), 1, B
                               ' Контур часов
       [Ссылки могут видеть только зарегистрированные пользователи. ] (320, 175), 125, 1, , , .85
       [Ссылки могут видеть только зарегистрированные пользователи. ] (320, 175), 135, 1, , , .85
       [Ссылки могут видеть только зарегистрированные пользователи. ] (320 - 130, 175), 7, 1
      
       Tm = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ])         ' Значения стрелок
       Ch = (Tm \ 3600) * 5
       Mn = (Tm \ 60) [Ссылки могут видеть только зарегистрированные пользователи. ] 60
       Sk = Tm [Ссылки могут видеть только зарегистрированные пользователи. ] 60 + [Ссылки могут видеть только зарегистрированные пользователи. ] - Tm + .4
     
         Strel Ch, 80          ' Стрелки
         Strel Mn, 100
         Strel Sk, 115
     
      FOR i = 5 TO 60 STEP 5   ' Засечки
        [Ссылки могут видеть только зарегистрированные пользователи. ] (320 + [Ссылки могут видеть только зарегистрированные пользователи. ](i * u) * 122, 175 - [Ссылки могут видеть только зарегистрированные пользователи. ](i * u) * 105)-(320 + [Ссылки могут видеть только зарегистрированные пользователи. ](i * u) * 138, 175 - [Ссылки могут видеть только зарегистрированные пользователи. ](i * u) * 117), 2
      NEXT
     
     FLIP
    WEND
     
    Dt: [Ссылки могут видеть только зарегистрированные пользователи. ] 31,28,31,30,31,30
    [Ссылки могут видеть только зарегистрированные пользователи. ] 31,31,30,31,30,31
     
    FUNCTION DayOfWeek$ (Day%, Month%, Year&)
    DayPast& = 365 * Year& + ((Year& + 3) \ 4 - ((Year& \ 100) - (Year& \ 400)))
       [Ссылки могут видеть только зарегистрированные пользователи. ] Dt
    FOR M% = 1 TO Month% - 1
      [Ссылки могут видеть только зарегистрированные пользователи. ] Plus&
      DayPast& = DayPast& + Plus&
    NEXT
      DayPast& = DayPast& + Day% - 3
    IF DayPast& < 0 THEN
      DayPast& = 6 - ([Ссылки могут видеть только зарегистрированные пользователи. ](DayPast& + 1) [Ссылки могут видеть только зарегистрированные пользователи. ] 7)
    ELSE : DayPast& = DayPast& [Ссылки могут видеть только зарегистрированные пользователи. ] 7
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
      SELECT CASE DayPast&
         CASE 0: N$ = "Pond"
         CASE 1: N$ = "Vtrn"
         CASE 2: N$ = "Srda"
         CASE 3: N$ = "Chtv"
         CASE 4: N$ = "Pytn"
         CASE 5: N$ = "Sbbt"
         CASE 6: N$ = "Vskr"
      [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT
      DayOfWeek$ = N$
    [Ссылки могут видеть только зарегистрированные пользователи. ] FUNCTION
     
    SUB FLIP
      [Ссылки могут видеть только зарегистрированные пользователи. ] Act%, Viz%
        [Ссылки могут видеть только зарегистрированные пользователи. ] , , , Viz%
        [Ссылки могут видеть только зарегистрированные пользователи. ] &H3DA, 8
        [Ссылки могут видеть только зарегистрированные пользователи. ] , , Act%, Viz%
    [Ссылки могут видеть только зарегистрированные пользователи. ] SUB
     
    SUB Strel (N, r)
      [Ссылки могут видеть только зарегистрированные пользователи. ] (321, 175)-(321 + [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r, 175 - [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r * .85), 1
      [Ссылки могут видеть только зарегистрированные пользователи. ] (319, 175)-(319 + [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r, 175 - [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r * .85), 1
      [Ссылки могут видеть только зарегистрированные пользователи. ] (320, 174)-(320 + [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r, 174 - [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r * .85), 1
      [Ссылки могут видеть только зарегистрированные пользователи. ] (320, 176)-(320 + [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r, 176 - [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r * .85), 1
      [Ссылки могут видеть только зарегистрированные пользователи. ] (320, 175)-(320 + [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r, 175 - [Ссылки могут видеть только зарегистрированные пользователи. ](N * u) * r * .85), 14
    [Ссылки могут видеть только зарегистрированные пользователи. ] SUB
    Последний раз редактировалось Konstantin Shcherba; 22.11.2011 в 13:26. Причина: Оформил код
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Если я правильно понял, то вот:
    После строки:
    COLOR 11: LOCATE 18, 39: PRINT Day$
    Вставьте строку:
    LOCATE 19, 36: PRINT Date$
    Вместо строки:
    LINE (285, 223)-(354, 252), 1, B
    Вставьте строку:
    LINE (280, 223)-(359, 267), 1, B

    И будет вам и день недели, и число, и месяц, и даже год =)
    Дружба-магия-радость!
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    Konfetka (25.11.2011)

  4. #3  
    Новичок
    Регистрация
    22.11.2011
    Сообщений
    4
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Исправила, все равно окошко пустое. Зато где-то сбоку единичка торчит, а до этого буква n была. Не знаю, что это такое. Посмотрите, пожалуйста, чтобы в прямоугольнике дата показывалась.
    Ответить с цитированием  
     

  5. #4  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    А у меня все замечательно, могу и скрин приложить . Проверьте разок, чтобы все было правильно исправлено - я решил не выкладывать полный исходник из за двух строчек.
    Также укажите, чем пользуетесь? Возможно, QB64? Или простой QBasic или QB?
    Дружба-магия-радость!
    Ответить с цитированием  
     

  6. Пользователь сказал cпасибо:

    Konfetka (29.11.2011)

  7. #5  
    Новичок
    Регистрация
    22.11.2011
    Сообщений
    4
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Лучше вы киньте свой бейсик, пожалуйста, в котором вы эту программу открывали, я скачаю. У меня во всех открываются одни часы с пустым окном....
    Ответить с цитированием  
     

  8. #6  
    Новичок
    Регистрация
    22.11.2011
    Сообщений
    4
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    А так у меня обычные два штуки и один Qbasic4Windows.
    Ответить с цитированием  
     

  9. #7  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,879
    Сказал(а) спасибо
    1,829
    Поблагодарили 957 раз(а) в 816 сообщениях
    Записей в блоге
    1
    У меня есть прога
    Это у меня она есть, а у вас её нету... Почему не задать вопрос на форуме откуда вы её взяли и тому у кого вы её взяли?
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  10. #8  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,879
    Сказал(а) спасибо
    1,829
    Поблагодарили 957 раз(а) в 816 сообщениях
    Записей в блоге
    1
    ли простой QBasic или QB?
    Прога писалась на QBasic, работа на языках "частично совместимых" не гарантируется.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  11. #9  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Программа писалась на Quick Basic 4,5. Можете скачать в интернете. Яндекс в помошь.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  12. #10  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,879
    Сказал(а) спасибо
    1,829
    Поблагодарили 957 раз(а) в 816 сообщениях
    Записей в блоге
    1
    Kakos_nonos, просто как бы я автор))) ну к Quick Basic 4.5 подойдёт конечно.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

Страница 1 из 2 12 ПоследняяПоследняя
Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Выделение всех сообщений в диалоговом окне контакта.
    от Vladislav в разделе Общие вопросы программирования
    Ответов: 1
    Последнее сообщение: 15.01.2013, 16:36
  2. Ответов: 0
    Последнее сообщение: 28.10.2012, 06:20
  3. Ответов: 3
    Последнее сообщение: 20.11.2011, 11:52
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •