3 projets d\'un coup !!! - Page 1

Ils avancent pas beaucoup mais ils sont en cours depuis fin novembre 2001

A=> un OCX vb5 et 6 appelé LINK92 pour le $5 cable.
B=> un soft FULLLINK92 plus de fonctions que W32TRAN8X 4.
C=> un service Windows NT 2000 XP pour gérer la liaison en permanence sans soft.




Les détails :

A)
Dans un premier temps, nécessité d’avoir DLPRTIO, mais ça devrait pas durer

L’ocx permettra de communiquer avec la TI92 TI92+ (et accessoirement les autres…)


les noms de fonctions suivront mais dès à présent je peux vous indiquer comment on programmera une appli pour faire des screenshots en VB :


private sub form_load ()
com92.init
end sub

private sub form_terminate ()
com92.terminate
end sub

private sub command1_click ()
com92.screenshot picture1 , no_delay
end sub

c pas trop compliqué non ? et on aura droit à tous les niveaux (par exemple, on pourra faire com92.send_byte &H47 )

y’a déjà une version semi-stable sur mon pc… (il n'enregistre pas les params de connexion d'une fois sur l'autre, le reste marche plutôt bien)

B)

les fonctions dispos :

pc envoie fichier
possibilité d’envoyer un fichier (la calto se met en réception toute seule)
pc envoie fichierS
idem avec une liste de fichiers et éventuellement avec sous-répertoires et zips
pc envoie backup
(92 seulement dans un premier temps) envoie un backup (patchable fargo)
pc envoie touche
envoi d’une touche isolée
pc envoie touches
mise en mode envoi de touches, clavier virtuel ET clavier PC simultanément
pc envoie group
envoi d’un fichier de groupe (standard ti .9xz .92g ou standard fargo .92@)
pc pompe fichier
possibilité de pomper un fichier
pc pompe backup
pomper un backup (92 seulement dans un premier temps)
pc pompe screen
screendump (240*128)
pc pompe fichierS
pompage d’une liste de fichiers et groupement éventuel
pc pompe dir
pompe la vat sur la calto
pc pompe version
appel de version de la calto
pc met en mode remote
mise en remote
pc gère remote
affichage des commandes et résultats sauvegardable sur pc
pc recherche sur calto
recherche par nom ou par type d’un fichier sur tous ou un rép
pc gère archive
mise en archive ou en lock des fichiers envoyés ou existants sur calto
pc allume/éteint la calto
dans le cas d’une connexion permanente
pc gère contraste & co
gestion des paramètres de la calto (gestion de tous les param en fonction de la version)
pc prend la main totale
mode spécial pour pouvoir combiner remote & screen & file transfert
92 envoie fichier
varlink send
92 envoie fichierS
varlink send avec selection multiple
92 appelle fichier
varlink receive (appelle un écran coté pc pour le choix des fichiers)
92 considère pc comme CBR/CBL
send({a,b,c,d,e,f,…})


