PBWIN 10 - свершилось

Раздел посвящен программированию с использованием Power Basic.
Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

PBWIN 10 - свершилось

Сообщение Smitis-R » 10.12.2011 (Сб) 15:44

Свершилось чудо.
Релиз PBWIN 10.2 от DOA
http://narod.ru/disk/33902358001/PBWIN10.rar.html
http://rghost.ru/34065551
pw: gceus

Ждём с нетерпением PBCC

П.С.
До кучи - новые инклюды Jose Roca
http://narod.ru/disk/33909430001/WINAPI_II_05.rar.html
pw: gceus

ger_kar
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1957
Зарегистрирован: 19.05.2011 (Чт) 19:23
Откуда: Кыргызстан, Иссык-Куль, г. Каракол

Re: PBWIN 10 - свершилось

Сообщение ger_kar » 10.12.2011 (Сб) 18:30

Да уж ЧУДО!!! Я уже качаю ;)
Это будет первая версия с которой я начну юзать PB. Попробую сегодня же!
Бороться и искать, найти и перепрятать

Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: PBWIN 10 - свершилось

Сообщение Smitis-R » 10.12.2011 (Сб) 19:04

Вот сдесь ещё ссылки
http://rl-team.net/1146563222-powerbasi ... 20999.html

думаю, по варезникам уже расползлось (я с торрента качал)

jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Re: PBWIN 10 - свершилось

Сообщение jangle » 10.12.2011 (Сб) 20:45

Cпасибо, будем пробовать!

ger_kar
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1957
Зарегистрирован: 19.05.2011 (Чт) 19:23
Откуда: Кыргызстан, Иссык-Куль, г. Каракол

Re: PBWIN 10 - свершилось

Сообщение ger_kar » 10.12.2011 (Сб) 20:58

jangle писал(а):Cпасибо, будем пробовать!
Ты уж напиши свое мнение. Оправдалось ли ожидание и т.д.
Мне например сравнивать то не с чем, а знать интересно ;)
Бороться и искать, найти и перепрятать

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: PBWIN 10 - свершилось

Сообщение FireFenix » 10.12.2011 (Сб) 21:31

Я немного заинтересован в теме, подскажите, где-нибудь можно ли посмотреть историю изменений? в смысле не только последнего, а и предыдущих версий
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

bon818
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 267
Зарегистрирован: 29.08.2009 (Сб) 4:49
Откуда: Ташкент

Re: PBWIN 10 - свершилось

Сообщение bon818 » 11.12.2011 (Вс) 0:53

радуюсь! :P
но редактор(undo и всё тут, на все времена ) всё равно нужен левый

Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: PBWIN 10 - свершилось

Сообщение Smitis-R » 11.12.2011 (Вс) 15:03

FireFenix писал(а):Я немного заинтересован в теме, подскажите, где-нибудь можно ли посмотреть историю изменений? в смысле не только последнего, а и предыдущих версий

В каждой версии был файл History.txt, во всяком случае начиная с восьмой версии

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: PBWIN 10 - свершилось

Сообщение FireFenix » 11.12.2011 (Вс) 15:59

Smitis-R писал(а):
FireFenix писал(а):Я немного заинтересован в теме, подскажите, где-нибудь можно ли посмотреть историю изменений? в смысле не только последнего, а и предыдущих версий

В каждой версии был файл History.txt, во всяком случае начиная с восьмой версии

Ну в каждой версии это написано в хелпе.... но искать дистрибутив для каждой версии - не айс
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: PBWIN 10 - свершилось

Сообщение Smitis-R » 11.12.2011 (Вс) 16:41

FireFenix
Тебе нужны все промежуточные версии?

jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Re: PBWIN 10 - свершилось

Сообщение jangle » 11.12.2011 (Вс) 21:25

ger_kar писал(а):Ты уж напиши свое мнение. Оправдалось ли ожидание и т.д.
Мне например сравнивать то не с чем, а знать интересно ;)


С первого взгляда полезных изменений очень много. Но надо это все в руках повертеть несколько месяцев, прежде чем окончательно станет ясно.

bon818
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 267
Зарегистрирован: 29.08.2009 (Сб) 4:49
Откуда: Ташкент

Re: PBWIN 10 - свершилось

Сообщение bon818 » 12.12.2011 (Пн) 23:27

