3 Eksen Usb CNC Kontrol Kartı Projesi Yardım

[computerboy]

Public Sub OnRead(ByVal pHandle As Long)

End Sub

Onread kısmındaki kodları silip timere eklesem olması lazım doğrumu yapıyorum acaba

Private Sub Timer1_Timer()
Timer1.Interval = 100
Dim GelenVeri As Variant
   If hidRead(pHandle, BufferIn(0)) Then
      GelenVeri = Chr$(BufferIn(2)) & Chr$(BufferIn(3))
      'MG Response, vbBlue, True
      Select Case GelenVeri
        Case "MM"
         MG "Ölçü Sistemi: MM", vbRed, True
        Case "CM"
         MG "Ölçü Sistemi: CM", vbRed, True
        Case "MS"
         MG "Axis Siztemi: X,Y,Z", vbRed, True
        Case "S1"
         MG "Spindle Açıldı !", vbRed, True
        Case "S0"
         MG "Spindle Kapatıldı !", vbRed, True
        Case "EN"
         MG "Parça İşleme Tamamlandı !", vbRed, True
        Case "T0"
         TURKONTROL = False
         Command1_Click
         MG "OK", vbRed, True
      End Select
   End If
End Sub

[justice_for_all]

sımı computerboy ben vb kullanmadıgım için nederece donma oluyo bilemem benim arayüzümde  bikez donma oldu oda sonsuz döngüye girmişti oyuzden hiç donmza olmadı egr cok donma oluyosa bytemaster arkadasın dediğini yap ama öncd timer ile dene bikez kolay gelsin

[justice_for_all]

kodları timera yapıştırmana gere yok timerda o fonksiyonu cagırsanda olur

[computerboy]

Teşekkürler denicem. sonucu yazarım buraya.

[computerboy]

timere yapıştırmaz isem çakışır bu fonksiyon zaten otomatik usbden gelen mesajları dinliyor ve bana yansıtıyor. farklı bir durum olur yada ikisinide denerim , çakışırsa çakışsın

[justice_for_all]

arkadasım aksam sana c# zrayuzunun timer kısmını gonderırım daha verimli olur ok arkadsım simdi cıkmak zorundayım

[Burak B]

Visual Basic' in hangi versiyonunu kullanıyorsun ? v6.0 felan ?

[Burak B]

Public Sub OnRead(ByVal pHandle As Long)
Timer1.Interval = 100 ' Interval 0 dan büyük olmalı bunu unutma.
Timer1.Start()
Timer1.Enabled=True;
End Sub

Timer1.Timer' da

Private Sub Timer1_Timer()
Dim GelenVeri As Variant
   If hidRead(pHandle, BufferIn(0)) Then
      GelenVeri = Chr$(BufferIn(2)) & Chr$(BufferIn(3))
      'MG Response, vbBlue, True
      Select Case GelenVeri
        Case "MM"
         MG "Ölçü Sistemi: MM", vbRed, True
        Case "CM"
         MG "Ölçü Sistemi: CM", vbRed, True
        Case "MS"
         MG "Axis Siztemi: X,Y,Z", vbRed, True
        Case "S1"
         MG "Spindle Açıldı !", vbRed, True
        Case "S0"
         MG "Spindle Kapatıldı !", vbRed, True
        Case "EN"
         MG "Parça İşleme Tamamlandı !", vbRed, True
        Case "T0"
         TURKONTROL = False
         Command1_Click
         MG "OK", vbRed, True
      End Select
   End If
End Sub

daha sonra timer' ı durdurmak istediğin yerde Timer1.Enabled=False ve  Timer1.Stop() kullanırsın. Bu kod sadece örnek aslında yapısal olarak böylede olmaz ama çalışıyor olması gerek örnek teşkil etmesi açısından denersin.

[computerboy]

teşekkür ederim arkadaşlar. vb6 kullanıyorum. denemelere başladım. olmaz ise eproma atıp farklı bir algoritma ile denemek zorunda kalacağım inşallah fazla uğraştırmaz.

[justice_for_all]

sonuclarini bizede bildirirsen cok memnun olurum...

Iyi Calismalar...

[teknikelektronikci]

tebrik ederim güzel proje
bende bir ara aynen böyle bir seye girismidim pcb sema her sey hazirdi programada baslamisdimki yarim kaldi benimki benimkinde usb degilde direk mmc kartakileri okuyacakdi neyse calismanda kolay gelsin