Visual Basic Хелоу Уърлд

от Всичко за 1 лев, свободната енциклопедия

(Разлики между версиите)
Версия от 00:27, 25 юни 2006
TheNewDefender (Беседа | приноси)

← Go to previous diff
Версия от 12:23, 26 юни 2006
Gubble (Беседа | приноси)
Възвръщане към последната редакция на Samael
Go to next diff →
Ред 1: Ред 1:
-http://www.kibertron.com+Внимание, '''ОПАСНО'''. Не пробвайте това вкъщи. Visual Basic предизвиква трайни увреждания на мозъка!!!.
 + 
 +Още ''внимание''. Авторът на тази статия '''не е''' достатъчно квалифициран за да работи в [[Майкрософт]] [[България]]. Не се е справил с основното изискване да напише 5 варианта на програмата. От това следват две неща:
 + 
 +# Авторът е умствено обременена личност. Имайки предвид, че в еволюционната диаграма на организмите служителите на [[Майкрософт]] [[България]] се намират точно след неорганичната (по произход) печка Раховец, но все пак преди изкуствения интелект, скрит в ''code-behind''-а на страницата за възстановяване на забравени пароли на MSN, вероятно панахидата е била отслужена преди месец.
 +# Почти всички, прочели тази статия неминуемо ще станат по-тъпи. Формулата е следната:
 + НовКоефициентНаИнтелигентност = (СтарКоефициентНаИнтелигентност^(-3))/(3!).
 +Очевидно, "намазват" само индивидите с отрицателен коефициент на интелигентност. Ако нямате '''интерес''' да четете тази статия, натиснете натиснете [[X]].
 + 
 +== Вариант 1 ==
 + 
 + Private Sub cmdClear_Click()
 + txtHello.Text = ""
 + End Sub
 +
 + Private Sub cmdExit_Click()
 + End
 + End Sub
 +
 + Private Sub cmdHello_Click()
 + txtHello.Text = "Hello World!"
 + With txtHello
 + .Font = "Arial"
 + .FontSize = 16
 + .ForeColor = vbBlue
 + End With
 + End Sub
 + 
 + 
 + 
 +== Вариант 2 ==
 + 
 + VERSION 2.00
 + Begin Form Form1
 + Caption = "Hello World!"
 + ClientHeight = 540
 + ClientLeft = 1095
 + ClientTop = 1515
 + ClientWidth = 2445
 + Height = 945
 + Left = 1035
 + LinkTopic = "Form1"
 + ScaleHeight = 540
 + ScaleWidth = 2445
 + Top = 1170
 + Width = 2565
 + Begin Label Label1
 + Alignment = 2 'Center
 + Caption = "Hello World!"
 + FontBold = -1 'True
 + FontItalic = 0 'False
 + FontName = "Arial"
 + FontSize = 12
 + FontStrikethru = 0 'False
 + FontUnderline = 0 'False
 + Height = 255
 + Left = 120
 + TabIndex = 0
 + Top = 120
 + Width = 2175
 + End
 + End
 + 
 +== Вариант 3 ==
 + 
 + Private Sub FOrm_Load()
 + Static I
 + I = 1
 + for I = 1 to 10
 + msgbox "Hello World"
 + Next I
 + end sub
 +[[Категория:Програмни езици]]

Версия от 12:23, 26 юни 2006

Внимание, ОПАСНО. Не пробвайте това вкъщи. Visual Basic предизвиква трайни увреждания на мозъка!!!.

Още внимание. Авторът на тази статия не е достатъчно квалифициран за да работи в Майкрософт България. Не се е справил с основното изискване да напише 5 варианта на програмата. От това следват две неща:

  1. Авторът е умствено обременена личност. Имайки предвид, че в еволюционната диаграма на организмите служителите на Майкрософт България се намират точно след неорганичната (по произход) печка Раховец, но все пак преди изкуствения интелект, скрит в code-behind-а на страницата за възстановяване на забравени пароли на MSN, вероятно панахидата е била отслужена преди месец.
  2. Почти всички, прочели тази статия неминуемо ще станат по-тъпи. Формулата е следната:
НовКоефициентНаИнтелигентност = (СтарКоефициентНаИнтелигентност^(-3))/(3!).

Очевидно, "намазват" само индивидите с отрицателен коефициент на интелигентност. Ако нямате интерес да четете тази статия, натиснете натиснете X.

Вариант 1

Private Sub cmdClear_Click()
   txtHello.Text = ""
End Sub

Private Sub cmdExit_Click()
   End
End Sub

Private Sub cmdHello_Click()
   txtHello.Text = "Hello World!"
   With txtHello
       .Font = "Arial"
       .FontSize = 16
       .ForeColor = vbBlue
   End With
End Sub


Вариант 2

VERSION 2.00
Begin Form Form1 
  Caption         =   "Hello World!"
  ClientHeight    =   540
  ClientLeft      =   1095
  ClientTop       =   1515
  ClientWidth     =   2445
  Height          =   945
  Left            =   1035
  LinkTopic       =   "Form1"
  ScaleHeight     =   540
  ScaleWidth      =   2445
  Top             =   1170
  Width           =   2565
  Begin Label Label1 
     Alignment       =   2  'Center
     Caption         =   "Hello World!"
     FontBold        =   -1  'True
     FontItalic      =   0   'False
     FontName        =   "Arial"
     FontSize        =   12
     FontStrikethru  =   0   'False
     FontUnderline   =   0   'False
     Height          =   255
     Left            =   120
     TabIndex        =   0
     Top             =   120
     Width           =   2175
  End
End

Вариант 3

Private Sub FOrm_Load()
  Static I
  I = 1
  for I = 1 to 10
    msgbox "Hello World"
  Next I
end sub
Лични инструменти