Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 foxpro9 и windows7  [new]
Agasi
Member

Откуда:
Сообщений: 53
привет васем, ест прога, когда инсталирую windows7 и до пергого обнавления запускаю прогу написано на foxpro9, то прога работает нормально, а после пергого обнавления windows7 и перезагрузку прога работает очень медленно, помоги те пожалуйста, ест ли кокая даполнение foxpro9 для windows7
заранее спосибо
19 окт 10, 10:14    [9631505]     Ответить | Цитировать Сообщить модератору
 Re: foxpro9 и windows7  [new]
Shock19
Member

Откуда: Алтайский край, Славгород
Сообщений: 43
Agasi,

мдя... по другому ни чего не скажешь
каков вопрос таков ответ...
19 окт 10, 12:37    [9633049]     Ответить | Цитировать Сообщить модератору
 Re: foxpro9 и windows7  [new]
Agasi
Member

Откуда:
Сообщений: 53
прога под xp работает около 10 минут а под windows7(после пергого обновления windows7) около 22часа, вот в чем вопрос, вот код


SET TALK OFF
SELECT gorcakic
DELETE ALL
PACK
t=ALLTRIM(thisform.text5.Value)

SELECT ABONENT
SET ORDER TO abonhamar
SCAN
*GO RECNO()
*r=RECNO([abonent])
kod = ABONENT.ABONHAMAR
kk=kod
thisform.text6.Value=kod
SELECT abonkod
*SET ORDER TO abonhamar
*SEEK kk
*SCAN
k2=0


*USE 'D:\Tsragrer FOX\epikrnor\abonkod.dbf'



LOCATE for abonkod.abonhamar=kk.and.abonkod.tari>=t
ff=abonkod.tari
r=RECNO([abonkod])
DO WHILE abonkod.abonhamar=kod

k2=0
qq1=0
*SEEK kk
*r=RECNO([abonkod])
xm=abonkod.hunvar
*DO WHILE abonkod1.abonhamar=k
SUM(abonkod.hunvar) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.tari>=t.and.hunvar>0 TO q
COUNT ALL for abonhamar=kk.and.tari>=t TO qq
qq1=r+(qq-1)
xhunvar=s/q
FOR m=r TO qq1
GO RECORD m
xm=abonkod.hunvar
IF xm>0 then
k1=(xm-xhunvar)*(xm-xhunvar)
k2=k2+k1
ENDIF
ENDFOR
IF xhunvar>0 then
khunvar=SQRT(k2/q)/xhunvar
ELSE
khunvar=0
ENDIF
SUM(abonkod.petrvar) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.petrvar>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xpetrvar=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.petrvar
IF xm>0 then
k1=(xm-xpetrvar)*(xm-xpetrvar)
k2=k2+k1
ENDIF
ENDFOR
IF xpetrvar>0 then
kpetrvar=SQRT(k2/q)/xpetrvar
ELSE
kpetrvar=0
ENDIF
SUM(abonkod.mart) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.mart>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xmart=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.mart
IF xm>0 then
k1=(xm-xmart)*(xm-xmart)
k2=k2+k1
ENDIF
ENDFOR
IF xmart>0 then
kmart=SQRT(k2/q)/xmart
ELSE
kmart=0
ENDIF
SUM(abonkod.april) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.april>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xapril=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.april
IF xm>0 then
k1=(xm-xapril)*(xm-xapril)
k2=k2+k1
ENDIF
ENDFOR
IF xapril>0 then
kapril=SQRT(k2/q)/xapril
ELSE
kapril=0
ENDIF
SUM(abonkod.mayis) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.mayis>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xmayis=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.mayis
IF xm>0 then
k1=(xm-xmayis)*(xm-xmayis)
k2=k2+k1
ENDIF
ENDFOR
IF xmayis>0 then
kmayis=SQRT(k2/q)/xmayis
ELSE
kmayis=0
ENDIF
SUM(abonkod.hunis) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.hunis>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xhunis=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.hunis
IF xm>0 then
k1=(xm-xhunis)*(xm-xhunis)
k2=k2+k1
ENDIF
ENDFOR
IF xhunis>0 then
khunis=SQRT(k2/q)/xhunis
ELSE
khunis=0
ENDIF
SUM(abonkod.hulis) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.hulis>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xhulis=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.hulis
IF xm>0 then
k1=(xm-xhulis)*(xm-xhulis)
k2=k2+k1
ENDIF
ENDFOR
IF xhulis>0 then
khulis=SQRT(k2/q)/xhulis
ELSE
khulis=0
ENDIF
SUM(abonkod.ogostos) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.ogostos>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xogostos=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.ogostos
IF xm>0 then
k1=(xm-xogostos)*(xm-xogostos)
k2=k2+k1
ENDIF
ENDFOR
IF xogostos>0 then
kogostos=SQRT(k2/q)/xogostos
ELSE
kogostos=0
ENDIF
SUM(abonkod.september) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.september>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xseptember=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.september
IF xm>0 then
k1=(xm-xseptember)*(xm-xseptember)
k2=k2+k1
ENDIF
ENDFOR
IF xseptember>0 then
kseptember=SQRT(k2/q)/xseptember
ELSE
kseptember=0
ENDIF
SUM(abonkod.hoktember) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.hoktember>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xhoktember=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.hoktember
IF xm>0 then
k1=(xm-xhoktember)*(xm-xhoktember)
k2=k2+k1
ENDIF
ENDFOR
IF xhoktember>0 then
khoktember=SQRT(k2/q)/xhoktember
ELSE
khoktember=0
ENDIF
SUM(abonkod.noyember) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.noyember>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xnoyember=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.noyember
IF xm>0 then
k1=(xm-xnoyember)*(xm-xnoyember)
k2=k2+k1
ENDIF
ENDFOR
IF xnoyember>0 then
knoyember=SQRT(k2/q)/xnoyember
ELSE
knoyember=0
ENDIF
SUM(abonkod.dektember) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.dektember>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xdektember=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.dektember
IF xm>0 then
k1=(xm-xdektember)*(xm-xdektember)
k2=k2+k1
ENDIF
ENDFOR
IF xdektember>0 then
kdektember=SQRT(k2/q)/xdektember
ELSE
kdektember=0
ENDIF
EXIT
ENDDO
*ENDIF

