Прості навчальні проекти на VB 2005 - Форум
Форма входу
Наше опитування
Хабарництво в освіті ...
Всього відповідей: 1286
Друзі сайту
Інформатика у 12-річній школі
Видавництво «Шкільний світ» Видавництво «Шкільний світ»

Кращі сайти Рунетa
Рейтинг освітніх сайтів
Телепрограми
Пошукові сервери
Пошук однокласників
Світова бібліотека
МОН України
Сервіси для сайта
Інформери
Довідка фірм і сайтів України
Статистика
Міні-чат
200
Наше опитування
Чи вважаєте Ви себе щасливою людиною?
Всього відповідей: 580

Неділя, 11.12.2016, 11:55

     Незареєстровані гості можуть тільки переглядати повідомлення форуму.
     Щоб мати змогу приймати участь в обговоренні теми, потрібно зареєструватися.
     Для тих, хто робить це вперше, натисніть Потрібна допомога.
Останні повідомлення:
форум:: Голос Учня тема:: Інформатика
форум:: Голос Учня тема:: Інформатика
форум:: Голос Учня тема:: Інформатика


[Нові повідомлення · Учасники · Правила форуму · Пошук · RSS ]
Сторінка 1 з 212»
Форум » Архів » VB.NET » Прості навчальні проекти на VB 2005
Прості навчальні проекти на VB 2005
konsergДата: Четвер, 05.02.2009, 19:36 | Повідомлення # 1
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
В цьому році в школах з'явився предмет "Курс за вибором". Щоб полегшити роботу вчителям інформатики, пропоную тут викладати коди програм, написані мовою Visual Basic, які здатні зрозуміти більшість учнів і які можна було б використовувати для їх навчання.
 
konsergДата: Четвер, 05.02.2009, 19:44 | Повідомлення # 2
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Перша програма

Програма, яка визначає за введеним символом що було введено: цифру, українську літеру, англійську літеру чи інший символ. На формі потрібно розмістити такі компоненти:
Label1 – напис "Введіть будь-який символ "
TextBox1 – для введення даних
Label2 – для виведення результату

Код програми

Public Class Form1
Dim a As String

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

Select Case a
Case 0 To 9
Label1.Text = a & " -- це число"
Case "А" To "я"
Label1.Text = a & " -- це українська літера"
Case "A" To "z"
Label1.Text = a & " -- це англійська літера"
Case Else
Label1.Text = a & " -- це символ"
End Select

If Len(a) > 1 Then
Label1.Text = ""
Label2.Text = "Ви ввели більше 1 символа"
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
Label1.Text = ""
Label2.Text = ""
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = ""
Label2.Text = ""
End Sub

End Class

 
konsergДата: Четвер, 05.02.2009, 19:54 | Повідомлення # 3
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Програма для визначення курса валют.

Які компоненти розміщені на формі – дивись малюнок.

Код програми

Public Class Form1
Dim a, b, c As Double
Dim z As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
z = TextBox1.Text
a = Val(z)
If RadioButton1.Checked Then
c = 5.7 * a
ListBox1.Items.Add©
End If
If RadioButton2.Checked Then
c = 7.1 * a
ListBox1.Items.Add©
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
End Sub

End Class

Прикріпити: 1510826.jpg(5Kb)
 
konsergДата: Четвер, 05.02.2009, 20:00 | Повідомлення # 4
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Програма визначення дня тижня за введеним номером.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "1" Then
Label2.Text = "Понеділок"
End If
If TextBox1.Text = "2" Then
Label2.Text = "вівторок"
End If
If TextBox1.Text = "3" Then
Label2.Text = "Середа"
End If
If TextBox1.Text = "4" Then
Label2.Text = "Четвер"
End If
If TextBox1.Text = "5" Then
Label2.Text = "П'ятниця"
End If
If TextBox1.Text = "6" Then
Label2.Text = "Субота"
End If
If TextBox1.Text = "7" Then
Label2.Text = "Неділя"
End If
If TextBox1.Text > Val(7) Then
Label2.Text = "Такого дня тижня не існує!"
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
Label2.Text = ""
TextBox1.Focus()
End Sub
End Class

Прикріпити: 1335395.jpg(3Kb)
 
konsergДата: Четвер, 05.02.2009, 20:05 | Повідомлення # 5
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Програма для ведення обліку в стоматологічному кабінеті

Компоненти, які розміщені на формі можна визначити за зображенням:

Код програми

Public Class Form1
Dim p, v, r, sum As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sum = p + v + r
Label1.Text = sum

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
p = 200
Else
p = 0
End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
v = 10
Else
v = 0
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
sum = 0
Label1.Text = sum
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked Then
r = 20
Else
r = 0
End If
End Sub
End Class

Прикріпити: 1469370.jpg(12Kb)
 
konsergДата: П'ятниця, 06.02.2009, 22:49 | Повідомлення # 6
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Запис тексту у файл


Код програми

Public Class Form1
Dim a As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
My.Computer.FileSystem.WriteAllText("C:\Test777.txt", a, True)
End Sub
End Class

Прикріпити: 9542748.jpg(3Kb)
 
konsergДата: П'ятниця, 06.02.2009, 22:55 | Повідомлення # 7
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Визначення дня за його порядковим номером із застосуванням оператора варіанта

Код програми

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d As Integer = 0

d = TextBox1.Text
Select Case d
Case 1
Label2.Text = "Понеділок"
Case 2
Label2.Text = "Вівторок"
Case 3
Label2.Text = "Середа"
Case 4
Label2.Text = "Четвер"
Case 5
Label2.Text = "П'ятниця"
Case 6
Label2.Text = "Субота"
Case 7
Label2.Text = "Неділя"
Case Else
Label2.Text = "Такого дня не існує!"
End Select
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label2.Text = " "
End Sub
End Class

Прикріпити: 3110535.jpg(3Kb)
 
konsergДата: Субота, 07.02.2009, 18:41 | Повідомлення # 8
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Програма підрахунку слів у реченні

Код програми

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Stroka As String
Dim Bukva As String
Dim BukvaL As String
Dim i As Long
Dim kol As Long

Stroka = TextBox1.Text
Stroka = Stroka & " "
For i = 2 To Len(Stroka)
Bukva = Mid$(Stroka, i, 1)
If Bukva = " " Or Bukva = "," Or Bukva = "." Or Bukva = ":" Or Bukva = ";" Or Bukva = "|" Then

BukvaL = Mid$(Stroka, i - 1, 1)

If BukvaL <> " " And BukvaL <> "," And BukvaL <> "." And BukvaL <> ":" And BukvaL <> ";" And BukvaL <> "|" Then
kol = kol + 1
End If
Next i

TextBox2.Text = kol

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = ""
End Sub
End Class

Прикріпити: 7497051.jpg(4Kb)
 
konsergДата: П'ятниця, 20.02.2009, 20:24 | Повідомлення # 9
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Кнопка тікає від курсора миші
'На формі розмістити одну кнопку, під яку записати код

Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
Button1.Top = Rnd(100) * 100
Button1.Left = Rnd(100) * 300
End Sub

 
konsergДата: Четвер, 26.02.2009, 20:28 | Повідомлення # 10
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Генерація випадкового числа

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A, B, V As Integer
Dim Z As System.Random

A = TextBox1.Text
B = TextBox2.Text + 1

Z = New System.Random
V = Z.Next(A, cool

TextBox3.Text = V
End Sub
End Class

Прикріпити: 0278569.jpg(4Kb)
 
konsergДата: Четвер, 26.02.2009, 20:31 | Повідомлення # 11
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Демонстрація простої підпрограми

Public Class Form1

Private Sub povidomlenia()
Label1.Text = "Привіт усім"
Button2.Visible = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
povidomlenia()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button2.Visible = False
End Sub
End Class

Прикріпити: 9810092.jpg(3Kb)
 
konsergДата: Четвер, 26.02.2009, 20:33 | Повідомлення # 12
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Визначення довжини рядка

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim R As String
Dim N As Integer

R = TextBox1.Text
N = R.Length

MessageBox.Show("Довжина рядка " & N)
End Sub
End Class

Прикріпити: 5180414.jpg(2Kb)
 
konsergДата: Четвер, 26.02.2009, 20:35 | Повідомлення # 13
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Переведення введеного тексту у верхній регістр

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim R As String

R = TextBox1.Text
TextBox1.Text = R.ToUpper

End Sub
End Class

Прикріпити: 2530119.jpg(3Kb)
 
konsergДата: Четвер, 26.02.2009, 20:37 | Повідомлення # 14
Admin
Група: Администраторы
Повідомлень: 273
Репутація: 5
Статус: Offline
Видалення пробілів на початку і в кінці речення

Public Class Form1

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

Прикріпити: 5282080.jpg(3Kb)
 
ЖекаДата: Середа, 20.05.2009, 19:22 | Повідомлення # 15
Рядовий
Група: Пользователи
Повідомлень: 1
Репутація: 0
Статус: Offline
Як можна скалсти програму табуляції значень функції y=tg x
для аргументу х, який змінюється від 0 до 100 з кроком 5 ????


Повідомлення відредагував Жека - Середа, 20.05.2009, 19:23
 
Форум » Архів » VB.NET » Прості навчальні проекти на VB 2005
Сторінка 1 з 212»
Пошук:


Copyright KonSerg© 2016