Nama : YOMI SYAPUTRA
Nim : 13160596
Kelas : 13.2A.07
Nim : 13160596
Kelas : 13.2A.07
AMIK BINA SARANA INFORMATIKA
Assallamuallaikum wr.wb
Nama saya yomi,saya sudah menyelesaikan tugas uts
Di bawah ini adalah contoh dari pembelajaran borland
Dan di bawah ini hasil contohnya:![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArQAAAFqCAIAAABkgF5PAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAByfSURBVHhe7d3vjxz1nSfw/jvuEQ/zMFppJYyQJtIpUk53kfYe5JaTjoW12j71iktOq9s95WDPzlzYTeTgeEe3B0kTA+FHjgBZiI0nDss2JiFkG8iAx7GNHYPXYEIbg72cmbE9Y3Pf7qrpqW/1TFePPTPdQ71eeseqqa6qrnE8fN7z7XG78mnHvqdu2vXi1spT+9offLDrpnt3dXan9j1V2Xo43e6vfZ0P0u32dboX3F6pbO9c5PDWsFHZnjksOLz1phePp9sdS19nIO1rpZuR5fbn7dr64r6t27d2nnDf1swTH3/xps6tVyr37kpuNvy+pHu2b93a2c7+NvUe35Z8/uGyyUb2oUXT09Mf9Dh27Fj6MCPs/AqFU2ZnZ5NzGX1f2Pzf0i2G5+0zvmTWXKYcfLAwklexHHSv0+4HCxePZ2hbYTmI76eP7lzPWW5/j8Nbw82Fud65xVAUkr2dSb8wyMP2Qs8Il21/Mu2W0Jn33f6xzPGJcNnwuxDu5/iuezOf5yLlYONKZ/7AwinKwUZx85/8+X+ov/An33oo/ZghUQ7WQVQO0jHcM4xXoRwEnVqQXzNIrFY5WO5GB/8Ejr+4tfPEncWKTlHo2Lc1+ha/WxrSpYV9T3WaR/HxHe01gyU7QddQysHRI0f2PfvsU088sefpp6cPHkz3skLpzB9YOEU52BBu/o93/On/2ffXv/7gb185+/19L6V7GQblYB3E5aDzXW7729prLweZI8NQz6zKd2Zifuk9tUQ5WP46ywpPsORxy+1fSjrmk+/pX9y3cFp0B+3fo/Tmkql/fNdT7SqwUCza+5c5vi1z2HLWvxwcnp7et3fvkWO/G/+7h3775rEnn3yy8fzz+/fvf3bB3gVvvPFGeg5LSWf+wMIpysHo+9e3fe1vnnnp56cuPHvi41++c6H53ie/ePeT9DHWnXKwDvLlIGxu7bwUnnyQGLwchEG+dWHMZ89qr7J3X8ffXslVgd5ysNx1+rjuFxTaQidYODjc073dKZ65SKga3VWB9HWEdJ0g/k1c6viOaFVkaetfDvbt2XP0dyd+/9G5UA7Cr4eP/+6nP/3p3Nxc+nDGM888k26xlHTmDyycohzAiigH66BdDsL0Tb6nTyd0Z5y1N9Khnj66MN0L7Lp34fiFb567F2nP+HDxznbyXN2nTpMpJb3X6We5BjFgs0gs3E0yvONWsXDfmd+F7ssk7Y3w+bTvONMbeo4PklPSLH9j618OnnriiX9unXn37IehHIScOvNBKAHz8/MvHng+m/aRTz2VnBLbt7WyaKA/KGsl3MlNURtbX+nMj91+++3pVo9winIAK6IcrIN05WCDC5N4yQax3P5Rt/7l4Jm///uDR97859YHSV4/fDSUgFAO3un4/q/mmu/NHr1w8erVqz/+8Y/TcyKZkdzuCateDwYf+SNXDkIzSKQfx8IpygGsiHKwDvLlIPzXn6E7ePDgmR5vvvlm+vAamPrNb5588snXpg+deO/9V96YfviRR0IJmJubO/DCP4T8q7+8+uSpq//pwNUrV648+uij6TmRZ9sj+Vjv9moZ/Jpr8ewrcC6W9oIF6d6McMrMzExy7soduuf2//Hvvnco/agt7PnbH7+XfgCfSW+1lvyS6Xw5LOSrP22lu4dp4evxvX/8avcL89X/277Dv/rHU9md/Qz0RZ2O8NWzWA6SJwj/9e8K3zgyFK+//vr7PY4cOZI+vDZ+89prjz7yyP333//Dhx56+eWXf/SjH126dOlkxw9em3/h7PyuQ6EtzD344IPpCZG9Wyqbdh7Nb84f3bkpfalhy95kT++u/I7O+Tu3JLs6Vwp7FnQv09Y5cm96eu/TL562eFbhsy9xxyvyYcZtC3LbWeGUCxcuJOeu3MEdt333v9z19R2vpB8nex5/N/0APpPeen/JL5nsH/6w/fV/e+/B5IMe6/Zl0vtE7RvLfMEOYtm7TUd1RzLB03G+GtJy0K0F4b/+YSRcvHhxdnY2fEPDULz66qvJen7WwYMH04fX2EMP/bD+4GPf+8HD9z/06P0PPvLADx95+JFHH3zowed+vi88et999yWHxZ7enI7USmXz0+m+9s4bd0ynm52t6R03dncleo/pXCq5SHuzuxWf19Y5Mtm9eOHeI7t7Bnj2sGPx/q9FWuU6bu1IP+j5MBFO+eijj5JzV+4337r1O4/+6md/9vWfHc/ueTv9AD6T3nxnyS+Z+A//2z/7s1t/eCD9IGfdvkx6n+gannrZU8KYDsM6jOwwuJMJvor9oF0OkmYQakh4jk8++eT8+fNnz549c+ZMiyE5cODAkR7hu/n04TX2v+/7/v43Tv7joXd/efT9Xx9956Wj7/3iyPs/eOSxqamp8Og999yTHBZ77NbKH37z163Wr7/5h5VbH0v2tbczwu7so4neY7qXautuZ3d2RTvDB51LZ3aGzVRnzyDP3tnT+0yDO55xyy23pFsLeveEU06dOpWcu3K/+MYt37x/ujX5na9VHz6c3ROEnV+8pZPv/GLxoed+Uu3s/MZzramHv5kcsHBuqzWdPvrFW743me6CkTN19J10K7L4h7/j8P1/3v5zHsRfC+Gw7Id9/tiv6Esmfa62hZ3Vh3+ycEvJvS0+decKmRvuvYclLpIXxnQY1mFkh8EdxneylrBa/SBaOQhXv/MH/0ZEREQ2UML4XquVg7m5udA+wnM89NptIiIikuTlP/qjUUjurroJgzuM7+TFhdVcOeguG5w/f145EBERySY3pIeV3F11EwZ3GN+XL19ek3Jw8eLFs2fPKgciIiLZ5Ib0sJK7q27C4A7jOwzxNSkHs7OzZ86cUQ5ERESyyQ3pYSV3V92EwR3Gdxjiq1wOjh24qfI/K5t/tLnyFxXlQEREJJvckB5WcnfVTRjcrVZrZmZmfn5+lVcOjr6wqXLX5sdaLeVAREQkm9yQHlZyd9XN2paDzVMz4erKgYiIfFbzub5yB3eTG9LDSu6uuhmtclAZG6ts27ZsxsZuuOGG3CkiIiJDTNoClpE7uJvckB48yaDtv2fw5O6qmxErB5UbKpXw63IZ+8IXvpA7RUREZIjp0wDWohyEJLO2d/sakrurbtakHNz04vHkBxIrd1Vu/cWKysFt27Y1tm37dGzs7Uql0ZPblAMRERmprH85CEnnbUfuoRUld1fdrOHKQbhiuO4KVw5COXg7NIOFctBdM0hyQ1CpVHJniYx4vrv9D8J/IxbcfNfiQ1/+yuf+oLa3++Fq5q4tuee6hqzh7a0kf1z70ue+Us/t7KR+c/J7mtry5fwBImuf8Ecvt6ebPg/lhvQ1JJm4uZ0rTe6uuhm5cjA21lhcNljyRxD85IFspLQHWzSk6zdn51wY4WPb/7j74UgkTNwvffG7ne21vb3ME/VN33KgEMiwM5RykIzbRO6hFSV3V92MXDlYeAWhnW3btiVXTIQPE15ckI2S9ppB//m394tjAw3IdUx2Zq/p7V13OWj/9ioHsvKEmb2k3GEDps+JfR7KDekVJZmJvdvXkNxddTMq5aDg7yls2/a1r30trQbKgWyYfPkrn1vmW94wdNMV+yUmX/L9+uKLEYsTNDm4fdnuakT0mkVmUua+6c8cFr1SkD093EbnxYgF7astPZhzZ/XuzNxJcoX2rx3ps/c80YqvkB6f+ZSXTOaa6YmdPd21nM5ll7iB6HdJPmNJ/0/ukTtswKQnLyN3cDe5IT14kkHbf8/gyd1VN6NSDsbGxtLJv4zbb7893VIOZKMkfGe83Kv+i+VgiQmXDM6F0Z6dXu3tsS/dHE3HZeZcthy0D+s2jMxdRafv/WItGfPxN/S9t7fkWcvfSWc72wmyd5J7ohVeoXPKgvgmk7QPWOITb18w+c3JHrDMwSJrktyQHlZyd9VNGNzVarXeHHY5CCM/nJVUhPYlbrgh2bj99gcWNpQD2WgZcMC0i0J0WHv+ZUddvMyQWQ/o+YHBzKUy5SB3WPsinW/3l1nYiGd2z+0teVafO4nvOXu16Imu6QqLad9VTz/IXbP7iXcvkj1g+YNF1iC5IT2s5O6qm/bKwaHHx2v1qaGXgwceeKBSqYSNRqORbAShB4TtcEHlQDZeBv7uMwzy7BzKzPUk3bkVT6wlrr844RYv0j4sr32R5W4vmtntRLe35Fn97iS+5/ZUXpjB2Se6titk03uF9p687nXCJ9XW7RN9DxZZ9eSG9LCSu6tu2uWg1aiPQjkInSD5NdkIwnW6G8qBbLwsN8Z6kx2Ta1IOesZ5SJ/9cTmI9ix51hI7170ctPfHV1jyVheSvCSx+Pvc92CRVU9uSA8rubvqpl0OGhO1enMkXlZ4u/H2cuXg85//fLI9NuZ9EmWjpD3VlnwtvCeLQz2k/U1t9qzFuVU0JjMDcrEc9JumS+3Pzuw0mdtb8qx+dzJYObi2K2TTO92XOzIkuXj2gD4Hi6xBckN6WMndVTdhcFcnGmGID78chGawbWzbA9seCOVgbKwSfm1fK2xVxsJGKARd3udANk7CWM3+dYP2DGvPuZ5RFL6R7X4Xm6x4L4zD9hUWHorHZHpkdyK2H81eJL5g5rAt6f1E+7M/kJibskvcXv6s5e9k+dEeP9HKr7D4iXR2LhyfeYplPvHFi2d/CHGZg0XWJLkhPazk7qqbdOWgNj55erRfVgidIHeKyAZJexQtSkZRTzno7EknU5hSY9u/vHjW4ipCPCY7SZbHE935HdK5SPRh1zL7u/ezcMPZ1YvM7YUsddZydxLfc/SJ559ohVdYOL1jmadY4hNv71msa9nutezvkkjZ0i4HrVazXts9NdRyUPhXGZUD+axncQSGEXX9k2lVLpJJPKFF5DOdTjlo1Ie+cnDDDTd0XjHoJ3eKyGcs7e+bO99Dr8Jcj797XpV0b09EPvMJg3sk3udARLq5rnLQfiG/zXf5InLN6awcjMy/rSAiIiJDj3IgIiIiUZQDERERiaIciIiISBTlQERERKIoByIiIhJFORAREZEoQy4H3/7JvxcREZGhJDeUuxl+OahUtq8wAMD12gDlID0zUwKSPTmdhwCA67Xe5WDrvk+vPrs1ee5bHysuB+l5HblykN0OOh8CANdrGOXg6tWjOzdtfrp45SA9Z6lC0LuzEwDgevUvB9VqdXzPydV/WeE6y0E3PTsBgOtVtHKwNv9kcygHydNfTzno3ZNcEwC4HkXloNWs13ZPDXXlIKvbA3IfLgQAuF4DrBzUp0bwZYXeDzsbAMD16l8OqtVqvTmSP5DY3Y4/BACuV9HKwRq8rHBs103Jcxf+Vcb0nGXKQU7Y/8IykqcDAAZRWA5mmvU7dk+t8ssKK3oTpMGTdoEe6ecKAAxgkJWDuydPKwcAUBb9y0G1Wq3Vm6v/PgcDlwMAYL0Vrhys8jskhv8pBwAwypQDACCiHAAAEeUAAIgoBwBARDkAACLKAQAQGVo5mN4xUan8hXIAAKNmOOXg6M6/q9z4nJUDABhBwykHO7e84GUFABhNwygHxw5s2jKtHADAaBrKysFvt1SeeFo5AICR1L8cVKvV8T0nV/9lhfm9T1Qqd/mBRAAYQUUrB416bXzy9KqXA3+VEQBGVVE5aDXrtd1TygEAlMYAKwf1qdV/WUE5AIBR1b8cVKvVenNt3gRJOQCA0VS0cuBlBQAomcJyMNOs37F7SjkAgLIYZOXg7snTygEAlEX/clCtVmv1pp85AIASKVw5CENcOQCAElEOAICIcgAARJQDACCiHAAAEeUAAIgoBwBARDkAACLKAQAQUQ4AgIhyAABElAMAINK/HFSr1fE9J5UDACiRopWDRr02PnlaOQCA0igqB61mvbZ7SjkAgNIYYOWgPuVlBQAoj/7loFqt1pt+IBEAyqRo5cDLCgBQMoXlYKZZv2P3lHIAAGUxyMrB3ZOnlQMAKIv+5aBardbqTT9zAAAlUrhyEIa4cgAAJaIcAAAR5QAAiCgHAEBEOQAAIsoBABBRDgCAiHIAAESUAwAgohwAABHlAACIDKEcHNt1tVKZr1RmKhXlAABGTv9yUK1Wx/ecXP2Vg6M752/cYeUAAEZR0cpBo14bnzytHABAaRSVg9bJPeN3T55e/XLgZQUAGE1DKwdWDgBgNBWVg0N7xmvKAQCUSP9yUK3eWa9bOQCAMilaOWg167XdU/4qIwCURkE5aEzUxvec9iZIAFAe/ctBtTrR9A6JAFAqBSsH3j4ZAMpGOQAAIsoBABBRDgCAiHIAAESUAwAgohwAABHlAACIKAcAQEQ5AAAiygEAEFEOAIBI/3JQrVbH95xUDgCgRIpWDhr12vjkaeUAAEqjqBy0mvXa7inlAABKY4CVg/qUlxUAoDz6l4NqtVpv+oFEACiTopUDLysAQMkUloOZZv2O3VPKAQCUxSArB3dPnlYOAKAs+peDarVaqzf9zAEAlEjhykEY4soBAJSIcgAARJQDACCiHAAAEeUAAIgoBwBARDkAACLKAQAQUQ4AgIhyAABElAMAIKIcAACR/uWgWp1oKgcAUCr9y8GEcgAAZaMcAAAR5QAAiCgHAEBEOQAAIsoBABBRDgCAiHIAAET6l4MwvsMQVw4AoESUAwAgohwAABHlAACIKAcAQEQ5AAAiygEAEFEOAICIcgAARJQDACCiHAAAEeUAAIj0LwfVarXeVA4AoEwKVg4OPT5eq08pBwBQHgXloNWoKwcAUCoF5aAxUas3vawAACXSvxxUJxphiCsHAFAixSsHtfHJ08oBAJRGQTlotZr12u4p5QAASqOoHDTqVg4AoFT6lwPvcwAApVO0cuAdEgGgZJQDACCiHAAAEeUAAIgoBwBARDkAACLKAQAQGVo5eHrzTKWiHADAyBlOOTi6c76yeab1mHIAACNnaCsH7ZcVlAMAGD3KAQAQUQ4AgEj/crDG//CScgAAo6dg5eDQ4+O1+pRyAADlUVAOWo36WpSDvVvmKxV/lREARlFBOWhM1OrNNXtZwZsgAcDo6V8OqhONtfyBROUAAEZP8cpBbXzytHIAAKVRUA5arWa9tntKOQCA0igqB426lQMAKJX+5WCN3+dAOQCA0VO0crCm75CoHADA6FEOAIDIEMrBsV1XKxVvggQAI2o4KwdHd87fuMPKAQCMIuUAAIgMrRx4WQEARpOVAwAgohwAABHlAACIDKEc+KuMADDKhrNyEK4YrmvlAABGkHIAAET6lwP/8BIAlE7BysGhx8dr9SnlAADKo6ActBp15QAASqWgHDQmavWmlxUAoET6l4PqRCMMceUAAEqkeOWgNj55WjkAgNIoKAetVrNe2z2lHABAaRSVg0bdygEAlEr/cuB9DgCgdIpWDrxDIgCUjHIAAESUAwAgohwAABHlAACIKAcAQEQ5AAAiygEAEFEOAICIcgAARJQDACCiHAAAkf7loFqtju85qRwAQIkUrRz4J5sBoGSKykHr5J7xuydPKwcAUBaF5WCmWb9j95RyAABloRwAABHlAACIFJYDP3MAAOVSVA78bQUAKJn+5aBardab3gQJAMqkaOXAOyQCQMkoBwBARDkAACLKAQAQUQ4AgIhyAABElAMAIKIcAAAR5QAAiCgHAEBEOQAAIsoBABDpXw78w0sAUDoFKweHHh+v1aeUAwAoj4Jy0GrUlQMAKJWCctCYqNWbXlYAgBLpXw6qE40wxJUDACiR4pWD2vjkaeUAAEqjoBy0Ws16bfeUcgAApVFUDhp1KwcAUCr9y4H3OQCA0ilaOfAOiQBQMsoBABBRDgCAiHIAAESUAwAgMrRysOPGmUpFOQCAkTOccrBz0/yNO6wcAMAoGkY5OHZ10xYvKwDAiFIOAIDIMMpB52WFHdPKAQCMovUuBzft6vxA4tH5Gyt+IBEARtFwVg7CFb2sAACjqX858A8vAUDpFKwcHHp8vFafUg4AoDwKykGrUVcOAKBUCspBY6JWb3pZAQBKpH85qE40whBXDgCgRIpXDmrjk6eVAwAojYJy0Go167XdU8oBAJRGUTlo1K0cAECp9C8H3ucAAEqnaOXAOyQCQMkoBwBARDkAACLKAQAQUQ4AgIhyAABElAMAIKIcAAAR5QAAiCgHAEBEOQAAIsoBABDpXw6q1WqtVrvjjt2vKwcAUBKFKwcn94zfPXnaygEAlEVROWjUa/UpLysAQHkUlIPGxPiek37mAABKpH85ePzOO/ec9AOJAFAm/cvBnRONMMSVAwAokf7lYKLhrzICQMn0LwePH1IOAKBk+peDhjdBAoCy6V8OwvhWDgCgXJQDACCiHAAAEeUAAIgoBwBARDkAACL9y8Err7xy+PDh48ePnzhx4q3VoBwAwKjrXw5OnTp17ty5CxcuhFE+uxqUAwAYdcoBABBZ73JQuWlXUg6e3tx+euUAAEbNcFYO9m6pVDY/beUAAEbQMMrBsV2btuz1sgIAjKb+5aBard73y1UvB89u3bTzqHIAAKOpYOXgN49+o3bfPykHAFAeBeXg1P77Vr8cHNu1adNO5QAARlNBOdj/3dp9v1yTH0i8cce0cgAAI6h/Oah+d/9avc/BjhvbT68cAMCoKV45qH1jz1trUA68rAAAo6mgHJw69cv7avV/Ug4AoDSKysH++6wcAECp9C8Ha/M+B8oBAIywopUD//ASAJSMcgAARJQDACCiHAAAEeUAAIgoBwBApH85eOWVVw4fPnz8+PETJ068tRqUAwAYdf3LQRjfYYiHUR4Gehjr1085AIBRpxwAABHlAACIKAcAQEQ5AAAi/ctBtVqtN5UDACiTgpWDQ4+P1+pTygEAlEdBOWg16kMsByIiIjKU5IZyN+1y0Jio1ZvDeVlBRERERi1hcFcnGmGIKwciIiLSTrpyUBufPK0ciIiISPozB61mvbZ7SjkQERGRxR9IXIOVgytXrszOzp45c0Y5EBER2UAJg7vzPgezYZSvfjm4ePHi2bNnlQMREZENlDC4w/gOQ3xNysGlS5fOnz+vHIiIiGyghMEdxvfly5fXpBzMzc198sknyoGIiMgGShjcYXyHIb7K5SDoLh6E5xAREZENlDC+V7EZBIsrB/Pz8+HqoX2cP3/+7NmzZ86caTEkBw4cONLj5ZdfTh9mhD23EsePHw+nnDp1KjkXYEXCpA7zOkztMLvDBA9zfLUqQrRyEMzNzV2+fPnixYuzs7MzDMmrr776To/p6en0YUbYr1bi/fffD6ecO3cuORdgRcKkDvM6TO3kNYVgtRYP0nIQhCt2K0IidBCG4vXXXw9jI+fIkSPpw4yw5kp8+OGH4ZQLFy4k5wKsSDqtO5Ihnk7067ZYDhLJ1RmugwcPnunx5ptvpg8zwl5diXPnzoVTQv1PzgW4ZukUXyX5csAomJ6e/qDHsWPH0oeHYfbsTy68d8+Fd+/5+OS3/+Wtb/3LiW+fO/7XH735v84e2X7mt3d+cOTbF1qN9NBye20lzp8/H06ZnZ1Nzr1mL/R16dKl9DiAwSgHo2jUysHVq/Of/P6euZlnrsy1Lpz53odv/83vXvvvlz/5hyuXX0xy6cK+3x+6Oz263NKxP5hVLAfzc3Pz83NXrsyHXL16JSR8GH5tNpv79+//+P99nB4KMADlYBSN4MpBuxzM7g359NP5kJOv/Off/uqvZj76yfylxtzsc5cvTL772n9NDy23dOwPZrXKQaPRmJu73NsPQl566aWZmZmf//znH3+sHwCDUg5G0SiXg04/+PTErze/8cJfnj74jVALLn38zOy5J0+9+tXkyJJLx/5gVqscPP/885cvX1qyH4Ra8LOOsJEeDdDfp5/+f1IpmoehJlBTAAAAAElFTkSuQmCC)
Di bawah ini text coding tugas borland C++
#include
<conio.h>
#include <dos.h>
#include <stdlib.h>
#include <dos.h>
#include <stdlib.h>
#define VIDEO_INT 0x10
#define UCHAR unsigned char
void
getCursorPos(UCHAR *y, UCHAR *x);
void setCursorPos(UCHAR y, UCHAR x);
void writeChar(UCHAR letter, UCHAR attr);
void setCursorPos(UCHAR y, UCHAR x);
void writeChar(UCHAR letter, UCHAR attr);
int main(void)
{
{
UCHAR baris, kolom;
getCursorPos(&baris, &kolom); // Baca posisi kursur
getCursorPos(&baris, &kolom); // Baca posisi kursur
writeChar('Y', 0x1f); //
Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('O', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('M', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('I', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('_', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('S', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('Y', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('A', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('P', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('U', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('T', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('R', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('A', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('O', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('M', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('I', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('_', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('S', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('Y', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('A', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('P', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('U', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('T', 0x1f); // Cetak huruf A
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('R', 0x1f); // Cetak huruf Z
setCursorPos(baris, ++kolom); // Pindahkan kursor
writeChar('A', 0x1f); // Cetak huruf A
setCursorPos(baris,
++kolom); // Pindahkan kursor
getch();
getch();
return EXIT_SUCCESS;
}
void getCursorPos(UCHAR *y, UCHAR *x)
{
UCHAR row, col;
UCHAR row, col;
asm mov ah,
0x03;
asm mov bh, 0x00;
asm int VIDEO_INT;
asm mov row, dh;
asm mov col, dl;
asm mov bh, 0x00;
asm int VIDEO_INT;
asm mov row, dh;
asm mov col, dl;
*y = row; *x = col;
return;
}
}
void setCursorPos(UCHAR y, UCHAR x)
{
{
asm mov ah, 0x02;
asm mov bh, 0x00;
asm mov dh, y;
asm mov dl, x;
asm int VIDEO_INT;
asm mov bh, 0x00;
asm mov dh, y;
asm mov dl, x;
asm int VIDEO_INT;
return;
}
void writeChar(UCHAR
letter, UCHAR attr)
{
{
asm mov ah,
0x09;
asm mov al, letter;
asm mov bh, 0x00;
asm mov bl, attr;
asm mov ch, 0x00;
asm mov cl, 0x01;
asm int VIDEO_INT;
asm mov al, letter;
asm mov bh, 0x00;
asm mov bl, attr;
asm mov ch, 0x00;
asm mov cl, 0x01;
asm int VIDEO_INT;
return;
}
}
Ini hasil dari running tugas borland:
dengan ini saya menyatakan sudah selesai mengerjakan tugas.terima kasih atas allah swt dan dosen
Wassallammuallaikum wr.wb
Tidak ada komentar:
Posting Komentar