Ciao. Tempo fa sul newsgroup it.comp.lang.visual-basic è stata lanciata una piccola sfida ai vari programmatori. Adesso prendete il codice che vi darò (che è incasinato), lo mettete in un progetto VB e tentate di capire cosa fa senza eseguire il progetto. E' molto stimolante, ve lo assicuro... se ci riuscite vuol dire che un po' guru anche voi.
Mettete nel progetto 1 form e 1 modulo
Nel modulo mettete le seguenti righe
Const LLL1 = 1
Const LL11 = 1 + LLL1
Const LL = 1 + LLL1 + LL11 + LL11
Type L
LLL As String
LL1 As Integer
L11 As Long
End Type
Public Declare Function I1LL Lib "gdi32" Alias "ExtTextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal wOptions As Long, ByVal LpRect As Any, ByVal LpString As String, ByVal nCount As Long, LpDx As Long) As Long
Function L11(L As L) As L
L11.LL1 = 11 * LL + L.LL1 + LL
End Function
Function L111(L As L) As L
Dim L1 As L
L.LL1 = 11 * Len(L.LLL)
L111.LLL = L.LL1
End Function
Sub L1LL1L1(L As Form)
Dim L1 As L
Dim LL(1 + 1) As L
Dim LLL(11) As Byte
Dim LLLL(11) As Long
Dim L11L As Variant
Dim a As String
L.AutoRedraw = 0
LL(1) = L11(L1)
LL(LLL1 + 1).LL1 = L11(L1).LL1 + 11 * (LL11 + LLL1) - LL11 - LL11
For L1.LL1 = 0 To 11
LLLL(L1.LL1) = 11
Next
For L1.LL1 = 1 To UBound(LL)
LLL(L1.LL1) = LL(L1.LL1).LL1
L11L = L11L & Chr$(LLL(L1.LL1))
Next
L11L = L11L & "LL"
L1.LLL = "1L1L1LL11L"
L11L = L11L & Chr$(L111(L1).LLL + 1)
L1.LLL = "111"
L11L = L11L & Chr$(L111(L1).LLL - 1)
L1.LLL = "1L1L1LL11L1"
L11L = L11L & Chr$(L111(L1).LLL - 1 - 1)
L1.LLL = "1L1L1LL11L"
L11L = L11L & Chr$(L111(L1).LLL + 1)
L1.LLL = "1L1L1LL11L"
L11L = L11L & Chr$(L111(L1).LLL + LL11 + LL11)
L11L = L11L & "L"
L1.LLL = "1L1LL1L11"
L11L = L11L & Chr$(L111(L1).LLL + 1)
I1LL L.hdc, 0, 30, 2, ByVal 0&, L11L, 11, LLLL(0)
End Sub
Nel form mettete un CommandButton (Command1) e quindi il seguente codice:
Private Sub Command1_CLick()
L1LL1L1 Me
End Sub
In bocca al lupo!!!
SebaMix ;-)
Rispondi quotando