PBWIN 10 ++++++ :D
1. скорость компиляции заметно выросла
2. теперь ресурсы вставлять проще простого #RESOURCE ICON, 100, "Hello.ico"
3. размер програм уменьшается , в одном случае в 3 раза

Вот этот случай 57 килобайт в 9 и 16 килобайт в 10 (оптимизация)
Код: Выделить всё
#compile exe

#include "win32api.inc"
#include "commctrl.inc"
#include "initctrl.inc"

global hinstance&

declare function testgridproc(byval long,byval long,byval long,byval long) as long

declare function creategrid lib "griddll.dll" (byval long, _
                                               byval string, _
                                               byval long,byval long, _
                                               byval long,byval long) _
                                               as long

function winmain(byval hinst&,byval hprev&,byval cmdline as asciiz ptr,byval cmdshow&) as long

     hinstance&=hinst&

     initcomctl32

     ''create class and register it with windows

     dim wclassname as asciiz*80
     dim wclass as wndclass

     wclassname="GridTestWindow"

     wclass.style=%cs_hredraw or %cs_vredraw
     wclass.lpfnwndproc=codeptr(testgridproc)
     wclass.cbclsextra=0
     wclass.cbwndextra=0
     wclass.hinstance=hinstance&
     wclass.hicon=%null
     wclass.hcursor=loadcursor(%null,byval %idc_arrow)
     wclass.hbrbackground=getsyscolorbrush(%color_3dface)
     wclass.lpszmenuname=%null
     wclass.lpszclassname=varptr(wclassname)

     registerclass wclass

     xsize&=getsystemmetrics(%sm_cxscreen)
     ysize&=getsystemmetrics(%sm_cyscreen)

     style&=%ws_overlappedwindow

     hwnd&=createwindow(wclassname, _            ''window class name
                        "Grid Test", _           ''window caption
                        style&, _                ''window style
                        0, _                     ''initial x position
                        0, _                     ''initial y position
                        xsize&, _                ''initial x size
                        ysize&, _                ''initial y size
                        hparent&, _              ''parent window handle
                        %null, _                 ''window menu handle
                        hinstance&, _            ''program instance handle
                        %null)                   ''creation parameters

     showwindow hwnd&,cmdshow&
     updatewindow hwnd&

     dim wmmsg as tagmsg

     while istrue(getmessage(wmmsg,byval %null,0,0))
       translatemessage wmmsg
       dispatchmessage wmmsg
     wend

     function=wmmsg.wparam
end function

function testgridproc(byval hwnd&,byval msg&,byval wparam&,byval lparam&) as long

     select case msg&
       case %wm_create

         hparent&=hwnd&
         rows&=30
         cols&=9

         title$="Test Grid"+space$(55)  ''64 characters long

         '' column data ''''''''''''''''''''''''''''''''''''''''''''''''

         coldata$=chr$(40)+chr$(140)+"LT0Test 1"+space$(14) _
                 +chr$(10)+chr$(60)+"RC1Test 2"+space$(14) _
                 +chr$(10)+chr$(60)+"CC1Test 3"+space$(14) _
                 +chr$(10)+chr$(60)+"LC1Test 4"+space$(14) _
                 +chr$(10)+chr$(60)+"RC1Test 5"+space$(14) _
                 +chr$(10)+chr$(60)+"CC1Test 6"+space$(14) _
                 +chr$(10)+chr$(60)+"LC1Test 7"+space$(14) _
                 +chr$(10)+chr$(60)+"RC1Test 8"+space$(14) _
                 +chr$(10)+chr$(60)+"CC1Test 9"+space$(14)

         ''chrwidth&(col&)=cvl(mid$(coldata$,1,1))   ''character length
         ''colwidth&(col&)=cvl(mid$(coldata$,2,1))   ''column width
         ''coljustify$(col&)=mid$(coldata$,3,1)      ''justify (LCR)
         ''coltype$(col&)=mid$(coldata$,4,1)         ''T-text,etc
         ''colchange&(col&)=val(mid$(coldata$,5,1))  ''1=changeable

         '' row data ''''''''''''''''''''''''''''''''''''''''''''''''''

         rowdata$="Test Row  1"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  2"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  3"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  4"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  5"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  6"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _
                 +"Test Row  7"+space$(29) _
                 +"1.00      2.00      3.00      4.00      " _
                 +"5.00      6.00      7.00      8.00      " _


         allowflags?=0

         bit set allowflags?,0  ''allowinsert& on
         bit set allowflags?,1  ''allowdelete& on
         'bit set allowflags?,2  ''allowcoledit& on
         bit set allowflags?,3  ''allowcolsort& on

         b$=title$+mkl$(cols&)+mkl$(rows&)+mkl$(1)+mkl$(1) _
           +chr$(allowflags?)+coldata$+rowdata$

         tmpfile$="test.dat"

         ff&=freefile
         open tmpfile$ for binary as #ff& base=0
         seek #ff&,0
         put$ #ff&,b$
         close #ff&

         xstt&=30
         ystt&=50
         xlen&=512
         ylen&=384

         creategrid hparent&,tmpfile$, _
                    xstt&,ystt&,xlen&,ylen&

       case %wm_paint
         dim ps as paintstruct
         hdc&=beginpaint(hwnd&,ps)

         endpaint hwnd&,ps
       case %wm_syscommand
         if lowrd(wparam&)<>%sc_close then exit select
         destroywindow hwnd&
         function=1
         exit function
       case %wm_command

       case %wm_destroy
         postquitmessage 0
         function=0
         exit function
     end select

     function=defwindowproc(hwnd&,msg&,wparam&,lparam&)
