Привет всем античатникам! Сегодня я сидел один дома и скучал.Тогда я решил что так как делать мне нечего я лучьше напишу полезную статью для античата. С начала я подумал написать статью про Reversing но потом решил что я отложу эту идею в сторонку и напишу чтото другое. В конце я решил написать статью про язык Программирование QBASIC. Ладно давайте начнем: Basic (Beginners All-purpose Symbolic Instruction Code-Универсальная Символическая Инструкция Кода для Начинающих) был разработан в 1975 году Биллом Гейтсом.Буква Q означает что перед вами измененный в лучшую сторону язык Basic. Теперь когда я обьяснил вам что такое QBASIC давайте посмотрим как мы пишем на нем программы. Давайте рассмотрим пример программы котороя напишет на экране Dracula4ever love antichat. Вот код: Code: [COLOR=Red]PRINT[/COLOR][COLOR=Red] "[/COLOR][COLOR=Blue]Dracula4ever love antichat[/COLOR][COLOR=Red]"[/COLOR] Слово PRINT озночает что то что я напишу в кавычках будет написано на экране . Ладно теперь давайте я вас познакомлю с новой коммандой котороя называется CLS. CLS (CLear Screen) очищает все что написано на экране.Мы будем ставить теперь комманду CLS в начале программы. Давайте посмотрим пример с этой новой коммандой: Code: [COLOR=Red]CLS PRINT "[/COLOR][COLOR=Blue]Welcome to Antichat[/COLOR][COLOR=Red]"[/COLOR] Пока мы с вами делали программки которые только показывают пользывателю что вы хотите , но что если этот пользыватель хочет чтото этой программе "написать"? Для этого мы используем комманду INPUT.Чтобы дать вам в примере интерестную программку я вас заодно и научу комманду переменны. В QBASIC любая переменная начинается с "$". Вот вам пример: Code: [COLOR=Red]Name$[/COLOR] Теперь давайте расмотрим пример программки в которой есть и переменны и INPUT. Code: [COLOR=Red]CLS INPUT "[/COLOR][COLOR=Blue]Enter your name:[/COLOR][COLOR=Red] ", Name$ PRINT Name$[/COLOR] Ладно двайте я вам сначало обьясню что это за программа. Это програма просит ввести имя и когда вы введёте своё имя она напишит ваше имя внизу. Теперь когда вы знаете что эта программа делает я думаю вы поняли что каждое слово в этой программе значит, поэтому я не буду обьеснять каждую строчку. Я закончу этот текст тем что обьясню вам про комманду IF...THEN . IF...THEN это комманда котороя сообщает пользывателю что ему надо написать что-то. Если он написал правильно тогда она пишит что-то одно. Если нет тогда что-то другое. Я думаю что лучьше всего это показать вам пример с программой а потом обьеснить все. Вот вам пример: Code: [COLOR=Red]CLS INPUT "[/COLOR][COLOR=Blue]Enter your name: [/COLOR] [COLOR=Red]", Name$ IF Name$="[/COLOR][COLOR=Blue]Dracula4ever[/COLOR][COLOR=Red]"[/COLOR] [COLOR=Red]THEN PRINT "[/COLOR][COLOR=Blue]Welcome[/COLOR][COLOR=Blue]![/COLOR][COLOR=Red]"[/COLOR] [COLOR=Red]ELSE PRINT "[/COLOR][COLOR=Blue]Hello,[/COLOR] [COLOR=Red]"; Name$; ". [/COLOR] [COLOR=Blue]Go away![/COLOR][COLOR=Blue]?[/COLOR][COLOR=Red]"[/COLOR] [COLOR=Red]END IF[/COLOR] Ладно первая строчка говорит программе очистить все что написано на экране. Вторая строчка говорит пользывателю вставить своё имя. Третия строчка говори программе что если имя которое вставил пользователь оно Dracula4ever тогда.... Четвёртая строчка говорит что тогда пусть на экране будет написано Welcome. Пятая строчка говорит что если нет, тогда ... Шестая строчка говорит что тогда пусть будет написано Go away! И последнея строчка говорит что конеч комманде IF. Ладно, я надеюсь что вам понравилась моя статья. Скоро я напишу ещё одну статью ,котороя будет для более продвинутых в этой области людей. Бай! Dracula4ever
Чё за мегастёбы на форуме начались? То статья о делфях, то уже о басике.. Надо конкурс организовать на самую нелепую статью месяца..
Я про это буду рассказывать в моей следущей статье. Я написал эту статью чтобы подготовить тех кого не знаят QBASIC к более сложным программам. Вот пример программы которую смогут построить т кто прочитают мою следущию статью про QBASIC которую я напишу скоро. Code: CLS RANDOMIZE TIMER PRINT "Welcome to Number Guesser" PRINT "I'm thinking of a number between 1 and 10." Number = INT(RND * 10 + 1) DO INPUT "What is your guess? ", Guess IF Guess = Number THEN PRINT "Correct!" EXIT DO ELSE PRINT "Try again" END IF LOOP
dracula4ever, ты мне прям глаза открыл! Нахер всё остальное, теперь я буду учить qbasic! дадада!.... /me пошёл писать брутфорс на КУБасике....