Başlangıç > Kodlar > Visual Basic 6 ile Çizgiyi döndürmek

Visual Basic 6 ile Çizgiyi döndürmek


Yeni başlayanlar için ufak bir örnek

burda formumuza
1 timer
1 textbox
1 line eklememiz yeterlidir
4 command button

Private Sub Command1_Click()
If Command1.Caption = "başla" Then Command1.Caption = "dur" Else Command1.Caption = "başla"
If Timer1.Enabled = False Then Timer1.Enabled = True Else Timer1.Enabled = False
End Sub

Function dön()
pi = (3.14159265358979)
Line1.Y1 = 1600 + Sin((Text1.Text) * pi / 180) * 600
Line1.X1 = 2500 + Cos((Text1.Text) * pi / 180) * 600
Line1.Y2 = 1600 - Sin((Text1.Text) * pi / 180) * 600
Line1.X2 = 2500 - Cos((Text1.Text) * pi / 180) * 600
End Function

Private Sub Command2_Click()
dön
End Sub

Private Sub Command3_Click()
If Text1.Text = 0 Then Text1.Text = 360
Text1.Text = Text1.Text - 10
dön
End Sub
Private Sub Command4_Click()
If Text1.Text = 360 Then Text1.Text = 0
Text1.Text = Text1.Text + 10
dön
End Sub
Private Sub Form_Load()
Dim pi As Double
Line1.X1 = 2500
Line1.Y1 = 1000
Line1.X2 = Line1.X1
Line1.Y2 = Line1.Y1 + 1200
End Sub
Private Sub Timer1_Timer()
dön
If Text1.Text < 360 Then Text1.Text = Text1.Text + 10 Else Text1.Text = 0
End Sub


TD Software


Reklamlar
  1. ikayserili
    16/10/2012, 21:50

    teşekkürler

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: