okuma takım ömrü

[biga]

 değerli arkadaşlar okuma osp7000 ve u100 yatay işleme merkezinde tool data bölümünde tool managmanet ekranı açılmamaktadır bu yüzden takım ömrünü kullanamıyorum. çözüm olarak alt program yaptım parametrede    (vc)lerde kullanıyorum.fakat bütün programlarda çağırmam gerekiyor.açmayı bilen varsa yardımları için çok teşekkürler.
saygılar.


(TAKIM OMRU)
OTOMR
IF[VTLCN EQ 1]NA801
IF[VTLCN EQ 2]NA802
IF[VTLCN EQ 3]NA803
IF[VTLCN EQ 4]NA804
IF[VTLCN EQ 5]NA805
IF[VTLCN EQ 6]NA806
IF[VTLCN EQ 7]NA807
IF[VTLCN EQ 8]NA808
IF[VTLCN EQ 9]NA809
IF[VTLCN EQ 10]NA810
IF[VTLCN EQ 11]NA811
IF[VTLCN EQ 12]NA812
IF[VTLCN EQ 13]NA813
IF[VTLCN EQ 14]NA814
IF[VTLCN EQ 15]NA815
IF[VTLCN EQ 16]NA816
IF[VTLCN EQ 17]NA817
IF[VTLCN EQ 18]NA818
IF[VTLCN EQ 19]NA819
IF[VTLCN EQ 20]NA820
IF[VTLCN EQ 21]NA821
IF[VTLCN EQ 22]NA822
IF[VTLCN EQ 23]NA823
IF[VTLCN EQ 24]NA824
IF[VTLCN EQ 25]NA825
IF[VTLCN EQ 26]NA826
IF[VTLCN EQ 27]NA827
IF[VTLCN EQ 28]NA828
IF[VTLCN EQ 29]NA829
IF[VTLCN EQ 30]NA830
IF[VTLCN EQ 31]NA831
IF[VTLCN EQ 32]NA832
IF[VTLCN EQ 33]NA833
IF[VTLCN EQ 34]NA834
IF[VTLCN EQ 35]NA835
IF[VTLCN EQ 36]NA836
IF[VTLCN EQ 37]NA837
IF[VTLCN EQ 38]NA838
IF[VTLCN EQ 39]NA839
IF[VTLCN EQ 40]NA840
IF[VTLCN EQ 41]NA841
IF[VTLCN EQ 42]NA842
IF[VTLCN EQ 43]NA843
IF[VTLCN EQ 44]NA844
IF[VTLCN EQ 45]NA845
IF[VTLCN EQ 46]NA846
IF[VTLCN EQ 47]NA847
IF[VTLCN EQ 48]NA848
IF[VTLCN EQ 49]NA849
IF[VTLCN EQ 50]NA850
IF[VTLCN EQ 51]NA851
IF[VTLCN EQ 52]NA852
IF[VTLCN EQ 53]NA853
IF[VTLCN EQ 54]NA854
IF[VTLCN EQ 55]NA855
IF[VTLCN EQ 56]NA856
IF[VTLCN EQ 57]NA857
IF[VTLCN EQ 58]NA858
IF[VTLCN EQ 59]NA859
IF[VTLCN EQ 60]NA860
IF[VTLCN EQ 61]NA861
IF[VTLCN EQ 62]NA862
IF[VTLCN EQ 63]NA863
IF[VTLCN EQ 64]NA864
IF[VTLCN EQ 65]NA865
IF[VTLCN EQ 66]NA866
IF[VTLCN EQ 67]NA867
IF[VTLCN EQ 68]NA868
IF[VTLCN EQ 69]NA869
IF[VTLCN EQ 70]NA870
IF[VTLCN EQ 71]NA871
IF[VTLCN EQ 72]NA872
IF[VTLCN EQ 73]NA873
IF[VTLCN EQ 74]NA874
IF[VTLCN EQ 75]NA875
IF[VTLCN EQ 76]NA876
IF[VTLCN EQ 77]NA877
IF[VTLCN EQ 78]NA878
IF[VTLCN EQ 79]NA879
IF[VTLCN EQ 80]NA880
IF[VTLCN EQ 81]NA881
IF[VTLCN EQ 82]NA882
IF[VTLCN EQ 83]NA883
IF[VTLCN EQ 84]NA884
IF[VTLCN EQ 85]NA885
IF[VTLCN EQ 86]NA886
IF[VTLCN EQ 87]NA887
IF[VTLCN EQ 88]NA888
IF[VTLCN EQ 89]NA889
IF[VTLCN EQ 90]NA890
IF[VTLCN EQ 91]NA891
IF[VTLCN EQ 92]NA892
IF[VTLCN EQ 93]NA893
IF[VTLCN EQ 94]NA894
IF[VTLCN EQ 95]NA895
IF[VTLCN EQ 96]NA896
IF[VTLCN EQ 97]NA897
IF[VTLCN EQ 98]NA898
IF[VTLCN EQ 99]NA899
VC100=0
IF[VC100 EQ 0]NA901
NA801
VC1=VC1+1
IF[VC1 GT 140]NA900
GOTO NA901
NA802
VC2=VC2+1
IF[VC2 GT 3000]NA900
GOTO NA901
NA803
(VC3=VC3+1 )(*)
(CALL OT303)(*)
(GOTO NA901)(*)
VC3=VC3+1
IF[VC3 GT 150]NA900
GOTO NA901
NA804
VC4=VC4+1
IF[VC4 GT 300]NA900
GOTO NA901
NA805
VC5=VC5+1
IF[VC5 GT 1500]NA900
GOTO NA901
NA806
VC6=VC6+1
IF[VC6 GT 70]NA900
GOTO NA901
NA807
VC7=VC7+1
IF[VC7 GT 80]NA900
GOTO NA901
NA808
VC8=VC8+1
IF[VC8 GT 220]NA900
GOTO NA901
NA809
VC9=VC9+1
IF[VC9 GT 180]NA900
GOTO NA901
NA810
VC10=VC10+1
IF[VC10 GT 350]NA900
GOTO NA901
NA811
VC11=VC11+1
IF[VC11 GT 5000]NA900
GOTO NA901
NA812
VC12=VC12+1
IF[VC12 GT 10]NA900
GOTO NA901
NA813
VC13=VC13+1
IF[VC13 GT 10]NA900
GOTO NA901
NA814
VC14=VC14+1
IF[VC14 GT 10]NA900
GOTO NA901
NA815
VC15=VC15+1
IF[VC15 GT 10]NA900
GOTO NA901
NA816
VC16=VC16+1
IF[VC16 GT 10]NA900
GOTO NA901
NA817
VC17=VC17+1
IF[VC17 GT 10]NA900
GOTO NA901
NA818
VC18=VC18+1
IF[VC18 GT 10]NA900
GOTO NA901
NA819
VC19=VC19+1
IF[VC19 GT 10]NA900
GOTO NA901
NA820
VC20=VC20+1
IF[VC20 GT 10]NA900
GOTO NA901
NA821
VC21=VC21+1
IF[VC21 GT 10]NA900
GOTO NA901
NA822
VC22=VC22+1
IF[VC22 GT 10]NA900
GOTO NA901
NA823
VC23=VC23+1
IF[VC23 GT 10]NA900
GOTO NA901
NA824
VC24=VC24+1
IF[VC24 GT 10]NA900
GOTO NA901
NA825
VC25=VC25+1
IF[VC25 GT 10]NA900
GOTO NA901
NA826
VC26=VC26+1
IF[VC26 GT 9999]NA900
GOTO NA901
NA827
VC27=VC27+1
IF[VC27 GT 10]NA900
GOTO NA901
NA828
VC28=VC28+1
IF[VC28 GT 10]NA900
GOTO NA901
NA829
VC29=VC29+1
IF[VC29 GT 10]NA900
GOTO NA901
NA830
VC30=VC30+1
IF[VC30 GT 10]NA900
GOTO NA901
NA831
VC31=VC31+1
IF[VC31 GT 10]NA900
GOTO NA901
NA832
VC32=VC32+1
IF[VC32 GT 10]NA900
GOTO NA901
NA833
VC33=VC33+1
IF[VC33 GT 10]NA900
GOTO NA901
NA834
VC34=VC34+1
IF[VC34 GT 10]NA900
GOTO NA901
NA835
VC35=VC35+1
IF[VC35 GT 10]NA900
GOTO NA901
NA836
VC36=VC36+1
IF[VC36 GT 10]NA900
GOTO NA901
NA837
VC37=VC37+1
IF[VC37 GT 10]NA900
GOTO NA901
NA838
VC38=VC38+1
IF[VC38 GT 10]NA900
GOTO NA901
NA839
VC39=VC39+1
IF[VC39 GT 10]NA900
GOTO NA901
NA840
VC40=VC40+1
IF[VC40 GT 10]NA900
GOTO NA901
NA841
VC41=VC41+1
IF[VC41 GT 10]NA900
GOTO NA901
NA842
VC42=VC42+1
IF[VC42 GT 10]NA900
GOTO NA901
NA843
VC43=VC43+1
IF[VC43 GT 10]NA900
GOTO NA901
NA844
VC44=VC44+1
IF[VC44 GT 10]NA900
GOTO NA901
NA845
VC45=VC45+1
IF[VC45 GT 10]NA900
GOTO NA901
NA846
VC46=VC46+1
IF[VC46 GT 10]NA900
GOTO NA901
NA847
VC47=VC47+1
IF[VC47 GT 10]NA900
GOTO NA901
NA848
VC48=VC48+1
IF[VC48 GT 10]NA900
GOTO NA901
NA849
VC49=VC49+1
IF[VC49 GT 10]NA900
GOTO NA901
NA850
VC50=VC50+1
IF[VC50 GT 10]NA900
GOTO NA901
NA851
VC51=VC51+1
IF[VC51 GT 10]NA900
GOTO NA901
NA852
VC52=VC52+1
IF[VC52 GT 10]NA900
GOTO NA901
NA853
VC53=VC53+1
IF[VC53 GT 10]NA900
GOTO NA901
NA854
VC54=VC54+1
IF[VC54 GT 10]NA900
GOTO NA901
NA855
VC55=VC55+1
IF[VC55 GT 10]NA900
GOTO NA901
NA856
VC56=VC56+1
IF[VC56 GT 10]NA900
GOTO NA901
NA857
VC57=VC57+1
IF[VC57 GT 10]NA900
GOTO NA901
NA858
VC58=VC58+1
IF[VC58 GT 10]NA900
GOTO NA901
NA859
VC59=VC59+1
IF[VC59 GT 10]NA900
GOTO NA901
NA860
VC60=VC60+1
IF[VC60 GT 10]NA900
GOTO NA901
NA861
VC61=VC61+1
IF[VC61 GT 10]NA900
GOTO NA901
NA862
VC62=VC62+1
IF[VC62 GT 10]NA900
GOTO NA901
NA863
VC63=VC63+1
IF[VC63 GT 10]NA900
GOTO NA901
NA864
VC64=VC64+1
IF[VC64 GT 10]NA900
GOTO NA901
NA865
VC65=VC65+1
IF[VC65 GT 10]NA900
GOTO NA901
NA866
VC66=VC66+1
IF[VC66 GT 10]NA900
GOTO NA901
NA867
VC67=VC67+1
IF[VC67 GT 10]NA900
GOTO NA901
NA868
VC68=VC68+1
IF[VC68 GT 10]NA900
GOTO NA901
NA869
VC69=VC69+1
IF[VC69 GT 10]NA900
GOTO NA901
NA870
VC70=VC70+1
IF[VC70 GT 10]NA900
GOTO NA901
NA871
VC71=VC71+1
IF[VC71 GT 10]NA900
GOTO NA901
NA872
VC72=VC72+1
IF[VC72 GT 10]NA900
GOTO NA901
NA873
VC73=VC73+1
IF[VC73 GT 10]NA900
GOTO NA901
NA874
VC74=VC74+1
IF[VC74 GT 10]NA900
GOTO NA901
NA875
VC75=VC75+1
IF[VC75 GT 10]NA900
GOTO NA901
NA876
VC76=VC76+1
IF[VC76 GT 10]NA900
GOTO NA901
NA877
VC77=VC77+1
IF[VC77 GT 10]NA900
GOTO NA901
NA878
VC78=VC78+1
IF[VC78 GT 10]NA900
GOTO NA901
NA879
VC79=VC79+1
IF[VC79 GT 10]NA900
GOTO NA901
NA880
VC80=VC80+1
IF[VC80 GT 10]NA900
GOTO NA901
NA881
VC81=VC81+1
IF[VC81 GT 10]NA900
GOTO NA901
NA882
VC82=VC82+1
IF[VC82 GT 10]NA900
GOTO NA901
NA883
VC83=VC83+1
IF[VC83 GT 10]NA900
GOTO NA901
NA884
VC84=VC84+1
IF[VC84 GT 10]NA900
GOTO NA901
NA885
VC85=VC85+1
IF[VC85 GT 10]NA900
GOTO NA901
NA886
VC86=VC86+1
IF[VC86 GT 10]NA900
GOTO NA901
NA887
VC87=VC87+1
IF[VC87 GT 10]NA900
GOTO NA901
NA888
VC88=VC88+1
IF[VC88 GT 10]NA900
GOTO NA901
NA889
VC89=VC89+1
IF[VC89 GT 10]NA900
GOTO NA901
NA890
VC90=VC90+1
IF[VC90 GT 10]NA900
GOTO NA901
NA891
VC91=VC91+1
IF[VC91 GT 10]NA900
GOTO NA901
NA892
VC92=VC92+1
IF[VC92 GT 10]NA900
GOTO NA901
NA893
VC93=VC93+1
IF[VC93 GT 10]NA900
GOTO NA901
NA894
VC94=VC94+1
IF[VC94 GT 10]NA900
GOTO NA901
NA895
VC95=VC95+1
IF[VC95 GT 10]NA900
GOTO NA901
NA896
VC96=VC96+1
IF[VC96 GT 10]NA900
GOTO NA901
NA897
VC97=VC97+1
IF[VC97 GT 10]NA900
GOTO NA901
NA898
VC98=VC98+1
IF[VC98 GT 10]NA900
GOTO NA901
NA899
VC99=VC99+1
IF[VC99 GT 10]NA900
GOTO NA901
VC100=VC100+1
IF[VC100 GT 10]NA900
GOTO NA901
IF[VTLCN LE 100]NA901
NA900
BITTI(TAKIM,omru bitmistir)
NA901
RTS


[sensor]

arkadasım cok uzun ve cok yorucu bır uygulama yapmıssın bunun cok kolay bır yontemı var.ıstersen yazabılırım.

[uguroturak]

YAZDA BİZDE BİLELİM