C)
Il s'agira d'un service compatible windows NT 2000 (XP?) qui permettra de gérer la liaison comme un périphérique standard pour faciliter les liaisons 92/92+ <=> PC
Pour windows 95 98 (ME), on aura en fait (et il est quasiment fini) une icone dans la barre système (à coté de l'horloge) et un disque (virtuel) dont l'accès donnera l'impression que la 92 est un disque amovible !!!




Valà, j'avais laissé de coté tout ça au profit du projet diox, mais je suis en attente que les gens aillent signer les statuts qu'on leur a fait, donc tant qu'ils se bougent pas g tout mon temps

Si vous avez des suggestions, des questions ou des propositions...

-

explique aussi le link par port serie et puis vive le projet C

Donc c du VB que je vais faire mais je cause aussi courament le C (c'est comme ça que j'ai commencé les coms en mode msdos)

Pour ce qui est du protocole, il sera documenté avec l'OCX (mais c pas votre priorité à priori )

Pour ce qui est du protocole, y'aura un tuto un jour sur mon site !!!

Pour le port série, j'ai plus de microjack sur ma 92, c une prise maison, et j'en ai plus d'avance pour me faire le câble, mais ça a pas l'air bien compliqué...



et peut-être pour plus tard, le même en C pour nunuX

je veux juste savoir avec quel param ouvrir le port com sur le PC apres je sais me débrouiller.
mais j'airrive pas a l'ouvrir correctement

( je parle pour utiliser avec le black link officiel )

les câbles officiels ?

j'en sait rien, je suis un fana du $5 câble....

Bien entendu, les encouragements (même sous forme de dons en espèces ou en chèque) sont les bienvenus

pas d'encouragements tant que tu m'aides pas

vince
a écrit : Bien entendu, les encouragements (même sous forme de dons en espèces ou en chèque) sont les bienvenus

T'as droit de rever, mais moi si gt toi, j'arréteré le péte!!

-

je filerais le source du send_byte et du get_byte (en VB avec DLPORTIO) ce soir quand j'aurais les sources sous les yeux. D'ici là c en effet ça, il faut envoyer bit par bit la valeur qui t'intéresse sur le principe suivant

tu as deux fils (plus une masse) pour envoyer 1 tu lèves le fil et tu attends que l'autre bout le baisse, idem pour 0 mais sur l'autre fil. C le principe de fonctionement du câble //, les diodes servent à ce que tu ne puisse que lire sur ce port la plage d'@ du lpt1 est 0x378,0x379 et 0x37A et le lpt2 c'est 0x278, 0x279 et 0x27A... voilivoilà, plus d'explications ce soir...

EagleLIONHEART a écrit :
T'as droit de rever, mais moi si gt toi, j'arréteré le péte!!

je veux bien croire que je me la pète mais c pas plus compliqué à faire qu'unRPG Mediéval Fantastique et comme dit dans mon post précédent, pour preuve de ma bonne foi je mets du source vb en ligne dès ce soir...

enfin je vois pas en quoi je me la pête... (merci de préciser)

vince a écrit :
je veux bien croire que je me la pète mais c pas plus compliqué à faire qu'unRPG Mediéval Fantastique et comme dit dans mon post précédent, pour preuve de ma bonne foi je mets du source vb en ligne dès ce soir...
enfin je vois pas en quoi je me la pête... (merci de préciser)

G pa di que tu te la pété, mais qu'il fallait que t'arrete de fumer le péte, le bedo, la beu, le shit, la majijuana...t'as compri cet fois?

Et je disé ca parce que tu voulai kon t'encourage en te faisant des dons. AMHA c pa tro le genre de la plupar des gens de la communoté.


Que veu-tu dire qd tu di: "c pa plu compliké que de fre un RPG-Medieval-Fantastique"? que tu pourrai en fre un les doi ds le nez? parce que si c ca, moi je v t'appelé le "mytho"

j'ai pas dit que je pourrais en faire un les doigts dans le nez au contraire j'ai dit que ce n'était pas plus compliqué que... (que ce que je fais est plus simple quoi...)


autrement je vois dans ta signature que t'as une 89, je cherche un testeur avec une 89, j'ai déjà une 92 et un module + (donc une 92+)





Pour les autres : le code sera ptet pas commenté à 100% mais ça viendra...

ok, pa de prob, je veu bien tester pr toi. Tu m'enverra ce kil fo tester kan?

une semaine ou deux...

avec fichiers de test fichiers logs à me retourner...

ok, pa de prob. Au fait, c koi que tu veu me fre tester exactement?

Vince, moi j'ai une 92+ HW2 et XP, donc je peut beta tester ton projet prioritaire à l'heure ou je post ce message

le bon fonctionnement de l'ocx sur des prises d'écran par exemple...




---------------

j'ai posté en -même temps que mac

XP c pour le TIdrive, c pour un peu plus tard...

Nana nan, ça "Le service/TI=périph PC"

'------------------------------------
'|GET92, Choppe un octet |
'------------------------------------
Function get92() As Integer
tcount = tcount + 1
Dim bit As Integer
Dim Data As Byte
Dim old As Byte
Dim v As Byte
lpt_in = vvLPT_Base + 1
lpt_out = vvLPT_Base
Data = 0
RX_Activity = True
For bit = 0 To 7
Do
v = READPORT(lpt_in) And &H30: DoEvents
Loop While v = &H30
If v = &H10 Then
Data = Int(Data / 2) + &H80
WRITEPORT lpt_out, 1
Do: DoEvents: Loop While (READPORT(lpt_in) And &H20) = 0
WRITEPORT lpt_out, 3
Else
Data = Int(Data / 2)
WRITEPORT lpt_out, 2
Do: DoEvents: Loop While (READPORT(lpt_in) And &H10) = 0
WRITEPORT lpt_out, 3
End If
Delayit
Next
RX_Activity = False
get92 = Data
End Function
'------------------------------------
'|PUT92, Balance un octet |
'------------------------------------
Sub put92(Data As Byte)
TX_Activity = True
tcount = tcount + 1
lpt_in = vvLPT_Base + 1
lpt_out = vvLPT_Base
Dim bit As Integer
Dim old As Byte
For bit = 0 To 7
If (Data Mod 2) = 1 Then
WRITEPORT lpt_out, 2
Do: DoEvents: Loop While READPORT(lpt_in) And &H10
WRITEPORT lpt_out, 3
Do: DoEvents: Loop While (READPORT(lpt_in) And &H10) = 0
Else
WRITEPORT lpt_out, 1
Do: DoEvents: DoEvents: Loop While READPORT(lpt_in) And &H20
WRITEPORT lpt_out, 3
Do: DoEvents: DoEvents: Loop While (READPORT(lpt_in) And &H20) = 0
End If
Data = Int(Data / 2)
Delayit
Next
TX_Activity = False
End Sub


et valà le source pour lire ou écrire un un byte sur le port //









il manquait ça :

Public Declare Sub WRITEPORT Lib "PORTIO32.DLL" (ByVal Port As Integer, ByVal Wert As Integer)
Public Declare Function READPORT Lib "PORTIO32.DLL" (ByVal Port As Integer) As Integer

Donc à priori, vous voulez le driver en premier... ok...

le principe est celui d'un pseudo disque virtuel (pas comme je l'avais imaginé au début)

il permettra
d'ouvrir un fichier
de créer un fichier
de modifier un fichier
de supprimer un fichier
de parcourir l'arborescence de la ram de la calto
d'avoir les propriétés du fichier
servir de destination pour une copie de fichier
le drop du drag n drop

il ne permettra pas
de servr de source pour un drag n drop, on copierait en fait un lien et pas le fichier
de servir de source en général pour une copie windows


Voilà je pense que c'est un bon compromis, en attendant mieux...

-

y'a plus qu'à interfacer la com avec la calto, mais on peut déjà faire les opérations ci dessus elles sont détectées, elles n'auront plus qu'à envoyer les infos sur l'ocx pour qu'il communique avec la calto !!!

EN+ => vous pourrez ajouter un fichier au niveau racine (style un mémo, ou une info sur la config) il n'y aura pas d'erreur, à la racine, on filtre pour ne garder que les rep. De même si on a des sous reps de créés, comme TI ne les gère pas, ils seront ignorés et pourront servir au moemnt de tests par exemple pour garder sous le coude différentes versions du même programme (même nom sur la calto)...

Fait chier

j'ai un truc plus important à faire (cause mariage.. ... pas le mien) en premier et ça joue sur un montage vidéo de 3h1/4 le tout sur ~40Go

je vais peut-être pas trop avancer dans la semaine...

je vais quand même essayer de mettre à dispo un exe pour tester ma com sur vos caltos (89 ou 92+) par $5 câble. Il s'agira d'une prise d'écran et de l'envoi d'un jzoli message sur la calto en plusieurs versions, s'accompagnera d'un bug report...

après avoir installé dlportio(indispensable pour w32trans je crois) tu branches ton câble // sur le LPT1 (je l'ai fixé en dur donc pas le lpt2) tu branches ta calto et tu lances le programme toptop.exe tu cliques sur l'appareil photo, et quand t'as fini si ça t'amuses, tu peux faire un copier coller de l'écran enfin tu fais close. (ça c le cas idéal)

j'aimerais avoir les infos suivantes :

-des prises d'écran une fois effectué ou des messages qui pourraient survenir (ALT+IMPR ECRAN et coller dans paint...)
-ton/tes système d'exploitation (chez moi erreur de protection sous win2k pro, win98, pas de prob)
-ton hw de calto
-la calto s'est-elle freezée à la connexion (avant lancement du prog) ?
-ça ne se fait plus(freez) après la première exécution du prog (sauf reboot du pc) ?
-qu'est que ça donne pour une 89 (image découpée en haut à gauche ou image canal+ crypté )?

Dernier conseil : sauvegardez avant au cas ou... (enfin je touche pas au fichiers de la calto..)

pour éviter les couilles qui arrivent à certains : "do it At your own Risk" je ne serais être tenu pour responsable des domages patatipatata... enfin je l'ai testé chez moi sur ma calto et sur mon pc avant de l'envoyer...


D'avance merci pour les tests (pas compliqué pour le moment, g pas trop le temps)





http://www.alizenet.com/~vmarchand/toptop.exe

pour ceux qu'ont pas la dll dlportio.dll

http://www.winfordeng.com/download/port95nt.exe

Et pour ceux qu'on pas le cable //

-