domingo, 13 de agosto de 2017

Usando JavaScript, Html y Css en Gambas3


Hay mucho código en otros lenguajes que podemos utilizar en Gambas.
Aquí les dejo un ejemplo de como usar la librería chessboard-0.3.0.js JavaScript.
Es interesante puesto que debemos aprender a manejar, un archivo html y como vincular y manipular archivos javascript y css.

Necesario activar el componente gb.qt4.webkit

Archivo Html que incrustaremos en un WebView:

<!doctype html>
<html>

<head>
<meta charset="utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1" />
<title>JavaScript, Html y css en Gambas</title>
<base href="http://chessboardjs.com/" />

<link rel="stylesheet" href="css/chessboard.css" />
</head>

<body>

<center><div id="board" style="width: 400px"></div>

<input type="button" id="setRookCheckmateBtn" value="Jake Mate" />
<input type="button" id="setStartBtn" value="Posición inicial" />
<input type="button" id="clearBoardBtn" value="Borrar piezas" />
<input type="button" id="flipOrientationBtn" value="Girar tablero" />

<p><a href="https://novatocodegambas.blogspot.com.uy/">https://novatocodegambas.blogspot.com.uy/</a></p>
<p><a href="http://chessboardjs.com/">http://chessboardjs.com</a></p>
</center>
<h6>by postapase</h6>

<script src="js/json3.min.js"></script>
<script src="js/jquery-1.10.1.min.js"></script>
<script src="js/chessboard.js"></script>
<script>

var init = function() {

//--- start example JS ---
var ruyLopez = 'r1bqkbnr/pppp1ppp/2n5/1B2p3/4P3/5N2/PPPP1PPP/RNBQK2R';
var board = ChessBoard('board', ruyLopez);

$('#setStartBtn').on('click', board.start);

$('#clearBoardBtn').on('click', board.clear);

$('#flipOrientationBtn').on('click', board.flip);

$('#setRookCheckmateBtn').on('click', function() {
board.position({
a4: 'bK',
c4: 'wK',
a7: 'wR'
});
});

}; // end init()
$(document).ready(init);

</script>
</body>
</html>


En el Formulario:

Public Sub Form_Open()

WebView1.Url = "js/Html1.html"

End



El ejemplo esta disponible para su descarga en la Granja de Gambas

Nota: si vos tenes algún proyecto o ejemplo de este tipo me gustaría que lo compartieras, saludos.

sábado, 12 de agosto de 2017

Ejemplo de uso de FromUrl




 Una de las cosas que nos pasa siempre a los novatos es comprender en que situación se puede aplicar un código. Este es el caso de FromUrl que es para decodificar una url, que no es mas ni menos que cambiar el formato de un texto a otro.

 En este ejemplo arrastraremos un sin fin de archivos y el sistema nos da una cadena con caracteres raros y otros innecesarios.

Ejemplo de la info que da el sistema al arrastrar un archivo .mp3 obtenida mediante Drag.Data en el evento Drop:


file:///home/user10/Escritorio/Whitney%20Houston%20-%20I%20Have%20Nothing%20(Official%20Video).mp3

-28:-60:70:70

después del proceso:

/home/user10/Escritorio/Whitney Houston - I Have Nothing (Official Video).mp3

 
http://gambaswiki.org/wiki/lang/fromurl?l=es&nl

Necesario tener tildado componente gb.desktop para poder usar Desktop.Open()


' gambas class file

'by postapase
'https://novatocodegambas.blogspot.com.uy/
'Ejemplo de FromUrl

Public Sub Form_Drop()

Dim divide As New String[]
Dim Ruta As String

TextArea1.Text = Drag.Data

divide = Split(Drag.Data, "\r\n")

Ruta = String.Right(FromUrl$(divide[0]), -7)

TextBox1.Text = Ruta



 If chkAuto.Value Then Desktop.Open(Ruta)

End

Descargar de DropBox: FromUrl-0.0.1.tar.gz


viernes, 11 de agosto de 2017

Granja OffLine By Postapase Agosto 2017




Nuevo paquete con 286 proyectos gamberos, 73 nuevos!!
Tenemos: Nombre proyecto, versión por un lado y entre parentesis,
tenemos: autor, descargas del proyecto y full descargas, que es cuando hay varias versiones de un proyecto, es lo que contabiliza.



286 Proyectos disponibles

