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


tetris

Postades av 2002-06-14 18:13:06 - Erik Pettersson, i forum visual basic - allmänt, Tråden har 3 Kommentarer och lästs av 427 personer

Tjena!

Ska göra en funktion som flyttar ner min figur.... Ser ut ungeför så här:
Den ska kolla om fillstyle =0 den är ifylld annasr köra på. Hoppas nån fattar!
[KOD]
Private Sub cmdNer_Click()
Call list_fig
' En fnktion som ska flytta ner figuren tills den möter någon annan. Lättare sagt en gjort
Timer1.Enabled = False ' slår av timern
Dim c As Integer
c = 0
Do Until c = 25
If Shape1(ner1 - (10 * c)).FillStyle = 0 Then
Print " vardet vi letar efter ar c då fixar sig resten" & c
Exit Do
Else
Print "hmm?"
c = c + 1
End If
Loop
Print c
Timer1.Enabled = 1 ' Sätter på timern igen
End Sub
[/KOD]

problemet är att det alltid blir c =0


Svara

Sv: tetris

Postades av 2002-06-14 18:58:19 - Sven Åke Persson

Hej
1. C blir kanske inte blir noll
If satsen ser mystisk ut IF vadå ?
Do Until c >25
If Shape1(ner1 - (10 * c)) = ? And FillStyle = 0 Then
Print " vardet vi letar efter ar c då fixar sig resten" & c
Exit Do
Else
Print "hmm?"
c = c + 1
End If
Loop
Print c
Timer1.Enabled = 1 ' Sätter på timern igen
End Sub

mvh
Sven


Svara

Sv: tetris

Postades av 2002-06-14 19:05:08 - Erik Pettersson

från början så är alla shape's fillstyle 1
nu vill jag kolla om den har fillstyle 0 typ
If Shape1(ner1 - (10 * c)).fillstyle= 0 Then


Svara

Sv: tetris

Postades av 2002-06-14 21:11:53 - Sven Åke Persson

Hej
Okidoki nu ser jag hur du menar.
Dim c As Integer
c = 0
Do Until c > 25
If Shape1(ner1 - (10 * c)).FillStyle = 0 Then
Print " vardet vi letar efter ar c då fixar sig resten" & c
Exit Do
Else
Print "hmm?"
c = c + 1
End If
Loop
Print c
Timer1.Enabled = 1 ' Sätter på timern igen
End Sub

Om du får c till 0 hela tiden betyder det tydligen
att FillStyle = 0 hela tiden 10 * 0 = 0
ner1 - 0 = ner1 ,så vid första körning är tydligen ner1 FillStyle = 0
Du kommer aldrig längre.

mvh
Sven


Svara

Nyligen

  • 14:24 CBD regelbundet?
  • 14:23 CBD regelbundet?
  • 14:22 Har du märkt några verkliga fördel
  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo

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 569 610
27 953
271 709
1 498
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