メインプログラム(感情判定)

include a-htmlpnl1.bas
include t-htmlpnlem0.bas
include t-htmlpnlem1.bas
include t-htmlpnlem2.bas

console.title "画像エモーション判定"

dim emx$[8]

emx$[1]="怒り"
emx$[2]="軽蔑"
emx$[3]="嫌悪"
emx$[4]="怖れ"
emx$[5]="幸福"
emx$[6]="普通"
emx$[7]="悲み"
emx$[8]="嘆き"

socket.myip ip$
if ip$="" then
   popup "ネットワーク未接続なので終了します。",0,0,1
   pause 4000
   exit
else
   popup "ネットワーク接続済",0,0,1
   pause 4000
endif


rssstp:

clipboard.get clpx$




ansix$=embox0$(clpx$)


if ansix$="//x//" then
   popup "終了します。",0,0,1
   exit
endif

ansiy$=embox1$(ansix$)


if ansiy$="//e//" then
   popup "終了します。",0,0,1
   exit
endif

console.title "画像エモーション判定 データ生成中"


split iya$[],ansiy$,"@x@"
array.length liya,iya$[]

outww$=""

cls

for vv=1 to liya
   print iya$[vv]
   ww=val(iya$[vv])
   ww=int(ww*10)
      sikaku$=""
      for www=1 to ww
        sikaku$=sikaku$+"■"
      next ww
   outww$=outww$+emx$[vv]+":"+sikaku$+"<BR>"
   outaa$=emx$[vv]+":"+sikaku$
   print outaa$
next vv

array.delete iya$[]

ansiz$=embox2$(ansix$,outww$)


if ansiz$="//x//" then
   popup "終了します。",0,0,1
   exit
endif

if ansiz$="//y//" then
   popup "検索画面を表示します。",0,0,1
   goto rssstp
endif



exit