Visual Basic 6 - un +1 dopo un click

Forum - Visual Basic 6 - un +1 dopo un click

mmmmmm (Normal User)
Rookie

Messaggi: 32
Iscritto: 02/07/2007

Postato alle 18:07
Martedì, 10/07/2007

ciao volevo sapere se qualcuno mi sa postare un codice che...

in pratica da un form dovrei avere un campo testo e dopo che si invia cliccando il tasto invia, oltre alla funzione di inserimento/invio mi faccia in modo che faccia un +1 su un file di testo o un database sul web, o una pagina asp che a sua volta fa +1 sul database.

mi spiegate procedura e un semplice codice?

SuperTiz (Ex-Member)
Pro

Messaggi: 97
Iscritto: 25/05/2007

Postato alle 18:45
Martedì, 10/07/2007

in che senso fa un +1?

mmmmmm (Normal User)
Rookie

Messaggi: 32
Iscritto: 02/07/2007

Postato alle 19:21
Martedì, 10/07/2007

diciamo che ho un form
quando uno invia un messaggio e quindi clicca il bottone comando "INVIA" faccia in modo sia che invii il comando sia carichi una pagina web o aggiorni un database con un +1 ovvero vorrei avere un database con scritto quanti messaggi sono stati inviati.
una specie di contatore che poi andro' a prendere in un sito web con una pagina asp

SuperTiz (Ex-Member)
Pro

Messaggi: 97
Iscritto: 25/05/2007

Postato alle 20:45
Martedì, 10/07/2007

beh, basterebbe dichiarare una variabile... tipo cosi

Private Sub Form_Load()
dim x as integer
x = 0

Private Sub command1_click()
x = x+1

e poi gli metti una funzione che memorizza la variabile x nel database
facendo piu o meno cosi nn dovresti aver problemi

superchecco (Normal User)
Pro

Messaggi: 141
Iscritto: 20/01/2007

Postato alle 10:26
Giovedì, 12/07/2007

si ma prima devi leggere dal file la somma fino a quel momento... e poi la variabile "x" riceve quel valore, lo incrementi di 1 e lo riscrivi sul file o database..

io userei un fileopen in modalità accesso sequenziale visto che tanto devi leggere solo un valore, quindi una volta aperto il file, leggi la x

Codice sorgente - presumibilmente Plain Text

x=lineinput(numerobuffer)

la incrementi

Codice sorgente - presumibilmente Plain Text

x=x+1

e la riscrivi

Codice sorgente - presumibilmente Plain Text

printline(numerbuffer,x)

e poi chiudi il file con un fileclose!
semplice!