Калькулятор с одним полем ввода

Добавил 10 функций.

Ввод с клавиатуры запрещен!

Загрузить проект

CalcWin7 Калькулятор с одним полем ввода

googleplus Калькулятор с одним полем ввода
livejournal Калькулятор с одним полем ввода
  Метки:
  Евгений
  Просмотров: 4 369
  Запись опубликована в 13:59

Поиск через программу с помощью WebBrowser

Яндекс:

WebBrowser1.Navigate("http://yandex.ru/yandsearch?text=" + TextBox1.Text + "&lr=101102")

minikonkurs-11-14

Google:

WebBrowser1.Navigate("http://www.google.ru/search?hl=ru&newwindow=1&output=search&sclient=psy-ab&q=" + TextBox1.Text + "&btnK=")

Также можно и проделать с другими поисковиками.

Поиск через программу с помощью браузера по умолчанию:

Process.Start("http://yandex.ru/yandsearch?text=" + TextBox1.Text + "&lr=101102")

Search Поиск через программу с помощью WebBrowser

googleplus Поиск через программу с помощью WebBrowser
livejournal Поиск через программу с помощью WebBrowser
  Метки:
  Евгений
  Просмотров: 1 462
  Запись опубликована в 12:21

Простой браузер

Вот решил для примера сделать простенький браузер. Вы можете его усовершенствовать. Есть только все необходимые функции.

Можете его переделывать под себя. На форму добавляем 5 кнопок:

  1. Перейти на сайт
  2. Обновить сайт
  3. Остановить загрузку
  4. Вернутся на страницу назад
  5. Вернутся на страницу вперед

Ну и добавляем WebBorwser, где собственно и будет отображаться сайт.

браузер 300x183 Простой браузер

Подробнее »

googleplus Простой браузер
livejournal Простой браузер
  Метки: , , ,
  nakia
  Просмотров: 3 450
  Запись опубликована в 21:14

Игра «Камень/Ножница/Бумага»

Думаю правила все знают? :D

kamen Игра Камень/Ножница/Бумага

googleplus Игра Камень/Ножница/Бумага
livejournal Игра Камень/Ножница/Бумага
  Метки:
  nakia
  Просмотров: 3 381
  Запись опубликована в 20:37

Слова на оборот

Слова на оборот.

perevertish Слова на оборот

Первый вариант

Код для кнопки:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox2.Text = StrReverse(TextBox1.Text)
End Sub

Второй вариант

Код для кнопки:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String
        Dim b As Byte
        TextBox2.Text = ""
        b = 1
        Do While b <= Len(TextBox1.Text)
            a = Mid(TextBox1.Text, b, 1)
            TextBox2.Text = a & TextBox2.Text
            b = b + 1
        Loop
    End Sub
googleplus Слова на оборот
livejournal Слова на оборот
  Метки: ,
  Евгений
  Просмотров: 2 766
  Запись опубликована в 18:16

Страниц:«1...7677787980818283»