end function

ger_kar
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1957
Зарегистрирован: 19.05.2011 (Чт) 19:23
Откуда: Кыргызстан, Иссык-Куль, г. Каракол

Re: PBWIN 10 - свершилось

Сообщение ger_kar » 13.12.2011 (Вт) 17:39

Значит не зря ждали :) . Хорошо, конечно, что размер исполняемого файла уменьшился, главное, что-бы такая оптимизация не отразилась на скорости исполнения.
Бороться и искать, найти и перепрятать

HouseMD
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 22.09.2011 (Чт) 19:06

Re: PBWIN 10 - свершилось

Сообщение HouseMD » 16.12.2011 (Пт) 16:35

ААА!!! (извините за истерику) аж руки дрожат от возбуждения. сейчас будем посмотреть. :D

HouseMD
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 22.09.2011 (Чт) 19:06

Re: PBWIN 10 - свершилось

Сообщение HouseMD » 16.12.2011 (Пт) 16:52

и сразу вопрос - почему у меня импортируется сразу две функции MessageBoxA и MessageBoxW
как создать полностью юникодный проект?

jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Re: PBWIN 10 - свершилось

Сообщение jangle » 24.12.2011 (Сб) 20:17

Вышел апдейт 10.03

Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: PBWIN 10 - свершилось

Сообщение Smitis-R » 26.12.2011 (Пн) 9:43

jangle писал(а):Вышел апдейт 10.03

Кто-нибудь уже скачал?

Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: PBWIN 10 - свершилось

Сообщение Smitis-R » 25.01.2012 (Ср) 15:00

На exelab.ru выложили PBCC 6.02
Без инсталятора, но он, собственно, и не нужен.

jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Re: PBWIN 10 - свершилось

Сообщение jangle » 25.01.2012 (Ср) 17:11

Smitis-R писал(а):На exelab.ru выложили PBCC 6.02
Без инсталятора, но он, собственно, и не нужен.


Можешь на rghost.ru перезалить?

Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: PBWIN 10 - свершилось

Сообщение Smitis-R » 25.01.2012 (Ср) 19:26

jangle писал(а):Можешь на rghost.ru перезалить?

Могу, надеюсь там не обидятся :)
P.S. Ты же вроде на exelab aka cracklab зарегистрирован?

http://rghost.ru/36114882

ещё от туда PwrDev
http://rghost.ru/36114775

pw: exelab.ru

jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Re: PBWIN 10 - свершилось

Сообщение jangle » 26.01.2012 (Чт) 9:34

Smitis-R - спасибо!

Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: PBWIN 10 - свершилось

Сообщение Smitis-R » 26.01.2012 (Чт) 11:49

jangle писал(а):Smitis-R - спасибо!

Поздно :)
Уже пошли 10.03 и 6.03
Искать на варезниках, например http://rl-team.net/1146574146-powerbasi ... v-603.html

jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Re: PBWIN 10 - свершилось

Сообщение jangle » 26.01.2012 (Чт) 13:49

Smitis-R писал(а):http://rl-team.net/1146574146-powerbasic-for-windows-v-1003-powerbasic-console-compiler-v-603.html


Фейковый файлообменник, предназначен исключительно для протроянивания вашего компа и SMS-лохотрона. PB 10.03 там нет.

Lapex
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 64
Зарегистрирован: 25.02.2008 (Пн) 14:01

Re: PBWIN 10 - свершилось

Сообщение Lapex » 26.01.2012 (Чт) 13:54


Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: PBWIN 10 - свершилось

Сообщение Smitis-R » 26.01.2012 (Чт) 14:20

jangle писал(а):Фейковый файлообменник, предназначен исключительно для протроянивания вашего компа и SMS-лохотрона. PB 10.03 там нет.

Какое-то странное предвзятое мнение. И не файлообменник, а варезник. Не буду спорить насчёт rl-team, так как то же самое можно сказать о любом варезном сайте. А PB там есть.

HouseMD
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 22.09.2011 (Чт) 19:06

Re: PBWIN 10 - свершилось

Сообщение HouseMD » 27.01.2012 (Пт) 0:43

Smitis-R писал(а):Какое-то странное предвзятое мнение. И не файлообменник, а варезник. Не буду спорить насчёт rl-team, так как то же самое можно сказать о любом варезном сайте. А PB там есть.

добро пожаловать в Интернет. на всех подобных варезниках по прямой ссылке можно скачать разве что платный архив (в лучшем случае. в худшем - троян) со статическим размером, будь то ПБ, фотошоп или виндовс (да-да, все они будут весить до 10 МБ). и твоя ссылка тому подтверждение. по крайней мере потрудился бы сам скачать и проверить, прежде чем бросать сюда ссылку и ещё и спорить.

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 27.01.2012 (Пт) 1:28

Можно и в других местах найти 6.03, 10.03 :)

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: PBWIN 10 - свершилось

Сообщение iGrok » 27.01.2012 (Пт) 7:00

jangle писал(а):Фейковый файлообменник, предназначен исключительно для протроянивания вашего компа и SMS-лохотрона. PB 10.03 там нет.

HouseMD писал(а):добро пожаловать в Интернет.


Это вам обоим добро пожаловать. По нормальным ссылкам (тем, что доступны после регистрации - на летитбит, депозит, и т.п.) качается то, что нужно. По крайней мере, pbwin10.03 я проверил лично.
А вот в рекламных блоках, конечно, платные торрент-клиенты, они же "псевдоархивы".
label:
cli
jmp label

HouseMD
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 22.09.2011 (Чт) 19:06

Re: PBWIN 10 - свершилось

Сообщение HouseMD » 27.01.2012 (Пт) 14:24

iGrok писал(а):Это вам обоим добро пожаловать. По нормальным ссылкам (тем, что доступны после регистрации - на летитбит, депозит, и т.п.) качается то, что нужно. По крайней мере, pbwin10.03 я проверил лично.А вот в рекламных блоках, конечно, платные торрент-клиенты, они же "псевдоархивы".

добро пожаловать в дискуссию, которую ты начал читать с последнего поста. ok.
здесь обсуждается ссылка, вброшенная в топик юзером Smitis-R, а не торренты, летитбиты и депозиты. okay?

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 27.01.2012 (Пт) 15:09

HouseMD писал(а):
iGrok писал(а):Это вам обоим добро пожаловать. По нормальным ссылкам (тем, что доступны после регистрации - на летитбит, депозит, и т.п.) качается то, что нужно. По крайней мере, pbwin10.03 я проверил лично.А вот в рекламных блоках, конечно, платные торрент-клиенты, они же "псевдоархивы".

добро пожаловать в дискуссию, которую ты начал читать с последнего поста. ok.
здесь обсуждается ссылка, вброшенная в топик юзером Smitis-R, а не торренты, летитбиты и депозиты. okay?

Я там регистрироваться не собираюсь, но внизу по той ссылке есть надпись:
Внимание! У вас нет прав для просмотра скрытого текста.
Подозреваю, что для зарегистрированных пользователей там как раз и будут ссылки на летитбит, депозит и остальные. Где-то уже такая система попадалась, и вполне соответствует тому, что написал iGrok :)

След.

Вернуться в Power Basic

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 52

    TopList