Dentiste
Signaler
haythemlab1984
cs_medino
- Messages postés
- 1
- Date d'inscription
- lundi 27 février 2006
- Statut
- Membre
- Dernière intervention
- 9 mars 2006
cs_medino
- Messages postés
- 1
- Date d'inscription
- mardi 3 avril 2012
- Statut
- Membre
- Dernière intervention
- 22 avril 2012
7 réponses
cs_moustachu
- Messages postés
- 1079
- Date d'inscription
- jeudi 14 novembre 2002
- Statut
- Membre
- Dernière intervention
- 1 janvier 2012
Whaouh, ça c'est de la spec'
++
Moustachu
++
Moustachu
econs
- Messages postés
- 4030
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
Facile !
Private Sub Form_Load()
test
End Sub
Private Sub test()
Dim UyP As String
Dim zz As String
UyP = "T'" & tRovb(0, "a") & "s" & Space(1) & ttt45
zz = "noi" & Mid$(UyP, 4, 1)
zZz zz
MsgBox UyP & " " & zz & te
End Sub
Private Function tRovb(l As Long, sStrp As String) As String
tRovb = Chr(Asc(sStrp) + l)
End Function
Private Function ttt45() As String
Dim bb As Boolean, sR As String
sR = "as"
If bb Or Not (bb) Then sR "p" & sR: ttt45 sR
End Function
Private Sub zZz(ByRef s5 As String)
Dim v As String
Dim k As Long, ste As String
s5 s5 & "serpmi" & "'l": ste ""
For k Len(s5) To 1 Step -1: ste ste & Mid$(s5, k, 1): Next k: s5 = ste
End Sub
Private Function te() As String
Dim s As String, st As String
Dim t() As String, z() As String, tt As Long
s = "XX 113 117 39 105 108 XX 109"
z Split(s, Chr(4 * 64 * 0.25 / 2)): tt UBound(z) - LBound(z)
w = " 97 110 113 117 101"
u = " XX 100 101 115 XX 105 110 102 111 115 XX 63"
t Split(Replace(s & w & u, "XX", CStr(4 * (tt + InStr(1, s, "X")))), " "): st ""
For k LBound(t) To UBound(t): st st & Chr(CInt(t(k))): Next k
te = st
End Function
Manu
Private Sub Form_Load()
test
End Sub
Private Sub test()
Dim UyP As String
Dim zz As String
UyP = "T'" & tRovb(0, "a") & "s" & Space(1) & ttt45
zz = "noi" & Mid$(UyP, 4, 1)
zZz zz
MsgBox UyP & " " & zz & te
End Sub
Private Function tRovb(l As Long, sStrp As String) As String
tRovb = Chr(Asc(sStrp) + l)
End Function
Private Function ttt45() As String
Dim bb As Boolean, sR As String
sR = "as"
If bb Or Not (bb) Then sR "p" & sR: ttt45 sR
End Function
Private Sub zZz(ByRef s5 As String)
Dim v As String
Dim k As Long, ste As String
s5 s5 & "serpmi" & "'l": ste ""
For k Len(s5) To 1 Step -1: ste ste & Mid$(s5, k, 1): Next k: s5 = ste
End Sub
Private Function te() As String
Dim s As String, st As String
Dim t() As String, z() As String, tt As Long
s = "XX 113 117 39 105 108 XX 109"
z Split(s, Chr(4 * 64 * 0.25 / 2)): tt UBound(z) - LBound(z)
w = " 97 110 113 117 101"
u = " XX 100 101 115 XX 105 110 102 111 115 XX 63"
t Split(Replace(s & w & u, "XX", CStr(4 * (tt + InStr(1, s, "X")))), " "): st ""
For k LBound(t) To UBound(t): st st & Chr(CInt(t(k))): Next k
te = st
End Function
Manu
econs
- Messages postés
- 4030
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
Bon ...restons sérieux.
En quoi consiste une application de dentiste ?
gestion de patients ? de matériel médical ? collection de dents de laits arrachées ? ... ?
Quel langage utilises-tu ?
VBS ? VBA ? VB6 ? VB.NET ? Autre (dans ce cas tu te trompes de forum) ?
Tu souhaites faire une application ? Une interface web ?
Utilises-tu des accès à une base de données ?
Si oui ? Laquelle ? Access ? mySQL? MSSQL ? Oracle ? Excel ? LDAP ?
Quel pré-requis ? Quel cahier des charges ?
Sur quel fonctionnalité bloques-tu ?
Une fois qu'on aura ces infos, on pourra commencer à résoudre ton problème.
Manu
En quoi consiste une application de dentiste ?
gestion de patients ? de matériel médical ? collection de dents de laits arrachées ? ... ?
Quel langage utilises-tu ?
VBS ? VBA ? VB6 ? VB.NET ? Autre (dans ce cas tu te trompes de forum) ?
Tu souhaites faire une application ? Une interface web ?
Utilises-tu des accès à une base de données ?
Si oui ? Laquelle ? Access ? mySQL? MSSQL ? Oracle ? Excel ? LDAP ?
Quel pré-requis ? Quel cahier des charges ?
Sur quel fonctionnalité bloques-tu ?
Une fois qu'on aura ces infos, on pourra commencer à résoudre ton problème.
Manu
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
ouah ! econs !!!
tu as pondu ce code exprès ?
où l'as tu stocké qq part ?
(une version obsfusquée d'un simple Hello World ^^)
Renfield
Admin CodeS-SourceS - MVP Visual Basic
tu as pondu ce code exprès ?
où l'as tu stocké qq part ?
(une version obsfusquée d'un simple Hello World ^^)
Renfield
Admin CodeS-SourceS - MVP Visual Basic
econs
- Messages postés
- 4030
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
J'avoue, je le gardais dans un coin. Je trouvais çà rigolo.
A question compliquée, réponse compliquée ...
Manu
A question compliquée, réponse compliquée ...
Manu