101010_Text_editor 0.1.0.bz2           (cogier - 87/87)
15PuzzleGame 0.2.0.bz2                 (cogier - 53/78)
15PuzzleGame 0.3.0.bz2                 (cogier - 25/78)
1945 0.0.7.bz2                         (jsbsan - 902/902)
ActivarDesactivarSonidos 0.1.0.bz2     (postapase - 114/114)
Alarm_Timer 1.0.0.bz2                  (cogier - 46/46)
AnalogLeftTurnWatch 1.0.2.bz2          (Example - 110/110)
AnalogWatch 1.0.0.bz2                  (Example - 437/437)
AnalogWatch1 1.0.2.bz2                 (Example - 255/255)
Arduino-Gambas 1.0.2.bz2               (UZI - 143/143)
Arduino_Uno 1.0.1.bz2                  (RolfDahl-skogStade - 81/81)
AsistenteTM 0.1.8.bz2                  (Postapase - 75/75)
AutoUpdater 1.0.11.bz2                  (cogier - 130/130)
BTC_CALC 1.0.23.bz2                     (Ozymandias - 24/24)
Barcode 3.0.0.bz2                      (Barras_Victor - 191/191)
BarcodeCreator 0.1.0.bz2               (cogier - 342/491)
BarcodeCreator 0.2.0.bz2               (cogier - 149/491)
Base2017 1.1.0.bz2                     (RobertoBormida - 19/19)
Base2017_v1_3 1.3.0.bz2                (RobertoBormida - 9/9)
BeastScroll 1.1.0.bz2                  (Example - 346/346)
Brightness 1.1.1.bz2                   (Genex1000 - 5/5)
CapturarVentanaActiva 0.1.0.bz2        (postapase - 47/47)
ChartExample 0.1.1.bz2                 (cogier - 118/118)
CheckDigitGenerator 1.0.0.bz2          (Devtronics - 25/25)
Christmas 2.0.0.bz2                    (Piga_Software - 59/59)
ClamScan 1.1.3.bz2                     (Ozymandias - 31/31)
Clase_Persona 0.1.0.bz2                (Postapase - 247/247)
Clase_Persona2 0.1.1.bz2               (Postapase - 105/105)
Clase_Respaldo 0.1.0.bz2               (Postapase - 102/102)
ClasesPadre_e_Hijo 0.1.0.bz2           (Postapase - 127/127)
ClientSocket 1.0.0.bz2                 (Example - 537/537)
ClockWf 2.4.7.bz2                      (Naubaddi - 90/90)
ColorButtonSave 0.1.0.bz2              (Postapase - 27/27)
ColorPaletteColorsDefaults 0.1.0.bz2   (postapase - 31/31)
Contactos 0.1.8.bz2                    (Postapase - 121/121)
ControlPersonalizado 0.1.1.bz2         (postapase - 18/18)
DB-diff 0.3.16.bz2                      (smso - 252/252)
DBusExplorer 1.0.0.bz2                 (Example - 260/260)
DamasInglesas 0.1.0.bz2                (jsbsan - 160/160)
DataBaseExample 0.0.1.bz2              (Keywild - 2065/2065)
DemoReport 0.1.0.bz2                   (Gambix - 315/315)
DescargaYoutube 0.0.5.bz2              (jsbsan - 246/246)
DescargaYoutube 0.1.0.bz2              (jspan - 296/296)
DocumentView 1.0.0.bz2                 (Example - 375/375)
Dogmascotas 1.0.3.bz2                  (RositaAlvarez - 81/81)
Dungeon-Mazing 0.1.0.bz2               (HowToPhil - 238/238)
DynamicMatrixExample 0.1.4.bz2         (Gianluigi - 221/221)
Ejemplo_Blob(sqlite3) 0.1.0.bz2        (Postapase - 206/206)
Elianas_Game 0.1.36.bz2                 (CamEra - 108/108)
Escaleta 0.2.8.bz2                     (jsbsan - 90/90)
Expand_Swap 1.0.3.bz2                  (Ozymandias - 13/13)
ExpandingForms 0.1.1.bz2               (cogier - 356/356)
ExplainTextBox 0.1.3.bz2               (Gambas-Buch - 173/173)
FileBackup 0.1.0.bz2                   (postapase - 60/60)
File_Downloader 0.1.1.bz2              (Http_File_Downloader - 117/117)
FindFiles 2.0.22.bz2                    (cogier - 154/154)
FlyerIvasion 0.1.3.bz2                 (MovigaTechnologies - 66/66)
Formel-X 1.1.7.bz2                     (Naubaddi - 53/53)
Fractal 1.0.0.bz2                      (Example - 287/287)
Fruho_Installer 1.0.3.bz2              (Ozymandias - 21/21)
GAlarm 0.1.96.bz2                       (Jussi - 160/307)
GAlarm 0.2.23.bz2                       (Jussi - 147/307)
GBrubik 0.1.8.bz2                      (Martin - 344/344)
GChroot 0.0.53.bz2                      (GPrimeriso1 - 162/162)
GNUBoxWorld 1.0.0.bz2                  (Example - 246/246)
GPI-X11TaskbarExample 0.1.0.bz2        (GambasPI - 180/180)
GWI_Clock 0.1.0.bz2                    (InnovaDesktop - 86/86)
GamBreak 0.1.3.bz2                     (Shane - 123/123)
GamInvadeV2 0.1.1.bz2                  (Shane - 97/97)
GambasGears 3.8.90.bz2                  (Princeton - 346/346)
GambasTester 0.9.49.bz2                 (Jussi - 115/115)
GambasTestercmd 0.9.49.bz2              (Jussi - 79/79)
GameOfLife 1.0.0.bz2                   (Example - 257/257)
GentlemanBrowser 0.1.0.bz2             (FelipeReyes - 22/22)
Governors_GUI 1.0.3.bz2                (Ozymandias - 25/25)
GradientProgressBar 0.1.1.bz2          (Dmitry-Kleeshen - 378/378)
GraphFloodfill 0.2.1.bz2               (Gambas-Buch - 170/170)
Graphviz 0.1.5.bz2                     (Gambas-Buch - 95/95)
GuitarTuner 2.1.1.bz2                  (Henry - 75/75)
HTTPGet 1.0.0.bz2                      (Example - 447/447)
HTTPPost 1.0.0.bz2                     (Example - 366/366)
Hashrat_Gui 0.9.14.bz2                  (Ozymandias - 21/24)
Hashrat_Gui 1.0.6.bz2                  (Ozymandias - 3/24)
HighlightEditor 1.0.0.bz2              (Example - 312/312)
IPTV 0.1.0.bz2                         (WebOss - 234/234)
Imenik 0.1.1.bz2                       (WebOss - 45/45)
InfoDataBaseSQL 0.1.81.bz2              (postapase - 299/299)
InfoDataBaseSQL 0.1.81.bz2              (programa00leo30 - 67/67)
Innova 0.1.3.bz2                       (InnovaDesktop - 494/494)
Innova_Panel 0.1.5.bz2                 (InnovaDesktop - 282/282)
Karvonen 1.0.2.bz2                     (Fhabrike - 40/40)
LCDClock 1.0.0.bz2                     (cogier - 112/112)
LCDLabel 1.0.0.bz2                     (Example - 608/608)
Lanzador 0.8.8.bz2                     (Kerberos - 37/37)
LinuxInfo 1.0.0.bz2                    (WebOSS - 20/20)
LoboMau 1.0.2.bz2                      (Tardis96 - 4/4)
Lupita 0.1.0.bz2                       (jsbsan - 30/30)
MP3Info 0.1.1.bz2                      (AJMSoftware - 6/23)
MP3Info 0.2.0.bz2                      (AJMSoftware - 17/23)
Md2Model 1.0.0.bz2                     (Example - 262/262)
MediaPlayer 1.0.0.bz2                  (Example - 1336/1336)
MenuExample 0.1.1.bz2                  (cogier - 224/224)
Metronome 2.1.1.bz2                    (Tux - 167/167)
MineGame 1.3.6.bz2                     (Torto - 633/633)
MineSweeper 1.0.0.bz2                  (Example - 327/327)
MineSweeper 1.0.0.bz2                  (inievam - 103/103)
Moka-VC 1.0.0.bz2                      (AreaDev - 69/69)
Mp3Player 1.0.3.bz2                    (Shane - 19/19)
NeHeTutorial 3.8.90.bz2                 (Gambas - 121/121)
NewProject 1.0.4.bz2                   (Phil - 79/79)
Novelister 0.1.6.bz2                   (HowToPhil - 42/42)
ObserverExample2 0.1.0.bz2             (postapase - 33/33)
OnOffSwitch 0.1.0.bz2                  (postapase - 12/12)
OpenAL 1.0.1.bz2                       (Eight_Virtues - 375/375)
Othello-2 1.0.0.bz2                    (UZI - 37/37)
PCInfo 0.1.0.bz2                       (InnovaDesktop - 164/1985)
PCInfo 0.2.0.bz2                       (InnovaDesktop - 83/1985)
PCInfo 0.3.0.bz2                       (InnovaDesktop - 366/1985)
PCInfo 0.4.0.bz2                       (InnovaDesktop - 411/1985)
PCInfo 0.5.11.bz2                       (InnovaDesktop - 961/1985)
PCInfo_Web 0.5.9.bz2                   (InnovaDesktop - 106/106)
PCStats 0.3.0.bz2                      (cogier - 147/147)
PDFEncrypt 2.1.0.bz2                   (WG - 23/23)
PManager 1.1.6.bz2                     (Henry - 48/48)
PROYECTOFOTO 1.1.1.bz2                 (JoseRene - 9/9)
PaintRotate 0.1.0.bz2                  (postapase - 9/9)
Painting 1.0.0.bz2                     (Example - 338/338)
PhotoTouch 1.0.0.bz2                   (Example - 570/570)
PhpWeathermapEditor 0.9.0.bz2          (OlivierCruilles - 72/72)
PiCam 0.2.6.bz2                        (cogier - 79/79)
Piano 0.1.1.bz2                        (cogier - 191/191)
PictureDatabase 3.0.90.bz2              (Princeton - 676/676)
Pinger 0.1.0.bz2                       (cogier - 39/39)
Plinx 1.1.2.bz2                        (DmitryKlisheen - 132/132)
Plugins 0.1.0.bz2                      (Gambas-Buch - 90/302)
Plugins 0.3.0.bz2                      (Gambas-Buch - 212/302)
Pong 0.1.0.bz2                         (cogier - 34/34)
PrintSuite2 1.0.0.bz2                  (LollixSoftwareHouse - 56/56)
Printing 1.0.0.bz2                     (Example - 588/588)
ProCookTimer 1.0.0.bz2                 (cogier - 82/82)
Programador_Horario 1.0.1.bz2          (Rolf - 31/31)
Programing_helper_en 0.1.1.bz2         (ilo - 123/123)
ProgressBarText 3.4.2.bz2              (didier18 - 153/153)
ProgressBarTray 2.1.24.bz2              (didier18 - 27/27)
ProgressBarTray 2.1.9.bz2              (ddier18 - 29/29)
QRCreator 1.2.0.bz2                    (cogier - 195/195)
QuasiRegular 1.0.0.bz2                 (Example - 103/103)
Qview 1.0.0.bz2                        (AreaDev - 30/30)
RamDrive 0.9.13.bz2                     (Ozymandias - 17/123)
RamDrive 1.0.0.bz2                     (Ozymandias - 18/123)
RamDrive 1.2.2.bz2                     (Ozymandias - 27/123)
RamDrive 1.3.6.bz2                     (Ozymandias - 32/123)
RamDrive 1.5.0.bz2                     (Ozymandias - 29/123)
RandomColorSort 1.0.0.bz2              (Example - 136/136)
Registro 0.1.1.bz2                     (postapase - 136/136)
ReportExample 3.6.90.bz2                (Example - 739/739)
ReportTextArea 0.1.0.bz2               (Postapase - 310/310)
SDLClicker 0.1.2.bz2                   (Shane - 6/6)
SearchBrowser2 1.3.5.bz2               (smso - 157/157)
ServerSocket 1.0.0.bz2                 (Example - 587/587)
ServerSocket 1.0.0.bz2                 (Exampled - 42/42)
SimpleEval 0.1.1.bz2                   (gambix - 96/296)
SimpleEval 0.2.0.bz2                   (gambix - 200/296)
SliderFont 0.1.2.bz2                   (ShordiSoft - 11/11)
SmallWiki 1.0.1.bz2                    (Example - 505/505)
Speedtest_Gui 0.9.6.bz2                (Ozymandias - 25/42)
Speedtest_Gui 1.0.4.bz2                (Ozymandias - 17/42)
SpiderSecureChat 0.9.20.bz2             (Westwood - 118/118)
SpritesGamberos 0.1.0.bz2              (postapase - 28/28)
Squares 0.1.1.bz2                      (HowToPhil - 140/140)
StockCalculator 1.0.0.bz2              (Mohamed_Hajjaj - 18/18)
TableEdit 0.1.2.bz2                    (Shordi - 129/129)
Tablet 1.0.0.bz2                       (Example - 140/140)
Taller_2015 0.1.8.bz2                  (postapase - 328/985)
Taller_2015 0.3.85.bz2                  (postapase - 657/985)
Tanteador 0.6.54.bz2                    (postapase - 92/92)
TareaCarnaval 1.0.1.bz2                (IrvinSantana - 32/32)
TarzanHorloge 2.8.1.bz2                (RCF - 32/32)
Temp_2_LCD 1.0.0.bz2                   (Ozymandias - 47/47)
Thermometre 0.1.1.bz2                  (didier18 - 348/348)
TunnelSDL 1.0.0.bz2                    (Example - 295/295)
UUCrypt 0.1.2.bz2                      (HowToPhil - 51/51)
Une 0.1.2.bz2                          (postapase - 20/20)
UnitySC_V0.7 0.7.0.bz2                 (JePe - 53/53)
UpdocSystem_V10 10.0.0.bz2             (Goranflo - 13/13)
UsoDeFuncionExterna 0.1.0.bz2          (postapase - 47/47)
Util 1.0.52.bz2                         (Dane - 70/70)
UtilD 1.0.52.bz2                        (Dane - 39/39)
VerticalProgressBar 0.1.1.bz2          (Moviga - 43/133)
VerticalProgressBar 0.2.0.bz2          (Moviga - 90/133)
VerySimpleVideoPlayer 0.1.0.bz2        (Example - 293/293)
VerySimpleVideoPlayer 0.2.1.bz2        (cogier - 162/162)
VideoPlayer 0.1.3.bz2                  (cogier - 237/237)
VirtualDVD 0.1.4.bz2                   (DemosthenesKoptsis - 145/145)
VisorRV1960 0.6.321.bz2                  (postapase - 111/111)
WatchGambasDirectory 3.8.90.bz2         (Gambas-Buch - 143/143)
WebBrowser 1.0.3.bz2                   (Example - 1031/1031)
ZeitSicherungen 1.0.0.bz2              (cd-bahia - 30/30)
api_ruteros 0.1.1.bz2                  (LeandroMorala - 35/35)
avisaMail 0.4.2.bz2                    (shordi - 86/86)
ayudame 0.1.0.bz2                      (Postapase - 124/124)
bilhar 0.1.1.bz2                       (DiogoSantos - 44/44)
bitch 1.1.3.bz2                        (senju - 62/62)
bluedemonvirus 0.1.0.bz2               (aztk - 44/44)
cleanup_Gambas3_recent_list 0.3.3.bz2  (smso - 66/66)
comisat-gc 0.5.32.bz2                   (comisatGamesCollection - 3/3)
dblist 1.1.1.bz2                       (levingtinoco - 80/80)
define 3.9.11.bz2                       (ViSys - 86/86)
dnes-gui 1.0.2.bz2                     (MarcioEsper - 92/92)
doubleeditor 1.0.1.bz2                 (Miao-You - 59/59)
eSpeakGUI 0.1.0.bz2                    (cogier - 330/330)
fbcolor 0.1.4.bz2                      (postapase - 73/73)
findfocus 0.1.0.bz2                    (Deganius - 158/158)
fontname 0.1.2.bz2                     (postapase - 53/53)
gambas-captcha 1.0.17.bz2               (Gambas - 116/116)
gambas-extra-functions 0.1.0.bz2       (belmotek - 41/41)
gardenmanager 0.1.0.bz2                (brichman - 57/57)
gb.PiconZero 1.0.0.bz2                 (MatthewCollins - 7/29)
gb.PiconZero 1.1.0.bz2                 (MatthewCollins - 22/29)
gb.deg.form 3.9.37.bz2                  (gb - 138/138)
gb.deg.unittest 3.9.10.bz2              (gb - 41/41)
gb.pushbutton 0.1.0.bz2                (InnovaDesktop - 48/48)
gb.snmpclient 0.1.13.bz2                (OlivierCruilles - 39/39)
gb.sshFS 0.3.3.bz2                     (smso - 167/167)
gb.sshclient 1.1.5.bz2                 (OlivierCruilles - 121/121)
gbBugTracker3 3.0.38.bz2                (OlivierCruilles - 98/98)
gbCalc 0.1.0.bz2                       (InnovaDesktop - 35/35)
gbCalculator 0.1.0.bz2                 (cogier - 470/470)
gbClock 0.2.0.bz2                      (InnovaDesktop - 432/432)
gbDocEditor 0.9.11.bz2                  (OlivierCruilles - 332/332)
gbLauncher 0.1.12.bz2                   (shordi - 48/48)
gbRoadBookMoto 0.8.0.bz2               (OlivierCruilles - 54/54)
gbSvnCheckVersion 3.1.3.bz2            (OlivierCruilles - 15/15)
gbTerminal 0.1.6.bz2                   (InnovaDesktop - 790/790)
gbWeather 0.1.12.bz2                    (AJMSoftware - 39/39)
geiv 0.1.1.bz2                         (Gambas-Buch - 67/67)
generadorcarnet 0.0.51.bz2              (jsbsan - 551/551)
gplanet 0.1.2.bz2                      (jsbsan - 93/93)
group 0.1.0.bz2                        (cogier - 58/58)
haramaru-radio-player 42.1.4.bz2       (Integrated Data Thought Entity - 280/280)
helptranslator 0.0.6.bz2               (Jsbsan - 129/129)
helptranslator 0.1.11.bz2               (jsbsan - 87/87)
higgins 0.5.0.bz2                      (kokoko3k - 67/141)
higgins 0.7.390.bz2                      (kokoko3k - 74/141)
htEditor 1.0.14.bz2                     (shordi - 150/150)
iloSerialPort 0.1.2.bz2                (ilo - 248/248)
jackadd 0.1.1.bz2                      (COBRASoft - 77/77)
konvertilo 0.1.0.bz2                   (Belmotek - 5/5)
lmars 0.1.0.bz2                        (CamEra - 68/68)
miApp 5.0.1.bz2                        (Ronald - 38/38)
miPrimerPrograma 1.0.2.bz2             (juanpablo - 18/18)
mismarcadores 0.1.2.bz2                (jsbsan - 37/37)
nagato-map 0.11.4.bz2                  (Integrated Data Thought Entity - 228/228)
nagato-taskmanager 42.1.3.bz2          (Integrated Data Thought Entity - 189/189)
nagato-wallpaper 0.12.2.bz2            (Integrated Data Thought Entity - 108/108)
nagato-weather 42.1.4.bz2              (Integrated Data Thought Entity - 65/65)
nagato-writer 42.1.9.bz2               (Integrated Data Thought Entity - 352/352)
nozomi-dev 0.1.1.bz2                   (nozomichan-factory - 77/77)
observadorBoton 0.1.0.bz2              (postapase - 51/51)
pageGrid 0.1.1.bz2                     (Shordi - 25/25)
paginateGridView 1.0.1.bz2             (UZI - 58/58)
pikyaz 0.1.238.bz2                       (AbdurrahmanUlusoy - 8/8)
pikyaz 0.1.250.bz2                       (abdurrahmanulusoy - 3/3)
pintaScreen 0.0.63.bz2                  (Jsbsan - 447/447)
piramide_avec_modules 1.0.1.bz2        (froidevaux - 39/39)
pyrit_gui 1.0.2.bz2                    (Kerberos - 56/56)
pyrit_gui_v2 2.0.18.bz2                 (Ozymandias - 35/35)
researcher 1.0.0.bz2                   (Mohamed_Haggag - 40/40)
sbSizeFont 0.1.4.bz2                   (postapase - 10/10)
settings 1.0.0.bz2                     (cogier - 46/46)
solanum 0.1.0.bz2                      (Belmotek - 10/10)
splash 0.1.0.bz2                       (cogier - 98/98)
test 0.1.1.bz2                         (test - 43/43)
tradukisto 0.1.0.bz2                   (belmotek - 6/6)
tres 0.0.3.bz2                         (jsbsan - 245/245)
uniIR3 0.1.6.bz2                       (ilo - 44/44)
vinilo 0.1.0.bz2                       (belmotek - 7/7)
vrecentfilesd 0.1.9.bz2                (paddys-hill - 174/174)
wGridFilterSample 0.1.1.bz2            (Shordi - 13/13)
waiter 0.1.1.bz2                       (shordi - 47/47)
wolfsorter3-beta 2.9.2.bz2             (Octavio M.P. - 42/42)
wordWrapGrid 0.1.2.bz2                 (Shordi - 73/73)
xkcd-reader 0.2.1.bz2                  (Integrated Data Thought Entity - 130/130)
xt7-player-mpv 0.12.381.bz2              (AntonioOrefice - 112/672)
xt7-player-mpv 0.20.390.bz2              (AntonioOrefice - 143/672)
xt7-player-mpv 0.8.3371.bz2               (AntonioOrefice - 417/672)

Mega:  goo.gl/za7ydP

Dropbox:  goo.gl/3GbG5v

Contraseña:  postapase

viernes, 4 de agosto de 2017

Paint Rotate


La clase Paint es potente y difícil si se quiere, por eso hay que hacer practicas de pequeños ejercicios con una función determinada para ir comprendiendo el funcionamiento de Paint.
Les dejo un ejemplo de como usar el método Rotate de la clase paint.
Espero les sirva para sus practicas y mejorar así su conocimiento sobre la clase.



' gambas class file

'by postapase 04 agosto 2017

Private Const IMAGE_NAME As String = "clovis.jpg"
Private Angulo As Float

Public Sub Form_Open()

End

Public Sub DrawingArea1_Draw()

Dim X, Y, W, H As Float
Dim hBrush As PaintBrush
Dim hImage As Image

hImage = Image.Load(IMAGE_NAME)

X = 0
Y = 0
W = 200
H = 200

hBrush = Paint.Image(hImage)
Paint.Brush = hBrush
Paint.Rectangle(X, Y, W, H)

Paint.Translate(100, 100)
Paint.Rotate(Angulo)
Paint.Translate(-100, - 100)

Paint.Fill

End

Public Sub Slider1_Change()

Angulo = Rad(Slider1.Value)
Print "--> " & Rad(Slider1.Value)
DrawingArea1.Refresh()

End

Public Sub Slider2_Change()

Angulo = Rad(- Slider2.Value)
Print "--> " & Rad(- Slider2.Value)
DrawingArea1.Refresh()

End

Public Sub Button1_Click()

Angulo = -1.5707963267949
DrawingArea1.Refresh()

End

Public Sub Button2_Click()

Angulo = -3.14159265358979
DrawingArea1.Refresh()

End

Public Sub Button3_Click()

Angulo = -4.71238898038469
DrawingArea1.Refresh()

End

Public Sub Button4_Click()

Angulo = -6.28318530717959
DrawingArea1.Refresh()

End


El código fuente esta en la Granja Gambas

viernes, 28 de julio de 2017

Usando y probando argumentos en Gambas

Captura Hecha con PintaScreen

Bueno aquí les dejo un vídeo de como crear argumentos y probarlos.
Para ver el código en la clase de inicio descarga de la Granja de Gambas el proyecto VisorRV1960.

Args

http://gambaswiki.org/wiki/comp/gb/args?l=es&nl


Public Sub Main()

Dim a As Integer
Dim Argumento As String

For a = 1 To Args.Max
Argumento = Args[a]
If Argumento = "--version" Or If Argumento = "-v" Then
Print "VisorRV1960 versión " & Application.Version
Quit
Else If Argumento = "--help" Or If Argumento = "-h" Then
Print File.Load("textos/comando")
Quit
Else If Argumento = "--azar" Or If Argumento = "-a" Then
Print cmdAzar.VersiculoAzar()
Quit
Else
Print "Comando desconocido: " & Argumento
Print "Prueba--> VisorRV1960 --help"
Quit
Endif
Next

FMain.Show()

If Settings["Opciones/Azar", False] = True Then azar.ShowModal

End

jueves, 13 de julio de 2017

Une





Idea básica para armar un programa de este tipo.
Observalo en youtube:



' gambas class file

Public Cantidad_Sprites As Picture[]
Public XpictureBox As PictureBox
Public TagOrdenado As String[]
Public Repeticiones As Integer = 200
Public Intentos As Integer

Public PICactual As Picture
Public pbActual As PictureBox

Public Sub Form_Open()

Label1.Text = "by postapase v. " & Application.Version

ReiniciarVariables()

SepararImagenes("casa.jpeg", 3, 3)

End

Public Sub SepararImagenes(path As String, filas As Integer, columnas As Integer)
'subrutina extraida y modificada del ejemplo de Julio 1945

Dim i As Image
Dim fila As Integer
Dim columna As Integer
Dim imagenAncho As Integer
Dim imagenLargo As Integer
Dim fichero As Picture
Dim contador As Integer = 1
Dim ruta As String
Dim a As Integer

i = Image.Load(path)
PictureBox1.Visible = False
PictureBox1.Picture = Picture.Load(path)

Cantidad_Sprites = New Picture[]

imagenAncho = i.w / columnas
imagenlargo = i.h / filas

For fila = 1 To filas
For columna = 1 To columnas

fichero = New Picture(imagenAncho, imagenLargo, Color.Transparent)
Paint.Begin(fichero)

Paint.DrawImage(i, 0, 0, imagenAncho, imagenLargo, 1, Rect((columna - 1) * imagenAncho, (fila - 1) * imagenLargo, imagenancho, imagenlargo))
Paint.Stroke()
Paint.Fill
Paint.End()
Wait 0.1
ruta = "/tmp/dibujo" & Str$(contador) & ".png"
fichero.Save(ruta)
Wait 0.1
Cantidad_Sprites.Add(fichero)
TagOrdenado.Add(ruta)

Select Case contador
Case 1
pb1.Tag = ruta
Case 2
pb2.Tag = ruta
Case 3
pb3.Tag = ruta
Case 4
pb4.Tag = ruta
Case 5
pb5.Tag = ruta
Case 6
pb6.Tag = ruta
Case 7
pb7.Tag = ruta
Case 8
pb8.Tag = ruta
Case 9
pb9.Tag = ruta
End Select

contador += 1

Next
Next

For a = 1 To Repeticiones
Desordenar()
Next

Refrescar2()

End

Public Sub btnOtraImagen_Click()


Dialog.Path = User.Home
Dialog.Filter = ["*.png;*.jpg;*.jpeg;*.bmp", "Picture files"]

If Dialog.OpenFile() Then Return

Select Case File.Ext(Dialog.Path)
Case "png", "jpg", "jpeg", "bmp"
Case Else
Message.Error("Imagen no válida!")
Return
End Select

ReiniciarVariables()

SepararImagenes(Dialog.Path, 3, 3)

End

Public Sub parte2_Drag()

Print Last.Name
XpictureBox.Drag(XpictureBox.Picture)

End

Public Sub parte2_Drop()

Print Last.Name

End

Public Sub parte2_DblClick()

Print Last.Name

End

Public Sub pb9_MouseDrag()

Drag.Icon = pb9.Picture

If Mouse.Left Then
pb9.Drag(pb9.Tag)
Endif

End

Public Sub pb8_Drop()

Dim MiTag As String

MiTag = pb8.Tag

pb8.Picture = Picture.Load(Drag.Data)
pb8.Tag = Drag.Data

Drag.Source.Tag = MiTag
Refrescar()

End

Public Sub pb6_MouseDrag()

Drag.Icon = pb6.Picture

If Mouse.Left Then
pb6.Drag(pb6.Tag)

Endif

End

Public Sub Refrescar()

pb1.Picture = Picture.Load(pb1.Tag)
pb2.Picture = Picture.Load(pb2.Tag)
pb3.Picture = Picture.Load(pb3.Tag)

Wait 0.2

pb4.Picture = Picture.Load(pb4.Tag)
pb5.Picture = Picture.Load(pb5.Tag)
pb6.Picture = Picture.Load(pb6.Tag)

Wait 0.2

pb7.Picture = Picture.Load(pb7.Tag)
pb8.Picture = Picture.Load(pb8.Tag)
pb9.Picture = Picture.Load(pb9.Tag)

If Intentos > 5 Then
btnSolucion.Visible = True
Endif

