שלום רב אני חדש בפורום

[ron77]

שלום רב אני חדש בפורום הזה הייתי רוצה להציג קצת את עצמי שמי רונן אני מתכנת חובבן בשעות הפנאי שלי בעיקר בשפות בייסיק (QB64 freeBASIC gwbasic ) אני לומד תיכנות בבייסיק כבר קרוב ל7 8 שנים כיום אני בן 47 - אני אוהב לתכנת תוכנות בבייסיק גם לחלונות וגם ללינוקס וגם לדוס (DOSBOX) אני כותב בעיקר צאטבוטים פשוטים וגם משחקי טקסט פשוטים בבייסיק בשלל נושאים - השאלה שלי האם אוכל להביא או להעלות לפה משחקים שכתבתי בGWBASIC ? כדי שאנשים יוכלו לשחק בהם?

הכינוי שלי ron77 קצת ידוע בקהילות הבייסיק של QB64 ו freebasic אני משתמש בעיקר במערכות הפעלה לינוקס וב דוסבוקס ודוסבוקס X כדי לפתח את המשחקים שלי כמו כן לGWBASIC אני משתמש ב אמולטור שניקרא PC-BASIC

אני מכיר את האתר הזה מאז ראשית שנות האלפיים ותמיד נהנתי להוריד משחקים ישנם שהייתי משחק בהם בתור ילד בשנות ה80 וה 90

זהו תודה רבה...

כמעט שכחתי - הנה שניים מהמשחקים שלי ב itch.io וגם העמוד שלי ב itch

https://ronblue.itch.io/the-lost-art-of-programming

https://ronblue.itch.io/mentally-ill

העמוד שלי בitch.io https://ronblue.itch.io/

תודה רבה אשמח לפיידבק

[Octarine]

היי רונן, ברוך הבא ונעים להכיר, אתה בהחלט מוזמן לפרסם את המשחקים שלך כאן בפורום דיבור חופשי.

[ron77]

שלום לכם - תודה על קבלת הפנים והברכות

היום כתבתי תוכנה קטנה בGWBASIC ואני מביא פה את הקוד שלה זו תוכנה באנגלית שניקראת FORGIVE AND FORGET כלומר עם התוכנה הזו אתה יכול כביכול לכתוב ולשוחח עם מישהו שאיננו כיום בחייך או לכול מטרה אחרת לצורך "סגירת מעגל" עם מישהו שדחוף לך לומר לו או לשוחח איתו אבל הוא לא נימצא כרגע ולא נגיש... התוכנה לא שומרת שום מידע שמוקלד אליה והתוכן שהכנסת אליה נימחק עם סיום התוכנה לצורך הרצת התוכנה יש צורך ב PC-BASIC

העתיקו את הקוד הזה ושימרו אותו כקובץ "FORGIVE.BAS" לאחר מכן השתמשו באמולטור המצויין PC-BASIC כדי להריץ את הקוד...

קוד: בחירת הכל

5 REM FORGIVE PROGRAM IN GW BASIC BY RON77
10 DIM U$(100),P$(100):UC=-1:PC=-1:ISUSER=-1:ISPERSON=-1:PNAME$="THE PERSON":A=0:R$="":R2$="":RNUM=0
15 RANDOMIZE TIMER
20 SCREEN 0:WIDTH 80:KEY OFF:CLS
30 S$="FORGIVE AND FORGET PROGRAM"
40 LOCATE 6, (80-LEN(S$))/2:PRINT S$
50 WHILE INKEY$="":WEND
60 CLS:PRINT "1. WHAT IS THE PERSON NAME?"
70 PRINT "2. WHAT WOULD YOU LIKE TO SAY TO THE PERSON?"
80 PRINT "3. WHAT DO YOU NEED THE PERSON TO SAY TO YOU?"
90 PRINT "4. AUTOMATIC CHAT SIMULATION"
100 PRINT "5. EXIT"
110 INPUT "WHAT DO YOU CHOOSE?: ", A
120 IF A < 1 OR A > 5 THEN GOTO 110
130 ON A GOSUB 1000,10000,20000,30000,40000
140 GOTO 60

1000 REM SETTING THE PERSON NAME
1010 CLS: INPUT "WHAT IS THE PERSON'S NAME?: ", PNAME$
1020 IF PNAME$ = "" THEN PNAME$ = "THE PERSON"
1030 RETURN

10000 REM YOU SAY SOMETHING TO THE PERSON
10010 CLS: PRINT "WHAT WOULD YOU LIKE TO SAY TO " + PNAME$ +"?"
10020 INPUT "",R$
10030 UC = UC+1: U$(UC)=R$
10040 ISUSER=1
10050 RETURN

20000 REM THE PERSON SAYS SOMETHING TO YOU
20010 CLS: PRINT "WHAT DO YOU NEED TO HEAR FROM "+ PNAME$ +"?"
20020 INPUT "", R$
20030 PC=PC+1:P$(PC) = R$
20040 ISPERSON = 1
20050 RETURN

30000 REM AUTO CHAT SIMULATION
30002 IF ISPERSON <> 1 OR ISUSER <> 1 THEN PRINT "PLEASE SELECT 2 AND 3 FIRST!": WHILE INKEY$="":WEND: RETURN
30010 CLS: INPUT "HOW MANY TURNS?(5 - 10): ", A
30020 IF A < 5 OR A > 10 THEN GOTO 30010
30030 CLS: FOR I = 0 TO A:T!=TIMER +2:WHILE T!>TIMER:WEND
30040 RNUM = INT(RND*(UC+1)): PRINT "YOU SAY: "+ U$(RNUM)
30050 RNUM = INT(RND*(PC+1)): PRINT PNAME$ +" SAYS: "+ P$(RNUM)
30060 NEXT I
30070 PRINT "END OF AUTO CHAT SIMULATION - PRESS ANY KEY"
30080 WHILE INKEY$="":WEND
30090 RETURN 


40000 REM EXIT PROGRAM
40010 CLS: INPUT "ARE YOU SURE?(Y/N): ", R$
40020 IF R$ = "Y" OR R$= "y" THEN END
40030 RETURN

הנה כמה תמונות מהתוכנה איך היא עובדת ולמה אפשר לצפות