New-Editor-4 V.0.1.9.56

Invité

Bonjour à tous,

Je suis entrain de faire une IDE qui s'appelle New-Editor.
J'ai ma première version ci-dessous mais n'est pas complète.
ATTENTION : Cette version ne permet que de placer et de modifier un peu les objets.
Il y a encore plein de bugs mais juste pour vous donner une idée de comment ça à l'air.

Objets :
LETTERS, BUTTON, CHECK, COMBOBOX, EDITBOX, FORM, OPTION, SPIN, TEXTBOX.

Possibilités d'objets :

- modifier le texte;
- dimensionner et positionner;
- changer le curseur;
- activer/inactiver;
- cocher/décocher.

Tout sur un total de 272 lignes de code;

Code:: dim i,x,y,set,number,name$,longueur,name2$,numsuppr
dim object,longueur2,a$,line,b$,longueur3,object2,number2
label propris,sizeandemplace,creer,selection,activation
label cursor,placeobjet,cocher,change1,select2,enterkey
label suppr,new
number=1
y=24
line=1

' maximum 30 objets

left 0,100
top 0,270
width 0,700
height 0,450
caption 0,"New-Editor-Basic-4 V.1.0"

picture 1
width 1,301
height 1,241
2d_target_is 1:2d_pen_color 200,200,200
2d_rectangle 0,0,301,254
2d_line 151,0,151,254
for i=1 to 10
2d_line x,y,x+301,y:y=y+24
next i
y=2
for i=2 to 10
edit i:left i,154:width i,144:top i,y:y=y+24
next i
text 2,"Form 0":text 3,"0, 0, 400, 250"
delete 4:delete 5
y=50
for i=4 to 5
combo i:left i,154:top i,y:width i,145:item_add i,"Oui":item_add i,"Non":y=y+24
next i
on_click 5,activation
memo 66:hide 66:bar_vertical 66:height 66,21:width 66,145:left 66,154:top 66,98:on_key_down 66,enterkey
on_click 4,cocher:on_change 6,change1
combo 11:left 11,154:top 11,218:width 11,145
item_add 11,"Flèche":item_add 11,"Pointeur":item_add 11,"Sablier":item_add 11,"I majuscule":item_add 11,"Croix":item_add 11,"Interdiction":item_add 11,"Aide":item_add 11,"Aucun"
text 11,"Flèche":on_click 11,cursor
y=2
for i=12 to 21
edit i:left i,3:width i,146:top i,y:y=y+24
next i
text 12,"Nom":text 21,"Curseur":text 13,"Position et taille":text 14,"Cocher":text 15,"Activation":text 16,"Texte"
inactive 4:inactive 14:inactive 15:inactive 5

container_option 22
left 22,5
top 22,247
width 22,291
height 22,164
font_size 22,10
caption 22," Objets : "

y=268
for i=23 to 29
button i:top i,y:left i,15:height i,17:y=y+20:on_click i,propris
next i
button 30:left 30,150:top 30,268:height 30,17:on_click 30,propris
button 31:left 31,150:top 31,290:height 31,17:on_click 31,propris
caption 23,"letters":caption 24,"button":caption 25,"check":caption 26,"combobox":caption 27,"editbox":caption 28,"form":caption 29,"option":caption 30,"spin":caption 31,"textbox"

list 32:left 32,311:top 32,20:width 32,120:height 32,390:on_click 32,selection:item_add 32,"form 0"

alpha 33
top 33,4
left 33,321
caption 33,"Objet créer :"

picture 34
left 34,441
top 34,20
width 34,240
2d_target_is 34:print_target_is 34
2d_rectangle 0,0,240,105
print_locate 10,10:print "Nombre d'objet(s) : 0"
print_locate 10,30:print "Nombre d'objet(s) supprimé(s) : 0"

button 67
left 67,441
top 67,130
caption 67,"Nouveau"
on_click 67,new

button 68
left 68,521
top 68,130
width 68,130
caption 68,"Supprimer l'objet"
on_click 68,suppr

form 35
width 35,400
height 35,250
caption 35,"Form 0"
command_target_is 35

end

