Tervehdys
Kuinka saan luotua esim funktion plus
meneekö se jotenkin näin:
Function kerto(numero, luku) As String
kerto = "numero * luku"
End Function
Kuinka saan luotua esim funktion plus
meneekö se jotenkin näin:
Function kerto(numero, luku) As String
kerto = "numero * luku"
End Function
Vastaukset 8
Vanhimmat
Function kerto(numero, luku) As String
kerto = "numero * luku"
End Function
Miksi lasket merkkijonoilla ? As String on väärin pitäisi olla As Interger (tai jotain vastaavaa)
kerto = numero * luku;
Function plus(numero, luku) As Interger
plus = numero luku
End Function
ei osaa basickkia, mutta kai noin
CVErr Function Example
This example uses the CVErr function to return a Variant whose VarType is vbError (10). The user-defined function CalculateDouble returns an error if the argument passed to it isn't a number. You can use CVErr to return user-defined errors from user-defined procedures or to defer handling of a run-time error. Use the IsError function to test if the value represents an error.
' Call CalculateDouble with an error-producing argument.
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
If IsNumeric(Number) Then
CalculateDouble = Number * 2 ' Return result.
Else
CalculateDouble = CVErr(2001) ' Return a user-defined error
End If ' number.
End Function
Function Kerto(Eka as Integer, Toka as Integer) as Integer
Kerto=Eka*Toka
End Function
pajoo
Public Funtion Kerto(x as integer, y as integer)
Dim tulos as integer
tulos = x * y
return tulos
End Function
..huomioida joko kutsuvassa ohjelmassa tai tossa funkkarissa sen, että parametrien arvot on kenties null. Joku try catch -jutska ei varmaan olis pahitteeksi.
Ehkei tällaisia lohkoja aloittelevan ohjelmoijan vielä pitkiin aikoihin tarvitse tietää, kun noita ei muutenkaan tarvitse juuri koskaan.
Nehän kuuluvat enemmän olio-ohjelmoinnin puolelle, javaan. (Delphissäkin harvinaisia)
näppäryyteesi. Kyseessähän on BASIC.