Går det att göra någonting i VB som liknar Windows skärmsläckare: flyga genom rymden? Om du vill göra en skärmsläckare har jag här ett tips på kul kod...Flyga genom rymden
Sv: Flyga genom rymden
Gör en Form till Maximized med bakgrundsfärgen vit och använd denna kod tillsammans med lite knappar och textrutor etc.
Det som syns kallas för en Sierpinskis Triangel...
<CODE>Dim X1, Y1 As Integer
Dim Pixel As Integer
Dim G As Long
Private Sub cmdAvsluta_Click()
Unload Me
End Sub
Private Sub cmdStarta_Click()
cmdStarta.Enabled = False
Form1.Cls
Shape2.Width = 0
G = 0
For C = txtPunkter.Text To 1 Step -1
Randomize
Pixel = Int((3 * Rnd) + 1)
If Pixel = 1 Then
X1 = (Int(X1) + (Int(Screen.Width / 2))) / 2
Y1 = Y1 / 2
ElseIf Pixel = 2 Then
X1 = X1 / 2
Y1 = (Int(Y1) + Int(Screen.Height)) / 2
ElseIf Pixel = 3 Then
X1 = (Int(X1) + Int(Screen.Width)) / 2
Y1 = (Int(Y1) + Int(Screen.Height)) / 2
End If
G = G + 1
If G = txtPunkter.Text / 100 Then
Shape2.Width = Shape2.Width + 40
G = 0
End If
lblPunkter.Caption = X1 & " " & Y1
PSet (X1, Y1), QBColor(0)
DoEvents
Next C
cmdStarta.Enabled = True
End Sub
Private Sub Form_Load()
X1 = Screen.Width / 2
Y1 = Screen.Height / 2
Label1.Caption = "Ale Thoor" & vbCrLf & "ale_thoor@hotmail.com" & vbCrLf & "http://www3.ewebcity.com/gluup"
End Sub
Private Sub txtPunkter_Change()
If txtPunkter.Text < 1000 Then
txtPunkter.Text = 1000
ElseIf txtPunkter.Text > 10000000 Then
txtPunkter.Text = 10000000
End If
End Sub</CODE>
Ale Thoor