propris:
for i=23 to 29
if clicked(i)=1
text 2,caption$(i):longueur=len(caption$(i)):text 11,"Normal":text 4,"Oui":text 5,"Oui"
name2$=caption$(i)+" "+str$(number)
longueur2=len(name2$)
set=i:gosub sizeandemplace:gosub creer
end_if
next i
if clicked(30)=1
text 2,"spin":text 11,"Normal"
name2$="spin "+str$(number)
longueur2=len(name2$)
longueur=4
text 3,"0, 0, 70, 21":inactive 14:inactive 4
set=30
gosub creer
end_if
if clicked(31)=1
text 2,"textbox":text 11,"Normal"
name2$="textbox "+str$(number)
longueur2=len(name2$):longueur=7
text 3,"0, 0, 70, 21":text 4,"Oui":text 5,"Oui":inactive 14:inactive 4
set=31
gosub creer
end_if
return

sizeandemplace:
if caption$(set)="letters" then text 3,"0, 0, 150, 17":inactive 14:inactive 4
if caption$(set)="button" then text 3,"0, 0, 80, 25":inactive 14:inactive 4
if caption$(set)="check" or caption$(set)="option" then text 3,"0, 0, 200, 17":active 14:active 4
if caption$(set)="combobox" then text 3,"0, 0, 100, 21":inactive 14:inactive 4
if caption$(set)="editbox" then text 3,"0, 0, 120, 21":inactive 14:inactive 4
if caption$(set)="form" then text 3,"0, 0, 400, 250":inactive 14:inactive 4
if caption$(set)="textbox" then text 3,"0, 0, 150, 90":inactive 14:inactive 4
return

creer:
number=number+1:number2=number2+1
item_add 32,caption$(set)+" "+str$(number-1)
cls
2d_rectangle 0,0,240,105
print_locate 10,10:print "Nombre d'objet(s) : "+str$(number2)
print_locate 10,30:print "Nombre d'objet(s) supprimé(s) : "+str$(numsuppr)
on_click 35,placeobjet
return

placeobjet:
x=mouse_x_position(35):y=mouse_y_position(35)
if caption$(set)="letters" then alpha number+34:left number+34,x:top number+34,y:off_click 35:a$="letters":object=number+34:hide 66
if caption$(set)="button" then button number+34:left number+34,x:top number+34,y:off_click 35:a$="button":object=number+34:hide 66:text 6,""
if caption$(set)="check" then check number+34:left number+34,x:top number+34,y:off_click 35:mark_on number+34:a$="check":object=number+34:hide 66:text 6,""
if caption$(set)="combobox" then combo number+34:left number+34,x:top number+34,y:off_click 35:a$="combobox":object=number+34:show 66:text 6,"":clear 66:line=1
if caption$(set)="editbox" then edit number+34:left number+34,x:top number+34,y:off_click 35:a$="editbox":object=number+34:hide 66:text 6,""
if caption$(set)="form" then form number+34:left number+34,x:top number+34,y:off_click 35:a$="form":object=number+34:hide 66:text 6,""
if caption$(set)="option" then option number+34:left number+34,x:top number+34,y:off_click 35:mark_on number+34:a$="option":object=number+34:hide 66:text 6,""
if caption$(set)="spin" then spin number+34:left number+34,x:top number+34,y:off_click 35:a$="spin":object=number+34:hide 66:text 6,""
if caption$(set)="textbox" then memo number+34:left number+34,x:top number+34,y:off_click 35:a$="textbox":object=number+34:show 66:bar_both object:text 6,"":clear 66:line=1
text 3,str$(left(object))+", "+str$(top(object))+", "+str$(width(object))+", "+str$(height(object)):text 6,""
active 15:active 5:text 5,"Oui"
return

cursor:
if text$(2)="Form 0"
object=35
else
object=right$(name2$,longueur2-longueur-1)
object=object+35
end_if
if text$(11)="Flèche" then cursor_arrow object
if text$(11)="Aucun" then cursor_hide object
if text$(11)="Interdiction" then cursor_noparking object
if text$(11)="I majuscule" then cursor_beam object
if text$(11)="Pointeur" then cursor_point object
if text$(11)="Sablier" then cursor_hourglass object
if text$(11)="Croix" then cursor_cross object
if text$(11)="Aide" then cursor_help object
return

