Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.

Forum Casio - Discussions


Index du Forum » Discussions » Aide - textes
Paule Hors ligne Membre Points: 9 Défis: 0 Message

Aide - textes

Posté le 22/10/2016 21:45

Salut,
J'ai un problème, exécuter mon programme et les pauses, la raison est que "G" est supérieur à 6 et nous espérons que les résultats de 6 n 6 affichés sur l'écran aprenatndo un bouton.

fixation d'essai

J'espère que je comprends (tradución par google)

Fichier joint


Drak Hors ligne Rédacteur Points: 1925 Défis: 40 Message

Citer : Posté le 22/10/2016 23:26 | #


Puedes tu decirlo en español ?
Eon the Dragon : version 1.2
Let's have a look!
Marre de ces RPGs qui t'imposent des classes, des compétences et des sorts ? Crée tes propres capacités sur Eon the Dragon ! Des monstres, des dragons et des combats aussi épiques que difficiles t'attendent !
Un RPG unique et immense t'attend ! Joue dès maintenant à Aventura, le Royaume Poudingue !
Vous aussi, soyez swag et rejoignez Planète Casio !
Paule Hors ligne Membre Points: 9 Défis: 0 Message

Citer : Posté le 22/10/2016 23:35 | #


Gracias por tu atención.

bueno mi problema es que cuando ejecuto mi programa, se muestran los datos de mi lista pero como maximo 6 valores, después de ello se rompe, lo que deseo es que se muestran de 6 en 6 presionando un botón hasta que se termine de mostrar todos los valores.

adjunte un archivo para ejemplo.

Saludos
Drak Hors ligne Rédacteur Points: 1925 Défis: 40 Message

Citer : Posté le 23/10/2016 01:01 | #


Consideramos que quieras mostrar los valores que forman parte de la lista 1. No sabemos la cantidad de valores que tiene esa lista. Utilizaramos eso :
Dim List 1→D


"Dim List" ([OPTN]→[F1]→[F3] i [F1]) devuelve la cantidad de casillas que forman parte de la lista.

Pues :
Cls //para limpiar la pantalla
Dim List 1→D
For 1→A To D
Text 1+6MOD(A-1,6),1,List 1[A] //para indicar los valores
If MOD(A,6)=0
Then Do
Getkey
LpWhile Ans=0 //presionar un boton para continuar
Cls
IfEnd
Next


No obstante, no sé si mi programa corresponde a que quieres...


Eon the Dragon : version 1.2
Let's have a look!
Marre de ces RPGs qui t'imposent des classes, des compétences et des sorts ? Crée tes propres capacités sur Eon the Dragon ! Des monstres, des dragons et des combats aussi épiques que difficiles t'attendent !
Un RPG unique et immense t'attend ! Joue dès maintenant à Aventura, le Royaume Poudingue !
Vous aussi, soyez swag et rejoignez Planète Casio !
Paule Hors ligne Membre Points: 9 Défis: 0 Message

Citer : Posté le 23/10/2016 15:53 | #


Gracias!!!!!

Si funciono, ahora solo dos pregunta mas, si deseo colocar 2 o mas listas a la vez y colocando al costado de cada resultado un texto, pero esta vez cada vez que presione Getkey=27 avance el resultado y Getkey=38 retroceda al resultado anterior..

Ejemplo:

-----List 1----------------List 2---
A1= 123.00 ---- B1= 110.20
A2= 143.62 ---- B2= 120.30
A3= 150.30 ---- B3= 128.0
Etc.

Gracias por tu ayuda.

Saludos
Drak Hors ligne Rédacteur Points: 1925 Défis: 40 Message

Citer : Posté le 23/10/2016 16:29 | #


Ah, si !

Pues, no es tan facil... Pero creo que puedo ayudarte.

Si quieres agregar un texto para indicar la casilla como "A1=", hay que...

1/ escribir el "A"
2/ escribir el numero
3/ escribir el "="
4/ y finalmente, escribir el valor de la casilla, como "123".

El problema que se plantea es que no vamos a escribir todos los numeros sobre la misma abscisa. Eso depende de la longitud del numero.

Por eso, voy a utilizar la funcion Log :
porque : Log(1) = 0
Log(10) = 1
Log (100) = 2 etc.

pues, Int (Log (45)) = Log(10) = 1
Asi, podemos devolver el numero de digitos que tiene el indice. (¿ Soy inteligible?)

Voy a agregar eso :
Int log A→L

Finalmente :
Cls
Dim List 1→D
For 1→A To D
Int log A→L
1+6MOD(A-1,6)→B //la ordenada
Text B,1,"A" //escribir la letra "A"
Text B,5,A //indicar el valor de la variable A
Text B,9+4L,"="
Text B,17+4L,List 1[A
If MOD(A,6)=0
Then Do
Getkey
LpWhile Ans=0 //presionar un boton para continuar
Cls
IfEnd
Next


Eon the Dragon : version 1.2
Let's have a look!
Marre de ces RPGs qui t'imposent des classes, des compétences et des sorts ? Crée tes propres capacités sur Eon the Dragon ! Des monstres, des dragons et des combats aussi épiques que difficiles t'attendent !
Un RPG unique et immense t'attend ! Joue dès maintenant à Aventura, le Royaume Poudingue !
Vous aussi, soyez swag et rejoignez Planète Casio !
Paule Hors ligne Membre Points: 9 Défis: 0 Message

Citer : Posté le 23/10/2016 16:50 | #


Gracias!

Pero eso es solo para agregar a los datos de 1 lista, y si quiero mostrar 2 listas a la vez? y tambien ver el tema de avanzar y retroceder la visualización de datos con los botones?

Saludos y Disculpa por tantas preguntas...
Drak Hors ligne Rédacteur Points: 1925 Défis: 40 Message

Citer : Posté le 23/10/2016 17:18 | #


Para avanzar o retroceder con los botones, o controlar lo que quieres... Hay que conocer la funcion Getkey
Pero pienso que conoces un poco eso. Como utilizarlo?
Do
Getkey→G
LpWhile G=0 //o LpWhile Not G
If G=27
Then ...
IfEnd etc.


Depues, para ver dos listas a la vez, puedes mostrar la primera a la izquierda y la secunda a la derecha :
Text B,17+4L,List 1[A
Text B,63+17+4L,List 2[A //o Text B,80+4L,List 2[A


Tratas de hacerlo con estas informaciones!

Hasta la vista!
Eon the Dragon : version 1.2
Let's have a look!
Marre de ces RPGs qui t'imposent des classes, des compétences et des sorts ? Crée tes propres capacités sur Eon the Dragon ! Des monstres, des dragons et des combats aussi épiques que difficiles t'attendent !
Un RPG unique et immense t'attend ! Joue dès maintenant à Aventura, le Royaume Poudingue !
Vous aussi, soyez swag et rejoignez Planète Casio !
Paule Hors ligne Membre Points: 9 Défis: 0 Message

Citer : Posté le 23/10/2016 19:11 | #


Gracias!!!!!!!!

Con toda esta informacion comenzare a practicar y cuando termine el programa que estoy haciendo, lo compartiré con todos (Es un programa orientado a la calderería, trabajos de chapas o planchas para crear figuras geométricas en la metal-mecánica).

Saludos

Ajouté le 23/10/2016 à 20:44 :
La ultima ayuda por favor.

Ahora en vez de que la numeración sea A1, A2, A3,etc, Como puedo hacer para que se muestre de como A1, B2, C3, D4,etc

Saludos
Drak Hors ligne Rédacteur Points: 1925 Défis: 40 Message

Citer : Posté le 23/10/2016 21:27 | #


Es posible con Str ("string" en ingles). Si tienes un numero para saber qué letra la programa va a mostrar, puedes hacer eso :

StrMid("ABCDEFGH",A,1)


Por ejemplo,
Text Y, X, StrMid("ABCDEFGH",[b]1[/b],1)
escribe "A", la premiera letra, en la pantalla.
Otro ejemplo :
Text Y, X, StrMid("ABCDEFGH",[b]3[/b],1) //escribe "C", la tercera letra

Eon the Dragon : version 1.2
Let's have a look!
Marre de ces RPGs qui t'imposent des classes, des compétences et des sorts ? Crée tes propres capacités sur Eon the Dragon ! Des monstres, des dragons et des combats aussi épiques que difficiles t'attendent !
Un RPG unique et immense t'attend ! Joue dès maintenant à Aventura, le Royaume Poudingue !
Vous aussi, soyez swag et rejoignez Planète Casio !

LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
 :)  ;)  :D  :p
 :lol:  8)  :(  :@
 0_0  :oops:  :grr:  :E
 :O  :sry:  :mmm:  :waza:
 :'(  :here:  ^^  >:)

Σ π θ ± α β γ δ Δ σ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 75 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd