vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Kreis zeichnen - Knoten im Kopf 
Autor: DerBaer
Datum: 22.09.08 21:24

'r ist der radius
'ich habe den mittelpunkt des kreises bei 0,0

dim x1 as double
dim y1 as double
dim x2 as double
dim y2 as double

for i = 0 to 360 step 4
'x1
x1 = cos(toR(i)) * r
y1 = sin(toR(i)) * r
x2 = x1 + cos(toR(i)) * 600
y2 = y2 + sin(toR(i)) * 600

line (x1, y1) - (x2, y2)
next i

private function toR(i as integer) as double
'wandel Grad in Bogenmaß um
toR = i * 3.1415 / 180
end function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Kreis zeichnen - Knoten im Kopf1.208jopeku22.09.08 21:11
Re: Kreis zeichnen - Knoten im Kopf694DerBaer22.09.08 21:24
Re: Kreis zeichnen - Knoten im Kopf695Zardoz22.09.08 21:41

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel