Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it L'avatar di skjobax
    Registrato dal
    Jan 2010
    Messaggi
    569

    [VB.NET] Traduzione di codice da C++

    Alcuni mi hanno dato il progetto di un software di grafica, per scrivere un codice per uno stickman che salta quando si preme un button.

    Non sono particolarmente bravo in questo...
    Così su Google ho trovato questo:
    codice:
    public void Salta(int altezza)
            {
                if (posizione.Y < altezza - grandezzaFrame.Y)
                {
                    gravita = 0.5f;
                    incrementoY += gravita;
                    posizione.Y += incrementoY;
                }
                else
                {
                    gravita = 0;
                    incrementoY = 0;
                }
            }
    (http://www.pierotofy.it/pages/extras...f085b6ea24c136)
    Potreste aiutarmi?
    A volte la soluzione a un problema è sempre la più semplice...

  2. #2
    Utente di HTML.it L'avatar di skjobax
    Registrato dal
    Jan 2010
    Messaggi
    569
    Grazie, ho risolto usando questo codice:
    codice:
    ' [...] Dichiarazioni
    
    ' Frame del salto
    Private jFrame As Integer
    
    ' Evento click del Button
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            sprite13Jump.Enabled = True
        End Sub
    
    ' Timer del salto
        Private Sub sprite13Jump_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles triangJump.Tick
            jFrame += 1
            If jFrame = 1 Then
                sprite13.Top -= 8
            End If
            If jFrame = 2 Then
                sprite13.Top -= 5
            End If
            If jFrame = 3 Then
                sprite13.Top -= 3
            End If
            If jFrame = 4 Then
                sprite13.Top += 3
            End If
            If jFrame = 5 Then
                sprite13.Top += 5
            End If
            If jFrame = 6 Then
                sprite13.Top += 8
                jFrame = 0
                triangJump.Enabled = False
            End If
        End Sub
    A volte la soluzione a un problema è sempre la più semplice...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.