Легко в магазине
23 подписчика
Наверняка вы из тех людей, которые не любят соглашаться на всякую ерунду, не разобравшись, как она работает. Поэтому я решил, что обзор на бонусную карту Перекрёстка станет весьма полезным в эру маленьких шрифтов в конце договоров. Расскажу и покажу, как её регистрировать, какие выгоды и невыгоды мы от неё получим и как она работает. Сложно ли её получить? Есть два типа клубных карт Перекрёстка: виртуальная и пластиковая. Я намеренно опущу карты, связанные с партнёрскими и иными программами, и заострю внимание только на стандартной...
4 года назад
CPA.TARGET.SMM РЕКЛАМА ИНТЕРНЕТ
173 подписчика
С Картой Перекресток Вы сходу начинаете получать баллы за покупки в сети магазинов Перекресток. Как получить карту Перекрёсток? Заполучить в Перекрёстке карту покупателя возможно одним из последующих видов: Как зарегистрировать карту Перекрёсток? Для возможности списания баллов при совершении покупок продуктов и/либо услуг в супермаркетах «Перекресток» и/либо у партнеров нужно зарегистрировать карту,  одним из последующих методов: Активировать карту Перекрёсток Вход в личный кабинет Клуба Перекрёсток...
5 лет назад
изобретения Андрея А. Климова
10 подписчиков
Программа для многократной пересылки координат GPS по запросам через полученные смс на один телефон или без запроса на несколько номеров.
По просьбе читателя моего поста я 8 января 2023 года ещё раз модифицировал свою программу,
hdzen.ru/...3uu
написанную в бесплатно распространяемой программе rfo-basic (иначе basic!) так, чтобы телефон сам мог передать свои координаты в ответ на полученное смс, в котором последние 3 буквы или знака являются паролем для активации программы. В предлагаемом варианте это gps или GPS, но вы можете вписать любые знаки латиницей.
Программа перешлёт координаты беспомощного человека или животного, если она включена и во втором окне введен знак "y" латиницей. Будет ждать прихода смс с паролем. Если во втором окне не введен "y", то программа сразу перешлёт координаты телефона как смс на первый номер, указанный в первом окне и затем с задержкой 200 секунд ещё 9 смс.
Замечание: в конце программы смартфон произнесет текст.
Выключение программы нажатием стрелки назад
Чтобы избежать вопроса от устройства какую сим карту использовать для посылки смс, если их 2, то лучше активировать лишь одну сим карту.

Rem: Поставьте знак ! в первых трёх строках после записи номеров телефонов в первую строчку файла "myGPS.txt". Спасайте программу с именами адресатов кому будут посланы СМС.

TEXT.OPEN W, FN2, "myGPS.txt"
TEXT.WRITELN FN2, "89*"
TEXT.CLOSE FN2
noviynomer:
TEXT.OPEN R, FN2, "myGPS.txt"
TEXT.READLN FN2, nomer1$
TEXT.CLOSE FN2
INPUT "номер телефона для тревог", nomer$,nomer1$
? nomer$
INPUT "ответить на запрос в смс, y or n", a$,""
Snova:
IF a$="n" THEN GOTO detectgps
SMS.RCV.INIT
DO
 DO % Loop until SMS received
 PAUSE 5000 % Sleep of 5 seconds
 SMS.RCV.NEXT m$ % Try to get a new message
 UNTIL m$ <> "@" % "@" indicates no new message
 PRINT m$ % Print the new message
 TONE 15000,900
 IF RIGHT$(m$,3)="gps" THEN GOTO detectgps
 IF RIGHT$(m$,3)="Gps" THEN GOTO detectgps
UNTIL 0 % Loop forever

detectgps:
GPS.OPEN
DO
 GPS.PROVIDER provider$
 GPS.ACCURACY accuracy
 GPS.SATELLITES sats
 GPS.LATITUDE latitude
 GPS.LONGITUDE longitude
 GPS.ALTITUDE altitude
 GPS.SPEED speed
 GPS.TIME time
UNTIL sats>2
GPS.CLOSE
latitude=INT(latitude*10000)/10000
longitude=INT(longitude*10000)/10000
TIME year$, month$, day$, hrs$, min$, sec$
datefile$ = month$ + "/"+day$ +" "+ hrs$ +":"+ min$+ " точность "+INT$(accuracy)+" м"
message$=STR$(latitude)+" "+STR$(longitude)+" "+ datefile$
? message$
SMS.SEND nomer$,message$
? "SMS is sent to ",nomer$," ",provider$," точность ",INT$(accuracy),"м"," satellites ",sats
TEXT.OPEN a, FN2, "myGPS.txt"
TEXT.WRITELN FN2, message$+" "+nomer$
TEXT.CLOSE FN2
TTS.INIT % инициализация программы произношения написанного текста
TTS.SPEAK "дорогой Джек иди домой, пожалуйста" % внутри кавычек вставьте свой текст-приказ собаке
PAUSE 20000
TTS.STOP % остановка программы произношения текста
Sm=Sm+1
IF Sm=10 THEN END
IF a$="y" THEN GOTO snova
GOTO noviynomer
ONERROR:
TONE 7000,3000
END
2 года назад