Naloga

2 naročnika

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č?