ICQ - форум. Всё про ICQ.  

Вернуться   ICQ - форум. Всё про ICQ. > Мастерская > Программирование

Программирование C / C++ / Visual C++ / Delphi / Visual Basic / ASM / Windows / Pascal

 
 
Опции темы Оценить тему
Старый 19.11.2011, 02:25   #1
Участник
 
Регистрация: 24.06.2008
Сообщений: 530

Репутация: 864
По умолчанию Помощь нубу VB.

Ребят, сам я полный чайник, только учусь выклдываю задание и свой код, подкорректируйте пожалуйста ошибки.
Код:
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
    ' Фунция ввода диаметра в TextBox
    Function vvod(ByVal T As TextBox) As Single
        Return CSng(Val(T.Text))
    End Function
    ' Процедура вывода площади в TextBox
    Sub Vivod(ByVal Z As Single, ByVal T As TextBox)
        T.Text = CStr(Z)
    End Sub
    'Функция вычисления площади круга 1
    Public Function ПлощадьКруга1(ByVal d1 As Single) As Single
        Return CSng(PI * ((d1 ^ 2) / 4))
    End Function
    'Функция вычисления площади круга 2
    Public Function ПлощадьКруга2(ByVal d2 As Single) As Single
        Return CSng(PI * ((d2 ^ 2) / 4))
    End Function
    'Функция вычисления площади круга 3
    Public Function ПлощадьКруга3(ByVal d3 As Single) As Single
        Return CSng(PI * ((d3 ^ 2) / 4))
    End Function
    ' Процедура выичления площади.
    Sub s(ByVal d1 As Single, ByVal d2 As Single, ByVal d3 As Single)
        Dim S1, S2, S3 As Single
        S1 = ПлощадьКруга1(d1)
        S2 = ПлощадьКруга2(d2)
        S3 = ПлощадьКруга3(d3)
    End Sub
    Private Sub Button1_Click()
        Dim d1 As Single, d2 As Single, d3 As Single
        Dim S1 As Single, S2 As Single, S3 As Single
        d1 = vvod(TextBox1) : d2 = vvod(TextBox2) : d3 = vvod(TextBox3)
        s(d1, d2, d3, S1, S2, S3)
        Vivod(S1, TextBox4) : Vivod(S2, TextBox5) : Vivod(S3, TextBox6)
    End Sub
End Class
Миниатюры
Нажмите на изображение для увеличения
Название: 2011-11-19_012446.png
Просмотров: 222
Размер:	3.7 Кб
ID:	18051  
...vamp вне форума  
Старый 19.11.2011, 16:31   #2
Участник
 
Регистрация: 24.06.2008
Сообщений: 530

Репутация: 864
По умолчанию

Ну много же у нас програмеров, что, никто помочь не в стостоянии?
...vamp вне форума  
 

Опции темы
Оценка этой теме
Оценка этой теме:

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +3, время: 09:49.


Перевод: zCarot
Форум Асечников © Asechka.RU

Новости Сочи