Gå til innhold

nassie

Medlemmer
  • Innlegg

    16
  • Ble med

  • Besøkte siden sist

Innlegg skrevet av nassie

  1. Trenger hjelp til å oversette noe fra norsk til spansk. Håper det er noen hjelpsomme hoder som kan hjelpe meg.

     

     

    Både Dalí og Picasso var veldig opptatt av kubismen, noe som kommer fram tydelig i maleriene deres. I tillegg var begge veldig surrealistiske. Verkene til begge gjenspeiler deres humør og tilstand. For eksempel depresjonstiden til picasso.

     

    I tillegg hadde jeg blitt veldig glad om noen vet hvordan disse setningene blir på spansk:

     

    1: Det var et veldig vanskelig spørsmål, la meg tenke litt

    2: Jeg skjønner ikke spørsmålet ditt, kan du omformulere det?

    3: Jeg lurte mye på dette selv, men kommer ikke fram til noe svar.

     

    Og ja, jeg har muntlig i morgen:P

  2. Ehm.

     

    Den lille svarte firkanten = chara

    Og den avlange firkanten = wall1

    begge er picturebox'er

     

    hvordan kan jeg gjøre slik at spilleren (chara) ikke kan gå inn i den veggen (wall1)?

    og, hvordan kan jeg gjøre slik at spilleren ikke kan bevege seg utenfor gulvet (mappet)

     

    vær så snill ikke gi meg link til aadnk sin guide om collition osv.

    Har prøvd den og mange andre men får det ikke til:S

     

     

    edit: jeg bruker "Visual Basic 2005 Express edition"

  3. Jeg starta i kveld med noe som jeg tenker skal bli ett spill.

    Jeg har holdt på med visual basic i ett par dager nå, og ville prøve meg på ett spill for å bli bedre :)

     

    www.home.no/nassie/Release.rar

     

    koden for splash screen eller hva det heter.

    Public Class splash

     

        Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

     

        End Sub

     

        Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

            If e.KeyCode = Keys.Escape Then

                End

            End If

        End Sub

     

        Private Sub Timer1_timer(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

     

            Timer1.Tag = Timer1.Tag + 1

            If Timer1.Tag = 5 Then Timer1.Enabled = False

            If Timer1.Tag = 5 Then

                main.Show()

                Me.Hide()

            End If

            PB.Value = Timer1.Tag

            PB.Maximum = 5

            PB.Refresh()

        End Sub

     

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

     

        End Sub

     

        Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PB.Click

     

        End Sub

    End Class

     

     

    koden for selve spllet.

    Public Class main

     

        Private Sub TextBox1_KeyDown(ByVal sender As Object, _

    ByVal e As System.Windows.Forms.KeyEventArgs) _

    Handles TextBox1.KeyDown

            'kode for å bevege seg framover

            If e.KeyCode = Keys.Up Then

                chara.Top = chara.Top - 20

            End If

            'kode for å bevege seg bakover

            If e.KeyCode = Keys.Down Then

                chara.Top = chara.Top + 20

            End If

            'kode for å bevege seg til venstre

            If e.KeyCode = Keys.Left Then

                chara.Left = chara.Left - 20

            End If

            'kode for å bevege seg til høyre

            If e.KeyCode = Keys.Right Then

                chara.Left = chara.Left + 20

            End If

            'aktiverer tekst i "helper" når spiller trykker på enter (return)

            If e.KeyCode = Keys.Return Then

                helper.Text = helper.Text + vbNewLine + TextBox1.Text

            End If

            'aktiverer liste over kommandoer i "helper".

            If TextBox1.Text = ("/kommandoer") Then

                helper.Text = ("kommando 1: /clear - for å fjerne alt som står her")

                TextBox1.Clear()

            End If

            'aktiverer liste over kommandoer i "helper", dette er forkortelsen

            If TextBox1.Text = ("/kom") Then

                helper.Text = ("kommando 1: /clear - for å fjerne alt som står her")

                TextBox1.Clear()

            End If

            'aktiverer hjelpeteksten som kom i starten om spiller skriver /hjelp

            If TextBox1.Text = ("/hjelp") Then

                helper.Clear()

                helper.Text = "Velkommen til ...... v.1.0 beta" _

                & vbNewLine & "For historie og andre fakta les readme. " _

                & vbNewLine & " " _

                & vbNewLine & " " _

                & vbNewLine & "Styring: " _

                & vbNewLine & " " _

                & vbNewLine & "Du må trykke på det hvite feltet nederst for å kunne styre " _

                & vbNewLine & " " _

                & vbNewLine & "Fram med piltast opp " _

                & vbNewLine & "Bak med piltast ned" _

                & vbNewLine & "Til sidene med piltast venstre og høyre" _

                & vbNewLine & " " _

                & vbNewLine & " " _

                & vbNewLine & "Kommandoer:" _

                & vbNewLine & " " _

                & vbNewLine & "/clear - For å fjerne alt som står her." _

                & vbNewLine & "/hjelp - For å se denne hjelpeteksten senere." _

                & vbNewLine & " " _

                & vbNewLine & "Du MÅ ha / foran en kommando for at det skal virke." _

                & vbNewLine & "Du kan skrive /kommandoer eller /kom under spillet også" _

                & vbNewLine & "Alle kommandoer står også i readme filen"

                TextBox1.Clear()

            End If

        End Sub

        'teksten som kommer opp når du starter spillet.

        Private Sub main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            helper.Text = "Velkommen til ...... v.1.0 beta" _

            & vbNewLine & "For historie og andre fakta les readme. " _

            & vbNewLine & " " _

            & vbNewLine & " " _

            & vbNewLine & "Styring: " _

            & vbNewLine & " " _

            & vbNewLine & "Du må trykke på det hvite feltet nederst for å kunne styre " _

            & vbNewLine & " " _

            & vbNewLine & "fram med piltast opp " _

            & vbNewLine & "bak med piltast ned" _

            & vbNewLine & "til sidene med piltast venstre og høyre" _

            & vbNewLine & " " _

            & vbNewLine & " " _

            & vbNewLine & "Kommandoer:" _

            & vbNewLine & " " _

            & vbNewLine & "/clear - for å fjerne alt som står her" _

            & vbNewLine & " " _

            & vbNewLine & "Du MÅ ha / foran en kommando for at det skal virke." _

            & vbNewLine & "Du kan skrive /kommandoer eller /kom under spillet også" _

            & vbNewLine & "Alle kommandoer står også i readme filen"

     

     

     

        End Sub

        'hva som skal skje når du klikker på start spillet.

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            'fjerner teksten i "helper" når du trykker på start spillet

            helper.Clear()

        End Sub

    End Class

  4. hei, håper noen kan hjelpe meg litt.

     

    Jeg har laga ett program som teller ned fra 12 min og gir fra seg en lyd når den er ferdig. Dette er altså da ei "PizzaKlokke". Release mappa til en kompis av meg, men programmet ville ikke åpne seg hos han. (se vedlegg for feilmelding)

     

    Det funker helt fint hos meg. Det har sikkert noe med ei fil han mangler eller noe slikt (han har ikke visual basic). Noen som kan hjelpe?

     

    bruker Visual Basic 2005 express edition om det har noe med saken å gjøre.

    post-95647-1154454016_thumb.jpg

  5. Jeg har nettop startet med Visual Basic 2005 express, og har laga ett enkelt paint program, en notisblokk med meny, ett lite gjett nummeret spill osv. Alt har jeg brukt oppskrift på (templates).

    nå fikk jeg lyst til å lage en meget enkel "venn".

     

    programmet består av 2 tekstbokser og en button hvor:

     

    textbox1 = der du skriver meldingen til "boten"

    button1 = trykker du på for å få svar.

    textbox2 = er "boten" som svarer

     

    Hele koden går på If, Then. for eksempel:

     

     

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            If TextBox1.Text = ("hei") Then

                TextBox2.Text = ("hei du:)")

            End If

            If TextBox1.Text = ("hvordan står det til?") Then

                TextBox2.Text = ("bare bra med meg, enn der?")

            End If

        End Sub

     

    Når jeg kjører programmet nå så må jeg si enten "hei" eller "hvordan står det til?"

    for at "boten" skal svare. Jeg kan ikke si "hei:)"

     

    Det jeg lurer på er hvordan jeg kan få programmet til å reagere på ett eller flere ord?

     

    f.eks:

    jeg skriver, "hva syntes du om snus?" så kjenner programmet igjenn ordet "snus" bare og er programert til å svare "jeg elsker snus"

     

    beklager om det er vanskelig å forstå hva jeg mener men bare å spørre så skal jeg prøve å forklare bedre, og ja jeg veit at dette kansje er ett latterlig program. Men jeg skal lage det for å bli bedre.

×
×
  • Opprett ny...