Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Programet kraschar då jag anropar en funktion!

Postades av 2005-09-01 22:26:20 - Mattias Jähnke, i forum visual basic - allmänt, Tråden har 1 Kommentarer och lästs av 740 personer

Hejsan, har ett stort problem här.. (detta fick mej nyss att tappa två timmars arbete pga av dålig sparnings-teknik av mej..)

Håller på med ett rpg i Visual Basic 6.0

I en "Battle" så anropar jag en funktion som i sin tur ska slumpa fram fienden.

För det första så kan jag inte skriva:
"Call newmonster()"
utan det blir automatiskt:
"Call newmonster"

När jag försöker starta funktionen newmonster() så kraschar hela skiten. Får köra en ctrl+alt+del och förlora all osparad information.

Såhär ser funktionen ut:

Private Sub newmonster()

While antal < 4
Randomize
num = (Rnd * 3)

If num = 0 Then
monster = "Rat"
monhp = Val(20)
End If

If num = 1 Then
monster = "Snake"
monhp = Val(15)
End If

If num = 2 Then
monster = "Bee"
monhp = Val(10)
End If

lblMonster = monster
lblMonhealth = monhp

Wend

End Sub




och den ska anropas när formen laddas:

Private Sub Form_Load()

Call newmonster
antal = 0

End Sub



Hoppas verkligen någon kan hjälpa mej med det här..
Tack på förhand


Svara

Sv: Programet kraschar då jag anropar en funktion!

Postades av 2005-09-03 01:00:17 - Andreas Hillqvist

Vad försöker du göra? Vill du skapa fyra djur eller ett?

Private Sub newmonster()

For antal = 1 To 4
    Randomize
    num = (Rnd * 3)

    Select Case num 
    Case 0
        monster = "Rat"
        monhp = 20
    Case 1
        monster = "Snake"
        monhp = 15
    Case 2
        monster = "Bee"
        monhp = 10
    End select

    lblMonster = monster
    lblMonhealth = monhp

Next

End Sub


Kan vara intresant att lära dig lite objektorientering först.


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 722
27 958
271 751
333
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies