Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Wer hat denn einen Scanner und Parser für PB gerade rumfliegen? Ich könnte auch einen gebrauchen.Rings hat geschrieben:Scanner und Parser (im Quellcode) für PB gibts ja einige.
Das müsste man zusammenfassen und entsprechend
einen Ermitter(Code-Generator) für javascript dranhängen.
Code: Alles auswählen
<!doctype html>
<html lang="en">
<head>
<meta charset="utf-8" />
<title>Pb2Web</title>
<link type="text/css" rel="stylesheet" href="http://code.jquery.com/ui/1.10.2/themes/smoothness/jquery-ui.css" />
<script src="http://code.jquery.com/jquery-1.9.1.js"></script>
<script src="http://code.jquery.com/ui/1.10.2/jquery-ui.js"></script>
<script>
var CurrentWindow;
function OpenWindow( Window, x, y, InnerWidth, InnerHeight, Title, Flags, ParentWindowID ) {
CurrentWindow = "win_" + Window;
$('body').append("<div id='" + CurrentWindow + "'></div>");
$("#" + CurrentWindow).dialog({
position: [x, y],
width: InnerWidth,
height: InnerHeight,
title: Title,
modal: true
});
return false;
}
function ButtonGadget( Gadget, x, y, Width, Height, Text, Flags ) {
$("#" + CurrentWindow).append("<div id='gadget_" + Gadget + "'>" + Text + "</div>");
$("#gadget_" + Gadget).button();
$("#gadget_" + Gadget).css({ top: y, left: x, width: Width, height: Height });
return false;
}
$(function () {
$( document ).ready(function() {
OpenWindow(0, 100, 100, 640, 400, "This is a PB-Window", 0, 0);
ButtonGadget(0, 50, 50, 300, 40, "This is a ButtonGadget", 0);
});
});
</script>
</head>
<body />
</html>vermutlich das assert-Makro, oder? Quick'nDirty:Rings hat geschrieben:remi's lexer krieg ich unter pb511 noch nicht zum rennen....
Code: Alles auswählen
Macro assert(cond, label="")
CompilerIf #CONTRACTS
If Not(cond)
CompilerIf #PB_Compiler_Debugger
Debug label+": Line "+Str(#PB_Compiler_Line)+": Contract violated: "+#DQUOTE$+DQ#cond#DQ+#DQUOTE$+" is false"
CallDebugger
CompilerElse
MessageRequester("Contract violated", label+": Line "+Str(#PB_Compiler_Line)+": Contract violated "+DQ#cond#DQ+" is false")
CompilerEndIf
EndIf
CompilerEndIf
EndMacro
Macro asser2(cond, label="")
CompilerIf #CONTRACTS
If cond = ""
CompilerIf #PB_Compiler_Debugger
Debug label+": Line "+Str(#PB_Compiler_Line)+": Contract violated: "+#DQUOTE$+DQ#cond#DQ+#DQUOTE$+" is false"
CallDebugger
CompilerElse
MessageRequester("Contract violated", label+": Line "+Str(#PB_Compiler_Line)+": Contract violated "+DQ#cond#DQ+" is false")
CompilerEndIf
EndIf
CompilerEndIf
EndMacromh, bei meinen ersten Test (mit simplen Beispielen) funktionierteRings hat geschrieben:kracht trotzdem dauernd.
Code: Alles auswählen
OpenWindow (0, 100, 100, 350, 200, "PB-Window 1", 0, 0);
TextGadget (0, 10, 30, 300, 20, "Dein Name:", 0)
StringGadget(1, 10, 60, 300, 20, "", 0)
TextGadget (2, 10, 90, 300, 20, "", 0)
ButtonGadget(3, 10, 110, 300, 30, "ButtonGadget 1", 0);
SetGadgetText(1, "Otto");
SetActiveGadget(1);
//
OpenWindow ( 1, 500, 100, 560, 250, "ListViewGadget-Example", 0, 0);
ListViewGadget( 4, 10, 10, 250, 190, 0);
ButtonGadget ( 5, 270, 10, 270, 30, "AddGadgetItem at Position -1", 0);
ButtonGadget ( 6, 270, 50, 270, 30, "AddGadgetItem at Position 0", 0);
ButtonGadget ( 7, 270, 90, 270, 30, "CountGadgetItems", 0);
ButtonGadget ( 8, 270, 130, 270, 30, "RemoveGadgetItem at Position 0", 0);
ButtonGadget ( 9, 270, 170, 270, 30, "ClearGadgetItems", 0);
//
OpenWindow ( 2, 100, 400, 500, 400, "WebGadget-Example", 0, 0);
StringGadget ( 10, 10, 10, 420, 20, "http://www.purebasic.com", 0);
ButtonGadget ( 11, 440, 10, 50, 20, "Go", 0);
WebGadget ( 12, 10, 40, 480, 310, "about:blank", 0);
das ist vorerst 'handprogrammiert'. Ich habe als Basis jQuery UI verwendet und einfachedige hat geschrieben:@Kiffi: Das sieht ja schon richtig gut aus! Womit hast Du das jetzt erstellt? Mit Kevins Tool ... oder was neuem?
Freut mich zu lesen. Welcome back!Keviin hat geschrieben:@All
Es geht wieder weiter!
Dessen bin ich mir durchaus bewusstKeviin hat geschrieben:@Kiffi
Das sieht schon mal gut aus aber der schwierige teil kommt noch!
Das, was ich momentan habe, ist noch Basisarbeit.dann sind wir ja schon mal zu dritt (Rings, wo bist Du? Fahrrad fahren?)Keviin hat geschrieben:An einem Gemeinschaftsprojekt wäre ich auch interessiert!