Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Geht dieser Code zu beschleunigen?
Autor: Jan
Datum: 14.04.02 19:56
Kan man diesen Code irgend wie beschleunigen? er soll dazu dienen in einem bild stärkere farbveräderungen anzuzeigen Private Sub Command1_Click() Dim x As Long Dim y As Long Dim lColor As Long Dim blau As String Dim gruen As String Dim rot As String Dim blau2 As String Dim gruen2 As String Dim rot2 As String For x = 1 To 500 'Form1.Picture1.Height For y = 1 To 500 'Form1.Picture1.Width lColor = Picture1.Point(x, y) Form1.Text1.Text = ColorBlue(lColor) Form1.Text2.Text = ColorRed(lColor) Form1.Text3.Text = ColorGreen(lColor) blau = Form1.Text1.Text + Form1.Text4.Text blau2 = Form1.Text1.Text - Form1.Text4.Text gruen = Form1.Text3.Text + Form1.Text4.Text gruen2 = Form1.Text3.Text - Form1.Text4.Text rot = Form1.Text2.Text + Form1.Text4.Text rot2 = Form1.Text2.Text - Form1.Text4.Text If Text1.Text < blau2 Or Text1.Text > blau And Text2.Text < rot2 Or Text2.Text > rot And_ Text3.Text < gruen2 Or Text3.Text > gruen Then Picture2.PSet (x, y), vbBlack Else Picture2.PSet (x, y), vbRed End If Next y Next x End Sub Private Function ColorBlue(ByVal Color As Long) As Integer ColorBlue = Color &H10000 And &HFF& End Function Private Function ColorRed(ByVal Color As Long) As Integer ColorRed = Color And &HFF& End Function Private Function ColorGreen(ByVal Color As Long) As Integer ColorGreen = Color &H100& And &HFF& End Function

Geht dieser Code zu beschleunigen?	135	Jan	14.04.02 19:56
Ja. Um das 100.000 fache.	293	unbekannt	14.04.02 20:06
Re: Ja. Um das 100.000 fache.	299	unbekannt	14.04.02 20:21
Warum nicht gleich C++?	102	Wuschel Basic	14.04.02 22:32
Re: Warum nicht gleich C++?	357	unbekannt	14.04.02 22:39
Ach ja, muss gesagt werden	277	unbekannt	14.04.02 22:50
Re: Ach ja, muss gesagt werden	91	Wuschel Basic	15.04.02 07:15
und jetzt???? (ot)	75	Jan	15.04.02 18:48
Re: Ach ja, muss gesagt werden	263	unbekannt	15.04.02 20:17

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übersicht

Suchen