31. maj 2001 - 18:07Der er
5 kommentarer og 1 løsning
Et lille spil......
Jeg er ved at lave et lille prøve spil..Det eneste der er i det er en form hvor man kan bevæge en mand rundt på formen, og det han så skulle kunne er at skyde med raketter, det skal han gøre når man trykker på space. Jeg har tegnet rakettet som er i *.bmp format og billedet hedder \"raket\"... Private Sub Timer2_Timer() Dim jegskyder As Boolean jegskyder = False
hvis KnapEnter = true then jegskyder = True picskud.Top = mand.Top picskud.Left = mand.Left End If
If jegskyder = True Then picskud.Top = picskud.Top - 15
If picskud.Top < 0 Then jegskyder = False End If
End Sub jeg har det her, men jeg ved ikke om det er rigtit..så...
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Dim JegSkyder as Boolean \'Skriv dette i general sektionen.
Form_Load() JegSkyder = False End Sub
Private Sub Timer2_Timer() If Ascii=13 then JegSkyder = True Picskud.Top = Mand.top Picskud.Left = Mand.Left End If
If JegSkyder = True Then If PicSkud.Top <= 0 Then JegSkyder = False Exit Sub Else PicSkud.Top = PicSkud.Top - 15 End If End If End Sub
Dog skal du hvis du har sat \"PicSkud.Visible = False\" Sætte den til true før du kan se dine raketter flyve. Forresten vil jeg da gerne se din færdige version af det.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
