SpiderBasic

Code: Select all

EnableExplicit
Define txt.s 

txt.s = ""
txt + "data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAHAAAAA8CAIAAAAxGKkLAAAACXBIW"
txt + "XMAAA7DAAAOwwHHb6hkAAAYZUlEQVR42u1ceVxN6f8/621RJFvR2MPYktJGYy1DioydFrvIliUh"
txt + "UWIyWpSd0YYwClPGJNKIFColWVNKRSq0d8/2e85yb7dkJHeY3/c1zx+97r3nnOd8nvfz2T+fJ5h"
txt + "hGOi/Ib8B/weofEfjgIIfYfjvsOavgr9/dz+4yP3Mfaqb+SMTQjLz/T8eDVGQwiT7QbgHhpEPEG"
txt + "zwVxYy7quAJgOgBe/i/nJfhXll55Te/P96NMqG/ErZSzRNAaAwDOUvkCSJoigkw6EN/oJLNE0jC"
txt + "MKznJRLWUQlmNLcAPOwt0k2gMP+f5BD632jKArDMPChMO9FeXWthlbnlsqKDICYXbmwdFlJ51kO"
txt + "RWCCIGAEQTm8GqAPBo8jxFAvc/NQZVWNtursVQT+30C0IYcC3uFXRVMUimGPkv9ydfNMTEmrrBF"
txt + "37NJ97qJlTg7zGIqCAAAIYDZIigDLzgyEoch2l+WXErJCT5/srtGKohmEBR+mGZpjT8DktefPnY"
txt + "6KupydnfPw0ePVO484L7AmSBJHURqCkP85QHlhB6LN8mb6X+dNRltXUvUe2Owb6LHKnqJIwIKyj"
txt + "4FHRCLcf4vTSg/f740t7sZFKqAkDAMGZ1mSfwuAHGxEdmr80BGjXpVTEN76TuYj/Z7tKaAlWCQR"
txt + "Xrv+Exbqk2ZWgKO+sf3kgx/e/wGggM1gwKdMxZsXFj+ONZi4cPGcn4qyMzZv2BB/7wlYqFK7Xg8"
txt + "fp2u1wmlG4D6gFAmCEingwX6b7Vd7Igi89udfvdbNFRMEzmkMCUEwTZMIir3Pf2xkZPyssKzfsA"
txt + "lJMREKKLgmCDwksWvQP4OmjFtCM/U1zIdvFpR7fXsr/VHWdMvO3AiH8hbjVsz51Hxiqf1U/sKLe"
txt + "3F6w8xKKkmFFu1vZjzV69qSomjeQovFhIKC6MzBHdMdNrGzw4qXb6ePGdyTYpUGwvMc90qEIgmg"
txt + "Rq5FHDabsgQI+FJX733uTuBHDkpO50rolSOHNjSbQJgoCsdxiNVvlMR/EQAS7uQdDglj8kxDcjq"
txt + "QV0pAQDn3BG4Ch0q+MayaBLJPsI4ODJNlubq6ho9yi9v1GJJ5/1YbBYjm5iEIEkj6xZA9m3cdw0"
txt + "X03dSMzgOHp9yKUVdCaWG3EQ4fhrsZrARzWWj989HzEKpwJjrB0qQPySAqyopgdZWV1YqKSghSZ"
txt + "+7kyKHCB5pVOsBslr97k19U1qdXD+k97BUOUqm7IXmKfwjhliF+lPmIQpT7fd8TkrE3stQ2pkMF"
txt + "TcY/wJoeMF1RVoq+0fCXJZU2K7aF7NlCkUB4UbBRGIbfvBRq7+QV4O+/YfG0tOySOY6uIQHuFCF"
txt + "GMZyBOGFmeFFiVShcU2Kkq3PnSYF65wEZGSlVOSlhZ89cvnqrjVZ3q4lTZk2zFPEPwLBcAK1zis"
txt + "Fy2GkBLvSh3e4n/7xhNMRET08/M/HizbTsbv2NArzdRQwFAXVfp8s5ECgaxVCGEgcd8I24nKCjO"
txt + "4QszXn6Dt0b4KfRSpHXe38DKM+bECz4QOwHgB2G438c97eyWamq2SchKb5PJ3Wa1QwkjoseJF0a"
txt + "PXF+WHS84otYk4mLADFHw2PnWf8ABARDUdlZeU3y4OZFo1ETK8T0OJtVkcHeKIzscV184OKD4KB"
txt + "jA3t1URDhH+65XDAFbwe0McS7ZfYzD5+O/vXC9XlWxjZW5icjr4EL0x3dwwI2kwRYES4LCE9zwZ"
txt + "NU23nz7z4vDQ+/MNp4gL/b0pXuh5a5+u91X04SrBL7BIdKP7JMBdxOGmJqSkcY6N96Vno6Knaa+"
txt + "RDAmOA+wJsv7t80Np+y2e/40umjHWeM3Xf6sqpGr5S05J7tW9C0RLPArI1jlQYLMXZo5xqHTT7g"
txt + "V68jZ9cvmBx3ISz8r8wdXh6qOMtBshDKAVAZBQY0PobQG5bM9DoSMXrKopjfDsFMjY31j8cvXEc"
txt + "wxTOXb/w0YjBLIYaw8sQJFsUKKFr8In3saLN7z0t/j0+xHDbg/q3IgSZWYMYFG7yP7HQixASGY4"
txt + "yMw1cP0AbhI/gL6ABab63deO+QSwHBkY62E0CwBO4B+1aUnWZobGbvttfNYVp1Sa6xoVFaVuGYG"
txt + "UtjwvbRrM5GpWEkw70GgIrC5PQxhmdiU3GVDg+ev8y/HjR7fcCNpNvd2ooIkgY+rHwDJn4NMBfg"
txt + "ASGLDtv746zlEKoYdun6jDH6VM37SWamUTcz2nfTSbp9o2ubFjQjVaOCHwBTNTMnjDgTc9fCzik"
txt + "qyBvMU1Hycr6N7Ru43bGgoz001ADf8Eq/EQ5t4HBxaLLW8MD2lUtd/feHXnCYYyUWi1lBhuGK19"
txt + "lmY8YMmOC4z2OFuLY6+VrUhJ/mVJLQjr0hjnaTRCJFEY7WWxvYbRQpzb43cJBJQVmNqeWclTOH2"
txt + "9kurGTUEjPSh/TWAuQDWyG1l4xcrLzE+wV7SVcWjxpqcON+bpeBpsk3Y9Rb4EXP0wYPNiwoE5tN"
txt + "d7h0aj8EzC+KQRJM+SjxypmD4CqCKgZGRNtMGCa4BxRJwezuf9ooyYgIcNRJXCQK8ts8d41P6Pm"
txt + "YOZZDSYplIs5So6tmmu05dWWAzqDaqgoExcvfFee/egNYsFOnTsZjJ4cc8hExJLAAfKApcZjwqG"
txt + "Bvq7lrwfTd+vRXot5nPs0DVOw9c8Vh6iigv/gwtwF9X4onDLM2AMNuRAaPnGhPMpDdKvdAX1cw+"
txt + "8kAt9kr3MFtnofDNy6wBl4zEDtWP7FeMcxFfZCtpWloVIJq+87xSakDu7SWVUqCmMMSEyqlXJYl"
txt + "+aUA5AmSEIkUwg7ucvI6duJs5Cg9bfZSdfGhkHM2CxYiZbkmhsbPXlXUVFcCEAELgNgRXAe7R9L"
txt + "Qmu17dzkvlHkF63aAGBTH4NV2k/xCIsE7nHceGapRYTV3Nbi6wPmXg9tX8aqdTayAbYDk44TyHi"
txt + "XBRX1uy6Z5HPgNgOAbdH6FjQVRWWw2zDA+PQdRbpeYck9PWwORZB4gLokBfBjifa5uv4GZ+e+/6"
txt + "214NzmhnTKrjVhVwFmqeh4rj5ssoLKwAt4UiURnf/V18QkJDDvT/zv18oqqyvISvx2uLftO8Nq4"
txt + "GHDlu/flwDiCWREML8hMGG0xtaSidsH6nTvWL1ZWUmqhrHjjcrjP/iDN3gbbNq1VVxEBlSp+X2i"
txt + "ir5OS9UZdq8/TnIc1mbHag0ZX0ZCB+ayk6BPJCfGd++u3banIEsj7wF88eJEERhVDxdameudvPI"
txt + "AwxfCYpMkjBp49sst2+ebqWqK30bi0W38oQFDekzQ3jx0VlJKLm7tuLy1AQnlOSm8d01fl1RrdB"
txt + "9/PSG6NiSnAtiIRnyKjpTg26tjX/eUigIigAzPnL1VUa9ehtcr78irguleUva1A2j7LetiltSLF"
txt + "mpc6un8P8pk8fy2EqZ6LvWk5tD+Y6HVWupGhwYuSWnB18SZfwIDgQ0b8ef3h1gSM/DBx3tWIwzW"
txt + "l+UP1B6XllLbp3Ndl9fys54U7vHaoitiQCZJTloTjd4hktXfNBGPdP+88YWDsdEyiNvb2+NmI8F"
txt + "MnXrwpc951zN6sV1p28R8hAcHnroCn+hmPv3ktsqUCQlYUDO7dJ6OwEkVw3+Dfls+2BFfJ8tLAw"
txt + "MCOA4aPH6HHKmfOJH0UUBoYdbL2mP/2Jc4/f0if/ZqfA3c78ylRbvPZYAlhSKCtT0bfadtVJy31"
txt + "toYK4EU8/1HSIF0jDk9oqsOWM/u3gtm3r7Ldsuc4+GXr3jC3pdOBzVs2c9yBM+wa2vXUTUyI795"
txt + "OiaIYFEUkdH7pEMIzksIxbJvjtK37gMhDymptlztt1tdips4DCgfqM0BPV1ffzXXd2rkTowALQ1"
txt + "Dn/sbJifHqCjQQvv3uK5e5+bNzoaLJ06epMkTWizzDkVbOax3VVRURmfxkI4ACLgbcWZz7cM06Z"
txt + "xJvhcJCPMvTRsP4elePgT07AYUIFAjv9YNBVr3d4rL+2asyXZOxLivn0SRgCARD6ZMHdm/zOdyl"
txt + "n9HBAwFdO6jDkNjb0+PugywEV9zovrNfVw0gMA/vxNjMdejYZ5j/Xp9uGupssNwYiV8GKAwCdsD"
txt + "1pS+fLFy4KPVJ0eTZ9tu3Ob/OvDnbfklpNTrmR8u169Z01VC7f+Oig5PLW0r1Z7/9lqY6gG+ANk"
txt + "fo2mMHfI6Fns0rKlFp1XbYyBFzbOea6g3gEmd11YWPcij34e+4Q9YlEFLyMtMJbgTvGCPAkyeBJ"
txt + "w8JYTKbHJGdh3cAGJoE+EO8HeDDZVo+ChSSGCWG+8BzE/B2cYzP4yJsyMIAhxrh385WIhheQoSF"
txt + "MEKoys7E5zP5aUku7IaFsL/h3je08jCHS6PJP0n5R/IuCaBMY9UhzuNFeO+Y1zNAxhukdvhiCZd"
txt + "74J+V2kz5JUOlGQ7OirA2isNO6udKNhIWKjcNSjiAaO4rTycXO8FcIriOlZiPGaUmr+GfK6UxMp"
txt + "hKY19Gmqxp4uA2/IsTqvWnaHzNjaH2gR/aRIJlOFR+o5F8uVA0bdqbGuGJZrcdNGF5jbIgXFcl/"
txt + "vcNSeUZaiK/yebYvw3BDWuW/w5kBSXL8IEJy6Lv3paUVVT9/VMtWqqpt1KVSKrAPaw9+OcbKOpV"
txt + "RGTrJN8aybohsZAMa5dxbMfquVv3nVBWVgY25MObgZGprqlZ4vKL35blbAoCxyTp96+3qLpakxT"
txt + "QysrKjIwMLhH7zQZvbfv27aumpsZwyXCa83gK87JzC4r4QtCHK2HdYZLS1OqspdmBEdJF7ADoP3"
txt + "jwoLy8nDfr/xzBvXv3btOmDU8JzAfvwMkKDw/fvn07JCS3v80A2AEU3N3dJ02axFPFW/nP0qGQJ"
txt + "NP+9OlTOzu7iooKaR1b7gO8hSAIFxeXWbNm8TFkHYfyHpls0uVbDWmeUaJIodra6qqqGqReTaXh"
txt + "I0pKLRQUcEjGKPGcgX78KbkMrmFJ8GHrify/UodykTiOebks3X30jJLSR3VoTW2t7Yqtuzc5EGx"
txt + "eVUDwa66orhr4+X7o1xiwxA3ky4oP05MfZ7/8mCrk4h+6a69+Ot/3ECJaiVf+1RZVL2P/r4KyAZ"
txt + "XN0KH/Fj+0GUPeLTONvICRWNKPuZMyjSFsUN5oZxIkK5KfT7EwCe9ANKoeZSLT5gMqW9RrVLXVH"
txt + "0Je54MazN+9QE6xvGy7K83vEZcPkem9+TQ9Emq4vI/gIcGNTNJMQOs91cRNZ/jeHFheJaOm0vkR"
txt + "tuIzmk3ZYG5TYa5luGFqUYJDXYasuRwq2xEhrgg7eaq0oqampkosJgWnD0ZUVVSEXkaawhTVbOx"
txt + "tWmC8F/S1Axh+vMnPfZyVVVxUeDv5Ti3S9mfPTTiXGP0kPbL9Sfk5z55lvyx4mXv3dmI7bQOXFX"
txt + "MpmkS4JgQ5cCjNVQczb0b2N50IvnbQ1Oqt3VOjgwYmAtFfRUjYOen9M5dtCfLfhjJCV+nX5VCOG"
txt + "SEoK+320iXzr9zOBJ+tF24MP7ydYl1xXDha0Yjg1+kbWJKiT0uKs7OzSX9aAH7c5HfCY8Usgqzr"
txt + "2mw+oEJBkaKB0+exYqb/uXtHA4PMTYcoKQhxgZfzfDffYBjFAd9azFn1e6gvxPY9s4lk5ltwKNv"
txt + "BKsK2rpjtvvcUhOAnL8XPMBvCd05Lc8UNmkOlhy6kSWqSgnAMmmpuFHE1GVfVuJN+f0Dn1iRFo0"
txt + "gdmzefQ7nGeOTdqywbu8Xb9obqaWtSFCkWE0pKSl4bFm3wOgI2n6IIneHWsRdPqynCXD1BniWjJ"
txt + "lJKM4JFIatLxw4ziEt93qbLgKTE+C5tlGgALdcII7HhQgFNYrMFDuWbaGAuWf/+5UMDQ5OsV2V6"
txt + "o6feiD6lwHZEcOU3SeGouRzKlQfAK17nPn1RUmM4eKBYLAZfcRyPOOo9beFaBBcRhLhjT924v65"
txt + "od1QjKUa+BbimwinpnEYR9HnqNV3j0WViaMTEedfO/8rfIGmdFToYJR5CHSr8WQPphFfPHjSf6g"
txt + "BCWifP/bs3LiHFpNAsBgnO8pdaeaEywzaHUBiOp8SGj/pxShmFIgwlatnxz7i4HwZpkyTF+UxyL"
txt + "RY1iUiIeyNEEiSK44G71s133g1+Cjh9Zapx55i4hO+0+w030ucLX1K6ZFP1fCtnyau846Ghz19V"
txt + "TZk+69JR151HImCR6qUbyeb62hRNycp78wGV0sw7ZYAmDMMLniWPNB315FU5jiEEjR07Fz3Xajh"
txt + "BENJ6YZOdPrlByidGgXzgMDlj/PDTl5NaaXRdYvfTIT+fd7UMjCs4e+7dsW4BTZIwX8jkOjj5ll"
txt + "u+Xyz52oVps+ZjXfTDDnv/ERqw60BIeWV15wHD0+7EthLVuVxyAFS2zxpQU12aP8F85LXkpyIcF"
txt + "xPExl8CPdfaE2IxYA3426ApcChPXnFOhoG+QU5JjUILlfmLlnRtg3vu8H1fVQ230EzPzOjfuTV/"
txt + "AgiSkApUAYpiqdcjzSymlDItk9Mf6nZve/7QduslruAGm1UeIb6buDZuzhOUqfd+qcgzXI4MIyt"
txt + "sfrI8fjFeQUFUWyuevXxzsL8HRYgB2yLSAwNf99yh0BzK5p4JAE1s+CGzqQ7gx/GzHS8eDwAXbc"
txt + "cZh0YngftOXbk9bZQ+hyAqmHWuN6K8KGe4sXFaTtHM5dtO+m8Bam3PFse1ngcYRBRyIXaOhQnfj"
txt + "ijdg2YCKhsLgkeBEgFemOuSadsP/SYSiYBpMh4/O/p8qDJM8afjpDXupuc45IQo14rMJfMBhc4L"
txt + "Ju369QKEiE79eXPaaF2KoZdNMT98Pg5I9+krd6aO0hV6HbilsW3GGOKxymbLnhOYomrktdtjDXr"
txt + "BjHjSyCEX4jPUtb6/ey+5q7oCH9s3OA7weYDWb8pl+ymAWQ/03jRv7Q5cpECIa7sPGhEbEwU8Ep"
txt + "LDE5Wkyr+FvDPC3gP5rXhtoq9390lB22666WmJGioiiHg/bsSw6FsZiHL7pHtpej3aE5zl5JszY"
txt + "AQtyb2vM2BIQVmttt6Yuzcvq4qgnHtxg4zNymop8xnLo8P8ue56/MOG688AVAZNmEOTwHHR1Yhj"
txt + "46bOp2CcoYhWmtpX4v7S66UJggew82CTL0SEDzO3aKOixKcIv97JQ8mqaCDIGJYeHzXUbFJFLW1"
txt + "huyoy2BfoqaLn9w2MTPKKq/qZWiVeiWghEnLSgE+54wPo6f0eM5a5gV9mr9h2fA/Qm7DnavvNfs"
txt + "HgF9+QqBWzxrGiyVUDG9Q4PptDJS9mD9Q8TY41HWnxuoJAIIpRVI+Iip40Sr+6ulokUgC7fdTbJ"
txt + "Typ6NyJIyKE5VZJT87XgpRmTwNxCXzsoOfqpa5+YEN9gs6tsrUEbHH2sOfUxZvB8gNOXHKcNbao"
txt + "IOv6rZR+g4y/76EFYhMgduvnWe0OigTz7Dwcvn7h5NIX901NTB8VvBepaCSk3tPr2UHiC3IgNk/"
txt + "kG5TASguemf9gmpz1WoQjYgLxDT67ytZKuJWuOezt7rB+Z/AfSXPGGUjf/fVEXnomiIZQlJ5uZn"
txt + "D2aiqm2j4uKdlAWxMh3pv9YHz1zuNxs5afC/EvzX1gPX5c0qM89Y7df4+OMenbFRC62Hr00d/jw"
txt + "DShl1PnmPU/6OPl4+P3NL94mNW8vy4cTbmTrKOnh9W5rl8AKJ/gr3xbOMNy7KXEB8DMAWO3eMMv"
txt + "B3eueVX4sjA/Py0lMTAw6HpiWrvugzPSk9opIVLd+ZUBBdoQQdDChze0+5pWQpCxhW1CFCuzuzc"
txt + "sXOd1dPjEOWFBBzXVlGNO7zWfsUJRSbmmusrJ85D3xkXg0Q0LrL1+vQC423Dkj2bDTHp0bOW40q"
txt + "milpxk66ijgWrojF4wbRx/ME56QvWzAeWfB94DANFjta37vlMtVVTYljQI7vRdZ5gia8Xi6sqKN"
txt + "2+KYEwBx/A5K7ce9HRinTXg2MurifYzNx+stTjnsYfn1qjLcZp9h290tLl+6dzJqFi7RSs3Oa9S"
txt + "QtmOxuLcx9ZW4xLuv2ijpR31559GfbuBxzLvxJhb/FRQXN5W47vDYecNNWp7DTSpJKAuPfqsc9u"
txt + "xzMaaP0sIfcAon8mhEo/pZW52DcFIEGKA3uT+9QDw4sFgY1txTa3md11UlET1GtG/Iofy4Q4t6Q"
txt + "wtKszLfJCRX1gsUm1lYmzSqUNbiDvTBgAAZJe+zku4c69Xf/1eXTUZrpsTPJX9JD3jcZ7B0BEd1"
txt + "FuAm+8nJ+YUvtUdYqyloc5HVpD0LIjM+FyRh6VJhKYzyufUPeQGqOxhIZI7viZ7nWAP0WBCfydN"
txt + "S3lN2kUtmxNhO2zZs9Jw3VfuAA6XxG+YoGh+PvRTK4KkdZtvPhjJENbMJeL4MjPfg8z/GxTJv/U"
txt + "QYjquwZbhej9g/tS7cOyK/Q4JcdgHnaPN80M/b3x9r15KLdRYvVOopfJRJsyfFIZk//8An+aX/N"
txt + "RoGVVaQfx4w+1/Qy7jP0DlPP4PZB3TTx5rO18AAAAASUVORK5CYII="


Procedure calculate()
  Define.a a,b,c,d,min,max,k, minz.u,maxz.u
  Define z.u, z1.f, z2.f, error.f, x.l=0
  
  x=0
  ClearGadgetItems(1)
  SetGadgetText(8,"Calculating..")
  min=Val(GetGadgetText(5))
  max=Val(GetGadgetText(6))
  error=ValF(GetGadgetText(11))
  k=Val(GetGadgetText(2))
  z=Val(GetGadgetText(20))
  z1= 24*k/z
  SetGadgetText(8,"Calculating..")
  
  For a= min To max
    Debug a
    For c=a To max
      For b=min To max
        For d=b To max
          z2= a*c/(b*d)
          If Abs((z1-z2)/z1) <= error
            x+1
            AddGadgetItem(1,-1, Str(x)+Chr(10)+Str(a)+Chr(10)+Str(b)+Chr(10)+Str(c)+Chr(10)+Str(d)) 
          EndIf
        Next d
      Next b
    Next c
  Next a
  SetGadgetText(8,"Finish!!")
  ;Beep_(500,500)
EndProcedure

Procedure Loaded(Type, Filename$, ObjectId)
  ImageGadget(15,15,70,100,50, ImageID(ObjectId))
EndProcedure

Procedure LoadingError(Type, Filename$, ObjectId)
  Debug Filename$ + ": loading error"
EndProcedure

OpenWindow(0,0,0,350,550,"Ateliers HACHEM", #PB_Window_SizeGadget | #PB_Window_BorderLess)    
SetGadgetFont(#PB_Default, LoadFont(0, "Arial", 14))
ListIconGadget(1,20,150,300,350,"No.",60,#PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect)
AddGadgetColumn(1, 2, "a", 50)
AddGadgetColumn(1, 3, "b", 50)
AddGadgetColumn(1, 4, "c", 50)
AddGadgetColumn(1, 5, "d", 50)
AddGadgetColumn(1, 6, "", 100)

TextGadget(#PB_Any,10,13,20,20,"K:")
StringGadget(2,30,10,30,20,"1"  )

TextGadget(#PB_Any,175,10,40,20,"From")
StringGadget(5,170,25,40,20,"20"  )
TextGadget(#PB_Any,265,10,40,20,"To")
StringGadget(6,255,25,50,20,"120"  )

TextGadget(#PB_Any,10,43,20,20,"Z:")
StringGadget(20,30,40,60,20,"103")

TextGadget(#PB_Any,175,90,50,20,"Error:") ; #PB_Text_Border
StringGadget(11,215,85,70,20,"0.0001")
TextGadget(12,295,85,40,20,"",#PB_Text_Border)

ButtonGadget(7,175,115,160,25,"Calculate")

TextGadget(8,100,505,100,25,"", #PB_Text_Border)  ; finish

BindGadgetEvent(7, @calculate())

BindEvent(#PB_Event_Loading, @Loaded())
BindEvent(#PB_Event_LoadingError, @LoadingError())
;LoadImage(1,"equation1.png")
LoadImage(1,txt)
CloseDebugOutput()