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


Rita med FOR-loop

Postades av 2002-07-31 08:29:43 - Christer Eriksson, i forum visual basic - allmänt, Tråden har 2 Kommentarer och lästs av 444 personer

hur ska jag göra om jag vill rita ut 60 punktre i en ring men hjälp av en for-loop??


Svara

Sv: Rita med FOR-loop

Postades av 2002-07-31 11:26:38 - Ivar Torstensson

Ungefär såhär?

<code>
Private Sub Picture1_Click()
Const punkter = 60
Dim i As Integer
Dim step As Single
step = 6.28318530717959 / punkter
Picture1.ScaleMode = 3
For i = 1 To punkter
Picture1.PSet ((Cos(i * step) + 1) * Picture1.ScaleWidth \ 2, (Sin(i * step) + 1) * Picture1.ScaleHeight \ 2)
Next i
End Sub
</code>
/Ivar


Svara

Sv: Rita med FOR-loop

Postades av 2002-07-31 15:25:51 - Andreas Hillqvist

En alternativ lösning. Lite optimerad:
<code>
Option Explicit

Private Sub Form_Load()
DrawWidth = 3
AutoRedraw = True
End Sub

Function DrawCircel(X As Single, Y As Single, Radius As Single, Punkter As Long)
Dim Step As Single
Dim Angel As Single
Dim CosValue As Single
Dim SinValue As Single
Const Pi As Single = 3.14159265358979
Step = (Pi * 2) / Punkter
For Angel = 0 To Pi / 2 Step Step
SinValue = Sin(Angel)
CosValue = Cos(Angel)
Me.PSet (X + CosValue * Radius, Y + SinValue * Radius)
Me.PSet (X + CosValue * Radius, Y - SinValue * Radius)
Me.PSet (X - CosValue * Radius, Y + SinValue * Radius)
Me.PSet (X - CosValue * Radius, Y - SinValue * Radius)
Next
End Function

Private Sub Form_Resize()
Cls
DrawCircel Me.ScaleWidth * 0.5, Me.ScaleHeight * 0.5, ScaleX(100, vbPixels), 60
End Sub

</code>


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 627
27 953
271 710
253
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
Expand
next previous
Close

Previous

0/0

Next