diff options
Diffstat (limited to 'VB.Net Projects')
| -rw-r--r-- | VB.Net Projects/Homework-17.11.2018.vb | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/VB.Net Projects/Homework-17.11.2018.vb b/VB.Net Projects/Homework-17.11.2018.vb new file mode 100644 index 0000000..0ca3513 --- /dev/null +++ b/VB.Net Projects/Homework-17.11.2018.vb @@ -0,0 +1,77 @@ +' 1 Задача: Програма с въведени C° се изчислява и въвежда F° + +Public Class Form1 + Dim C as single + Dim F as single + + Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click + C = txtC.Text + F = C * 1.8 + 32 + txtF.Text = F + End Sub + + Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click + txtF.Text = vbNullString + txtC.Text = vbNullString + End Sub + + Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click + Close() + End Sub +End Class + +' 2 Задача: Въведени F° в C° + +Public Class Form1 + Dim F as single + Dim C as single + + Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click + F = txtF.Text + C = Val(F - 32) / 1.8 + txtC.Text = C + End Sub + + Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click + txtF.Text = vbNullString + txtC.Text = vbNullString + End Sub + + Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click + Close() + End Sub +End Class + +' 3 Задача: Размери на баня в m, размери на врата в m, изчисляват се броя плочки за облицоване (a*b*c е обем, трябва лицето на стените и пода) + +Public Class Form1 + Dim BW as single + Dim BL as single + Dim BH as single + Dim DW as single + Dim DH as single + Dim T as single + + Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click + BW = txtBathW.Text + BL = txtBathL.Text + BH = txtBathH.Text + DW = txtDoorW.Text + DH = txtDoorH.Text + T = BW*BL + 2*BW*BH + 2*BL*BH - DW*DH + lblTiles.Text = T + End Sub + + Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click + txtBathW = vbNullString + txtBathL = vbNullString + txtBathH = vbNullString + txtDoorW = vbNullString + txtDoorH = vbNullString + lblTiles = vbNullString + End Sub + + Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click + Close() + End Sub +End Class |