Inc Intentos

End

Public Sub Desordenar()

Dim max As Integer
Dim uno As Integer
Dim dos As Integer

Randomize
max = TagOrdenado.Max

uno = Rand(0, max)
dos = Rand(0, max)

Repeat
dos = Rand(0, max)
Until uno <> dos

Swap TagOrdenado[uno], TagOrdenado[dos]

End

Public Sub Refrescar2()

pb1.Tag = TagOrdenado[0]
pb2.Tag = TagOrdenado[1]
pb3.Tag = TagOrdenado[2]

pb4.Tag = TagOrdenado[3]
pb5.Tag = TagOrdenado[4]
pb6.Tag = TagOrdenado[5]

pb7.Tag = TagOrdenado[6]
pb8.Tag = TagOrdenado[7]
pb9.Tag = TagOrdenado[8]

pb1.Picture = Null
pb2.Picture = Null
pb3.Picture = Null
pb4.Picture = Null
pb5.Picture = Null
pb6.Picture = Null
pb7.Picture = Null
pb8.Picture = Null
pb9.Picture = Null

Wait 0.5

Refrescar()

End

Public Sub pb5_MouseDrag()

Drag.Icon = pb5.Picture

If Mouse.Left Then
pb5.Drag(pb5.Tag)

Endif

End

Public Sub pb9_Drop()

Dim MiTag As String

MiTag = pb9.Tag

pb9.Picture = Picture.Load(Drag.Data)
pb9.Tag = Drag.Data

Drag.Source.Tag = MiTag
Refrescar()

End

Public Sub pb7_Drop()

Dim MiTag As String

MiTag = pb7.Tag

pb7.Picture = Picture.Load(Drag.Data)
pb7.Tag = Drag.Data

Drag.Source.Tag = MiTag
Refrescar()

End

Public Sub pb6_Drop()

Dim MiTag As String

MiTag = pb6.Tag

pb6.Picture = Picture.Load(Drag.Data)
pb6.Tag = Drag.Data

Drag.Source.Tag = MiTag
Refrescar()

End

Public Sub pb5_Drop()

Dim MiTag As String

MiTag = pb5.Tag

pb5.Picture = Picture.Load(Drag.Data)
pb5.Tag = Drag.Data

Drag.Source.Tag = MiTag
Refrescar()

End

Public Sub pb7_MouseDrag()

Drag.Icon = pb7.Picture

If Mouse.Left Then
pb7.Drag(pb7.Tag)

Endif

End

Public Sub pb4_MouseDrag()

Drag.Icon = pb4.Picture

If Mouse.Left Then
pb4.Drag(pb4.Tag)

Endif

End

Public Sub pb8_MouseDrag()

Drag.Icon = pb8.Picture

If Mouse.Left Then
pb8.Drag(pb8.Tag)
Endif

End

Public Sub pb1_MouseDrag()

Drag.Icon = pb1.Picture

If Mouse.Left Then
pb1.Drag(pb1.Tag)

Endif

End

Public Sub pb2_MouseDrag()

Drag.Icon = pb2.Picture

If Mouse.Left Then
pb2.Drag(pb2.Tag)

Endif

End

Public Sub pb3_MouseDrag()

Drag.Icon = pb3.Picture

If Mouse.Left Then
pb3.Drag(pb3.Tag)

Endif

End

Public Sub pb4_Drop()

Dim MiTag As String

MiTag = pb4.Tag

pb4.Picture = Picture.Load(Drag.Data)
pb4.Tag = Drag.Data

Drag.Source.Tag = MiTag
Refrescar()

End

Public Sub pb1_Drop()

Dim MiTag As String

MiTag = pb1.Tag

pb1.Picture = Picture.Load(Drag.Data)
pb1.Tag = Drag.Data

Drag.Source.Tag = MiTag
Refrescar()

End

Public Sub pb2_Drop()

Dim MiTag As String

MiTag = pb2.Tag

pb2.Picture = Picture.Load(Drag.Data)
pb2.Tag = Drag.Data

Drag.Source.Tag = MiTag
Refrescar()

End

Public Sub pb3_Drop()

Dim MiTag As String

MiTag = pb3.Tag

pb3.Picture = Picture.Load(Drag.Data)
pb3.Tag = Drag.Data

Drag.Source.Tag = MiTag
Refrescar()

End

Public Sub btnDesordenar_Click()

Desordenar()
Refrescar2

End

Public Sub ReiniciarVariables()

PBactual = New PictureBox(Me)
TagOrdenado = New String[]
Intentos = 0
btnSolucion.Visible = False

End

Public Sub btnSolucion_Click()

PictureBox1.Visible = Not PictureBox1.Visible

End

Public Sub cbxFotos_Click()

ReiniciarVariables()

SepararImagenes(cbxFotos.Text, 3, 3)

End



El ejemplo se encuentra en la granja de gambas.