Call a function: Difference between revisions
Call a function en FreeBASIC
(Call a function en FreeBASIC) |
|||
Line 2,022:
end
</lang>
=={{header|FreeBASIC}}==
<lang freebasic>
Sub Saludo()
Print "Hola mundo!"
End Sub
Function Copialo(txt As String, siNo As Short, final As String = "") As String
Dim nuevaCadena As String
For cont As Short = 1 To siNo
nuevaCadena &= txt
Next
Return Trim(nuevaCadena) & final
End Function
Sub testNumeros(a As Integer, b As Integer, c As Integer = 0)
Print a, b, c
End Sub
Sub testCadenas(txt As String)
For cont As Byte = 0 To Len(txt)
Print Chr(txt[cont]); "";
Next cont
End Sub
Saludo
Print Copialo("Saludos ", 6)
Print Copialo("Saludos ", 3, "!!")
?
testNumeros(1, 2, 3)
testNumeros(1, 2)
?
testCadenas("1, 2, 3, 4, cadena, 6, 7, 8, \'incluye texto\'")
</lang>
{{out}}
<pre>Hola mundo!
Saludos Saludos Saludos Saludos Saludos Saludos
Saludos Saludos Saludos!!
1 2 3
1 2 0
1, 2, 3, 4, cadena, 6, 7, 8, \'incluye texto\'</pre>
=={{header|Gambas}}==
| |||