change1:
if a$="editbox" then text object,text$(6):return
if a$="spin"
if (len(text$(6)))<1 or len(text$(6))>8 then return
if (numeric(text$(6)))=0 then message "Seulment les chiffres sont acceptés!":return
position object,text$(6):return
end_if
if a$="textbox" or a$="combobox" then show 66:return
caption object,text$(6)
return

selection:
if item_index$(32)="form 0" then object=35:text 3,str$(left(object))+", "+str$(top(object))+", "+str$(width(object))+", "+str$(height(object))
a$=""
for i=1 to len(item_index$(32))
if mid$(item_index$(32),i,1)=" " then exit_for
a$=a$+mid$(item_index$(32),i,1)
next i
' exmeple de la valueur de a$ : textbox
longueur=len(a$) : ' longueur exemple pour textbox que contient a$ : 7
object=right$(item_index$(32),len(item_index$(32))-longueur): ' object = le numéro d'objet dans l'exécutable et le numéto + 34 dans panoramic
object=object+35 : ' dans l'éditeur de Panoramic
select2:
text 3,str$(left(object))+", "+str$(top(object))+", "+str$(width(object))+", "+str$(height(object))
if a$="textbox" or a$="combobox"
show 66:clear 66
for i=1 to count(object)
item_add 66,item_read$(object,i)
next i
line=count(66)+1
end_if
if a$="check" or a$="option"
active 14:active 4
else
inactive 14:inactive 4
end_if
return

cocher:
if text$(4)="Non"
mark_off object
else
mark_on object
end_if
return

activation:
if text$(5)="Non"
inactive object
else
active object
end_if
return

enterkey:
if key_down_code=13 then item_add object,item_read$(66,line):line=line+1
return

suppr:
if item_index(32)=0 then return
b$=""
for i=1 to len(item_index$(32))
if mid$(item_index$(32),i,1)=" " then exit_for
b$=b$+mid$(item_index$(32),i,1)
next i
longueur3=len(b$)
object2=right$(item_index$(32),len(item_index$(32))-longueur3)
object2=object2+35
delete object2
item_delete 32,item_index(32)
number2=number2-1:numsuppr=numsuppr+1
cls
2d_rectangle 0,0,240,105
print_locate 10,10:print "Nombre d'objet(s) : "+str$(number2)
print_locate 10,30:print "Nombre d'objet(s) supprimé(s) : "+str$(numsuppr)
return

new:
if number2=0 then return
for i=36 to number2+35
delete i
next i
number2=0:number=1:line=1:numsuppr=0
clear 32
cls
2d_rectangle 0,0,240,105
print_locate 10,10:print "Nombre d'objet(s) : "+str$(number2)
print_locate 10,30:print "Nombre d'objet(s) supprimé(s) : "+str$(numsuppr)
item_add 32,"form 0":caption 35,"Form 0"
return

Invité

Possibilité de déplacer et retailler des objets.

Avec un total de 304 lignes de code;

Code:: dim i,x,y,set,number,name$,longueur,name2$,numsuppr
dim object,longueur2,a$,line,b$,longueur3,object2,number2
dim lt$,tp$,wh$,ht$,posit,lt,tp,wh,ht

label propris,sizeandemplace,creer,selection,activation
label cursor,placeobjet,cocher,change1,select2,enterkey
label suppr,new,enterpositsize
number=1
y=24
object=35
line=1

' maximum 30 objets

left 0,100
top 0,270
width 0,700
height 0,450
caption 0,"New-Editor-Basic-4 V.1.0"

