Naloga

Lepo pozdravljeni

Imam eno nalogo. Moram sestaviti in preizkusiti proceduro/funkcijo za pretvorbo iz stopinj Celzija v stopinje Fahrenheita in obratno.

Ali bi negdo rešio nalogo s pomočjo visual basic 2005 exsprees edition?

Sintakse Visual Basica ne poznam prav dobro, zadeva bi recimo v PHP izgledala nekako takole:

// celzij v fahrenheit

function cel2fah($num) {

    return ($num*1.8)+32;

}



// fahrenheit v celzij

function fah2cel($num) {

    return ($num-32)/1.8;

}

Vsekakor ne bi smelo biti pretezko tole pretvorit v VB, kajne?

Lepo pozdravljeni še enkrat:o)!

Jaz bi rabil kode ki jih vpisemo v visual basic 2005 exsprees edition,jaz sem naredil program po mojem:

Module Module1

Sub Main()

    Dim F As Single, C As Single, Konverter As Integer

    Console.Write("Izberi konverter: 1 za pretvorbo iz stopinje Fahrenheita v stopinje Celzija 2 za pretvorbo iz stopinj Celzija v stopinje Fahrenheita: ")

    Konverter = Console.ReadLine()

    If Konverter = 1 Then

        Console.Write("Podaj F=")

        F = Console.ReadLine

        C = (5 / 9) * (F - 32)

        Console.WriteLine("C=" & C)

        Console.ReadLine()

    ElseIf Konverter = 2 Then

        Console.Write("Podaj C=")

        C = Console.ReadLine()

        F = (9 / 5) * C + 32

        Console.WriteLine("F=" & F)

        Console.ReadLine()

    End If

    Dim tipka As Char

    Console.WriteLine()

    Console.Write("nova naloga(d/n)?")

    tipka = Console.ReadLine()

    If tipka = "n" Or tipka = "N" Then

        Console.WriteLine("konec!")

        Console.ReadLine()

        End

    ElseIf tipka = "d" Or tipka = "D" Then

        Main()

    End If

End Sub

End Module

,ampak ne vem narediti da se pretvorbe izvršijo v ločenih procedurah,

funkcijah, ne v glavni proceduri Main.

Lepo prosim za pomoč?