spacer.png, 0 kB

Torna indietro   Roboitalia.com - Il primo portale in Italia sulla robotica amatoriale > Robotica di base > Informatica > P. in Visual Basic

Rispondi
 
Strumenti discussione Modalità  visualizzazioe
  #11  
Vecchio 29-08-2005, 18.52.40
ivotek ivotek non è collegato
Robottaro sostenitore
 
Data registrazione: 30-11-2003
Residenza: Ostia Lido
Età : 43
Messaggi: 736
Potenza reputazione: 83
ivotek E' sulla buona strada
Invia un messaggio via MSN a ivotek Invia un messaggio via Yahoo a ivotek
Predefinito

Mi sono spiegato male :-)

Dividere per due e vedere se il resto è pari o dispari.
Se è dispari segni uno se è pari segni zero.
Prendi il resto e lo dividi per due e così via fino a
quando il valore è zero o uno.


Spero di esere stato chiaro questa volta.

Ciao
__________________
http://www.ivotek.it
Rispondi citando
  #12  
Vecchio 30-08-2005, 08.47.21
ivotek ivotek non è collegato
Robottaro sostenitore
 
Data registrazione: 30-11-2003
Residenza: Ostia Lido
Età : 43
Messaggi: 736
Potenza reputazione: 83
ivotek E' sulla buona strada
Invia un messaggio via MSN a ivotek Invia un messaggio via Yahoo a ivotek
Predefinito

Prova questo:

Private Sub Command1_Click()
Dim intNumeroDaConvertire As Integer
Dim strNumeroBinario As String

'Prendo il numero da convertire
'e lo metto nella variabile
intNumeroDaConvertire = Text1.Text

'Azzero la label
Label1.Caption = ""

'Divido il numero e metto i risultati
'nella variabile intNumeroBinario
Do Until intNumeroDaConvertire = 0
'Divido per due il numero e controllo il resto
If (intNumeroDaConvertire Mod 2) Then
strNumeroBinario = strNumeroBinario & "1"
intNumeroDaConvertire = Int(intNumeroDaConvertire / 2)
Else
strNumeroBinario = strNumeroBinario & "0"
intNumeroDaConvertire = Int(intNumeroDaConvertire / 2)
End If
Loop

'Adesso rigito i numeri all'interno
'della variabile strNumeroBinario
'In questo modo li leggo da destra verso sinistra
Do Until Len(strNumeroBinario) = 0
'Prendo l'ultimo carattere e lo inserisco
'nella label
Label1.Caption = Label1.Caption & Mid(strNumeroBinario, Len(strNumeroBinario), 1)
'Cancello l'ultimo carattere
strNumeroBinario = Left(strNumeroBinario, Len(strNumeroBinario) - 1)
Loop

End Sub
__________________
http://www.ivotek.it
Rispondi citando
  #13  
Vecchio 06-10-2005, 15.01.54
Cyber'93 Cyber'93 non è collegato
Robottaro master
 
Data registrazione: 31-10-2004
Residenza: casa mia
Messaggi: 345
Potenza reputazione: 71
Cyber'93 E' sulla buona strada
Predefinito

grazie.
sapresti dirmi come gestire i file?
di corsi in rete ne ho trovati, ma il vb di da sempre problemi
Rispondi citando
  #14  
Vecchio 07-10-2005, 09.55.11
ivotek ivotek non è collegato
Robottaro sostenitore
 
Data registrazione: 30-11-2003
Residenza: Ostia Lido
Età : 43
Messaggi: 736
Potenza reputazione: 83
ivotek E' sulla buona strada
Invia un messaggio via MSN a ivotek Invia un messaggio via Yahoo a ivotek
Predefinito

Che intendi per gestire i file?

Creare un file?
Scrivere in un file?
Modificare un file'

Oppure:

Copiare un file?Eliminare un file?


Ciao
__________________
http://www.ivotek.it
Rispondi citando
  #15  
Vecchio 07-10-2005, 16.35.30
Cyber'93 Cyber'93 non è collegato
Robottaro master
 
Data registrazione: 31-10-2004
Residenza: casa mia
Messaggi: 345
Potenza reputazione: 71
Cyber'93 E' sulla buona strada
Predefinito

Per gestire i file intendo:

Creare un file
Scrivere in un file
Modificare un file

Ma soprattutto:

Copiare un file,Eliminare un file
Rispondi citando
  #16  
Vecchio 08-10-2005, 17.32.44
ivotek ivotek non è collegato
Robottaro sostenitore
 
Data registrazione: 30-11-2003
Residenza: Ostia Lido
Età : 43
Messaggi: 736
Potenza reputazione: 83
ivotek E' sulla buona strada
Invia un messaggio via MSN a ivotek Invia un messaggio via Yahoo a ivotek
Predefinito

Per creare un file od usi l'istruzione Open, oppure l'ogetto File System Object.

Per scrivere in un file od usi l'istruzione Open, oppure l'ogetto File System Object

Per modificare in un file od usi l'istruzione Open, oppure l'ogetto File System Object

Per cancellare il file o copiarlo, od usi 'ogetto File System Object, o le istruzioni dos
tipo copy o del.

Vedi tu.

Ciao
__________________
http://www.ivotek.it
Rispondi citando
  #17  
Vecchio 09-10-2005, 08.55.36
Cyber'93 Cyber'93 non è collegato
Robottaro master
 
Data registrazione: 31-10-2004
Residenza: casa mia
Messaggi: 345
Potenza reputazione: 71
Cyber'93 E' sulla buona strada
Predefinito

tipo open c:\ciao.txt
oppure copy c:\ciao.txt to c:\ciao\ ?
Rispondi citando
  #18  
Vecchio 11-10-2005, 15.51.49
ivotek ivotek non è collegato
Robottaro sostenitore
 
Data registrazione: 30-11-2003
Residenza: Ostia Lido
Età : 43
Messaggi: 736
Potenza reputazione: 83
ivotek E' sulla buona strada
Invia un messaggio via MSN a ivotek Invia un messaggio via Yahoo a ivotek
Predefinito

L'istruzione open è un po piĂ¹ complessa :-)

Open "percorso\nomefile" For Output As # 1
Print #1, "testo da scrivere"
Close #1


Ciao
__________________
http://www.ivotek.it
Rispondi citando
  #19  
Vecchio 13-10-2005, 13.21.40
Cyber'93 Cyber'93 non è collegato
Robottaro master
 
Data registrazione: 31-10-2004
Residenza: casa mia
Messaggi: 345
Potenza reputazione: 71
Cyber'93 E' sulla buona strada
Predefinito

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Open "C:\ciao.txt" For Output As # 1
Print #1, "bye bye"
Close #1

End Sub

segnala molti errori
Rispondi citando
  #20  
Vecchio 13-10-2005, 13.46.27
L'avatar di sergio_camici
sergio_camici sergio_camici non è collegato
Administrator
 
Data registrazione: 24-05-2002
Residenza: Binasco (MI)
Età : 55
Messaggi: 2,665
Potenza reputazione: 303
sergio_camici La sua reputazione è oltre la sua famasergio_camici La sua reputazione è oltre la sua famasergio_camici La sua reputazione è oltre la sua famasergio_camici La sua reputazione è oltre la sua famasergio_camici La sua reputazione è oltre la sua famasergio_camici La sua reputazione è oltre la sua famasergio_camici La sua reputazione è oltre la sua fama
Predefinito

Citazione:
Orginalmente inviato da Cyber'93
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Hei ma questo e' VB.NET... c'e' un abisso...

ciao
S
Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione
Modalità  visualizzazioe

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code è Attivato
Le smilies sono Attivato
[IMG] è Attivato
Il codice HTML è Disattivato

Vai al forum


Tutti gli orari sono GMT. Adesso sono le: 05.36.28.


Basato su: vBulletin Versione 3.8.8
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Realizzazione siti web Cobaltica Foligno
spacer.png, 0 kB