picture 1
width 1,301
height 1,241
2d_target_is 1:2d_pen_color 200,200,200
2d_rectangle 0,0,301,254
2d_line 151,0,151,254
for i=1 to 10
2d_line x,y,x+301,y:y=y+24
next i
y=2
for i=2 to 10
edit i:left i,154:width i,144:top i,y:y=y+24
next i
on_key_down 3,enterpositsize
text 2,"Form 0":text 3,"0, 0, 400, 250"
delete 4:delete 5
y=50
for i=4 to 5
combo i:left i,154:top i,y:width i,145:item_add i,"Oui":item_add i,"Non":y=y+24
next i
on_click 5,activation
memo 66:hide 66:bar_vertical 66:height 66,21:width 66,145:left 66,154:top 66,98:on_key_down 66,enterkey
on_click 4,cocher:on_change 6,change1
combo 11:left 11,154:top 11,218:width 11,145
item_add 11,"Flèche":item_add 11,"Pointeur":item_add 11,"Sablier":item_add 11,"I majuscule":item_add 11,"Croix":item_add 11,"Interdiction":item_add 11,"Aide":item_add 11,"Aucun"
text 11,"Flèche":on_click 11,cursor
y=2
for i=12 to 21
edit i:left i,3:width i,146:top i,y:y=y+24
next i
text 12,"Nom":text 21,"Curseur":text 13,"Position et taille":text 14,"Cocher":text 15,"Activation":text 16,"Texte"
inactive 4:inactive 14:inactive 15:inactive 5

container_option 22
left 22,5
top 22,247
width 22,291
height 22,164
font_size 22,10
caption 22," Objets : "

y=268
for i=23 to 29
button i:top i,y:left i,15:height i,17:y=y+20:on_click i,propris
next i
button 30:left 30,150:top 30,268:height 30,17:on_click 30,propris
button 31:left 31,150:top 31,290:height 31,17:on_click 31,propris
caption 23,"letters":caption 24,"button":caption 25,"check":caption 26,"combobox":caption 27,"editbox":caption 28,"form":caption 29,"option":caption 30,"spin":caption 31,"textbox"

list 32:left 32,311:top 32,20:width 32,120:height 32,390:on_click 32,selection:item_add 32,"form 0"

alpha 33
top 33,4
left 33,321
caption 33,"Objet créer :"

picture 34
left 34,441
top 34,20
width 34,240
2d_target_is 34:print_target_is 34
2d_rectangle 0,0,240,105
print_locate 10,10:print "Nombre d'objet(s) : 0"
print_locate 10,30:print "Nombre d'objet(s) supprimé(s) : 0"

button 67
left 67,441
top 67,130
caption 67,"Nouveau"
on_click 67,new

button 68
left 68,521
top 68,130
width 68,130
caption 68,"Supprimer l'objet"
on_click 68,suppr

form 35
width 35,400
height 35,250
caption 35,"Form 0"
command_target_is 35

end

propris:
for i=23 to 29
if clicked(i)=1
text 2,caption$(i):longueur=len(caption$(i)):text 11,"Normal":text 4,"Oui":text 5,"Oui"
name2$=caption$(i)+" "+str$(number)
longueur2=len(name2$)
set=i:gosub sizeandemplace:gosub creer
end_if
next i
if clicked(30)=1
text 2,"spin":text 11,"Normal"
name2$="spin "+str$(number)
longueur2=len(name2$)
longueur=4
text 3,"0, 0, 70, 21":inactive 14:inactive 4
set=30
gosub creer
end_if
if clicked(31)=1
text 2,"textbox":text 11,"Normal"
name2$="textbox "+str$(number)
longueur2=len(name2$):longueur=7
text 3,"0, 0, 150, 90":text 4,"Oui":text 5,"Oui":inactive 14:inactive 4
set=31
gosub creer
end_if
return

sizeandemplace:
if caption$(set)="letters" then text 3,"0, 0, 70, 17":inactive 14:inactive 4
if caption$(set)="button" then text 3,"0, 0, 80, 25":inactive 14:inactive 4
if caption$(set)="check" or caption$(set)="option" then text 3,"0, 0, 200, 17":active 14:active 4
if caption$(set)="combobox" then text 3,"0, 0, 100, 21":inactive 14:inactive 4
if caption$(set)="editbox" then text 3,"0, 0, 120, 21":inactive 14:inactive 4
if caption$(set)="form" then text 3,"0, 0, 400, 250":inactive 14:inactive 4
if caption$(set)="textbox" then text 3,"0, 0, 150, 90":inactive 14:inactive 4
return

creer:
number=number+1:number2=number2+1
item_add 32,caption$(set)+" "+str$(number-1)
cls
2d_rectangle 0,0,240,105
print_locate 10,10:print "Nombre d'objet(s) : "+str$(number2)
print_locate 10,30:print "Nombre d'objet(s) supprimé(s) : "+str$(numsuppr)
on_click 35,placeobjet
return

