Aşağıdaki kod 5 sn'de bir Cells(2,4) hücresindeki DLL linkinden
veri alıyor ve bir alt satıra yazıyor. Bunu 5 dk'da bir yeniliyor.
Sorun, kodu çalıştırınca
5 sn aralık yerine, sürekli veri aktarıyor ve değişen değerler yerine
sabit değerler koyuyor. Galiba, "wait" komutu saçma
sonuçlara sebeb oluyor. "Wait" yerine başka bir komut kullanılamaz mı?
Ancak, kullanılacak komutun bilgisayarın işlemcisini de fazla meşgul
etmeyecek birşey olması lazım.
30 Basla = Timer
40 Cells(satır, 5) = Now()
Cells(satır, 6).Value = Cells(2, 4).Value
Application.Wait (Now + TimeSerial(0, 0, 5))
'Do While Timer < Basla + 2 'Daha evvel bunu kullanmayı denedim.
'DoEvents ama işlemciyi fazla kullanıyor diye
'Loop kullanmaktan vazgeçtim.
satır = satır + 1
Simdi2 = Now()
If DateDiff("n", Simdi, Simdi2) <= 4 Then GoTo 30
veri alıyor ve bir alt satıra yazıyor. Bunu 5 dk'da bir yeniliyor.
Sorun, kodu çalıştırınca
5 sn aralık yerine, sürekli veri aktarıyor ve değişen değerler yerine
sabit değerler koyuyor. Galiba, "wait" komutu saçma
sonuçlara sebeb oluyor. "Wait" yerine başka bir komut kullanılamaz mı?
Ancak, kullanılacak komutun bilgisayarın işlemcisini de fazla meşgul
etmeyecek birşey olması lazım.
30 Basla = Timer
40 Cells(satır, 5) = Now()
Cells(satır, 6).Value = Cells(2, 4).Value
Application.Wait (Now + TimeSerial(0, 0, 5))
'Do While Timer < Basla + 2 'Daha evvel bunu kullanmayı denedim.
'DoEvents ama işlemciyi fazla kullanıyor diye
'Loop kullanmaktan vazgeçtim.
satır = satır + 1
Simdi2 = Now()
If DateDiff("n", Simdi, Simdi2) <= 4 Then GoTo 30