FreeBasic IDE-poseidonFB(Update 2024.03.03)
Re: FreeBasic IDE-poseidonFB(Update 2017.09.24)
Hmm. If I don't manually close the project (Menu->Project->Close Project) or manually save the project it does not save. If I add a file to the project, then close the editor, it does not keep the fact that I added the file.
Is that intended behavior?
Is that intended behavior?
Re: FreeBasic IDE-poseidonFB(Update 2017.09.24)
It's strange......Imortis wrote:Hmm. If I don't manually close the project (Menu->Project->Close Project) or manually save the project it does not save. If I add a file to the project, then close the editor, it does not keep the fact that I added the file.
Is that intended behavior?
Use "Exit" or click Rigth-Top X icon should be trigger main dialog "CLOSE_CB" callback then save the opened project properties, like:
Re: FreeBasic IDE-poseidonFB(Update 2017.09.24)
Well, I did have it crash on me one time after adding a file to the project. I had added about 5 files since I opened the project for that day when it crashed and when I re-opened it those files were not there. After that I added 2 more files and closed the IDE normally. When I came back the next day the two file I had added were not there so I assumed it was not saving on close... Now I can't reproduce it.
Re: FreeBasic IDE-poseidonFB(Update 2017.09.30)
First post since 2009 => malware domain?
Re: FreeBasic IDE-poseidonFB(Update 2017.09.30)
I agree that this looks dubious, but the link looks fine and there's also a second post (meanwhile?) from that user that looks fine.fxm wrote:First post since 2009 => malware domain?
Re: FreeBasic IDE-poseidonFB(Update 2017.09.30)
I'll update Simplified Chinese.lng at next reversion, thanks~~^^
Re: FreeBasic IDE-poseidonFB(Update 2017.09.30)
視窗"尋找/取代"中Kuan Hsu wrote:I'll update Simplified Chinese.lng at next reversion, thanks~~^^
尋找方向 "向前" "向後" 功能顛倒?
In form Find/replace
Find direction "Forward" and "backward" function is reversed?
Re: FreeBasic IDE-poseidonFB(Update 2017.09.30)
Forward = top -> bottom(由上而下)wangtao03 wrote:視窗"尋找/取代"中Kuan Hsu wrote:I'll update Simplified Chinese.lng at next reversion, thanks~~^^
尋找方向 "向前" "向後" 功能顛倒?
In form Find/replace
Find direction "Forward" and "backward" function is reversed?
Backward = bottom -> top(由下而上)
Last edited by Kuan Hsu on Oct 01, 2017 12:21, edited 1 time in total.
Re: FreeBasic IDE-poseidonFB(Update 2017.09.24)
I can't produce the issue, too; I think maybe the issue about add file to project tree, but I don't find the bug yet...Imortis wrote:Well, I did have it crash on me one time after adding a file to the project. I had added about 5 files since I opened the project for that day when it crashed and when I re-opened it those files were not there. After that I added 2 more files and closed the IDE normally. When I came back the next day the two file I had added were not there so I assumed it was not saving on close... Now I can't reproduce it.
Re: FreeBasic IDE-poseidonFB(Update 2017.09.30)
Kuan Hsu
From the general section FreeBASIC crashes when compiling very large programs
OK in lang "fb"
Doesn't show properly in lang "qb"
From the general section FreeBASIC crashes when compiling very large programs
OK in lang "fb"
Code: Select all
screenres 128,96,32
dim as any ptr _HANDLE
_HANDLE = imagecreate(128,96)
dim as long Y,A,B,xcolour,x
dim as string AA,xcolor
Y = 48: FOR A = 1 TO 161
READ AA
IF VAL(AA) = 0 THEN
FOR B = 1 TO LEN(AA)
SELECT CASE MID(AA, B, 1)
CASE "#" : xcolor = "FFCD"
CASE "$" : xcolor = "CCCD"
CASE "%" : xcolor = "3334"
CASE "&" : xcolor = "3367"
CASE "'" : xcolor = "339A"
CASE "(" : xcolor = "669A"
CASE ")" : xcolor = "99CC34"
CASE "*" : xcolor = "99CC67"
CASE "+" : xcolor = "336601"
CASE "{" : xcolor = "CCCC34"
CASE "|" : xcolor = "660001"
CASE "}" : xcolor = "CC6601"
CASE "~" : xcolor = "FFCC34"
CASE "" : xcolor = "FF9934"
CASE "€" : xcolor = "1000000"
CASE "" : xcolor = "CCCCCD"
CASE "‚" : xcolor = "99999A"
CASE "ƒ" : xcolor = "99669A"
CASE "„" : xcolor = "9999CD"
CASE "…" : xcolor = "666667"
CASE "†" : xcolor = "CCCD00"
CASE "‡" : xcolor = "333301"
CASE "ˆ" : xcolor = "330001"
CASE "‰" : xcolor = "666634"
CASE "Š" : xcolor = "333334"
CASE "‹" : xcolor = "996667"
CASE "Œ" : xcolor = "66669A"
CASE "" : xcolor = "663301"
CASE "Ž" : xcolor = "663334"
CASE "" : xcolor = "CC999A"
CASE "" : xcolor = "FFCD00"
CASE "‘" : xcolor = "9966CD"
CASE "’" : xcolor = "CC99CD"
CASE "“" : xcolor = "CD0000"
CASE "”" : xcolor = "99CCCD"
CASE "•" : xcolor = "33999A"
CASE "–" : xcolor = "66CD00"
CASE "—" : xcolor = "CCFFCD"
CASE "˜" : xcolor = "9A0000"
CASE "™" : xcolor = "FFCCCD"
CASE "š" : xcolor = "6699CD"
CASE "›" : xcolor = "66999A"
CASE "œ" : xcolor = "FFFF01"
CASE "" : xcolor = "FF0100"
CASE "ž" : xcolor = "99CD00"
CASE "Ÿ" : xcolor = "66CCCD"
CASE " " : xcolor = "33669A"
CASE "¡" : xcolor = "336667"
CASE "¢" : xcolor = "CC9A00"
CASE "£" : xcolor = "3399CD"
CASE "¤" : xcolor = "3366CD"
CASE "¥" : xcolor = "339A00"
CASE "¦" : xcolor = "333367"
CASE "§" : xcolor = "999A00"
CASE "¨" : xcolor = "6666CD"
CASE "©" : xcolor = "669A00"
CASE "ª" : xcolor = "33CCCD"
CASE "«" : xcolor = "33339A"
CASE "¬" : xcolor = "CC9967"
CASE "" : xcolor = "CCCC9A"
CASE "®" : xcolor = "FFCC9A"
CASE "¯" : xcolor = "996634"
CASE "°" : xcolor = "FFFFCD"
CASE "±" : xcolor = "66CC9A"
CASE "²" : xcolor = "669967"
CASE "³" : xcolor = "670000"
CASE "´" : xcolor = "330034"
CASE "µ" : xcolor = "FF9967"
CASE "¶" : xcolor = "999967"
CASE "·" : xcolor = "CC9934"
CASE "¸" : xcolor = "336634"
CASE "¹" : xcolor = "33CD00"
CASE "º" : xcolor = "99CC9A"
CASE "»" : xcolor = "339967"
CASE "¼" : xcolor = "99FFCD"
CASE "½" : xcolor = "FFFF9A"
CASE "¾" : xcolor = "FFCC67"
CASE "¿" : xcolor = "336700"
CASE "À" : xcolor = "663367"
CASE "Á" : xcolor = "340000"
CASE "Â" : xcolor = "66339A"
CASE "Ã" : xcolor = "993367"
CASE "Ä" : xcolor = "666700"
CASE "Å" : xcolor = "FF999A"
CASE "Æ" : xcolor = "99339A"
CASE "Ç" : xcolor = "3333CD"
CASE "È" : xcolor = "993334"
CASE "É" : xcolor = "669901"
CASE "Ê" : xcolor = "CCCC67"
CASE "Ë" : xcolor = "33CC9A"
CASE "Ì" : xcolor = "CC6667"
CASE "Í" : xcolor = "CC669A"
CASE "Î" : xcolor = "CCFF9A"
CASE "Ï" : xcolor = "FFFF67"
CASE "Ð" : xcolor = "CCFF34"
CASE "Ñ" : xcolor = "FF99CD"
CASE "Ò" : xcolor = "CC6634"
CASE "Ó" : xcolor = "99FF34"
CASE "Ô" : xcolor = "99CC01"
CASE "Õ" : xcolor = "66FFCD"
CASE "Ö" : xcolor = "9A00"
CASE "×" : xcolor = "FF9A00"
CASE "Ø" : xcolor = "6667"
CASE "Ù" : xcolor = "999A"
CASE "Ú" : xcolor = "33FFCD"
CASE "Û" : xcolor = "CD00"
CASE "Ü" : xcolor = "CC66CD"
CASE "Ý" : xcolor = "6633CD"
CASE "Þ" : xcolor = "6634"
CASE "ß" : xcolor = "6700"
CASE "à" : xcolor = "99CD"
CASE "á" : xcolor = "999934"
CASE "â" : xcolor = "669934"
CASE "ã" : xcolor = "330067"
CASE "ä" : xcolor = "996700"
CASE "å" : xcolor = "666601"
CASE "æ" : xcolor = "CC3334"
CASE "ç" : xcolor = "33009A"
CASE "è" : xcolor = "FF6634"
CASE "é" : xcolor = "FF3334"
CASE "ê" : xcolor = "FF3301"
CASE "ë" : xcolor = "FF6700"
CASE "ì" : xcolor = "333400"
CASE "í" : xcolor = "FF0001"
CASE "î" : xcolor = "CC6700"
CASE "ï" : xcolor = "9933CD"
CASE "ð" : xcolor = "66009A"
CASE "ñ" : xcolor = "CC33CD"
CASE "ò" : xcolor = "3300CD"
CASE "ó" : xcolor = "9900CD"
CASE "ô" : xcolor = "33CD"
CASE "õ" : xcolor = "66CD"
CASE "ö" : xcolor = "99009A"
CASE "÷" : xcolor = "660067"
CASE "ø" : xcolor = "993400"
CASE "" : xcolor = "6600CD"
CASE " " : xcolor = "330100"
CASE "û" : xcolor = "CC3400"
CASE "ü" : xcolor = "CC00CD"
CASE "ý" : xcolor = "663400"
CASE "þ" : xcolor = "993301"
CASE "ÿ" : xcolor = "996601"
END SELECT
xcolour = VAL("&H" + xcolor)
PSET(x, y), (0 - xcolour)
x = x + 1: IF x > 64 THEN x = 0: y = y - 1
NEXT B
ELSE
xcolour = VAL("&H" + AA)
PSET(x, y), (0 - xcolour)
x = x + 1: IF x > 64 THEN x = 0: y = y - 1
END IF
NEXT A
get(0, 0)-(127, 95), _HANDLE
put(0,0),_HANDLE,trans
sleep
imagedestroy _HANDLE
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA "€€€€††††„†§††§„„§„„†††¢†ž„¢††§„§„†§§§„§„§§„„§§„¨§§§„„§§§„„€€€",1
DATA "€€€€††††§†„„§§†††††„„†‘§„†§§Œ¢§„§§ž¨¨¨§§„„¨¨¨¨¨¨„¨¨¨¨§„„„„š§„€€€",1
DATA "€€€€††††††††§§§§§¢†„„„§†††§§§§„§„„„§„„„„„„¨¨Œ„§„Œ„¨¨§„¨„„§„¢„€€€",1
DATA "€€€€†††§§¢§†§„„§§§§§Â¢§„†„§§„„«„„„„„„„„„¨„„¨„„„¨„„§„‘§„¨„„„„€€€",1
DATA "€€€€žžš††ž†„„§„†‘Œ„§„„„†Œ¢„„„„„„„„†„„„š„„„¨„¨„„§„„§„„„„„§„§„€€€",1
DATA "€€€€ž§§§†„ž††„†§„Œ„†§†„§†„§„††§„Œ¨„š„„„Œ¨„„§„„„§„„„††„„„„¨„††€€€",1
DATA "€€€€©¨¨§¨§§§§¨§†„„†††„„„„„„„§§§„¨§„„„„§„¢†††„„„„„†††„’„„„„€€€",1
DATA "€€€€©©š§¨¨¨¨§§§§„‘Œ§„†§Œ„§„¨„¨„„§„„„§§„„††††„„†¢„†††††„„„„„€€€",1
DATA "€€€€§©§¨Ä¨¨¨¨§¨§§„„ž§§§§§Œ„„š§„„§„„„„„„„†„„„„„”„†„††‚‚€€€",1
DATA "€€€€¨Ä§Œ¨¨Œ«„¨¨¨„„„§§„§„„„„Œ„„„„§„„„„„†§‚†Œ„„„„„„„”††††††€€€€€€",1
DATA "€€€€Ä¨§¨¨««Œ¦Œ¦«¨Œ¨§¨§§§„„„„„§„„„„†††††„„‚‚„„°°°°€€€€",1
DATA "€€€€¨¨¨¤¨§„‘Œ„†„««¨«Ç¨¨¨¨„žž„†ž„†††††††‚†‚„‚‚‚„”™™™™€€€",1
DATA "€€€€¨¨¤¤¤¤¤¨¨Ç©©§§©¨¦¦¦À«¨¨§§§„§††”††„†‚‚‚Œ›„„”””‚€€€",1
DATA "€€€€§š¨¤¤¤¤¤ÇǤ¤¨¨¨Ä„„Œ¦«Œ¨¨§„„ž†“††“€€”„†‚ŒŒŒ‚„„„”™€€€€",1
DATA "€€€€„„„„‚‚‚‚’’’’’’’’„„‚ƒƒ…ŒŒŒ„„„††€†“†††„Œ…ŒŒ‚„‚‚”†™€€€€",1
DATA "€€€€†††††’‚ƒ‹…À¦Àƒ‚’’ŒŒ„‘„„†††’†Œ„¡……ŒŒ„„‚””„„„€€€",1
DATA "€€€€€€€’„„„„ŒŒ¦¦ÀŒŒƒƒ„„„’’’†††ž““†„Œ„¡…ÀŒŒ„„‚”„„”„€€€",1
DATA "€€€€€††††’†††’„„„„’’’’„†žž†”Œ‚‚¡…ÀŒŒ„”››„„”€€€",1
DATA "€€€€†††€†„’’™™™™€™™€€””šžž””ŒŒ‚…ÀÀŒŒ„”Œ‚„‚”™€€€",1
DATA "€€€€€†††’†††™™„”šž„ž”›ŒŒ…ÀÀŒŒ‚”ŒŒ”„™€€€",1
DATA "€€€€’’’’’‚”””„Œš„„„””…‚ŒÀÀŒ„„”…„›”†€€€",1
DATA "€€€€’’‚‚‚„”””„Œ„„„”Œ„›ÀÀ„„”„…’„†”†€€€",1
DATA "€€€€‚’‚’””ƒŒ‘Œ¨„”„ƒŒÀÀ„‚…‚†††„„†€€€",1
DATA "€€€€‚„„”ŒŒƒŒ‘„††…‚¦ÀŒ†ŒŒ„††††›‚††€€€",1
DATA "€€€€‚‚‚„ŒŒŒŒš„††…¦¦¡††…›†‚‚†€€€",1
DATA "€€€€™™ƒŒ„„Œ…ŒŒ¨§¨§†‚Œ„”††¡„††††”Œ‚†€€€",1
DATA "€€€€™™‚‹‚„…ŒŒšžšž†„žž†††…††††‚†€€€",1
DATA "€€€€™™™™™™™™…ƒ’…Œ„„„žžÀÀ”Œ…„†›†††††Œ„”†€€€",1
DATA "€€€€Œ‚”„ŒŒšžŒŒ¦…Œ¦¦Œžš†††”„†„„”†€€€",1
DATA "€€€€„Œ›„Œ„†ŒŒŒ¦¦ÂŒžš†††¡Œ„†„††€€€",1
DATA "€€€€„‚‚„””‚‚†ŒŒ„ÀÀƒ’„ƒ¦„ŒŒ„†††Œ¦›„‚††€€€",1
DATA "€€€€‚‚‚‚‚›‚‚‚‚„À‚Œ¦¦À„ÀŒ€€¦ŒŒ …††††›Œ„„††€€€",1
DATA "€€€€‚‚‚”‚Œ›‚‚Œ››Œ›››‚„…„Œ¨ Œ¦ š““€‚Œ›„†††”…›”†“€€€",1
DATA "€€€€„„‚”›…›‚‚ŒŒŒŒ››‚‚”…À¦š À¦šž““€‚ž††”††„…„†”“€€€",1
DATA "€€€€‚‚‚Œ„›¡¡Œ…„‚‚‚›‚‚‚”¡&Œ¦ã¦š“†††‚„†„„„žž†‚†€€€",1
DATA "€€€€”„‚…Œ¡Œ¡¡…›‚Œ„„„„”„””š›¦¦¦¦š“†††…”“”„†ž†‚€€€",1
DATA "€€€€”„‚„‚›…¦…Œ¡‚‚‚‚„”‚„”””…ŠŠ¦¡„††††…††††”†„‚†€€€",1
DATA "€€€€”‚„„„…¡Œ›Œ›‚‚”‚‚””„„””†„††††“†††††††”††¦„†„€€€",1
DATA "€€€€”‚‚„‚ŒŒ‚‚Œ¦‚‚„„…Œ„„‚„””””„†††††€†”‚†…€€€€",1
DATA "€€€€”‚‚‚‚‚‚‚›‚‚Œ…‚‚‚¦¦¡Œ‚‚”””„„„„”††††€€““„“††€†€€€",1
DATA "€€€€„„‚ŒŒŒŒ›ŒŒŒŠ……ŒŒ¦¦„„„„„‚„‚‚Š%›††††“““„†“†††€€€€€",1
DATA "€€€€”„‚‚‚‚ŒŒŒŒŒŒ………Œ…¡‚„ŒŒ‚›…Œ‚”‚†††††††“‚†††““†“€€€€€",1
DATA "€€€€„„”„„‚ŒŒŒŒŒ…………ŒŒ‚„„¡ŒŒ……„‚””†††††††††„†††“†”††”€€€€",1
DATA "€€€€„‚ŒŒŒŒ…………………ŒŒŒ…ŒŒ…………‚”„„†††††††††††††”†††€€€",1
DATA "€€€€”„‚‚‚›……ŒŒ…¡¡¦Œ…¡…Œ‚¡…„›…‚„††††††††††“€€€€",1
DATA "€€€€„‚„„‚‚‚Œ…¡…Œ¡¡Œ¦…Œ‚›Œ‚”„„‚„”„†††††”†††††††“€€€€",1
DATA "€€€€„„„‚„‚„‚‚…¡¡……¦¦¦¦Œ„”””””„Œ¡Œ›‚‚††††††††††€††€€€€",1
DATA "€€€€„‚„‚„Œ„‚‚…¦¦……¦¦…ŒŒ„””””›Œ„¦……‚”†††††††††“†€€€€€€€",1
Code: Select all
#lang "qb"
'SCREEN _NEWIMAGE(128, 96, 32)
__screenres 128,96,32
dim as any __ptr _HANDLE
_HANDLE = __imagecreate(128,96)'_NEWIMAGE(64, 48, 32)
'_DEST _HANDLE
Y = 48: FOR A = 1 TO 161
READ A$
IF VAL(A$) = 0 THEN
FOR B = 1 TO LEN(A$)
SELECT CASE MID$(A$, B, 1)
CASE "#" : xcolor$ = "FFCD"
CASE "$" : xcolor$ = "CCCD"
CASE "%" : xcolor$ = "3334"
CASE "&" : xcolor$ = "3367"
CASE "'" : xcolor$ = "339A"
CASE "(" : xcolor$ = "669A"
CASE ")" : xcolor$ = "99CC34"
CASE "*" : xcolor$ = "99CC67"
CASE "+" : xcolor$ = "336601"
CASE "{" : xcolor$ = "CCCC34"
CASE "|" : xcolor$ = "660001"
CASE "}" : xcolor$ = "CC6601"
CASE "~" : xcolor$ = "FFCC34"
CASE "" : xcolor$ = "FF9934"
CASE "€" : xcolor$ = "1000000"
CASE "" : xcolor$ = "CCCCCD"
CASE "‚" : xcolor$ = "99999A"
CASE "ƒ" : xcolor$ = "99669A"
CASE "„" : xcolor$ = "9999CD"
CASE "…" : xcolor$ = "666667"
CASE "†" : xcolor$ = "CCCD00"
CASE "‡" : xcolor$ = "333301"
CASE "ˆ" : xcolor$ = "330001"
CASE "‰" : xcolor$ = "666634"
CASE "Š" : xcolor$ = "333334"
CASE "‹" : xcolor$ = "996667"
CASE "Œ" : xcolor$ = "66669A"
CASE "" : xcolor$ = "663301"
CASE "Ž" : xcolor$ = "663334"
CASE "" : xcolor$ = "CC999A"
CASE "" : xcolor$ = "FFCD00"
CASE "‘" : xcolor$ = "9966CD"
CASE "’" : xcolor$ = "CC99CD"
CASE "“" : xcolor$ = "CD0000"
CASE "”" : xcolor$ = "99CCCD"
CASE "•" : xcolor$ = "33999A"
CASE "–" : xcolor$ = "66CD00"
CASE "—" : xcolor$ = "CCFFCD"
CASE "˜" : xcolor$ = "9A0000"
CASE "™" : xcolor$ = "FFCCCD"
CASE "š" : xcolor$ = "6699CD"
CASE "›" : xcolor$ = "66999A"
CASE "œ" : xcolor$ = "FFFF01"
CASE "" : xcolor$ = "FF0100"
CASE "ž" : xcolor$ = "99CD00"
CASE "Ÿ" : xcolor$ = "66CCCD"
CASE " " : xcolor$ = "33669A"
CASE "¡" : xcolor$ = "336667"
CASE "¢" : xcolor$ = "CC9A00"
CASE "£" : xcolor$ = "3399CD"
CASE "¤" : xcolor$ = "3366CD"
CASE "¥" : xcolor$ = "339A00"
CASE "¦" : xcolor$ = "333367"
CASE "§" : xcolor$ = "999A00"
CASE "¨" : xcolor$ = "6666CD"
CASE "©" : xcolor$ = "669A00"
CASE "ª" : xcolor$ = "33CCCD"
CASE "«" : xcolor$ = "33339A"
CASE "¬" : xcolor$ = "CC9967"
CASE "" : xcolor$ = "CCCC9A"
CASE "®" : xcolor$ = "FFCC9A"
CASE "¯" : xcolor$ = "996634"
CASE "°" : xcolor$ = "FFFFCD"
CASE "±" : xcolor$ = "66CC9A"
CASE "²" : xcolor$ = "669967"
CASE "³" : xcolor$ = "670000"
CASE "´" : xcolor$ = "330034"
CASE "µ" : xcolor$ = "FF9967"
CASE "¶" : xcolor$ = "999967"
CASE "·" : xcolor$ = "CC9934"
CASE "¸" : xcolor$ = "336634"
CASE "¹" : xcolor$ = "33CD00"
CASE "º" : xcolor$ = "99CC9A"
CASE "»" : xcolor$ = "339967"
CASE "¼" : xcolor$ = "99FFCD"
CASE "½" : xcolor$ = "FFFF9A"
CASE "¾" : xcolor$ = "FFCC67"
CASE "¿" : xcolor$ = "336700"
CASE "À" : xcolor$ = "663367"
CASE "Á" : xcolor$ = "340000"
CASE "Â" : xcolor$ = "66339A"
CASE "Ã" : xcolor$ = "993367"
CASE "Ä" : xcolor$ = "666700"
CASE "Å" : xcolor$ = "FF999A"
CASE "Æ" : xcolor$ = "99339A"
CASE "Ç" : xcolor$ = "3333CD"
CASE "È" : xcolor$ = "993334"
CASE "É" : xcolor$ = "669901"
CASE "Ê" : xcolor$ = "CCCC67"
CASE "Ë" : xcolor$ = "33CC9A"
CASE "Ì" : xcolor$ = "CC6667"
CASE "Í" : xcolor$ = "CC669A"
CASE "Î" : xcolor$ = "CCFF9A"
CASE "Ï" : xcolor$ = "FFFF67"
CASE "Ð" : xcolor$ = "CCFF34"
CASE "Ñ" : xcolor$ = "FF99CD"
CASE "Ò" : xcolor$ = "CC6634"
CASE "Ó" : xcolor$ = "99FF34"
CASE "Ô" : xcolor$ = "99CC01"
CASE "Õ" : xcolor$ = "66FFCD"
CASE "Ö" : xcolor$ = "9A00"
CASE "×" : xcolor$ = "FF9A00"
CASE "Ø" : xcolor$ = "6667"
CASE "Ù" : xcolor$ = "999A"
CASE "Ú" : xcolor$ = "33FFCD"
CASE "Û" : xcolor$ = "CD00"
CASE "Ü" : xcolor$ = "CC66CD"
CASE "Ý" : xcolor$ = "6633CD"
CASE "Þ" : xcolor$ = "6634"
CASE "ß" : xcolor$ = "6700"
CASE "à" : xcolor$ = "99CD"
CASE "á" : xcolor$ = "999934"
CASE "â" : xcolor$ = "669934"
CASE "ã" : xcolor$ = "330067"
CASE "ä" : xcolor$ = "996700"
CASE "å" : xcolor$ = "666601"
CASE "æ" : xcolor$ = "CC3334"
CASE "ç" : xcolor$ = "33009A"
CASE "è" : xcolor$ = "FF6634"
CASE "é" : xcolor$ = "FF3334"
CASE "ê" : xcolor$ = "FF3301"
CASE "ë" : xcolor$ = "FF6700"
CASE "ì" : xcolor$ = "333400"
CASE "í" : xcolor$ = "FF0001"
CASE "î" : xcolor$ = "CC6700"
CASE "ï" : xcolor$ = "9933CD"
CASE "ð" : xcolor$ = "66009A"
CASE "ñ" : xcolor$ = "CC33CD"
CASE "ò" : xcolor$ = "3300CD"
CASE "ó" : xcolor$ = "9900CD"
CASE "ô" : xcolor$ = "33CD"
CASE "õ" : xcolor$ = "66CD"
CASE "ö" : xcolor$ = "99009A"
CASE "÷" : xcolor$ = "660067"
CASE "ø" : xcolor$ = "993400"
CASE "" : xcolor$ = "6600CD"
CASE " " : xcolor$ = "330100"
CASE "û" : xcolor$ = "CC3400"
CASE "ü" : xcolor$ = "CC00CD"
CASE "ý" : xcolor$ = "663400"
CASE "þ" : xcolor$ = "993301"
CASE "ÿ" : xcolor$ = "996601"
END SELECT
xcolor = VAL("&H" + xcolor$)
PSET(x, y), (0 - xcolor)
x = x + 1: IF x > 64 THEN x = 0: y = y - 1
NEXT B
ELSE
xcolor = VAL("&H" + A$)
PSET(x, y), (0 - xcolor)
x = x + 1: IF x > 64 THEN x = 0: y = y - 1
END IF
NEXT A
'_DEST 0: _ICON _HANDLE
get(0, 0)-(127, 95), _HANDLE', 0
put(0,0),_HANDLE,trans
sleep
'_FREEIMAGE _HANDLE
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA €€€€††††„†§††§„„§„„†††¢†ž„¢††§„§„†§§§„§„§§„„§§„¨§§§„„§§§„„€€€,1
DATA €€€€††††§†„„§§†††††„„†‘§„†§§Œ¢§„§§ž¨¨¨§§„„¨¨¨¨¨¨„¨¨¨¨§„„„„š§„€€€,1
DATA €€€€††††††††§§§§§¢†„„„§†††§§§§„§„„„§„„„„„„¨¨Œ„§„Œ„¨¨§„¨„„§„¢„€€€,1
DATA €€€€†††§§¢§†§„„§§§§§Â¢§„†„§§„„«„„„„„„„„„¨„„¨„„„¨„„§„‘§„¨„„„„€€€,1
DATA €€€€žžš††ž†„„§„†‘Œ„§„„„†Œ¢„„„„„„„„†„„„š„„„¨„¨„„§„„§„„„„„§„§„€€€,1
DATA €€€€ž§§§†„ž††„†§„Œ„†§†„§†„§„††§„Œ¨„š„„„Œ¨„„§„„„§„„„††„„„„¨„††€€€,1
DATA €€€€©¨¨§¨§§§§¨§†„„†††„„„„„„„§§§„¨§„„„„§„¢†††„„„„„†††„’„„„„€€€,1
DATA €€€€©©š§¨¨¨¨§§§§„‘Œ§„†§Œ„§„¨„¨„„§„„„§§„„††††„„†¢„†††††„„„„„€€€,1
DATA €€€€§©§¨Ä¨¨¨¨§¨§§„„ž§§§§§Œ„„š§„„§„„„„„„„†„„„„„”„†„††‚‚€€€,1
DATA €€€€¨Ä§Œ¨¨Œ«„¨¨¨„„„§§„§„„„„Œ„„„„§„„„„„†§‚†Œ„„„„„„„”††††††€€€€€€,1
DATA €€€€Ä¨§¨¨««Œ¦Œ¦«¨Œ¨§¨§§§„„„„„§„„„„†††††„„‚‚„„°°°°€€€€,1
DATA €€€€¨¨¨¤¨§„‘Œ„†„««¨«Ç¨¨¨¨„žž„†ž„†††††††‚†‚„‚‚‚„”™™™™€€€,1
DATA €€€€¨¨¤¤¤¤¤¨¨Ç©©§§©¨¦¦¦À«¨¨§§§„§††”††„†‚‚‚Œ›„„”””‚€€€,1
DATA €€€€§š¨¤¤¤¤¤ÇǤ¤¨¨¨Ä„„Œ¦«Œ¨¨§„„ž†“††“€€”„†‚ŒŒŒ‚„„„”™€€€€,1
DATA €€€€„„„„‚‚‚‚’’’’’’’’„„‚ƒƒ…ŒŒŒ„„„††€†“†††„Œ…ŒŒ‚„‚‚”†™€€€€,1
DATA €€€€†††††’‚ƒ‹…À¦Àƒ‚’’ŒŒ„‘„„†††’†Œ„¡……ŒŒ„„‚””„„„€€€,1
DATA €€€€€€€’„„„„ŒŒ¦¦ÀŒŒƒƒ„„„’’’†††ž““†„Œ„¡…ÀŒŒ„„‚”„„”„€€€,1
DATA €€€€€††††’†††’„„„„’’’’„†žž†”Œ‚‚¡…ÀŒŒ„”››„„”€€€,1
DATA €€€€†††€†„’’™™™™€™™€€””šžž””ŒŒ‚…ÀÀŒŒ„”Œ‚„‚”™€€€,1
DATA €€€€€†††’†††™™„”šž„ž”›ŒŒ…ÀÀŒŒ‚”ŒŒ”„™€€€,1
DATA €€€€’’’’’‚”””„Œš„„„””…‚ŒÀÀŒ„„”…„›”†€€€,1
DATA €€€€’’‚‚‚„”””„Œ„„„”Œ„›ÀÀ„„”„…’„†”†€€€,1
DATA €€€€‚’‚’””ƒŒ‘Œ¨„”„ƒŒÀÀ„‚…‚†††„„†€€€,1
DATA €€€€‚„„”ŒŒƒŒ‘„††…‚¦ÀŒ†ŒŒ„††††›‚††€€€,1
DATA €€€€‚‚‚„ŒŒŒŒš„††…¦¦¡††…›†‚‚†€€€,1
DATA €€€€™™ƒŒ„„Œ…ŒŒ¨§¨§†‚Œ„”††¡„††††”Œ‚†€€€,1
DATA €€€€™™‚‹‚„…ŒŒšžšž†„žž†††…††††‚†€€€,1
DATA €€€€™™™™™™™™…ƒ’…Œ„„„žžÀÀ”Œ…„†›†††††Œ„”†€€€,1
DATA €€€€Œ‚”„ŒŒšžŒŒ¦…Œ¦¦Œžš†††”„†„„”†€€€,1
DATA €€€€„Œ›„Œ„†ŒŒŒ¦¦ÂŒžš†††¡Œ„†„††€€€,1
DATA €€€€„‚‚„””‚‚†ŒŒ„ÀÀƒ’„ƒ¦„ŒŒ„†††Œ¦›„‚††€€€,1
DATA €€€€‚‚‚‚‚›‚‚‚‚„À‚Œ¦¦À„ÀŒ€€¦ŒŒ …††††›Œ„„††€€€,1
DATA €€€€‚‚‚”‚Œ›‚‚Œ››Œ›››‚„…„Œ¨ Œ¦ š““€‚Œ›„†††”…›”†“€€€,1
DATA €€€€„„‚”›…›‚‚ŒŒŒŒ››‚‚”…À¦š À¦šž““€‚ž††”††„…„†”“€€€,1
DATA €€€€‚‚‚Œ„›¡¡Œ…„‚‚‚›‚‚‚”¡&Œ¦ã¦š“†††‚„†„„„žž†‚†€€€,1
DATA €€€€”„‚…Œ¡Œ¡¡…›‚Œ„„„„”„””š›¦¦¦¦š“†††…”“”„†ž†‚€€€,1
DATA €€€€”„‚„‚›…¦…Œ¡‚‚‚‚„”‚„”””…ŠŠ¦¡„††††…††††”†„‚†€€€,1
DATA €€€€”‚„„„…¡Œ›Œ›‚‚”‚‚””„„””†„††††“†††††††”††¦„†„€€€,1
DATA €€€€”‚‚„‚ŒŒ‚‚Œ¦‚‚„„…Œ„„‚„””””„†††††€†”‚†…€€€€,1
DATA €€€€”‚‚‚‚‚‚‚›‚‚Œ…‚‚‚¦¦¡Œ‚‚”””„„„„”††††€€““„“††€†€€€,1
DATA €€€€„„‚ŒŒŒŒ›ŒŒŒŠ……ŒŒ¦¦„„„„„‚„‚‚Š%›††††“““„†“†††€€€€€,1
DATA €€€€”„‚‚‚‚ŒŒŒŒŒŒ………Œ…¡‚„ŒŒ‚›…Œ‚”‚†††††††“‚†††““†“€€€€€,1
DATA €€€€„„”„„‚ŒŒŒŒŒ…………ŒŒ‚„„¡ŒŒ……„‚””†††††††††„†††“†”††”€€€€,1
DATA €€€€„‚ŒŒŒŒ…………………ŒŒŒ…ŒŒ…………‚”„„†††††††††††††”†††€€€,1
DATA €€€€”„‚‚‚›……ŒŒ…¡¡¦Œ…¡…Œ‚¡…„›…‚„††††††††††“€€€€,1
DATA €€€€„‚„„‚‚‚Œ…¡…Œ¡¡Œ¦…Œ‚›Œ‚”„„‚„”„†††††”†††††††“€€€€,1
DATA €€€€„„„‚„‚„‚‚…¡¡……¦¦¦¦Œ„”””””„Œ¡Œ›‚‚††††††††††€††€€€€,1
DATA €€€€„‚„‚„Œ„‚‚…¦¦……¦¦…ŒŒ„””””›Œ„¦……‚”†††††††††“†€€€€€€€,1
Last edited by dodicat on Oct 02, 2017 15:27, edited 1 time in total.
Re: FreeBasic IDE-poseidonFB(Update 2017.09.30)
@dodicat:
But otherwise, the displayed image is still not correct in -lang "qb".
(the two are working well with FBIde or FBEdit or WinFBE for example)
for the two codes.Aborting due to runtime error 1 (illegal function call) at line 167 of .....
Code: Select all
'Incompatibility between:
_HANDLE = imagecreate(64, 48)
'or
_HANDLE = __imagecreate(64, 48)'_NEWIMAGE(64, 48, 32)
'and
get(0, 0)-(128, 96), _HANDLE
'or
get(0, 0)-(128, 96), _HANDLE', 0
Code: Select all
'Right code for example:
_HANDLE = imagecreate(128, 96)
'or
_HANDLE = __imagecreate(128, 96)'_NEWIMAGE(64, 48, 32)
'and
get(0, 0)-(128-1, 96-1), _HANDLE
'or
get(0, 0)-(128-1, 96-1), _HANDLE', 0
(the two are working well with FBIde or FBEdit or WinFBE for example)
Re: FreeBasic IDE-poseidonFB(Update 2017.09.30)
Thanks fxm
Fixed the code.
Fixed the code.
Re: FreeBasic IDE-poseidonFB(Update 2017.09.30)
I doubt that has much to do with his code because it is not FB code. The IDE is written in D.dodicat wrote:Kuan Hsu
From the general section FreeBASIC crashes when compiling very large programs