Corel FORUM

[michal.s]

Chciałbym złożyć Wszystkim najserdeczniejsze życzenia na Nowy Rok 2015...
Spełnienia marzeń, zdrowia... cierpliwości i mnóstwa dystansu i spokoju.

[chezare]

Kod:

Sub a() Dim s As String s = Chr(68) & Chr(90) & Chr(73) & Chr(202) & Chr(75) & Chr(73) & Chr(32) & Chr(58) & Chr(45) & Chr(41) MsgBox s End Sub

[maroQ]

Kod:

Sub ShowMe()     MsgBox c(e("50:45:41:39:44:63:49:37:47:54:37:63:38:41:40:37:63:62:63:59:37:49:45:64")), vbInformation, c(e("40:62:45:41:47:45:64")) End Sub Function e(ByVal s As String) As String     Dim ss() As String, i As Integer: ss = Split(s, ":"): For i = 0 To UBound(ss): e = e & Chr(ss(i)): Next i End Function Function c(ByVal s As String) As String     Dim i As Integer, j As Integer: For i = 1 To Len(s): j = Asc(Mid(s, i, 1)) + 60: j = IIf(i = 1, j - 32, j): c = c & Chr(IIf(j > 122 And j < 126, j - 91, j)): Next i End Function

[Artur Miernik]

Jesteście ortodoksami. ;)

[restauro]

[Cysorz]

Au kwa lugha suachili...