IF abonkod.abonhamar=kk.and.abonkod.tari>=t THEN
SELECT gorcakic
APPEND BLANK
REPLACE tari WITH t
GO BOTTOM
REPLACE abonhamar WITH kod
REPLACE hunvar WITH khunvar
REPLACE petrvar WITH kpetrvar
REPLACE mart WITH kmart
REPLACE april WITH kapril
REPLACE mayis WITH kmayis
REPLACE hunis WITH khunis
REPLACE hulis WITH khulis
REPLACE ogostos WITH kogostos
REPLACE september WITH kseptember
REPLACE hoktember WITH khoktember
REPLACE noyember WITH knoyember
REPLACE dektember WITH kdektember
*EXIT
ENDIF
ENDSCAN
19 окт 10, 14:02    [9633945]     Ответить | Цитировать Сообщить модератору
 Re: foxpro9 и windows7  [new]
Kruchinin Pahan
Member

Откуда: Екатеринбург
Сообщений: 925
Agasi
прога под xp работает около 10 минут а под windows7(после пергого обновления windows7) около 22часа, вот в чем вопрос, вот код

Ужос. И в каком месте тормозит?

Прогоните код профайлером, хотя бы.
19 окт 10, 14:58    [9634458]     Ответить | Цитировать Сообщить модератору
 Re: foxpro9 и windows7  [new]
прошелмимо
Member [заблокирован]

Откуда: Из Курска понаехал
Сообщений: 10363
https://www.sql.ru/forum/actualthread.aspx?tid=782506&hl=abonkod+abonhamar

тема - баян

автору нечем заняться
19 окт 10, 15:11    [9634600]     Ответить | Цитировать Сообщить модератору
 Re: foxpro9 и windows7  [new]
прошелмимо
Member [заблокирован]

Откуда: Из Курска понаехал
Сообщений: 10363
https://www.sql.ru/forum/actualthread.aspx?tid=342607&hl=abonhamar

еще 4 года назад было предложено написать update

автор реален, или это игры?
19 окт 10, 15:15    [9634655]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить