'Bir makinenin otomatik be manuel modda ne kadar zaman çalıştığını sayan script. bu scripti global script içine yazıyoruz. info trigger bölümünden zaman script döngüsünü 1 saniye olarak seçiyoruz.<br />
[/align]<br />
<br />
<br />
Dim saniye<br />
Dim dakika<br />
Dim saat<br />
Dim gun<br />
Dim ay <br />
Dim yil<br />
Dim oto<br />
Dim man<br />
<br />
<br />
oto=HMIRuntime.Tags.Item ("Otomatik").Read <br />
man=HMIRuntime.Tags.Item ("Manuel").Read <br />
<br />
<br />
<br />
''''''Otomatik Mod Zaman Sayımı Başlıyor<br />
If oto=1 Then<br />
saniye=HMIRuntime.Tags.Item ("oto_saniye").read<br />
dakika=HMIRuntime.Tags.Item ("oto_dakika").read<br />
saat=HMIRuntime.Tags.Item ("oto_saat").read<br />
gun=HMIRuntime.Tags.Item ("oto_gun").read<br />
ay=HMIRuntime.Tags.Item ("oto_ay").read<br />
yil=HMIRuntime.Tags.Item ("oto_yil").read<br />
<br />
'Timer Başlangıcı Saniye Sayıyor<br />
saniye=saniye+1<br />
HMIRuntime.Tags.Item ("oto_saniye").Write saniye<br />
<br />
'Saniye 60 olunca dakika sayar ve saniye sıfırlanır<br />
If saniye>=4 Then<br />
HMIRuntime.Tags.Item ("oto_saniye").Write 0<br />
dakika=dakika+1<br />
HMIRuntime.Tags.Item ("oto_dakika").Write dakika<br />
End If<br />
<br />
'Dakika 60 olunca saat sayar ve dakika sıfırlanır<br />
If dakika=4 Then<br />
HMIRuntime.Tags.Item ("oto_dakika").Write 0<br />
saat=saat+1<br />
HMIRuntime.Tags.Item ("oto_saat").Write saat<br />
End If<br />
<br />
'saat 24 olunca gün sayar ve saat sıfırlanır<br />
If saat>=24 Then<br />
HMIRuntime.Tags.Item ("oto_saat").Write 0<br />
gun=gun+1<br />
HMIRuntime.Tags.Item ("oto_gun").Write gun<br />
End If<br />
<br />
'gun 30 olunca ay sayar ve gun sıfırlanır<br />
If gun>30 Then<br />
HMIRuntime.Tags.Item ("oto_gun").Write 1<br />
ay=ay+1<br />
HMIRuntime.Tags.Item ("oto_ay").Write ay<br />
End If<br />
<br />
'ay 12 olunca yil sayar ve ay sıfırlanır<br />
If ay>12 Then<br />
HMIRuntime.Tags.Item ("oto_ay").Write 1<br />
yil=yil+1<br />
HMIRuntime.Tags.Item ("oto_yil").Write yil<br />
End If<br />
End If<br />
<br />
''''''Manuel Mod Zaman Sayımı Başlıyor<br />
If man=1 Then<br />
saniye=HMIRuntime.Tags.Item ("man_saniye").read<br />
dakika=HMIRuntime.Tags.Item ("man_dakika").read<br />
saat=HMIRuntime.Tags.Item ("man_saat").read<br />
gun=HMIRuntime.Tags.Item ("man_gun").read<br />
ay=HMIRuntime.Tags.Item ("man_ay").read<br />
yil=HMIRuntime.Tags.Item ("man_yil").read<br />
<br />
'Timer Başlangıcı Saniye Sayıyor<br />
saniye=saniye+1<br />
HMIRuntime.Tags.Item ("man_saniye").Write saniye<br />
<br />
'Saniye 60 olunca dakika sayar ve saniye sıfırlanır<br />
If saniye>=60 Then<br />
HMIRuntime.Tags.Item ("man_saniye").Write 0<br />
dakika=dakika+1<br />
HMIRuntime.Tags.Item ("man_dakika").Write dakika<br />
End If<br />
<br />
'Dakika 60 olunca saat sayar ve dakika sıfırlanır<br />
If dakika>=60 Then<br />
HMIRuntime.Tags.Item ("man_dakika").Write 0<br />
saat=saat+1<br />
HMIRuntime.Tags.Item ("man_saat").Write saat<br />
End If<br />
<br />
'saat 24 olunca gün sayar ve saat sıfırlanır<br />
If saat>=24 Then<br />
HMIRuntime.Tags.Item ("man_saat").Write 0<br />
gun=gun+1<br />
HMIRuntime.Tags.Item ("man_gun").Write gun<br />
End If<br />
<br />
'gun 30 olunca ay sayar ve gun sıfırlanır<br />
If gun>30 Then<br />
HMIRuntime.Tags.Item ("man_gun").Write 1<br />
ay=ay+1<br />
HMIRuntime.Tags.Item ("man_ay").Write ay<br />
End If<br />
<br />
'ay 12 olunca yil sayar ve ay sıfırlanır<br />
If ay>12 Then<br />
HMIRuntime.Tags.Item ("man_ay").Write 1<br />
yil=yil+1<br />
HMIRuntime.Tags.Item ("man_yil").Write yil<br />
End If<br />
End If