Gambas-it

Vari => OpenBar => Topic aperto da: madnessmike - 04 Maggio 2009, 22:13:26

Titolo: [Divertente] Funzione per Love Test
Inserito da: madnessmike - 04 Maggio 2009, 22:13:26

Premetto subito che questo topic va considerato come un gioco e non una richiesta d'aiuto :ot:

Quante volte facendo zapping in TV avete visto la pubblicità "Manda un SMS con il tuo nome ed il suo nome al numero X"?

Ebbene, visto che qui (più o meno) siamo tutti programmatori, come realizzereste (ovviamente in Gambas) una funzione per valutare l'affinità di coppia?

Ad esempio, questo è il mio codice (il più azzeccato, secondo me :hammer:):

Codice: [Seleziona]

PUBLIC SUB CalcolaAffinita(TuoNome AS String, SuoNome AS String) AS Integer
  DIM Affinita AS Integer = Int(Rnd() * 101)
  RETURN Affinita
END

Sono curioso, postate i vostri capolavori che ci facciamo due risate! :rotfl:

Titolo: Re: [Divertente] Funzione per Love Test
Inserito da: Ceskho - 04 Maggio 2009, 22:59:46

Io in visual basic ne scrissi uno che calcolava l'affinità con le due date di nascita.....non so se qualcuno ha mai fatto quei giochi stupidi con la calcolatrice.....beh si basava proprio su quello!!!!

Titolo: Re: [Divertente] Funzione per Love Test
Inserito da: md9327 - 04 Maggio 2009, 23:31:13

Pensavo fosse solo "Cicaleccio" a creare programmi inutili... ora ti ci metti pure tu "MadnessMike" ???

 :-P  :-P  :-P

A proposito, caro il mio "cicala"... perchè non mi aiuti testando pgDesigner, invece di dare fastidio ai nostri poveri utenti?

eheheheheh

Titolo: Re: [Divertente] Funzione per Love Test
Inserito da: Ceskho - 05 Maggio 2009, 00:12:00

@ signore con 2 lettere e 4 numeri

Veramente io devo ancora capire a cosa serve pgDesigner! Per il resto ti aiuto volentieri in tutto quello che vuoi!!!!

Titolo: Re: [Divertente] Funzione per Love Test
Inserito da: leo72 - 06 Maggio 2009, 01:51:56

Uhm.. la mia funzione di calcolo dell'affinità di coppia la baserei sul computo di quante lettere hanno in comune i nomi.
Es.:

Codice: [Seleziona]

  (...)
  NomeLei = Lower(txtNomeLei.Text)
  NomeLui = Lower(txtNomeLui.Text)
  i = 0
  FOR j = 1 TO Len(NomeLui)
    FOR k = 1 TO Len(NomeLei)
      IF Mid(NomeLui, j, 1) = Mid(NomeLei, k, 1) THEN 
        i += 1
      ENDIF 
    NEXT 
  NEXT 
  Message.Info("L'affinità di coppia è " & Trim(CStr(i * 5)))
  (...)

E' un codice semplice semplice, che può essere affinato molto. Ad esempio si potrebbe mettere uno pseudo-controllo sui segni zodiacali oppure qualche calcolino sulle date di nascita ecc..

Titolo: Re: [Divertente] Funzione per Love Test
Inserito da: claudio - 06 Maggio 2009, 10:53:53

questa è la mia formula:

D = (U / 2) + 7

dove U è l'età dell'uomo e D è l'età della donna.

Titolo: Re: [Divertente] Funzione per Love Test
Inserito da: md9327 - 06 Maggio 2009, 12:41:00

[Per Checcozzalone]
A dir la verità non lo sò neppure io... :-)

Scherzi a parte, se conosci un pò l'ambiente database, pgDesigner è un programma di utilità per il disegno e la creazione.
Oltre alla codifica, avrei molto bisogno di qualcuno che lo testi seriamente, e che mi possa dare eventualmente dritte per migliorarlo e correggerlo.
Fino ad oggi tutte ste cose le stò facendo io, tra un modifica e l'altra, provo a fare qualche test, ma tutto non si riesce a fare, e i tempi di rilascio si allungano...