Системалуу Buzz Phrase Generator.vbs: 6 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:41

Киришүү Сиз аудиторияңызды репортажга же презентацияга тарта турган ойду билдирүү үчүн укмуштуу фразага муктаж белеңиз? Сизге ошол сөз айкашын тез бере турган Buzz фразеологаторунун болушун каалабайсызбы? Өзүңүздүн теңдешсиз Функционалдык Жоопторуңузду түзүү жөнүндө кошумча түшүндүрмө алуу үчүн окуңуз. Андан кийин жакында сиз бизнес -өнөктөштөргө көз арта аласыз, дайыма интегралдык синхрондоштуруу боюнча лекцияларды жана баяндамаларды сураңыз. Сиздин отчетторуңуз жана кыскача маалыматыңыз кеңседе ызы -чуу болот. Бардык учурда сиз бурчтук кеңсеге баратканда мактоого ээ болосуз. Бул системалуу Buzz Phrase Generator.vbs менен момун башталыштарды эстеп Көп жыл мурун мага ар бир тилкеде 10 сөздөн турган 3 тилке бар баракты тапшырышкан. Барак менен окуя Филип Бротон жөнүндө айтылды. Бул үч орундуу сан жөнүндө ойлонуп, анан ар бир тилкеден тийиштүү ызы -чуу сөздү тандоо керектигин айтты. "591ди" тандасаңыз, сиз "Жооптуу саясаттын ийкемдүүлүгүн" окуйсуз, бул сөз айкашы дээрлик бардык отчеттордо же посттордо автордук мааниге ээ болот жана анын автору билимдүү көрүнөт. Бротон: "Эч ким сиз айтып жаткан нерсени эң алыскы түшүнүккө ээ боло албайт, бирок эң башкысы, алар муну моюнга алгыдай эмес." Бул санариптик доордо, кагаз жоголду, качандыр бир убакта кайсыл жерде ызы -чуу сүйлөмдү түшүргүңүз келсе, тизмени алып салуу кыйын. Чындыгында мен кагаз көчүрмөмдү таба албайм, бирок Бротондун эмгеги коомдук домендин бир бөлүгү катары сакталган. Тизмени колдонуу жана натыйжаларга оңой жетүү идеясы менен көп жылдар бою ойноп жүргөнүмдөн кийин, бүгүн мен сиздин алдыңызга Филипп Бротондун "Системдүү ызы -чуу фразасы проекторунун" негизинде фразаны түзүү үчүн жөнөкөй колдонмону алып келдим. рабочий стол жана каалаган убакта колдонмону ачыңыз жана каалаган 3 цифралуу номерди териңиз. Жыйынтыктар сиздин алдыңызда көрсөтүлөт. Андан кийин сиз сүйлөөңүзгө, документиңизге, pdfке ж.б. жазсаңыз болот. Бул колдонмо сизге мүмкүнчүлүк берет 1 000 бузз фразасына чейин.

1 -кадам: Камтылган нерселер

Бул көрсөтмөдө сиз көрө аласыз: 1) Киргизүү кутусу, Киргизүү кутусу - бул суроого жооп берүү жолу. Бул сырсөздү киргизүү же бир нече вариантты тандоо сыяктуу болушу мүмкүн. 2) Кабар кутусу, Билдирүү кутусу - бул билдирүүнү көрсөтүү жана Ооба, Жок, Жокко чыгаруу, Кайра аракет кылуу же Этибарга албоого жооп берүү. 3) Функциялар, Функциялар киргизүү маанисин иштетүү үчүн алдын ала аныкталган буйрук. Бул жолу мен тааныштырам: * Сол (сап, узундук) 'эң сол жактагы символдон баштап, саптан субтринди чыгарат * Орто (сап, баштоо, узундук)' саптан субстрингди чыгарат (каалаган позициядан башталат) * Оң (сап, узундук) 'саптын астынкы катарын чыгарат, эң оң белгиден башталат 4) каталарды иштетүү каталарды иштетүү "Hello World" негизги билдирүүсүнүн чегинен чыгып, тандоолорду баштаганда маанилүү. Эч ким калкып чыкма ката скриптин көргүсү келбейт. Кээде алар тажрыйбалуу программистке да табышмактуу болушат. 5) IF THENStatementsIF THEN Statements код аткарылса же True аткарылса жана 6) коддо кантип комментарий жазса болот. Комментарий жазуу маанилүү. Бул кимге коддун ошол учурда эмне болуп жатканын билүүгө мүмкүндүк берет. Сызыктын алдында "Апостроф" болгондо код иштебейт. Чеберчиликтин деңгээли Оңой - эгер сиз көчүрүп чаптасаңыз. Орточо - эгерде сиз кодду өзгөрткүңүз келсе. 5 - 10 мүнөт бүтүрүү убактысы, эгер сиз өзгөртүүлөрдү киргизсеңиз дагы. Эскертүү: Эгерде сиз жогоруда айтылган кодду туура эмес өзгөртсөңүз. Сиз, эң жаманы, күнүңүздү буза аласыз. Каталарды кубалоо кызыктуу эмес. Мен үйрөндүм, бул адатта жөнөкөй ката болуп саналат.

2 -кадам: Broughton Buzz фразеологаторун колдонуу

Бул Broughton.vbs тиркемесин чыкылдатуу менен көрөсүз.

3 -кадам: Error Handling

Бул берилген параметрлерден тышкары бир нерсени киргизгенде көрөсүз. Error Handling негизги "Hello World" билдирүүсүнүн чегинен чыгып, тандоолорду баштаганда маанилүү. Эч ким калкып чыкма ката скриптин көргүсү келбейт. Кээде алар тажрыйбалуу программистке да сырдуу. (Белги) Мен тажрыйбалуу программист эмесмин.

4 -кадам: Код

1) Блокнот тиркемесин ачыңыз: Баштоо => Программалар => Аксессуарлар => Блокнотту басыңыз> Же Баштоо => Чуркоо => Блокнотту Run кирүү кутусуна басыңыз, андан кийин OK бас. 2) Апострофтун жана жылдызчалардын астындагы кодду көчүрүү линиясын анан Блокнотко чаптаңыз. '******************************************* Dim Notice Dim Message Күңгүрт Кабар1 Куткарылган Кабар2 Күбөлүү Кабар3 'Ката Иштетүүдө Ката Аткаруу Кийинки Билдирүү = "Boughton Systematic Buzz Phrase" Билдирүү = "000ден 999го чейин 3 орундуу санды тандоо керекпи?" Question = InputBox (билдирүү, Билдирүү) 'Null же бош киргизүү кутусун текшериңиз, эгерде IFEmpty жокко чыгарылса (Суроо) ОШОНДО WScript.quit () ELSEIF Len (Question) = 0 THEN WScript.quit () End if message1 = Left (Question, 1)) '1st number message2 = Mid (Question, 2, 1)' 2nd number message4 = Right (Question, 1) '3rd number' Column 1 If Message1 = 0 then Message = "Integrated" If Message1 = 1 then Message = "Total "Эгерде Message1 = 2 анда Message =" Системалаштырылган "Message1 = 3 анда Message =" Parallel "Message1 = 4 анда Message =" Functional "Message1 = 5 анда Message =" Responsive "Message1 = 6 анда Message =" Optimal "Эгерде Message1 = 7 анда Message =" Synchronized "Message1 = 8 анда Message =" Compatible "Message1 = 9 анда Message =" Balanced "'Column 2 Message2 = 0 болсо Message3 =" Management "Message2 = 1 анда Message3 = "Уюмдук" Эгерде Message2 = 2 анда Message3 = "Monitored" Эгерде Message2 = 3 анда Message3 = "Өз ара" Message2 = 4 анда Message3 = "Digital" болсо Message2 = 5 анда Message3 = "Логистикалык" Message2 = 6 анда Message3 = "Transitional" Message2 = 7 анда Message3 = "Incremental" Message2 = 8 анда Message3 = "Үчүнчү муун" Message2 = 9 анда Message3 = "Саясат" 3 -мамыча Message4 = 0 болсо Message5 = "Options" Message4 = 1 анда Message5 = "ийкемдүүлүк" Message4 = 2 анда Message5 = "Мүмкүнчүлүк" Message4 = 3 анда Message5 = "Mobility" Message4 = 4 анда Message5 = " Программалоо "Эгерде Message4 = 5 анда Message5 =" Concept "Эгерде Message4 = 6 анда Message5 =" Time-Phase "Message4 = 7 анда Message5 =" Projection "Message4 = 8 анда Message5 =" Hardware "болсо Message4 = 9 анда Message5 = "Күтүлбөгөн жагдай" 'Кабарды иштетүүдө ката Err. Number 0 THEN msgbox "Сиз бир нерсени туура эмес киргиздиңиз. Кайра аракет кыл. ", vbOKOnly+16," Ooopps …. "WScript.quit () END IF 'Final Results msgbox Message &" "& Message3 &" "& Message5, vbInformation, Notice

5 -кадам: Файлды сактоо

1) Файлды чыкылдатыңыз, 2) Сактоону чыкылдатыңыз, 3) Бул файлды сактай турган жерди тандаңыз, 4) Сактоо түрүн өзгөртүңүз: Тексттик документтерден (*.txt) "Бардык файлдарга", 5) Файлга ат бериңиз б.а. Broughton.vbs, 6) Сактоо дегенди басыңыз. Куттуктайм, бүттү.

6 -кадам: Байкоолор жана Жыйынтык

Эскертүү: Эгерде сиз жогоруда аталган кодду туура эмес өзгөртсөңүз. Сиз, эң жаманы, күнүңүздү буза аласыз. Каталарды кубалоо кызыктуу эмес. Мен эмнени үйрөндүм, бул адатта жөнөкөй ката. Дискаркерлик: Өз тобокелчилигиңиз менен өзгөртүңүз. Байкоо 1) Колдонууга оңой.2) Бул кичинекей файл жана ал менин столумда отурат. 3) Керек болгондо колдонуңуз. 4) Муну үнөмдүү колдонуңуз, эгер сиз бул Buzz фразаларын өтө эле көп жерге таштасаңыз же кеңсеңизде баарына бул колдонмо бар экенин айтсаңыз, анда алар сиздин Buzz Phrases'иңизди суракка алышат. Жөнөкөй маалымат базасы.6) Бул.vbs (Visual Basic Scripting) файлы, сиз Windows Иштетүү системин иштетишиңиз керек болот.7) Эгерде ал иштебесе. Андан кийин жогоруда аталган кодду көчүрүп алып, Notepad тиркемесине чаптаңыз, андан кийин файлды.vbs кеңейтүүсү менен сактаңыз. Бул кыска колдонмо. Мен бул Systematic Buzz Phrase Generator.vbs жыйынтыктарына канааттанам. Кеңешти угуңуз жана насаат алыңыз, ошондо акыр аягында акылдуу болосуз.