Идут грозі

🔴 2:17 Повітряна тривога у Харкові!
  • Автор теми Автор теми Zigote
  • Дата створення Дата створення
FGzknfGEiKc.webp

доброе утро )))

сёдня ж вроде день программиста )))
поздравляю, чо
Ep-7gPGw2kM.webp
 
я пробила инфу, оказывается эти птички раза четыре в год, дают потомство и если не отсадить их вовремя мамашка заклевывают свое потомство, у директора именно так и было
 
lucky))) сказав(ла):
я пробила инфу, оказывается эти птички раза четыре в год, дают потомство и если не отсадить их вовремя мамашка заклевывают свое потомство, у директора именно так и было
Натисніть, щоб розгорнути...

Капец! ну все!

ты подписала себе приговор!

Быть тебе приемной мамашей!!!

:D
 
Зая сказав(ла):
Кто третий?
Натисніть, щоб розгорнути...

set date dmy
set cent on
set near on
set clock to 24,69

set devi to scree
set dele on
set talk off
set space off
set safe off
set cent on
set proc to 'proc'
set messa to 24 left
on key label f1 do hlp
set colo of sche 18 to N+/W,N/W,N/W,,W+/B,W+/B+,GR+/W && menu
set colo of sche 19 to n/w,w/b+,n/w,b/w,b/w,b/w,W/b+,w/n,n/w && vvod
set colo of sche 20 to b/w,w/b*,n/w,rg+/w,rg+/w && okno1
set colo of sche 21 to ,w+/b,w+/b,rg+/b,,n/w,w/n,w/n,w/n && pom


defi WIND okno1 FROM 1,0 TO 23,79 fill '°' none colo sche 20

DEFI MENU main bar in wind okno1 colo sche 18
DEFI PAD vvod OF main PROMPT ' „***лҐ '
DEFI PAD rasch OF main PROMPT ' ‘ў®¤Є* '
DEFI PAD serv OF main PROMPT ' Љ®а४вЁа®ўЄ* '
DEFI PAD about OF main PROMPT ' Ћ Їа®Ја*¬¬Ґ... ' MESSAGE ' €*д®а¬*жЁп ® Їа®Ја*¬¬Ґ'
DEFI PAD vih OF main PROMPT ' ‚л室 ' MESSAGE ' ‡*ўҐаиҐ*ЁҐ а*Ў®вл'

defi popup vib_vvod
defi bar 1 of vib_vvod prom '-----‚ў®¤------' skip for .t. colo sche 18
defi bar 2 of vib_vvod prom ' €§ жҐе®ў ' mess ' ‚ў®¤ ¤***ле Ё§ жҐе®ў ' colo sche 18
defi bar 3 of vib_vvod prom ' Џ® Є®¬ЎЁ**вг ' mess ' ‚ў®¤ ¤***ле ¤«п а*бзҐв* дЁ***б®ў®Ј® १г«мв*в*' colo sche 18
defi bar 4 of vib_vvod prom ' …¦Ґ¬Ґбпз*лҐ ' mess ' ‚ў®¤ Ґ¦Ґ¬Ґбпз*ле ¤***ле' colo sche 18
defi bar 5 of vib_vvod prom '\-' colo sche 18
defi bar 6 of vib_vvod prom ' Љ®а४вЁа®ўЄ* ' mess ' Љ®а४вЁа®ўЄ* ¤***ле Ё§ жҐе®ў ' colo sche 18
on sele bar 2 of vib_vvod do perekach
on sele bar 3 of vib_vvod do vvod_kom
on sele bar 4 of vib_vvod do vvod_mes
on sele bar 6 of vib_vvod do vv_ruch

DEFINE POPUP raschpop colo sCHEME 18
DEFINE BAR 1 OF raschpop prompt ' ђ*бзҐв ' MESSAGE ' ђ*бзҐв §*ва*в Ї® жҐе*¬' COLOR SCHEME 18
DEFINE BAR 2 OF raschpop prompt ' Џа®б¬®ва ' MESSAGE ' Џа®б¬®ва а*бзЁв**®© бў®¤ЄЁ';
COLOR SCHEME 18 skip for .not.file("analiz.txt")
DEFINE BAR 3 OF raschpop prompt ' ЏҐз*вм ' MESSAGE ' ЏҐз*вм а*бзЁв**®© бў®¤ЄЁ' ;
COLOR SCHEME 18 skip for .not.file("analiz.txt")
on sele bar 3 of raschpop do pech

DEFINE POPUP servpop &&COLOR SCHEME 18
DEFINE BAR 1 OF servpop prompt ' „*вл' MESSAGE ' Љ®а४вЁа®ўЄ* а*Ў®зҐ© ¤*вл' COLOR SCHEME 18
DEFINE BAR 2 OF servpop prompt ' –Ґе®ў' MESSAGE ' Љ®а४вЁа®ўЄ* бЇа*ў®з*ЁЄ* жҐе®ў' COLOR SCHEME 18
DEFINE BAR 3 OF servpop prompt ' ЏҐаҐ¤Ґ«®ў ' MESSAGE ' Љ®а४вЁа®ўЄ* бЇа*ў®з*ЁЄ* ЇҐаҐ¤Ґ«®ў' COLOR SCHEME 18
on sele bar 1 of servpop do dat
on sele bar 2 of servpop do kor_ceh
on sele bar 3 of servpop do kor_per

ON pad vvod OF main ACTIVATE POPUP vib_vvod
ON pad rasch OF main ACTIVATE POPUP raschpop
ON PAD serv OF main ACTIVATE POPUP servpop

on sele pad vih of main do kon
on sele bar 1 of raschpop do rasch
on sele bar 2 of raschpop do prosmotr

***** H*з*«® ўлЇ®«*Ґ*Ёп
publi kd,op,fl
op='vvod'
sele a
use dbf\ceh orde tag dat_kop
use dbf\spr_per in b
use dbf\spr_ceh in c
use dbf\mes in d orde tag dat
use dbf\kom in e orde tag dat
use dbf\pech in f

@ 0,0 fill to 24,79 colo /b
@ 0,34 say ' “—…’ ‡Ђ’ђЂ’ ' colo w+/r+
@ 0,2 say '‘ҐЈ®¤*п : '+dtoc(date())

ACTIVATE WINDOW okno1
fl=.f.
do dat
fl=.t.
do while .T.
acti menu main pad (op)
if lastkey()=13.and.pad()='VIH'
exit
endif
enddo
=SYS(2002,1)
clea all
clos all
clea
quit
 
Ви повинні увійти або зареєструватися, щоб відповісти.
Назад
Зверху Знизу