VB6 ik zie druiven, kersen en zeven's niet draaien!

Status
Niet open voor verdere reacties.
I

icelandic

Gebruiker
Lid geworden
22 sep 2014
Berichten
122
Hallo, goede morgen!

Hieronder m'n code voor een slotmachine in aanbouw. Deze code gaat om het eerste (van drie) wiel(en) van deze machine.

Ik heb op een formulier negen pictureboxen en een StartKnop:

3 x Pictureboxen
3 x Pictureboxen
3 x PictureBoxen
en een startknop.

Je ziet aan de code dat het de bedoeling is dat de picturebox.visible in een ritme aan en uit wordt gezet waarmee beweging wordt gesuggereerd, net als bij de oude filmstrips.

Als ik onderstaande code laat lopen (ik tik op de Startknop) zie ik niets bewegen!

Slechts aan het eind zie ik een beeld.

Als ik dan weer hier, dan weer daar, een breakpoint plaats dan blijkt dat de code wel degelijk goed is, want dan zie je dat de plaatjes getoond worden zoals in de code bedoeld is.

Iemand een idee hoe het komt dat ik tijdens de run geen beweging zie?

Zou het scherm regelmatig "refreshed" moeten worden?
Kan VB het tempo van Picturebox.visible wel aan?
Moet ik een andere methode gebruiken?

PHP: 
Private Sub Startknop_Click()

Dim Y As Integer
Dim Takt As Integer
Dim Nummer(3, 3) As Integer

    Nummer(1, 1) = 1    'Druif
    Nummer(1, 2) = 2    'Kers
    Nummer(1, 3) = 3    '7
    
    Nummer(2, 1) = 4    'Druif
    Nummer(2, 2) = 5    'Kers
    Nummer(2, 3) = 6    '7
    
    Nummer(3, 1) = 7    'Druif
    Nummer(3, 2) = 8    'Kers
    Nummer(3, 3) = 9    '7
      
    For Takt = 1 To 6
        If Takt = 1 Then
            For Y = 1 To 3
                If Y = 1 Then                   
                    Plaatje(Nummer(Y, 1)).Visible = False  'Druif
                    Plaatje(Nummer(Y, 2)).Visible = True 'Kers
                    Plaatje(Nummer(Y, 3)).Visible = False '7
                End If
                If Y = 2 Then
                    Plaatje(Nummer(Y, 1)).Visible = True 'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False  'Kers
                    Plaatje(Nummer(Y, 3)).Visible = False '7
                End If
                If Y = 3 Then
                    Plaatje(Nummer(Y, 1)).Visible = True 'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False 'Kers
                    Plaatje(Nummer(Y, 3)).Visible = False  '7
                End If
            Next Y
        End If 'Takt = 1
 
        If Takt = 2 Then
            For Y = 1 To 3
                If Y = 1 Then
                    Plaatje(Nummer(Y, 1)).Visible = False  'Druif
                    Plaatje(Nummer(Y, 2)).Visible = True 'kers
                    Plaatje(Nummer(Y, 3)).Visible = False '7
                End If
                If Y = 2 Then
                    Plaatje(Nummer(Y, 1)).Visible = False  'Druif
                    Plaatje(Nummer(Y, 2)).Visible = True  'Kers
                    Plaatje(Nummer(Y, 3)).Visible = False '7
                End If
                If Y = 3 Then
                    Plaatje(Nummer(Y, 1)).Visible = True 'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False 'Kers
                    Plaatje(Nummer(Y, 3)).Visible = False '7
                End If
            Next Y
        End If 'Takt = 2
        
        If Takt = 3 Then
            For Y = 1 To 3
                If Y = 1 Then
                    Plaatje(Nummer(Y, 1)).Visible = False
                    Plaatje(Nummer(Y, 2)).Visible = False
                    Plaatje(Nummer(Y, 3)).Visible = True
                End If
                If Y = 2 Then
                    Plaatje(Nummer(Y, 1)).Visible = False
                    Plaatje(Nummer(Y, 2)).Visible = True
                    Plaatje(Nummer(Y, 3)).Visible = False
                End If
                If Y = 3 Then
                    Plaatje(Nummer(Y, 1)).Visible = False
                    Plaatje(Nummer(Y, 2)).Visible = True
                    Plaatje(Nummer(Y, 3)).Visible = False
                End If
            Next Y
        End If 'Takt = 3
            
        If Takt = 4 Then
            For Y = 1 To 3
                If Y = 1 Then
                    Plaatje(Nummer(Y, 1)).Visible = False  'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False 'kers
                    Plaatje(Nummer(Y, 3)).Visible = True '7
                End If
                If Y = 2 Then
                    Plaatje(Nummer(Y, 1)).Visible = False  'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False  'Kers
                    Plaatje(Nummer(Y, 3)).Visible = True '7
                End If
                If Y = 3 Then
                    Plaatje(Nummer(Y, 1)).Visible = False 'Druif
                    Plaatje(Nummer(Y, 2)).Visible = True 'Kers
                    Plaatje(Nummer(Y, 3)).Visible = False '7
                End If
            Next Y
        End If 'Takt = 4
    
        If Takt = 5 Then
            For Y = 1 To 3
                If Y = 1 Then
                    Plaatje(Nummer(Y, 1)).Visible = True  'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False 'kers
                    Plaatje(Nummer(Y, 3)).Visible = False '7
                End If
                If Y = 2 Then
                    Plaatje(Nummer(Y, 1)).Visible = False  'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False  'Kers
                    Plaatje(Nummer(Y, 3)).Visible = True '7
                End If
                If Y = 3 Then
                    Plaatje(Nummer(Y, 1)).Visible = False 'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False 'Kers
                    Plaatje(Nummer(Y, 3)).Visible = True '7
                End If
            Next Y
        End If 'Takt = 5
        
        If Takt = 6 Then
            For Y = 1 To 3
                If Y = 1 Then
                    Plaatje(Nummer(Y, 1)).Visible = True  'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False 'kers
                    Plaatje(Nummer(Y, 3)).Visible = False '7
                End If
                If Y = 2 Then
                    Plaatje(Nummer(Y, 1)).Visible = True  'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False  'Kers
                    Plaatje(Nummer(Y, 3)).Visible = False '7
                End If
                If Y = 3 Then
                    Plaatje(Nummer(Y, 1)).Visible = False 'Druif
                    Plaatje(Nummer(Y, 2)).Visible = False 'Kers
                    Plaatje(Nummer(Y, 3)).Visible = True '7
                End If
            Next Y
        End If 'Takt =  6
                
    Next 'Takt
    
End Sub



[/attach]
 

Bijlagen

  • Nieuwe map.zip
    121,2 KB · Weergaven: 18
Laatst bewerkt:
Doe ons een lol en pas als de wiedeweerga je code aan en zet hem in CODE tags; ik krijg al een lamme scroll arm als ik er naar kijk :)
 
Kan je ook met terugwerkende kracht de code tags plaatsen in bericht#1?
En kan je het hele VB6 project zippen, dan wordt je sneller en beter geholpen.
De helpers gaan zelf geen userform nabouwen om jouw code te testen.
 
Laatst bewerkt:
Bedankt!

Ik merk dat het zippen van een vb6 project niet zó maar gaat!

Ik merk ook dat dat uitsluitend gaat met behulp van VB6-code.

Is er een standaard methode die op deze site standaard is? En waar vind ik die code?

Eric
 
Laatst bewerkt:
icelandic zei:
Ik merk dat het zippen van een vb6 project niet zó maar gaat!
Ik merk ook dat dat uitsluitend gaat met behulp van VB6-code.
Klik om te vergroten...

Natuurlijk gaat dat wel en daar is geen VB6 code voor nodig.
 
in VB6
aan de rechterzijde in de "project explorer"
elk project, module, form aanklikken met de rechtermuisknop en dan "save as"
 
Dank Alphamax,

Langzamerhand komen we een stapje verder! :d

Je zei: "elk project, module, form aanklikken met de rechtermuisknop en dan "save as" "

Ik heb:

1x Project1(Slotmachine_2.vbp)[Kan ik alleen als project saven]
1x Form1(Slotmachine.frm) [Kan ik save as: ]
1x Module1(Module1.bas) [Kan ik save as: ]

Waar ik wél de mogelijkheid heb om te saven as, daar invullen b.v. Project1(Slotmachine_2].zip) of Project1(Slotmachine_2.frm.zip)?

Hoe nu?

Eric
 
Laatst bewerkt:
Je kan je bestanden opslaan in een folder.
Vervolgens gebruik je een zipprogramma om je bestanden in een zipbestand te zetten.
Dat zipbestand sluit je vervolgens bij als bijlage.

Tardis
 
Vo;gens mij is het gelukt!

@tardis:

Volgens mij is er nu in mijn eerste bericht een bijlage toegevoegd!

Zeer bedankt, dat viel niet mee....., echt eenvoudig is het niet.....

Vriendelijke groet,
Eric
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan