codice visual basic

[cecco102]

salve a tutti avrei bisogno di un aiutino!!Sto frequentando da poco un corso di visual basic e abbiamo provato a sviluppare un piccolo convertitore da euro-lire lire-euro!!ho provato a buttare giu il codice ma nn riesco a farlo funzionare!il form è composto cosi:
1 textbox dove si mette il valore da convertire(txtValore
1 texbox dove viene restituito il risultato(txtRisultato)
1 pulsante per convertire(cmdConverti)
1 pulsante per cancella i valore inseriti(cmdCancella)
1 pulsante per uscire(cmdEsci)
1 option box da euro a lire(optUerolire)
1 optinobox da lire a euro(optLireeuro)
il codice che ho buttato giu è cosi:

Private sub cmdConverti_Click
dim strmsg as string
dim strtit as string
dim curvalore as currency
dim currisultato as currency
dim cureuro as currency

cureuro=1936.27
if txtvalore.text="" then
strmsg="nessun valore inserito"
strtit="messaggio di errore"
msgbox strmsg,vbexclamation+vbokonly,strtit
exit sub
end if
'fino a qui il programma funziona,se nn metto niente nel valore e clicco sul pulsante mi viene visualizzata la msgbox

if opteurolire=true then
txtrisulatato.text=txtvalore.text*cureuro

else txtrisultato.text=txtvalore.text/cureuro

end if

'quando vado a provare il programma mi fa solo la divisione!!Da euro a lure nn funziona mi fa sempre la divisione!!
Se c'è qualche anima buona che sa come aiutarmi ne saro riconoscente....è due giorni che ci impazzisco!!Grazieeeeeeeee


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


Discussione


Nuova Discussione

[Markooo]

Originariamente inviato da cecco102

Private sub cmdConverti_Click
dim strmsg as string
dim strtit as string
dim curvalore as currency
dim currisultato as currency
dim cureuro as currency

cureuro=1936.27
if txtvalore.text="" then
strmsg="nessun valore inserito"
strtit="messaggio di errore"
msgbox strmsg,vbexclamation+vbokonly,strtit
exit sub
end if
'fino a qui il programma funziona,se nn metto niente nel valore e clicco sul pulsante mi viene visualizzata la msgbox

if opteurolire=true then
txtrisulatato.text=txtvalore.text*cureuro

else txtrisultato.text=txtvalore.text/cureuro

end if

'quando vado a provare il programma mi fa solo la divisione!!Da euro a lure nn funziona mi fa sempre la divisione!!
Se c'è qualche anima buona che sa come aiutarmi ne saro riconoscente....è due giorni che ci impazzisco!!Grazieeeeeeeee

Errorino ortografico, che non sia quello

[cecco102]

era proprio un errore ortografico!!!

[cecco102]

posso chiederti un aiutino???Ha quel piccolo programmino vorrei aggiungerci una msgbox che quando clicco sul pulsante esci mi visualizzi un messaggio con scritto:sei sicuro di volere uscire??naturalmente una msgbox con 2 pulsanti
ho buttato giu due righe di codice,la msgbox mi si visualizza per bene,ma quando clicco sia su yes che su no,il programma nn si chiude!vorrei che quando clicco yes si chiudesse e quando clicco no il programma rimanesse in esecuzione!
private sub cmdesci_click

dim strmsg as string
dim strtit as string
dim intrisposta as integer

strmsg="sei sicuro di volere uscire?"
strtit="chiudi"
msgbox strmsg,vbquestion+vbyesno,strtit
if intrisposta=vbyes then
end
end if
end sub


Ti ringrazio ancora per la tua immensa pazienza!!Ciao Francesco

[ladyBlu]

Originariamente inviato da cecco102
...vorrei che quando clicco yes si chiudesse e quando clicco no il programma rimanesse in esecuzione!

private sub cmdesci_click

   dim strmsg as string
   dim strtit as string
   dim intrisposta as integer

   strmsg="sei sicuro di volere uscire?"
   strtit="chiudi"
   intrisposta=msgbox(strmsg,vbquestion + vbyesno,strtit)
   if intrisposta=vbyes then
       end
   end if 

end sub

devi usare la funzione MsgBox() che restituisce il valore integer della risposta dell'utente.

[Markooo]

Potresti fare cosi:

Copia e incolla questo:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   Dim intrisposta As Integer
   intrisposta = MsgBox("Uscire dal programma?", vbQuestion Or vbYesNoCancel, "Chiudi")
   If intrisposta = vbNo Then Cancel = True
   If intrisposta = vbCancel Then Cancel = True
End Sub

Quindi nel cmdesci fai cosi:

Private Sub cmdEsci_Click()
   Unload Me
End Sub

[xegallo]

non per fare il precisino ma la messagebox non resituisce integer
ma elementi dell' enum vbmessageboxresult e sono long

[ladyBlu]

Originariamente inviato da xegallo
non per fare il precisino ma la messagebox non resituisce integer
ma elementi dell' enum vbmessageboxresult e sono long

mamma come sei... integer, long... sempre valori numerici sono...uff...

[xegallo]

Originariamente inviato da ladyBlu
mamma come sei... integer, long... sempre valori numerici sono...uff...

è comunque un cast da fare

[ladyBlu]

Originariamente inviato da xegallo
è comunque un cast da fare

va bene, allora correggo il codice:

private sub cmdesci_click

   dim strmsg as string
   dim strtit as string
   dim intrisposta as LONG

   strmsg="sei sicuro di volere uscire?"
   strtit="chiudi"
   intrisposta=msgbox(strmsg,vbquestion + vbyesno,strtit)
   if intrisposta=vbyes then
       end
   end if 

end sub

così xeg è contento...:gren: