Il topic dei nottambuli

[The King]

Che sabato sera, deprimente

;

 

[Mens]

la foto del tuo avatar dove è stata scattata? NY? Oo

Presa qui.

 

[Lord Bel]

    Private Sub cmdCalcResistOHKO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCalcResistOHKO.Click
        Dim i As Integer
        Dim j As Integer
        Dim n As Integer
        'Metto il cursore nella posizione di attesa
        cmdCalcResistOHKO.Cursor = System.Windows.Forms.Cursors.WaitCursor
        'Azzero la somma delle EVs
        For i = 0 To 4095
            SumEV(i) = 0
            ApproveEV(i) = False
            MinHPEV(i) = 0
            MinDefEV(i) = 0
        Next
        n = 0 'questo serve per la SumEV
        nudFoeHPEV.Value = 0
        nudFoeDefEV.Value = 0
        'Per gli HP da 0 a 252
        For i = 0 To 63
            If i <> 0 Then
                nudFoeHPEV.Value = nudFoeHPEV.Value + 4
                nudFoeDefEV.Value = 0
            End If
            Calculate_HP()
            'Per la Dif da 0 a 252
            For j = 0 To 63
                If j <> 0 Then
                    nudFoeDefEV.Value = nudFoeDefEV.Value + 4
                End If
                Calculate_Defense()
                Calculate_Damage()
                SumEV(n) = nudFoeHPEV.Value + nudFoeDefEV.Value
                MinHPEV(n) = nudFoeHPEV.Value
                MinDefEV(n) = nudFoeDefEV.Value
                If MaxDmgPerc < 100.0 Then
                    ApproveEV(n) = True
                Else
                    ApproveEV(n) = False
                End If
                prbProgress.PerformStep()
                n = n + 1
            Next
        Next
        prbProgress.Value = 0
        'Ricerca del valore minore dell'array
        n = -1
        j = 504
        For i = 0 To 4095
            If ApproveEV(i) = True Then
                If SumEV(i) <= j Then
                    j = SumEV(i)
                    n = i
                End If
            End If
        Next
        'Setta i valori a quello minore, SE non sono -1
        If n <> -1 Then
            nudFoeHPEV.Value = MinHPEV(n)
            nudFoeDefEV.Value = MinDefEV(n)
            Calculate_HP()
            Calculate_Defense()
            Calculate_Damage()
            PhraseNeedEV = "- Your Opponent's Pokémon needs " & nudFoeHPEV.Value.ToString & " HP EVs and " & nudFoeDefEV.Value.ToString & " Def EVs in order to resist an OHKO!"
        Else
            PhraseNeedEV = "- Your Opponent's Pokémon cannot resist this OHKO move!"
        End If
        Write_Damage()
        'Rimetto a posto il cursore
        cmdCalcResistOHKO.Cursor = System.Windows.Forms.Cursors.Default
    End Sub

E' colpa di questa roba se non riesco a prendere sonno!

Non riuscirò mai a odiarla così tanto da ignorarla per andare a dormire... sigh.

 

[Iro]

Non so se vale come notte, ma voglio dire a Lorb che il VB fa schifissimo 8)

 

[Dark Knight]

    Private Sub cmdCalcResistOHKO_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles cmdCalcResistOHKO.Click
Dim i As Integer
        Dim j As Integer
        Dim n As Integer
        'Metto il cursore nella posizione di attesa
        cmdCalcResistOHKO.Cursor = System.Windows.Forms.Cursors.WaitCursor
        'Azzero la somma delle EVs
        For i = 0 To 4095
            SumEV(i) = 0
            ApproveEV(i) = False
            MinHPEV(i) = 0
            MinDefEV(i) = 0
        Next
        n = 0 'questo serve per la SumEV
        nudFoeHPEV.Value = 0
        nudFoeDefEV.Value = 0
        'Per gli HP da 0 a 252
        For i = 0 To 63
            If i <> 0 Then
                nudFoeHPEV.Value = nudFoeHPEV.Value + 4
                nudFoeDefEV.Value = 0
            End If
            Calculate_HP()
            'Per la Dif da 0 a 252
            For j = 0 To 63
                If j <> 0 Then
                    nudFoeDefEV.Value = nudFoeDefEV.Value + 4
                End If
                Calculate_Defense()
                Calculate_Damage()
                SumEV(n) = nudFoeHPEV.Value + nudFoeDefEV.Value
                MinHPEV(n) = nudFoeHPEV.Value
                MinDefEV(n) = nudFoeDefEV.Value
                If MaxDmgPerc < 100.0 Then
                    ApproveEV(n) = True
                Else
                    ApproveEV(n) = False
                End If
                prbProgress.PerformStep()
                n = n + 1
            Next
        Next
        prbProgress.Value = 0
        'Ricerca del valore minore dell'array
        n = -1
        j = 504
        For i = 0 To 4095
            If ApproveEV(i) = True Then
                If SumEV(i) <= j Then
                    j = SumEV(i)
                    n = i
                End If
            End If
        Next
        'Setta i valori a quello minore, SE non sono -1
        If n <> -1 Then
            nudFoeHPEV.Value = MinHPEV(n)
            nudFoeDefEV.Value = MinDefEV(n)
            Calculate_HP()
            Calculate_Defense()
            Calculate_Damage()
            PhraseNeedEV = "- Your Opponent's Pokémon needs " & nudFoeHPEV.
Value.ToString & " HP EVs and " & nudFoeDefEV.Value.
ToString & " Def EVs in order to resist an OHKO!"
        Else
            
PhraseNeedEV = "- Your Opponent's Pokémon 
cannot resist this OHKO move!"
        End If
        Write_Damage()
        'Rimetto a posto il cursore
        cmdCalcResistOHKO.Cursor = System.Windows.Forms.Cursors.Default
    End Sub

Lorb ma che roba è?

 

[Gkx]

buonanotte.

 

[Lord Bel]

Lorb ma che roba è?

[so che non è passata l'una, ma la notte non posso rispondere in questi giorni in quanto ho internet solo la mattina]E' Visual Basic .NET [o VB.NET], un linguaggio di programmazione per applicazioni Windows.

 

[The King]

Forza gente, scriviamo!

 

[Super Warrior]

Uff, sono distrutto e ho sonno, ma non mi va di andare a dormire.

Stasera /b/ è pure abbastanza moscio çç

 

[Lord Bel]

... /b/? °_°

Comunque, io mi sto divertendo con il mio nuovo libro! *_*

 

[Auron]

/b/ è una sezione di 4chan

'sera a tutti! stanotte mi tocca a fare tardi >.>

 

[Ex Deoxys]

sta scendendo =(

 

[Robby]

Sono le 3 e mezza.

Sto giocando a WoW.

Sto finendo Sunwell per completare il mio equip.

ho sonno.

che brutto gioco. T_T

 

[Connacht]

Bella nottata passata a parlare fra i forum della probabilità statistica che esistano le condizioni per la vita nell'universo, della società romana nel periodo antico, della lettura degli ideogrammi che compongono il nome "Light Yagami", di Bloom dei Crustation (pregevole e semisconosciuto dischetto trip hop che merita) e delle sospensioni attive nella Williams-UFO del '92.

Visto che nella mia università si fa sciopero me la prendo comoda per un po', anche se penso che forse dovrei sul serio evitare di andare a sproloquiare a quest'ora.

 

[Cerb]

Buooooongiorno pcforum!

Il sole si appresta ad albeggiare fra 2 ore e 29 minuti.

Oggi la temperatura di aggira sugli 11°C e abbiamo un'umidità del 76%.

... e ora via coi Sonata Arctica!

 

[Rocket]

Fanculo a questo topic cattivo. Ho passato un'estate a nottizzare fino alle 4 ed ora che sono sempre impegnaterrimo c'è questo topic infame che ogni volta che lo vedo mi fa "postami postami postami"...

Beh, sono distrutto. Mi vado a stravaccare su un materasso.

Buone polluzioni notturne a tutti.

 

[Monsù Pyr3s]

Fanculo a questo topic cattivo. Ho passato un'estate a nottizzare fino alle 4 ed ora che sono sempre impegnaterrimo c'è questo topic infame che ogni volta che lo vedo mi fa "postami postami postami"...

Beh, sono distrutto. Mi vado a stravaccare su un materasso.

Buone polluzioni notturne a tutti.

Happy pollution to you! X°D

 

[Ombra]

Fanculo a questo topic cattivo. Ho passato un'estate a nottizzare fino alle 4 ed ora che sono sempre impegnaterrimo c'è questo topic infame che ogni volta che lo vedo mi fa "postami postami postami"...

Beh dai,  hai resistito bene finora.  ;)

Buonanotte a chi c'è ancora!

 

[Iro]

Mio dio, ho tutta la colonna vertebrale a pezzi, maledetta caduta..

 

[Super Warrior]

o hai

 

[white devil]

finalmente posso scrivere in questo dannato topic xd

ora mi sento soddisfatto...  ;)

 

[The King]

Non ci sto capendo più niente  ;) ; ^^ ;

 

[Auron]

wow, è notte! neverwinter nights mi ha fatto perdere rapidamente la cognizione del tempo D:

 

[Iro]

EHI IO DOMANI HO SCUOLA

 

[Gkx]

io, no

 

[Cerb]

goddamn painkirrers, stop not kirring my shitty pain!

/facedesk

/facedesk

/happily unconscious

 

[The King]

Voglio l'arcade come nel banana phorum ;___;

 

[Gkx]

sono appena tornato da un concerto, e forse alle prime luci dell'alba mi addormenterò..

 

[Iro]

scruto le foto della manifestazione di napoli, e appaio solo di spalle

 

[Sin]

ho tre esami martedì mercoledì e giovedì e non sono minimamente preoccupato

oddio, per matematica un po sì.