Hej, najlepiej jak chcecie wymienić na inną wersję to po odinstalowaniu proga wykasujecie wszystko co zostało na dysku C.Reset kompa i instalacja na nowo .Jezeli jest ktoś zainteresowany nową bazą to proszę o wiadomość . Jeżeli pomogłem dodaj punkcik.Pozdrawiam.
Scripts menu
option explicit
dim LanguageCode
dim VehicleName
sub ScriptButton_OnClick()
CustomerFeatures.style.display= " none "
Documentation.style.display= " none "
Scripts.style.display= " "
end sub
sub CustomerFeaturesButton_OnClick()
Scripts.style.display= " none "
Documentation.style.display= " none "
CustomerFeatures.style.display= " "
end sub
sub DocumentationButton_OnClick()
Scripts.style.display= " none "
CustomerFeatures.style.display= " none "
Documentation.style.display= " "
end sub
sub MRVehicleButton_OnClick()
document.all.DocIframe.src= " http://doc-online.ctr.renault.fr/MR/ " & LanguageCode & " /HTML/ " & VehicleName & " .htm "
end sub
sub MRDevicesButton_OnClick()
document.all.DocIframe.src= " http://doc-online.ctr.renault.fr/MR/ " & LanguageCode & " /HTML/ " & " organes " & " .htm "
end sub
sub PRAllButton_OnClick()
document.all.DocIframe.src= " http://doc-online.ctr.renault.fr/PR.htm "
end sub
sub NTNewButton_OnClick()
document.all.DocIframe.src= " http://doc-online.ctr.renault.fr/NT/ " & LanguageCode & " /HTML/ " & " new " & " .htm "
end sub
sub NTAllButton_OnClick()
document.all.DocIframe.src= " http://doc-online.ctr.renault.fr/NT/ " & LanguageCode & " /HTML/ " & " C/all " & " .htm "
end sub
sub GammesInfosButton_OnClick()
document.all.DocIframe.src= " http://kdo.ruc.tcr.renault.fr/public/infos65670/donnees/dvlp_gammes/gam_ref_metier/81 "
end sub
sub CurrentLanguage_OnChange()
LanguageCode = document.all.CurrentLanguage.options(document.all.CurrentLanguage.selectedIndex).value
end sub
Sub Window_OnLoad()
VehicleName = " ESPACE "
LanguageCode = document.all.CurrentLanguage.options(document.all.CurrentLanguage.selectedIndex).value
end sub
SCRIPTS
CUSTOMER FEATURES
DOCUMENTATION
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
ESPACE
IV (X81) - SCRIPT
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
RVLV
Régulation
Vitesse
Contrôle de la
fonctionRVLV et pédalier
after SCAN
ACC/LV
ACC
limitationVitesse
Contrôle de la
fonctionACC-LV et pédalier
after SCAN
PEDALIER
Pédalier
Contrôle de la
fonctionRVLV et pédalier
after SCAN
SSPP
Lecture
des codes SSPP
Lecture des codes SSPP
jeu Eté/Hiver
after SCAN
FPA
Configuration
FPA
Configuration du frein
de parking (en cours de validation)
after SCAN
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
ESPACE
IV (X81) - CUSTOMER FEATURES
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
ESPACE
IV (X81) - DOCUMENTATION
source
doc-online
LANGUE
Fran & ccedil;ais
Allemand
N & eacute;erlandais
Anglais
Italien
Portugais
Espagnol
Su & eacute;dois
Hongrois
Polonais
Tch & egrave;que
Slov & egrave;ne
Roumain
Turc
Russe
Grec
Japonais
Argentin
Br & eacute;silien
& nbsp;
MR
& nbsp;vehicule
& nbsp;organes
& nbsp;
PR
& nbsp; tout
type
& nbsp;
NT
& nbsp; nouvelles
& nbsp; toutes
& nbsp;
GAMMES
& nbsp; infos
& nbsp;
3BF300
00000000000000000000000000000000
111111111213141516171718191A1B1C
111111111213141516181B1D1E202224
111111111213141516171718191A1B1C
111111111213141516171718191A1B1C
1111111112131314151617181A1C1E23
1E
00
0000000000000000
1E1F3856758BC8F4
2324415F7994C8F4
2627486E9CC9EEF0
2223415C7B98B4F0
2627486E9CC9EEF0
2627486E9CC9EEF0
27284A7199C0E8F0
2223415C7B98B4F0
2425456995C0E3F0
00000000000000000000000000000000
A0464646733C494F525457585A5D6063
B04A4A4A7D3C5A6466686B6C6E717477
00
1D
1C
55
36
41
46
46
3C
41
F1
F0
D5
75
00
00
00
00
00
72
77
76
76
7A
7A
77
00
00
00
00
72
79
79
76
7D
7D
79
00
01
9600FFFF
UCBIC/BFR
Ecriture Jeu roue SSPP
Selection du jeu de roue
Flag selection jeu roues
Identity roue1 jeu0
Identity roue2 jeu0
Identity roue3 jeu0
Identity roue4 jeu0
Identity roue1 jeu1
Identity roue2 jeu1
Identity roue3 jeu1
Identity roue4 jeu1
Codes SSPP INJ X74
option explicit
'=================================================== declaration des calculateurs
Dim pUCH
'===================================================
' DIAG SPECIFIC declarations
'===================================================
Dim DataListSSPP
Dim CodeAVDete
Dim CodeAVGete
Dim CodeARDete
Dim CodeARGete
Dim CodeAVDhiver
Dim CodeAVGhiver
Dim CodeARDhiver
Dim CodeARGhiver
Dim JeuRouesCourant
Dim RequeteEcritureJeuRoue
Dim SelectionJeuRoue
'===================================================
' DIAG SPECIFIC functions
'===================================================
sub ActiverJEU0
SelectionJeuRoue.Value = 0
RequeteEcritureJeuRoue.Send
StepLecture
end sub
sub ActiverJEU1
SelectionJeuRoue.Value = 1
RequeteEcritureJeuRoue.Send
StepLecture
end sub
sub BuildDataSSPP
' recherche du bon nom pour chaque donnee dans une fonction
set JeuRouesCourant = getData(pUCH, " JeuRouesCourant " )
set CodeAVDete = getData(pUCH, " CodeAVDete " )
set CodeAVGete = getData(pUCH, " CodeAVGete " )
set CodeARDete = getData(pUCH, " CodeARDete " )
set CodeARGete = getData(pUCH, " CodeARGete " )
set CodeAVDhiver = getData(pUCH, " CodeAVDhiver " )
set CodeAVGhiver = getData(pUCH, " CodeAVGhiver " )
set CodeARDhiver = getData(pUCH, " CodeARDhiver " )
set CodeARGhiver = getData(pUCH, " CodeARGhiver " )
' construction de la liste des donnees
DataListSSPP = array(JeuRouesCourant,CodeAVDete,CodeAVGete,CodeARDete,CodeARGete,CodeAVDhiver,CodeAVGhiver,CodeARDhiver,CodeARGhiver)
set RequeteEcritureJeuRoue = getRequest(pUCH, " EcritureJeuRoue " )
'MsgBox TypeName(RequeteEcritureJeuRoue )
set SelectionJeuRoue = getRequestData(RequeteEcritureJeuRoue, " EcritureJeuRoue " , " SelectionJeu " )
'MsgBox TypeName(SelectionJeuRoue )
end sub
'===================================================
' SCRIPT SPECIFIC STEPS functions
'===================================================
'--------------------------------------------------- preparation
sub StepPreparation
AutoMode=False
' preparation diag et init communication avec UCEs
set pUCH = GetProtocol( " UCH " )
' affichage bouton EXIT et prepa label bouton restart pour la suite
Display ExitButton
'Display AutoButton
SetLabel StartButton, " RESTART "
' controle Data
CheckDataDisplay.style.backgroundcolor=ScriptYellow
CheckDataDisplay.innertext= " Vérification données en cours... "
BuildDataSSPP
if CheckDataList(DataListSSPP) then
CheckDataDisplay.style.backgroundcolor= " mediumseagreen "
CheckDataDisplay.style.color= " white "
CheckDataDisplay.innertext= " Informations Diagnostic OK "
Display StepButton
else
CheckDataDisplay.style.backgroundcolor= " red "
CheckDataDisplay.style.color= " white "
CheckDataDisplay.innertext= " Informations Diagnostic NON OK "
Display TicketButton
end if
If not pUCH.connected then pUCH.Init
end sub
'--------------------------------------------------- lecture SSPP
sub StepLecture
DisplayMessage " EN COURS " , " black " , ScriptYellow
Fleche0.style.display= " none "
Fleche1.style.display= " none "
RefreshDataList(DataListSSPP)
WriteTicket " " , " black " , " white "
WriteTicket " " & " JEU DE ROUES COURANT = " & JeuRouesCourant.text , " black " , " gainsboro "
WriteTicket " " & " CODES JEU ETE & nbsp; & nbsp;(Jeu 0) - " , " black " , " white "
WriteTicket " & nbsp; & nbsp; " & " Code AVG = " & CodeAVGete.text , " black " , " white "
WriteTicket " & nbsp; & nbsp; " & " Code AVD = " & CodeAVDete.text , " black " , " white "
WriteTicket " & nbsp; & nbsp; " & " Code ARD = " & CodeARDete.text , " black " , " white "
WriteTicket " & nbsp; & nbsp; " & " Code ARG = " & CodeARGete.text , " black " , " white "
WriteTicket " " & " CODES JEU HIVER (Jeu 1) - " , " black " , " white "
WriteTicket " & nbsp; & nbsp; " & " Code AVG = " & CodeAVGhiver.text , " black " , " white "
WriteTicket " & nbsp; & nbsp; " & " Code AVD = " & CodeAVDhiver.text , " black " , " white "
WriteTicket " & nbsp; & nbsp; " & " Code ARD = " & CodeARDhiver.text , " black " , " white "
WriteTicket " & nbsp; & nbsp; " & " Code ARG = " & CodeARGhiver.text , " black " , " white "
' DisplayMessage " TERMINE " , " white " , " mediumseagreen "
Hide StepMessage
JeuCourant.innertext = JeuRouesCourant.text
if JeuRouesCourant.Value = 0 Then
Fleche0.style.display= " "
else
Fleche1.style.display= " "
end if
JeuCourant.innertext = JeuRouesCourant.text
AVGete.innertext = CodeAVGete.text
AVDete.innertext = CodeAVDete.text
ARDete.innertext = CodeARDete.text
ARGete.innertext = CodeARGete.text
AVGhiver.innertext = CodeAVGhiver.text
AVDhiver.innertext = CodeAVDhiver.text
ARDhiver.innertext = CodeARDhiver.text
ARGhiver.innertext = CodeARGhiver.text
Display StartButton
Display TicketButton
Display ExitButton
end sub
'=================================================== Page Starter
Sub Window_OnLoad()
'--------------------------------------------------- declaration de la liste des etapes a saisir ici
Steps=array(Intro,Preparation,Lecture)
'--------------------------------------------------- configuration mode debug pour tests
DebugMode=false
'=================================================== ne pas toucher la suite
GetSession
SetLabel StartButton, " START "
InitScript
end sub
'===================================================
X74 & nbsp; - & nbsp; LECTURE
CODES SSPP
& nbsp;
& nbsp;
& nbsp;
ETAPES
1
préparation
2
Lecture
des codes SSPP et sélection du jeu ETE/HIVER
lorsque vous êtes prêt, cliquez
sur START & nbsp;
pour quitter maintenant,
cliquez
sur EXIT
version 06 May 2003 - ©RENAULT & nbsp; & nbsp;
& nbsp;
& nbsp;
& nbsp;
PRÉPARATION
& nbsp;
1
Insérer le badge dans
le lecteur du véhicule & nbsp;
Mettre le + APC
& nbsp;
2
Vérifier que dans
votre config. SCAN il y a au moins & nbsp;
- CAN 250 ou une messagerie
- 1 UCH
& nbsp;
3
Connecter l'outil de
diagnostic au véhicule
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
Jeu de roues actuel
& nbsp;
& nbsp;
& nbsp;
& nbsp;
JEU 0 (été)
JEU 1 (hiver)
& nbsp;
& nbsp;
AVG
AVD
AVG
AVD
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
ARG
ARD
ARG
ARD
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
& nbsp;
DDT2000
Script
TICKET
X74 - CODE SSPP
& nbsp;
START
NEXT
CANCEL
AUTO
SHOW TICKET
EXIT
& nbsp;
& nbsp;
& nbsp;
Option Explicit
Function public_put_ConfigurationACC(data)
ConfigurationAccAffiche.innertext = data.text
select case data.value
case 0
ConfigurationAccAffiche.style.backgroundcolor= " red "
ConfigurationAccAffiche.style.color= " white "
case 1
ConfigurationAccAffiche.style.backgroundcolor= " mediumseagreen "
ConfigurationAccAffiche.style.color= " white "
end select
End Function
Function public_put_ConfigurationLV(data)
ConfigurationLvAffiche.innertext = data.Text
select case data.value
case 0
ConfigurationLvAffiche.style.backgroundcolor= " red "
ConfigurationLvAffiche.style.color= " white "
case 1
ConfigurationLvAffiche.style.backgroundcolor= " mediumseagreen "
ConfigurationLvAffiche.style.color= " white "
end select
End Function
Sub Window_OnLoad()
End Sub
Controle lecture ACC/LV
& nbsp;
& nbsp;
& nbsp;
ETAT de la & nbsp;
Fonction ACC/LV & nbsp;
& nbsp;
Configuration
ACC
& nbsp;
Configuration
LV
& nbsp;
& nbsp;
& nbsp;
Option Explicit
Sub Window_OnLoad()
End Sub
ControleFrein
& nbsp;
& nbsp;
& nbsp;
Contrôle Pédalier & nbsp;
FREIN & nbsp; & nbsp; & nbsp;
& nbsp;
& nbsp;
& nbsp;
Option Explicit
Sub Window_OnLoad()
End Sub
& nbsp;
& nbsp;
& nbsp;
CONTROLE RV/LV PEDALIER & nbsp;
TERMINE & nbsp; & nbsp; & nbsp;
& nbsp;
& nbsp;
Option Explicit
Sub Window_OnLoad()
End Sub
Contrôle boutons volant setpMoins
& nbsp;
& nbsp;
& nbsp;
Contrôle BOUTONS
VOLANT & nbsp;
SET - & nbsp; & nbsp; & nbsp;
& nbsp;
& nbsp;
& nbsp;
Option Explicit
Function public_put_ConfigurationRV(data)
ConfigurationRvAffiche.innertext = data.text
select case data.value
case 0
ConfigurationRvAffiche.style.backgroundcolor= " red "
ConfigurationRvAffiche.style.color= " white "
case 1
ConfigurationRvAffiche.style.backgroundcolor= " mediumseagreen "
ConfigurationRvAffiche.style.color= " white "
end select
End Function
Function public_put_ConfigurationLV(data)
ConfigurationLvAffiche.innertext = data.Text
select case data.value
case 0
ConfigurationLvAffiche.style.backgroundcolor= " red "
ConfigurationLvAffiche.style.color= " white "
case 1
ConfigurationLvAffiche.style.backgroundcolor= " mediumseagreen "
ConfigurationLvAffiche.style.color= " white "
end select
End Function
Sub Window_OnLoad()
End Sub
Controle lecture RV/LV
& nbsp;
& nbsp;
& nbsp;
ETAT de la & nbsp;
Fonction RV/LV & nbsp;
& nbsp;
Configuration
RV
& nbsp;
Configuration
LV
& nbsp;
& nbsp;
& nbsp;
Option Explicit
Sub Window_OnLoad()
End Sub
Contrôle boutons volant setplus
& nbsp;
& nbsp;
& nbsp;
Contrôle BOUTONS
VOLANT & nbsp;
SET + & nbsp; & nbsp; & nbsp;
& nbsp;
& nbsp;
& nbsp;
Option Explicit
Function public_put_ConfigurationRV(data)
ConfigurationRvAffiche.innertext = data.text
select case data.value
case 0
ConfigurationRvAffiche.style.backgroundcolor= " red "
ConfigurationRvAffiche.style.color= " white "
case 1
ConfigurationRvAffiche.style.backgroundcolor= " mediumseagreen "
ConfigurationRvAffiche.style.color= " white "
end select
End Function
Function public_put_ConfigurationLV(data)
ConfigurationLvAffiche.innertext = data.Text
select case data.value
case 0
ConfigurationLvAffiche.style.backgroundcolor= " red "
ConfigurationLvAffiche.style.color= " white "
case 1
ConfigurationLvAffiche.style.backgroundcolor= " mediumseagreen "
ConfigurationLvAffiche.style.color= " white "
end select
End Function
Sub Window_OnLoad()
End Sub
Controle lecture RV/LV
& nbsp;
& nbsp;
& nbsp;
ETAT de la & nbsp;
Fonction RV/LV & nbsp;
& nbsp;
Configuration
RV
& nbsp;
Configuration
LV
& nbsp;
& nbsp;
& nbsp;