placeobjet:
x=mouse_x_position(35):y=mouse_y_position(35)
if caption$(set)="letters" then alpha number+34:left number+34,x:top number+34,y:off_click 35:a$="letters":object=number+34:hide 66:width object,70
if caption$(set)="button" then button number+34:left number+34,x:top number+34,y:off_click 35:a$="button":object=number+34:hide 66:text 6,"":width object,80
if caption$(set)="check" then check number+34:left number+34,x:top number+34,y:off_click 35:mark_on number+34:a$="check":object=number+34:hide 66:text 6,"":width object,200
if caption$(set)="combobox" then combo number+34:left number+34,x:top number+34,y:off_click 35:a$="combobox":object=number+34:show 66:text 6,"":clear 66:line=1:width object,100
if caption$(set)="editbox" then edit number+34:left number+34,x:top number+34,y:off_click 35:a$="editbox":object=number+34:hide 66:text 6,"":width object,120
if caption$(set)="form" then form number+34:left number+34,x:top number+34,y:off_click 35:a$="form":object=number+34:hide 66:text 6,"":width object,400:height object,250
if caption$(set)="option" then option number+34:left number+34,x:top number+34,y:off_click 35:mark_on number+34:a$="option":object=number+34:hide 66:text 6,""width object,200
if caption$(set)="spin" then spin number+34:left number+34,x:top number+34,y:off_click 35:a$="spin":object=number+34:hide 66:text 6,"":width object,70
if caption$(set)="textbox" then memo number+34:left number+34,x:top number+34,y:off_click 35:a$="textbox":object=number+34:show 66:bar_both object:text 6,"":clear 66:line=1:width object,150:height object,90
text 3,str$(left(object))+", "+str$(top(object))+", "+str$(width(object))+", "+str$(height(object)):text 6,""
active 15:active 5:text 5,"Oui"
return

cursor:
if text$(2)="Form 0"
object=35
else
object=right$(name2$,longueur2-longueur-1)
object=object+35
end_if
if text$(11)="Flèche" then cursor_arrow object
if text$(11)="Aucun" then cursor_hide object
if text$(11)="Interdiction" then cursor_noparking object
if text$(11)="I majuscule" then cursor_beam object
if text$(11)="Pointeur" then cursor_point object
if text$(11)="Sablier" then cursor_hourglass object
if text$(11)="Croix" then cursor_cross object
if text$(11)="Aide" then cursor_help object
return

change1:
if a$="editbox" then text object,text$(6):return
if a$="spin"
if (len(text$(6)))<1 or len(text$(6))>8 then return
if (numeric(text$(6)))=0 then message "Seulment les chiffres sont acceptés!":return
position object,text$(6):return
end_if
if a$="textbox" or a$="combobox" then show 66:return
if a$="letters" then caption object,text$(6):text 3,str$(left(object))+", "+str$(top(object))+", "+str$(width(object))+", "+str$(height(object))
caption object,text$(6)
return

selection:
if item_index$(32)="form 0" then object=35:text 3,str$(left(object))+", "+str$(top(object))+", "+str$(width(object))+", "+str$(height(object))
a$=""
for i=1 to len(item_index$(32))
if mid$(item_index$(32),i,1)=" " then exit_for
a$=a$+mid$(item_index$(32),i,1)
next i
' exmeple de la valueur de a$ : textbox
longueur=len(a$) : ' longueur exemple pour textbox que contient a$ : 7
object=right$(item_index$(32),len(item_index$(32))-longueur): ' object = le numéro d'objet dans l'exécutable et le numéto + 34 dans panoramic
object=object+35 : ' dans l'éditeur de Panoramic
select2:
text 3,str$(left(object))+", "+str$(top(object))+", "+str$(width(object))+", "+str$(height(object))
if a$="textbox" or a$="combobox"
show 66:clear 66
for i=1 to count(object)
item_add 66,item_read$(object,i)
next i
line=count(66)+1
end_if
if a$="check" or a$="option"
active 14:active 4
else
inactive 14:inactive 4
end_if
return

cocher:
if text$(4)="Non"
mark_off object
else
mark_on object
end_if
return

activation:
if text$(5)="Non"
inactive object
else
active object
end_if
return

enterkey:
if key_down_code=13 then item_add object,item_read$(66,line):line=line+1
return

suppr:
if item_index(32)=0 then return
b$=""
for i=1 to len(item_index$(32))
if mid$(item_index$(32),i,1)=" " then exit_for
b$=b$+mid$(item_index$(32),i,1)
next i
longueur3=len(b$)
object2=right$(item_index$(32),len(item_index$(32))-longueur3)
object2=object2+35
delete object2
item_delete 32,item_index(32)
number2=number2-1:numsuppr=numsuppr+1
cls
2d_rectangle 0,0,240,105
print_locate 10,10:print "Nombre d'objet(s) : "+str$(number2)
print_locate 10,30:print "Nombre d'objet(s) supprimé(s) : "+str$(numsuppr)
return

new:
if number2=0 then return
for i=36 to number2+35
delete i
next i
number2=0:number=1:line=1:numsuppr=0
clear 32
cls
2d_rectangle 0,0,240,105
print_locate 10,10:print "Nombre d'objet(s) : "+str$(number2)
print_locate 10,30:print "Nombre d'objet(s) supprimé(s) : "+str$(numsuppr)
item_add 32,"form 0":caption 35,"Form 0"
return

enterpositsize:
if key_down_code=13
lt$="":tp$="":wh$="":ht$=""
for i=1 to len(text$(3))
if mid$(text$(3),i,1)="," then posit=i:exit_for
lt$=lt$+mid$(text$(3),i,1)
next i
for i=posit+1 to len(text$(3))
if mid$(text$(3),i,1)="," then posit=i:exit_for
tp$=tp$+mid$(text$(3),i,1)
next i
for i=posit+1 to len(text$(3))
if mid$(text$(3),i,1)="," then posit=i:exit_for
wh$=wh$+mid$(text$(3),i,1)
next i
for i=posit+1 to len(text$(3))
if mid$(text$(3),i,1)="," then exit_for
ht$=ht$+mid$(text$(3),i,1)
next i
if (numeric(lt$))=0 or numeric(tp$)=0 or numeric(wh$)=0 or numeric(ht$)=0 then message "Le texte n'es pas acepté!":return
lt=lt$:tp=tp$:wh=wh$:ht=ht$
if wh=0 or ht=0 then message "La hauteur et la largeur doivent être plus grands que 0!":return
if wh>2000 or ht>2000 then message "La valeur de hauteur, largeur, position de gauche ou du haut et trop grande!":return
left object,lt:top object,tp:width object,wh:height object,ht
end_if
return

Je ne sais même pas si ça intéresse quelqu'un?

Invité

Je ne peux pas regarder maintenant ton programme, j'essaye d'apporter des modifs sur le mien.
Je remarque seulement que je vois le même problème que moi.
Ton texte est détourné. Ce serait une sacré coïncidence que tu parles des Etats Unies aussi.

Il y a un petit malin qui s'amuse.

Le texte que je viens de posté, a aussi été détourné quelques instant, mais cette fois, c'est Québec qui est à l'honneur.
Lorsque j'ai déconnecté, c'est revenu normalement.
Attention aux virus!

Sujet: Re: New-Editor-4 V.0.1.9.56 Lun 3 Mai 2010 - 8:26

Gros travail Nicolas, pour quand le logiciel de programmation qui va avec Very Happy

J'ai dit une fois sur ce forum que tu irais loin. Je ne retire pas ce que j'ai dit.

Invité

Espérons que je vais réussir!

Sujet: Re: New-Editor-4 V.0.1.9.56 Lun 3 Mai 2010 - 15:29

Citation :: Il y a un petit malin qui s'amuse.
Le texte que je viens de posté, a aussi été détourné quelques instant, mais cette fois, c'est Québec qui est à l'honneur.
Lorsque j'ai déconnecté, c'est revenu normalement.

Qu'est-ce que c'est que cette histoire ?

Invité

Bonjour Jack.
J'aimerai bien le savoir. hier soir quand j'ai posté mon travail, une partie du texte était transformé, avec des mots comme image s Etats Unies, l'ordre des mots modifié, des mots anglais.
Quand j'ai posté pour Nicolas, lui c'est quebec qui est apparu.
En regardant l'aperçu pour mon programme, cela devenait incompréhensible, puis en postant cela est redevenu normal, puis en reprenant, je me suis retrouvé avec le même problème..
Un coup c'était bon, un autre coup, mélange d'anglais et de français.

Sujet: Re: New-Editor-4 V.0.1.9.56 Mar 4 Mai 2010 - 11:45

Je viens de tester ton code
et ouahou cheers

c'est chouette,excel n'a qu'à bien se tenir

Sujet: Re: New-Editor-4 V.0.1.9.56 Mar 4 Mai 2010 - 11:47

excuses moi mais j'ai fait une errrore de sujet mais j'ai aussi vu le tiens
et c c'est super continu et nous aurons un super editeur. cheers

c'est un super gadget editeur pour Panoramic.

mais comment on fait pour sauvegarder le fichier le fichier ?.
Si apres sauvegarde on veut remodifier les gadgets.

Invité

il n'y a pas vraiment encore de saugarde mais je vais regarder.

Sujet: Re: New-Editor-4 V.0.1.9.56 Mar 11 Mai 2010 - 16:35

Je viens de regarder ce que tu as fait et c'est pas mal du tout.

C'est une très bonne idée que tu as eu là de proposer un début d'IDE en Open-Source. Cette idée est sérieusement à creuser.
A quand un IDE écrit en Panoramic par les Panoramiciens ?

Sujet: Re: New-Editor-4 V.0.1.9.56 Mer 12 Mai 2010 - 21:25

Jck a dit:

Citation :: A quand un IDE écrit en Panoramic par les Panoramiciens ?

Moi aussi, j'ai ressenti l'envie d'avoir un IDE à jour avec les versions de Panoramic. Depuis quelque temps, je suis en train de travailler sur quelque chose qui ressemblerait à l'IDE de Visual Basic, avec une gestion de projet, avec placement et dimensionnement visuel des objets (composants dans les autres langages), avec la gestion des propriétés de chaque objet, la gestion des évènements, la saisie du code application dans les routines d'évènement ou dans des routines aplication, et la génération automatique du code de l'ensemble.

Si cela fait double emploi avec les projets de l'un de vous, j'arrêterai pour pouvoir apprécier vos solutions; si cela peut intéresser l'un d'entre vous, je mettrai à disposition les versions progressives de mon logiciel.

Sujet: Re: New-Editor-4 V.0.1.9.56 Jeu 13 Mai 2010 - 0:53

Moi aussi j'ai eu à plusieurs reprises envie de faire quelque chose comme ça, mais à chaque fois j'ai été découragé par l'ampleur du travail à faire. Je pense que toi Klaus tu n'es pas mal placé si tu as l'habitude de l'IDE de VB.
J'ai regardé le travail de Nicolas, c'est bien fait mais on est rapidement bloqué.

J'utilise Panoramic depuis peu , et,je vois qu'il y a beaucoup de choses a faire autour de lui pour aider dans notre programmation. cosmos70 avec son debogueur qui est tres bien soit-dit en passant,et qui fonctionne. Nicolas avec son ide, je suis sur qu'il y arrivera (il pourrait enregistrer ce qu'il fait dans un memo ( c'est super le memo, list, dlist) etc...et il y a d'autre sur ce forum qui ont développer d'autres utilitaires pour Panoramic. En ce moment j'essaye de faire deux utilitaires pour Panam. Un sur sorte d'analyseur de programme . récupération des variables avec leurs emplacements, des goto , des labels, et ainsi de suite. Ainsi qu'une sorte de memento une fenetre tout en longueur avec toutes les instructions dedans avec un ascenceur dur la droite et pouvoir faire un copy coller de l'instruction dans Panoramic. Malgré notre jeune age jl35 Very Happy

il ne faut pas laisser tomber les bras. Dans Panam il y a beaucoup de bonnes choses a exploiter . Just avant j'utilisai un autre basic avec beaucoup d'instruction il est super mais lui et moi on a du mal a s'entendre. Mais avec Panam cela a été tout de suite j'aime bien ça façon de programmer.

Sujet: Re: New-Editor-4 V.0.1.9.56

» Panoramic Editor
» panoramic - Editor
» Personnal Panoramic Editor
» Options de Panoramic-Editor
» CROSS WORDS EDITOR