Advertisement
basictomonokai

電子書籍用プログラム ◆継続確認表示用外部関数(demo-sub3.bas)

Jun 3rd, 2015
306
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.45 KB | None | 0 0
  1. fn.def ynbox1$(titl$,odai$,honbun$)
  2.  
  3. outhtmlk$="\n"
  4. outhtml$="?<html>"+outhtmlk$
  5. outhtml$=outhtml$+""+outhtmlk$
  6. outhtml$=outhtml$+"<head >"+outhtmlk$
  7. outhtml$=outhtml$+""+outhtmlk$
  8. outhtml$=outhtml$+" <meta http-equiv=\"content-type\" content=\"text/html;charset=UTF-8\"/>"+outhtmlk$
  9. outhtml$=outhtml$+""+outhtmlk$
  10. outhtml$=outhtml$+"<style type=\"text/css\">"+outhtmlk$
  11. outhtml$=outhtml$+"<!--"+outhtmlk$
  12. outhtml$=outhtml$+"input,textarea {font-size: 36;}"+outhtmlk$
  13. outhtml$=outhtml$+"-->"+outhtmlk$
  14. outhtml$=outhtml$+"</style>"+outhtmlk$
  15. outhtml$=outhtml$+"<style type=\"text/css\">"+outhtmlk$
  16. outhtml$=outhtml$+"<!--"+outhtmlk$
  17. outhtml$=outhtml$+""+outhtmlk$
  18. outhtml$=outhtml$+"#buttonx {"+outhtmlk$
  19. outhtml$=outhtml$+" width:300px;"+outhtmlk$
  20. outhtml$=outhtml$+" color:#ffffff;"+outhtmlk$
  21. outhtml$=outhtml$+" background:#337fcc;"+outhtmlk$
  22. outhtml$=outhtml$+" font-family: fantasy,sans-serif;"+outhtmlk$
  23. outhtml$=outhtml$+" font-size:24px;"+outhtmlk$
  24. outhtml$=outhtml$+" font-weight:bold;"+outhtmlk$
  25. outhtml$=outhtml$+" text-shadow:0 1px 0px #143352,0 2px 0px #143352;"+outhtmlk$
  26. outhtml$=outhtml$+" text-align:center;"+outhtmlk$
  27. outhtml$=outhtml$+" display:inline-block;"+outhtmlk$
  28. outhtml$=outhtml$+" text-decoration:none;"+outhtmlk$
  29. outhtml$=outhtml$+" border:1px solid #225588;"+outhtmlk$
  30. outhtml$=outhtml$+" padding:10px 0 8px 0;"+outhtmlk$
  31. outhtml$=outhtml$+" border-radius:5px;"+outhtmlk$
  32. outhtml$=outhtml$+" margin-bottom:20px;"+outhtmlk$
  33. outhtml$=outhtml$+"}"+outhtmlk$
  34. outhtml$=outhtml$+""+outhtmlk$
  35. outhtml$=outhtml$+"-->"+outhtmlk$
  36. outhtml$=outhtml$+""+outhtmlk$
  37. outhtml$=outhtml$+""+outhtmlk$
  38. outhtml$=outhtml$+""+outhtmlk$
  39. outhtml$=outhtml$+""+outhtmlk$
  40. outhtml$=outhtml$+"</style>"+outhtmlk$
  41. outhtml$=outhtml$+""+outhtmlk$
  42. outhtml$=outhtml$+"<style type=\"text/css\">"+outhtmlk$
  43. outhtml$=outhtml$+"hr.style-eight {"+outhtmlk$
  44. outhtml$=outhtml$+" height: 12px;"+outhtmlk$
  45. outhtml$=outhtml$+" border: 0;"+outhtmlk$
  46. outhtml$=outhtml$+" box-shadow: inset 0 12px 12px -12px rgba(0,0,0,0.5);"+outhtmlk$
  47. outhtml$=outhtml$+"}"+outhtmlk$
  48. outhtml$=outhtml$+""+outhtmlk$
  49. outhtml$=outhtml$+"</style>"+outhtmlk$
  50. outhtml$=outhtml$+""+outhtmlk$
  51. outhtml$=outhtml$+""+outhtmlk$
  52. outhtml$=outhtml$+""+outhtmlk$
  53. outhtml$=outhtml$+" <title>@@@1@@@</title>"+outhtmlk$
  54. outhtml$=outhtml$+""+outhtmlk$
  55. outhtml$=outhtml$+""+outhtmlk$
  56. outhtml$=outhtml$+"</head>"+outhtmlk$
  57. outhtml$=outhtml$+""+outhtmlk$
  58. outhtml$=outhtml$+""+outhtmlk$
  59. outhtml$=outhtml$+"<script type=\"text/javascript\">"+outhtmlk$
  60. outhtml$=outhtml$+" function doDataLink(data) {"+outhtmlk$
  61. outhtml$=outhtml$+" Android.dataLink(data);"+outhtmlk$
  62. outhtml$=outhtml$+" }"+outhtmlk$
  63. outhtml$=outhtml$+"</script>"+outhtmlk$
  64. outhtml$=outhtml$+""+outhtmlk$
  65. outhtml$=outhtml$+"<body bgcolor=\"azure\">"+outhtmlk$
  66. outhtml$=outhtml$+""+outhtmlk$
  67. outhtml$=outhtml$+" <div align=\"center\">"+outhtmlk$
  68. outhtml$=outhtml$+"<hr class=\"style-eight\"><br>"+outhtmlk$
  69. outhtml$=outhtml$+" <h1><b>【 @@@2@@@ 】</b></h1>"+outhtmlk$
  70. outhtml$=outhtml$+" <h1><b>@@@3@@@</b></h1>"+outhtmlk$
  71. outhtml$=outhtml$+"<a id=\"buttonx\" style=\"width:250px\" onmouseover=\"this.style.background='#43cd80'\" onmouseout=\"this.style.background='#337fcc'\" onclick=\"this.style.background='#43cd80';doDataLink('yes')\" >YES</a>"+outhtmlk$
  72. outhtml$=outhtml$+" <a id=\"buttonx\" style=\"width:250px\" onmouseover=\"this.style.background='#43cd80'\" onmouseout=\"this.style.background='#337fcc'\" onclick=\"this.style.background='#43cd80';doDataLink('no')\">NO</a>"+outhtmlk$
  73. outhtml$=outhtml$+"<br> <hr class=\"style-eight\">"+outhtmlk$
  74. outhtml$=outhtml$+" </div>"+outhtmlk$
  75. outhtml$=outhtml$+"</body>"+outhtmlk$
  76. outhtml$=outhtml$+"</html>"+outhtmlk$
  77.  
  78. outhtml$=replace$(outhtml$,"@@@1@@@",titl$)
  79. outhtml$=replace$(outhtml$,"@@@2@@@",odai$)
  80. outhtml$=replace$(outhtml$,"@@@3@@@",honbun$)
  81.  
  82.  
  83. HTML.OPEN
  84.  
  85. HTML.LOAD.string outhtml$
  86.  
  87.  
  88. ! loop until data$ is not ""
  89.  
  90. DO
  91. HTML.GET.DATALINK data$
  92. UNTIL data$ <> ""
  93.  
  94. type$ = LEFT$(data$, 4)
  95.  
  96. data$ = MID$(data$,5)
  97.  
  98. ! Act on the data type
  99. ! Shown are all the current data types
  100.  
  101. SW.BEGIN type$
  102.  
  103. ! Back Key hit.
  104. ! if we can go back then do it
  105. SW.CASE "BAK:"
  106. PRINT "BACK key: " + data$
  107. popup "強制終了します",0,0,0
  108. html.close
  109. pause 2000
  110. exit
  111. SW.BREAK
  112.  
  113. ! A hyperlink was clicked on
  114. SW.CASE "LNK:"
  115. PRINT "Hyperlink selected: "+ data$
  116. popup "想定外のデータ受信 強制終了します",0,0,0
  117. pause 5000
  118. html.close
  119. exit
  120.  
  121. SW.BREAK
  122.  
  123. ! An error occured
  124. SW.CASE "ERR:"
  125. PRINT "Error: " + data$
  126. popup "エラーが発生しました 終了します",0,0,0
  127. pause 2000
  128. html.close
  129. exit
  130. SW.BREAK
  131.  
  132. ! User data returned
  133. SW.CASE "DAT:"
  134.  
  135. ! Check for Exit
  136. IF data$ = "Exit"
  137. PRINT "User ended demo."
  138. HTML.CLOSE
  139. popup "想定外のデータ受信 強制終了します",0,0,0
  140. pause 5000
  141. exit
  142. else
  143. msx$=data$+" が選択されました"
  144. popup msx$,0,0,0
  145. html.close
  146. pause 2000
  147. ENDIF
  148. SW.BREAK
  149.  
  150. ! Form data returned.
  151. ! Note: Form data returning
  152. ! always exits the html.
  153.  
  154. SW.CASE "FOR:"
  155. PRINT "Form data: "+data$
  156. popup "想定外のデータ受信 強制終了します",0,0,0
  157. pause 2000
  158. HTML.CLOSE
  159. exit
  160. SW.BREAK
  161.  
  162.  
  163.  
  164. SW.DEFAULT
  165. PRINT "Unexpected data type:", type$ + data$
  166. popup "想定外のデータ受信 強制終了します",0,0,0
  167. pause 2000
  168. HTML.CLOSE
  169. exit
  170.  
  171. SW.END
  172.  
  173. fn.rtn data$
  174.  
  175. fn.end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement