Arama butonu
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
5
Cevap
1321
Tıklama
0
Öne Çıkarma
visual basic 6 step motor kontrolu ile ilgili yardım
T
15 yıl
Teğmen
Konu Sahibi

merhaba arkadaşlar step motor kontrolü ile ilgili vb6 programında birkaç geliştirme çalışmalarım var yalnız bir sorunu çözemedim yardım ederseniz çok sevinirim........burada 2 tic var bir tanesini seçtiğimde ve dönme commandına bastığımda motor sağa diğer tic i seçtiğimde motor sola dönüyor.ben bir command veya tic ekleyerek motorun ilk önce sağa 15 saniye bekleyip sola dönmesini istiyorum.bunu nasıl yapabilirim acaba?
yardım ederseniz çok sevinirim.


Private Sub Timer1_Timer()
If (Option2.Value = True) Then
veri = veri * 2
If (veri = 16) Then
veri = 1
End If
End If


If (Option2.Value = False) Then
veri = veri / 2
If (veri = 0) Then
veri = 8
End If
End If


If (aktif = True) Then
say = say + 1

If (say = tur) Then
Timer1.Enabled = False
say = 0
End If
End If
Text1.Text = Str(veri)
BufferOut(1) = Val(Text1.Text)
hidWriteEx VendorID, ProductID, BufferOut(0)


End Sub

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil





< Bu mesaj bu kişi tarafından değiştirildi tantalis1986 -- 14 Aralık 2010; 18:49:54 >

T
15 yıl
Teğmen
Konu Sahibi

yardım edicek yokmu arkadaşlar


Bu mesaja 1 cevap geldi.
G
15 yıl
Yarbay

Arkadaş vb de timer yokmu? Timer interval i ayarla, bitincede istediğin şeyi çalıştır. Birkeresinde bende benzer birşey yapmıştım. 2 motoru usb üzerinden hem sağa sola hemde hız kontrolu. Ama ne yazıkki vb ile değil. Yoksa yardımcı olurdum.


Bu mesaja 1 cevap geldi.
T
15 yıl
Teğmen
Konu Sahibi

saol elektro_gadget biraz geç oldu gerçi

peki şu kodu commanda bastığımda çalıştırıp 10 saniye bekleyip otomatik tekrar nasıl çalıştırabilirim

Private Sub command1_click()
aktif = True
tur = 4 / 1
Timer1.Enabled = True


Bu mesaja 1 cevap geldi.
G
15 yıl
Yarbay

T
15 yıl
Teğmen
Konu Sahibi

Sub Pause(ByVal nSecond As Single)
Dim t0 As Single
Dim dummy As Integer

t0 = Timer

Do While Timer - t0 < nSecond

dummy = DoEvents()


If Timer < t0 Then
t0 = t0 - 24 * 60 * 60 * 60

End If
Loop

End Sub

Private Sub Command10_Click()
Do While (DoEvents)

aktif = True
tur = 24 / 1
Timer1.Enabled = True

Call Pause(15) burada kaç saniye bekletmek istediğimiz yazıyoruz
Loop


End Sub

bu şekilde yaptım çalıştı
tekrar teşekkürler



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.