| |
Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych |
 |
Makra - WSZYSTKIEGO NAJLEPSZEGO W NOWYM ROKU 2015 !!!
michal.s - 2 Styczeń 2015, 22:55
Temat postu: WSZYSTKIEGO NAJLEPSZEGO W NOWYM ROKU 2015 !!!
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 - 3 Styczeń 2015, 09:34
| 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 - 20 Styczeń 2015, 23:14
| 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 - 23 Styczeń 2015, 21:09
Jesteście ortodoksami. ;)
restauro - 23 Styczeń 2015, 21:27
| Artur Miernik napisał/a: | | Jesteście ortodoksami. |
Dobrze że nie piszą w maszynowym .
Cysorz - 23 Styczeń 2015, 22:19
Au kwa lugha suachili...
|
|