daily pastebin goal
53%
SHARE
TWEET

2K、3K、4K衰弱・神経衰弱画面サブプログラム t-gmmctsub1.bas

basictomonokai Oct 3rd, 2016 (edited) 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. fn.def gmbox1$(htdata1$)
  2.  
  3. console.title "神経衰弱画面の表示"
  4.  
  5. grabfile outhtml$,htdata1$,1
  6.  
  7. nxttest:
  8.  
  9. HTML.OPEN
  10.  
  11. HTML.LOAD.string outhtml$
  12.  
  13. xnextUserAction:
  14.  
  15. ! loop until data$ is not ""
  16.  
  17. DO
  18.  HTML.GET.DATALINK data$
  19. UNTIL data$ <> ""
  20.  
  21. type$ = LEFT$(data$, 4)
  22.  
  23. data$ = MID$(data$,5)
  24.  
  25. ! Act on the data type
  26. ! Shown are all the current data types
  27.  
  28. SW.BEGIN type$
  29.  
  30.  ! Back Key hit.
  31.  ! if we can go back then do it
  32.  SW.CASE "BAK:"
  33.   PRINT "BACK key: " + data$
  34.   popup "終了します",0,0,0
  35.   pause 2000
  36.   end
  37.   SW.BREAK
  38.  
  39.  ! A hyperlink was clicked on
  40.  SW.CASE "LNK:"
  41.   PRINT "Hyperlink selected: "+ data$
  42.   popup "リンク先をロード中",0,0,1
  43. !  HTML.LOAD.URL data$
  44.   browse data$
  45.  
  46.  
  47.   SW.BREAK
  48.  
  49.  ! An error occured
  50.  SW.CASE "ERR:"
  51.   PRINT "Error: " + data$
  52.   popup "エラーが発生しました 終了します",0,0,0
  53.   pause 2000
  54.   exit
  55.   SW.BREAK
  56.  
  57.  ! User data returned
  58.  SW.CASE "DAT:"
  59.   PRINT "User data: " + data$
  60.  
  61.   ! Check for Exit
  62.   IF data$ = "//x//"
  63.    PRINT "User ended demo."
  64.    HTML.CLOSE
  65.    popup "終了します",0,0,0
  66.    pause 1000
  67.    exit
  68.   else
  69.    msx$="【結果表示】\n\n回数は "+data$+" 回でした。"
  70.    popup msx$,0,0,0
  71.    pause 2000
  72.    html.close
  73.   ENDIF
  74.   SW.BREAK
  75.  
  76.  ! Form data returned.
  77.  ! Note: Form data returning
  78.  ! always exits the html.
  79.  
  80.  SW.CASE "FOR:"
  81.   PRINT "Form data: "+data$
  82.   popup "終了します",0,0,0
  83.   pause 2000
  84.   exit
  85.   SW.BREAK
  86.  
  87.  
  88.  
  89.  SW.DEFAULT
  90.   PRINT "Unexpected data type:", type$ + data$
  91.   popup "終了します",0,0,0
  92.   pause 2000
  93.   exit
  94.  
  95. SW.END
  96.  
  97.  
  98.  
  99. fn.rtn data$
  100.  
  101. fn.end
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top