灌水 - 回味一下Basic吧

[johnss]

Visual Basic（VB）會不會比較符合你所需

[魔術王子]

作者: johnss

Visual Basic（VB）會不會比較符合你所需

不會
因為想要 直譯式 的感覺

[mini]

https://voicespice.com/Player.aspx?c...C7DB11&j=52C8B

[魔術王子]

其實呢小王子也沒有那麼無聊,只設計變數跟輸出/輸入指令,就拿來當做Basic
再來就分享小王子自行設計的判別式IF...THEN...ELSE

__String v1,v2,v3;
__int p=-1,n1,n2;
__if(s.Pos("=")) {
____v1=s.SubString(s.Pos(" ")+1,s.Pos("=")-s.Pos(" ")-1).UpperCase();
____v3=s.SubString(s.Pos("=")+1,s.UpperCase().Pos("THEN")-s.Pos("=")-2);
____if (v3.Pos("\"")) v3=v3.SubString(2,v3.Length()-2);
____for (int i=0 ; i<=Form2->ListBox1->Items->Count-1 ; i++)
______if (Form2->ListBox1->Items->Strings[i]==v1) {
________p=i;
________v2=Form2->ListBox2->Items->Strings[p];
________break;
______}
____if ((p>=0)&&(v2==v3)){
______if(s.UpperCase().Pos("ELSE")) v1=s.SubString(s.UpperCase().Pos("THEN")+5,s.UpperCase().Pos("ELSE")-s.UpperCase().Pos("THEN")-6); else v1=s.SubString(s.UpperCase().Pos("THEN")+5,s.Length());
______RESOLVE(v1);*
____} else {
______if(s.UpperCase().Pos("ELSE")) {
________v2=s.SubString(s.UpperCase().Pos("ELSE")+5,s.Length()-s.UpperCase().Pos("ELSE")-1);
________RESOLVE(v2);
______}
____}
__} else {
____v1=s.SubString(s.Pos(" ")+1,s.UpperCase().Pos("THEN")-s.Pos(" ")-2).UpperCase();
____if(v1[1]=='!') { v3="False"; v1=v1.SubString(2,v1.Length()); } else v3="True";
____for (int i=0 ; i<=Form2->ListBox1->Items->Count-1 ; i++)
______if (Form2->ListBox1->Items->Strings[i]==v1) {
________p=i;
________v2=Form2->ListBox2->Items->Strings[p];
________break;
______}
____if ((p>=0)&&(v2==v3)){
______if(s.UpperCase().Pos("ELSE")) v1=s.SubString(s.UpperCase().Pos("THEN")+5,s.UpperCase().Pos("ELSE")-s.UpperCase().Pos("THEN")-6); else v1=s.SubString(s.UpperCase().Pos("THEN")+5,s.Length());
______RESOLVE(v1);
____} else {
______if(s.UpperCase().Pos("ELSE")) {
________v2=s.SubString(s.UpperCase().Pos("ELSE")+5,s.Length()-s.UpperCase().Pos("ELSE")-1);
________RESOLVE(v2);
______}
____}
__}

*RESOLVE()是收集所有的指令的函式,以後會介紹

[魔術王子]

在思考如何設計這個程式時
小弟有一個感覺,就好像在跟電腦對話一樣
如果沒記錯的話,Basic可以用?來代替PRINT指令
所以如果要BASIC幫你運算,除了輸入PRINT 1+2之外,也可以輸入? 1+2
不過現在這些產品已經都走向商業化了,大概也沒機會體驗這種感覺了

[getter]

背死渴 ...

想當年 ... 一開使接觸學習，可不像現在這樣有老師解說指令作用或是程式流程 ...

而是 ... 背程式 ... 背程式 ... 背程式 .... 打字 ... 打字 ... 打字 ...

記憶力好兼打字快的人多吃香啊 ...

[魔術王子]

作者: getter

背死渴 ...

想當年 ... 一開使接觸學習，可不像現在這樣有老師解說指令作用或是程式流程 ...

而是 ... 背程式 ... 背程式 ... 背程式 .... 打字 ... 打字 ... 打字 ...

記憶力好兼打字快的人多吃香啊 ...

記得那段時光,本來只寫一段小小的小程式,然後邊玩,腦筋邊浮出無數的靈感
就邊玩邊改,結果原本才十行不到,最後改到成快一百行