|
|
|
Мои ученики программируют на VB
| |
| serg-malachov | Дата: Четверг, 17.11.2011, 21:41 | Сообщение # 1 |
 Генерал-майор
Группа: Администраторы
Сообщений: 110
Статус: Offline
| Здесь можно обсудить вопросы программирования на VB, разместить свои программы
Терпение и труд всё перетрут, вот наверное мой самый главный жизненный принцип на сегодня. Ставьте перед собой реальные цели и стремитесь к их достижению! И у вас всё обязательно получится!
|
| |
| |
| serg-malachov | Дата: Четверг, 17.11.2011, 22:50 | Сообщение # 2 |
|
Генерал-майор
Группа: Администраторы
Сообщений: 110
Статус: Offline
| Скрин программы, таблицы умножения, квадратов и кубов чисел, степеней чисел 2 и 3.
Терпение и труд всё перетрут, вот наверное мой самый главный жизненный принцип на сегодня. Ставьте перед собой реальные цели и стремитесь к их достижению! И у вас всё обязательно получится!
|
| |
| |
| serg-malachov | Дата: Четверг, 17.11.2011, 22:52 | Сообщение # 3 |
|
Генерал-майор
Группа: Администраторы
Сообщений: 110
Статус: Offline
| Текст программы "Таблицы"
Private Sub Command1_Click()
Dim A(10, 10) As Integer
For I = 1 To 10
For J = 1 To 10
A(I, J) = I * J
Print A(I, J);
Next J
Print
Next I
Print A(7, 8)
End Sub
Private Sub Command2_Click()
Dim X, Y, C, S, S1 As Integer
S = 0
S1 = 0
Randomize Timer
For I = 1 To 10
X = Int(Rnd * 8) + 2
Y = Int(Rnd * 8) + 2
Print X; "*"; Y; "=?";
1 C = InputBox("введите результат")
C = Val©
If C = X * Y Then Print C; "правильно": S = S + 1 Else Print C; "не правильно, попробуй еще": S1 = S1 + 1: GoTo 1
Next
Print "правильных ответов"; S - S1; "ошибок"; S1
End Sub
Private Sub Command3_Click()
For I = 1 To 19
For J = 1 To 9
B = (I * 10 + J) ^ 2
Print B;
Next J
Print
Next I
End Sub
Private Sub Command4_Click()
Dim X(10), C, S, S1, S2, S3 As Integer
S = 0
S1 = 0
S2 = 0
Randomize Timer
For I = 1 To 10
2 S3 = 0
X(I) = Int(Rnd * 20) + 1
For J = 1 To I - 1
If X(I) = X(J) Then S3 = S3 + 1
'Print S3
Next
If S3 > 0 Then GoTo 2
Print "возвести в квадрат"; X(I); "=?";
1 C = InputBox("введите результат")
C = Val©
If C = X(I) * X(I) Then Print C; "правильно": S = S + 1: GoTo 4 Else GoTo 3
3 Print C; "не правильно, попробуй еще": S1 = S1 + 1
If S1 > 2 Then Print "подсказка"; X(I) * X(I);: S2 = S2 + 1
GoTo 1
4 Next
Print "правильных ответов"; S - S1; "ошибок"; S1; "подсказок"; S2
End Sub
Private Sub Command5_Click()
For I = 0 To 9
For J = 1 To 10
B = (I * 10 + J) ^ 3
Print B;
Next J
Print
Next I
End Sub
Private Sub Command6_Click()
n = InputBox("введите n")
n = Val(n)
Print "n 2^n 3^n"
For I = 1 To n
Print I, 2 ^ I, 3 ^ I
Next
End Sub
Терпение и труд всё перетрут, вот наверное мой самый главный жизненный принцип на сегодня. Ставьте перед собой реальные цели и стремитесь к их достижению! И у вас всё обязательно получится!
|
| |
| |
| Станислав | Дата: Вторник, 22.11.2011, 20:01 | Сообщение # 4 |
|
Рядовой
Группа: Пользователи
Сообщений: 5
Статус: Offline
| Private Sub Command1_Click()
Scale (-100, -100)-(100, 100)
Line (-100, -100)-(100, 100), vbBlue, BF
Line (-90, 80)-(-60, 50), vbRed, BF
Line -(-75, 20), vbRed
Line -(-90, 50), vbRed
Line (60, 80)-(60, 30)
Line -(40, 50)
Line (60, 30)-(80, 50)
Line (60, 40)-(40, 60)
Line (60, 40)-(80, 60)
Line (60, 50)-(40, 70)
Line (60, 50)-(80, 70)
Line (60, 60)-(40, 80)
Line (60, 60)-(80, 80)
Line (60, 70)-(50, 80)
Line (60, 70)-(70, 80)
Circle (0, 80), 7, vbWhite, BF
Circle (0, 66), 5, vbWhite
Circle (0, 57), 3, vbWhite
For x = -100 To 100
For i = 0 To 10 Step 0.06
Circle (x, -100 - x * x / -100), i, vbYellow, BF
Next
Next
For x = 1 To 1000
Next
Line (x - 10, 90 - x * x / 100)-(x + 10, 110 - x * x / 100), vbBlue, BF
End Sub
|
| |
| |
| serg-malachov | Дата: Вторник, 22.11.2011, 20:12 | Сообщение # 5 |
|
Генерал-майор
Группа: Администраторы
Сообщений: 110
Статус: Offline
| Хорошо! А где же скрин рисунка?
Терпение и труд всё перетрут, вот наверное мой самый главный жизненный принцип на сегодня. Ставьте перед собой реальные цели и стремитесь к их достижению! И у вас всё обязательно получится!
|
| |
| |
| serg-malachov | Дата: Вторник, 22.11.2011, 20:50 | Сообщение # 6 |
|
Генерал-майор
Группа: Администраторы
Сообщений: 110
Статус: Offline
| В программе Станислава допущены ошибки, которые исправлены в следующем тексте. Над программой следует ещё поработать, жду улучшений.
Private Sub Command1_Click()
Scale (-100, -100)-(100, 100)
Line (-100, -100)-(100, 100), vbBlue, BF
Line (-90, 80)-(-60, 50), vbRed, BF
Line -(-75, 20), vbRed
Line -(-90, 50), vbRed
Line (60, 80)-(60, 30), vbGreen 'A мы же делали несколько ёлок в цикле, куда же это делось? Да и с цветом стоит поработать, попробуй RGB(n1,n2,n3)
Line -(40, 50), vbGreen
Line (60, 30)-(80, 50), vbGreen
Line (60, 40)-(40, 60), vbGreen
Line (60, 40)-(80, 60), vbGreen
Line (60, 50)-(40, 70), vbGreen
Line (60, 50)-(80, 70), vbGreen
Line (60, 60)-(40, 80), vbGreen
Line (60, 60)-(80, 80), vbGreen
Line (60, 70)-(50, 80), vbGreen
Line (60, 70)-(70, 80), vbGreen
Circle (0, 80), 7, vbWhite, BF
Circle (0, 66), 5, vbWhite
Circle (0, 57), 3, vbWhite
For x = -100 To 100
y = -100 - x * x / -100
For i = 0 To 10 Step 0.06
Circle (x, y), i, vbYellow, BF
Next
For i = 1 To 1000000
Next
Line (x - 13, y - 13)-(x + 13, y + 13), vbBlue, BF
Next
End Sub
Терпение и труд всё перетрут, вот наверное мой самый главный жизненный принцип на сегодня. Ставьте перед собой реальные цели и стремитесь к их достижению! И у вас всё обязательно получится!
|
| |
| |
| FANAT | Дата: Среда, 23.11.2011, 22:43 | Сообщение # 7 |
 Подполковник
Группа: Проверенные
Сообщений: 106
Статус: Offline
| хорошая программа 
|
| |
| |
| Den4ik | Дата: Воскресенье, 04.12.2011, 14:57 | Сообщение # 8 |
 Рядовой
Группа: Пользователи
Сообщений: 12
Статус: Offline
| Const g As Single = 9.81
Const Pi As Single = 9.34
Dim V0, A, S, L As Double
Private Sub ComdCalc_Click()
'Ввод начальных значений
V0 = Val(txtV0.Text)
A = Val(txtA.Text)
S = Val(txtS.Text)
H = Val(txtH.Text)
'попадание в площадку
L = S * Tan(A * Pi / 180) - (g * S ^ 2) / (2 * V0 ^ 2 * Cos(A * Pi / 180) ^ 2)
TextL.Text = L
Select Case L
Case Is < 0
TextM.Text = "недолёт"
Case Is > H
TextM.Text = "перелёт"
Case Else
TextM.Text = "Попадание"
End Select
End Sub
'построение графика
For t = 0 To 10 Step 0.1
y = V0 * Sin(A * Pi / 180) * t - g * t * t / 2
x = V0 * Cos(A * Pi / 180) * t
picl.Scale (0, 15)-(S + 5, -5)
picl.PSet (x, y)
Next I
'Ось X
picl.Line (0, 0)-(50, 0)
For I = 0 To 50 Step 5
picl.PSet (I, 0)
picl.Print I
Next I
'ось Y
picl.Line (0, -5)-(0, 15)
For I = -5 To 15 Step 5
picl.PSet (0, I)
picl.Print I
Next I
'мишень
picl.Line (S, 0)-(S, H)
End Sub
|
| |
| |
| Лёха | Дата: Воскресенье, 04.03.2012, 15:41 | Сообщение # 9 |
 Полковник
Группа: Модераторы
Сообщений: 170
Статус: Offline
| Программирование на Visual Basic очень познавательная программирование ,потому создаешь программы сам и они работают Лично у меня не очень получается зато когда программа начинает работать то испытываешь чувство победы: "Ты всё таки это сделал"
|
| |
| |
| serg-malachov | Дата: Суббота, 10.03.2012, 07:05 | Сообщение # 10 |
|
Генерал-майор
Группа: Администраторы
Сообщений: 110
Статус: Offline
| Лёша, у тебя всё получается, если добавить ещё немного терпения и трудолюбия будет получаться ещё лучше! А про чувство победы хорошо сказал   
Терпение и труд всё перетрут, вот наверное мой самый главный жизненный принцип на сегодня. Ставьте перед собой реальные цели и стремитесь к их достижению! И у вас всё обязательно получится!
|
| |
| |
| Лёха | Дата: Четверг, 15.03.2012, 18:43 | Сообщение # 11 |
|
Полковник
Группа: Модераторы
Сообщений: 170
Статус: Offline
| У меня частая проблема - это не внимательность,стараешься быстро напечатать что бы за урок успеть из за этого допускаешь ошибки и программа не работает.
|
| |
| |
| FANAT | Дата: Четверг, 15.03.2012, 21:42 | Сообщение # 12 |
|
Подполковник
Группа: Проверенные
Сообщений: 106
Статус: Offline
| С виду кажется, что сложно.... А когда придёшь домой, сядешь, хорошо подумаешь..что как, и оказывается всё не так уж и сложно.... Главное упорство и всё получится!
|
| |
| |
| Лёха | Дата: Четверг, 15.03.2012, 21:47 | Сообщение # 13 |
|
Полковник
Группа: Модераторы
Сообщений: 170
Статус: Offline
| А этого самого упорство обычно нам и не хватает
|
| |
| |
| FANAT | Дата: Четверг, 15.03.2012, 21:54 | Сообщение # 14 |
|
Подполковник
Группа: Проверенные
Сообщений: 106
Статус: Offline
| Просто нужно самому захотеть и добьёшься чего хочешь!
|
| |
| |
| Лёха | Дата: Четверг, 15.03.2012, 21:57 | Сообщение # 15 |
|
Полковник
Группа: Модераторы
Сообщений: 170
Статус: Offline
| как говорится:"Нет ничего не возможного"
|
| |
| |
|
