Quel est le langage de ce code ?

Bonjour,

je suis amené à devoir travailler sur un gros code dont je ne connais pas précisément le langage. Pouvez-vous me l'indiquer et me dire si je peux me servir de VB2005 Express pour effectuer ce travail ?

Merci beaucoup !
Romain

Sub SSKicker1_Hit : StopBallSearchTimer()

    BISSKicker1 = -1 'The 1st SSKicker has been hit (Ball In Skill Shoot Kicker)

    If SkillShoot = -1 then 'If the SS is active

        DispSeg1.FlushQueue : DispSeg2.FlushQueue
        DispSeg11.FlushQueue : DispSeg22.FlushQueue
       
        If SkillShootKicker = 1 then 'You have made the SS!
       
            SkillShootNumber = SkillShootNumber + 1
            SkillShoot = 0 'Ain't active anymore
            FlasherCentral.FlashForMS 600, 100, BulbOff
           
            PlaySound "fx_gong"
            WolfHowlling() 'A wolf
            FlashLowerPlayfield()
           
            DispSeg1.QueueText " - GOOD SHOOT - ", seScrollOut, 50 :    DispSeg11.QueueText " - GOOD SHOOT - ", seScrollOut, 50
            DispSeg1.QueueText " - GOOD SHOOT - ", seScrollOut, 50 :    DispSeg11.QueueText " - GOOD SHOOT - ", seScrollOut, 50
            DispSeg1.QueueText " - GOOD SHOOT - ", seScrollOut, 50 :    DispSeg11.QueueText " - GOOD SHOOT - ", seScrollOut, 50
           
            DispSeg2.QueueText "  5 0 0 0  x  " & SkillShootNumber & " ", seNone, 50 : DispSeg22.QueueText "  5 0 0 0  x  " & SkillShootNumber & " ", seNone, 50
            DispSeg2.QueueText "  5 0 0 0  x  " & SkillShootNumber & " ", seBlinkMask, 450 : DispSeg22.QueueText "  5 0 0 0  x  " & SkillShootNumber & " ", seBlinkMask, 450
           
            'DispSeg2.QueueText " 2500 * " & SkillShootNumber & " = " & (2500*SkillShootNumber), seWipeOut, 500
            'AddScore(5000*SkillShootNumber)
            nvScore(1) = nvScore(1) + (5000*SkillShootNumber) 'We use this 'cos we dont want dmd interruptions during the SS
           
            bonuspoints(1)=bonuspoints(1)+5000
           
            CheckSS() 'Check the number of the SS... 4 a price or sometin'
           
            SSKickerTimer.Set TRUE, 1500
            Exit Sub
       
        Else
       
            SSMessageOver()
       
        End If
       
        SSOver() 'SkillShoot Over

    End If

    SSKickerTimer.Set TRUE, 200


End Sub

Salut,
En tout cas déjà je peux te dire que ce n'est PAS du vb6 (testé un simple copier coller dans mon IDE et la première ligne n'est pas très appréciée).

Mais en revanche il semble tout de même que ca se rapporte à un Basic mais je ne saurais pas t'en dire plus désolé.

@+: Ju£i€n
Pensez: Réponse acceptée

C'est du Vb ... pas net !
Pas très net même !


... je sors

Bonjour,

j'ai fait un essai dans VB2005 Express, le code passe en globalité sans trop d'erreurs (100 sur plus de 30K lignes).
Je reviendrai vers vous pour la modification et l'optimisation de ce code (dont la correction des erreurs) pour ne pas provoquer de dysfonctionnements.

merci
Romain