Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Новогодние программки Добавлено: 29.12.08 22:04  

Автор вопроса:  @lex
Собсно сабж)
Скоро Новый Год) Давайте выкладывать у кого какие есть новогодние (поздравительные, просто красивые и т.д.) программки) Желательно с сырками ;)

Ответить

  Ответы Всего ответов: 28  

Номер ответа: 1
Автор ответа:
 Cooller



Вопросов: 11
Ответов: 32
  Профиль | | #1 Добавлено: 30.12.08 00:08
Msgbox ("С наступающим!!!!";) :)

Ответить

Номер ответа: 2
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #2 Добавлено: 30.12.08 01:11
Cooller супер прога!
я её Доделал :)

  1. Dim a As String
  2. a = InputBox("Привет как твоё имя?", "Скоро новый год...")
  3. If a = "" Then
  4. MsgBox "бЛин ты забыл ввести имя!", vbCritical, "тормоз!"
  5. Else
  6. MsgBox a & " Поздравляю с новым годом!!!", vbOKOnly, "С новым годом!"
  7. End If

Ответить

Номер ответа: 3
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #3 Добавлено: 30.12.08 01:16
у меня только java скрипт есть для снежинок на сайте...
--

  1. <SCRIPT LANGUAGE="JavaScript1.2">
  2. <!-- Begin
  3. var no = 10; // колличество снежинок #395638
  4. var speed = 15; // скорость снежинок
  5. var snowflake = "/design/snow.gif";
  6.  
  7. var ns4up = (document.layers) ? 1 : 0;
  8. var ie4up = (document.all) ? 1 : 0;
  9. var dx, xp, yp;
  10. var am, stx, sty;
  11. var i, doc_width = 800, doc_height = 1000;
  12. if (ns4up) {
  13. doc_width = self.innerWidth;
  14. doc_height = self.innerHeight;
  15. } else if (ie4up) {
  16. doc_width = document.body.clientWidth;
  17. doc_height = document.body.clientHeight;
  18. }
  19. dx = new Array();
  20. xp = new Array();
  21. yp = new Array();
  22. am = new Array();
  23. stx = new Array();
  24. sty = new Array();
  25. for (i = 0; i < no; ++ i) {  
  26. dx = 0;        
  27. xp = Math.random()*(doc_width-50);
  28. yp = Math.random()*doc_height;
  29. am = Math.random()*20;        
  30. stx = 0.02 + Math.random()/10;
  31. sty = 0.7 + Math.random();  
  32. if (ns4up) {                  
  33. if (i == 0) {
  34. document.write("<layer name=\"dot"+ i +"\" left=\"15\" ");
  35. document.write("top=\"15\" visibility=\"show\"><img src=\""); <br>
  36. document.write(snowflake + "\" border=\"0\"></layer>"); <br>
  37. } else {
  38. document.write("<layer name=\"dot"+ i +"\" left=\"15\" ");
  39. document.write("top=\"15\" visibility=\"show\"><img src=\""); <br>
  40. document.write(snowflake + "\" border=\"0\"></layer>"); <br>
  41.    }
  42.    } else if (ie4up) {
  43.    if (i == 0) {
  44.    document.write("<div id=\"dot"+ i +"\" style=\"POSITION: "); <br>
  45.    document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
  46.    document.write("visible; TOP: 15px; LEFT: 15px;\"><img src=\"");
  47.    document.write(snowflake + "\" border=\"0\"></div>"); <br>
  48.    } else {
  49.    document.write("<div id=\"dot"+ i +"\" style=\"POSITION: "); <br>
  50.    document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
  51.    document.write("visible; TOP: 15px; LEFT: 15px;\"><img src=\"");
  52.    document.write(snowflake + "\" border=\"0\"></div>"); <br>
  53.          }
  54.             }
  55.             }
  56.             function snowNS() {
  57.             for (i = 0; i < no; ++ i) {  
  58.             yp += sty;
  59.             if (yp > doc_height-50) {
  60.             xp = Math.random()*(doc_width-am-30);
  61.             yp = 0;
  62.             stx = 0.02 + Math.random()/10;
  63.             sty = 0.7 + Math.random();
  64.             doc_width = self.innerWidth;
  65.             doc_height = self.innerHeight;
  66.             }
  67.             dx += stx;
  68.             document.layers["dot"+i].top = yp;
  69.             document.layers["dot"+i].left = xp + am*Math.sin(dx);
  70.             }
  71.             setTimeout("snowNS()", speed);
  72.             }
  73.             function snowIE() {
  74.             for (i = 0; i < no; ++ i) {
  75.             yp += sty;
  76.             if (yp > doc_height-50) {
  77.             xp = Math.random()*(doc_width-am-30);
  78.             yp = 0;
  79.             stx = 0.02 + Math.random()/10;
  80.             sty = 0.7 + Math.random();
  81.             doc_width = document.body.clientWidth;
  82.             doc_height = document.body.clientHeight;
  83.             }
  84.             dx += stx;
  85.             document.all["dot"+i].style.pixelTop = yp;
  86.             document.all["dot"+i].style.pixelLeft = xp + am*Math.sin(dx);
  87.             }
  88.             setTimeout("snowIE()", speed);
  89.             }
  90.             if (ns4up) {
  91.             snowNS();
  92.             } else if (ie4up) {
  93.             snowIE();
  94.             }
  95.             // End -->
  96. </script>

Ответить

Номер ответа: 4
Автор ответа:
 Cooller



Вопросов: 11
Ответов: 32
  Профиль | | #4 Добавлено: 30.12.08 01:18
а ещё мелодию можно проигрывать: "Jangle bells, jangle bells, jangle all the way…"

Ответить

Номер ответа: 5
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #5 Добавлено: 30.12.08 10:39
Jangle


Жуть.

Ответить

Номер ответа: 6
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #6 Добавлено: 30.12.08 13:01
Jangle


В midi )))))))))))

Ответить

Номер ответа: 7
Автор ответа:
 mishaprogrammer



Вопросов: 26
Ответов: 66
  Профиль | | #7 Добавлено: 30.12.08 13:16
  1.  
  2. If Left(Date, 5) = "31.12" Then
  3. MsgBox "поздавляю с новым годом, с новыми глюками, компиляторами, ошибками и новым Windows vienna!"
  4. ' еще можно использовать технологию microsoft agent
  5. End If

Ответить

Номер ответа: 8
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #8 		Добавлено: 30.12.08 13:35
http://rus-skipper.narod.ru/raznoe/2009.zip

Ответить

Номер ответа: 9
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #9 Добавлено: 30.12.08 13:41
еще можно использовать технологию microsoft agent

Ещё много что можно использовать ))

Ответить

Номер ответа: 10
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
  Профиль | | #10 Добавлено: 30.12.08 13:46
Боцман сам писАл? Исходники есть?

Ответить

Номер ответа: 11
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #11 		Добавлено: 30.12.08 14:51
AndreyMp Исходники есть? Конечно есть, что надо?

Ответить

Номер ответа: 12
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
  Профиль | | #12 Добавлено: 30.12.08 15:04
Интересно посмотреть. Кинь мне на andreymp@pisem.net Спасибо.

Ответить

Номер ответа: 13
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #13 		Добавлено: 30.12.08 15:15
Final-Recipient: rfc822; andreymp@pisem.net
Original-Recipient: rfc822;andreymp@pisem.net
Action: failed
Status: 5.0.0
Remote-MTA: dns; mx.pochta.ru
Diagnostic-Code: smtp; 550 Transaction failed


Загрузил берите тут.
http://rus-skipper.narod.ru/raznoe/Cow.zip

Ответить

Номер ответа: 14
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
  Профиль | | #14 Добавлено: 30.12.08 15:18
Сенкс.
Блин, че то опять с этим pisem.net

Ответить

Номер ответа: 15
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #15 Добавлено: 30.12.08 15:23
Блин, че то опять с этим pisem.net


Всё правильно. Писем же НЕТ. Чего ещё ожидать от него?:) всё логично.

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам