Ultimi argomenti attivi
Cerca
aiuto per scacchiera in visual basic 6.0
2 partecipanti
DebuggingZone :: Informatica :: Programmazione :: Altro
Pagina 1 di 1
aiuto per scacchiera in visual basic 6.0
Ciao a tutti, sono Francesca e avrei bisogno di un vostro aiuto. Il mio professore di informatica, purtroppo, ha l'abitudine di illustrarci un programma e la lezione seguente farci una verifica su un programmino simile a quello illustrato . Ora io sono stata assente alla lezione precedente e domani avrò la verifica su un programmino, in visual basic 6.0, che riproduca una scacchiera con le classiche caselline bianche e nere. Io vi posto il programma che ho provato che però funziona solo in parte, in quanto non tutte le caselline si alternano(bianche e nere). Se per cortesia qualcuno riesce a dirmi dove sbaglio sarò immensamente grata.
Modulo
Option Explicit
Public Sub coloraC(ByRef prtxt As Object, ByVal pvColonna As Integer)
Dim i As Integer
For i = pvColonna To (pvColonna + 72) Step 1
prtxt().BackColor = vbWhite
Next i
End Sub
Public Sub coloraR(ByRef prtxt1 As Object, ByVal pvRiga As Integer)
Dim i As Integer
For i = pvRiga To (pvRiga + 100) Step 1
prtxt1(i).BackColor = vbBlack
Next i
End Sub
Form
Option Explicit
Private Sub cmdColonna_Click()
Dim colonna As Integer
Do
colonna = Val(InputBox("inserisci la colonna da colorare"))
Loop While colonna < 0 Or colonna > 8
coloraC txt(), colonna
End Sub
Private Sub cmdRiga_Click()
Dim riga As Integer
Do
riga = Val(InputBox("inserisci la colonna da riga"))
Loop While 0 < riga > 8
coloraR txt1(), riga
End Sub
Modulo
Option Explicit
Public Sub coloraC(ByRef prtxt As Object, ByVal pvColonna As Integer)
Dim i As Integer
For i = pvColonna To (pvColonna + 72) Step 1
prtxt().BackColor = vbWhite
Next i
End Sub
Public Sub coloraR(ByRef prtxt1 As Object, ByVal pvRiga As Integer)
Dim i As Integer
For i = pvRiga To (pvRiga + 100) Step 1
prtxt1(i).BackColor = vbBlack
Next i
End Sub
Form
Option Explicit
Private Sub cmdColonna_Click()
Dim colonna As Integer
Do
colonna = Val(InputBox("inserisci la colonna da colorare"))
Loop While colonna < 0 Or colonna > 8
coloraC txt(), colonna
End Sub
Private Sub cmdRiga_Click()
Dim riga As Integer
Do
riga = Val(InputBox("inserisci la colonna da riga"))
Loop While 0 < riga > 8
coloraR txt1(), riga
End Sub
nadiafra- Numero di messaggi : 2
Data d'iscrizione : 07.05.10
Re: aiuto per scacchiera in visual basic 6.0
Ciao, scusa la scarsa celerità nella risposta ma sti gioni sto impegnato e sul forum non venivo da tempo. Allora innanzi tutto preciso che le mie conoscenze di visual basic sono quasi inesistenti
(e poi ancora ve lo fanno usare.... mah! ).
Cmq ho dato una occhiata è penso di aver capito quale è il problema di fondo.
Fammi capire che genere di errore si verifica, immaggino che ti si colora dello stesso colore una intera riga o una intera colonna per voltà? Giusto? e questo il Tuo problema?
Se il problema è proprio questo, è dovuto al fatto che non alterni!! dovresti fare una cosa del genere se casella pari allora=nera se casella no pari= bianca.
Se il problema non è quello da me ipotizzato cerca di spiegarmi meglio quello che ti succede, poiche non ho nemmeno un compilatore per far girare il tuo codice poiche con visual basic non ho mai avuto che fare.
Aspetto tue notizie...
(e poi ancora ve lo fanno usare.... mah! ).
Cmq ho dato una occhiata è penso di aver capito quale è il problema di fondo.
Fammi capire che genere di errore si verifica, immaggino che ti si colora dello stesso colore una intera riga o una intera colonna per voltà? Giusto? e questo il Tuo problema?
Se il problema è proprio questo, è dovuto al fatto che non alterni!! dovresti fare una cosa del genere se casella pari allora=nera se casella no pari= bianca.
Se il problema non è quello da me ipotizzato cerca di spiegarmi meglio quello che ti succede, poiche non ho nemmeno un compilatore per far girare il tuo codice poiche con visual basic non ho mai avuto che fare.
Aspetto tue notizie...
DebuggingZone :: Informatica :: Programmazione :: Altro
Pagina 1 di 1
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.
|
|
Mer Apr 13, 2011 12:17 am Da Sasà
» Gallo Web Solutions.
Ven Ott 29, 2010 12:15 am Da Sasà
» Accendere un Computer automaticamente o a distanza
Mer Ott 20, 2010 11:09 pm Da Sasà
» Masterizzatore interno modello LG Slim SATA MULTI DVD 18x8 T20N/T40N
Ven Ott 08, 2010 9:32 am Da Sitzigorru
» P=NP sembra proprio di no, forse siamo alla soluzione.............
Mar Set 14, 2010 8:28 pm Da Sasà
» Come installare windows xp da boot con usb
Gio Giu 03, 2010 9:07 pm Da DaviduX
» CPU a 36GHz? Con Phenom II X6 si può!
Sab Mag 15, 2010 9:31 pm Da ElDorado
» Lucid Lynx: Ubuntu cambia pelle
Sab Mag 15, 2010 9:17 pm Da kevin
» iPhone 4G a pezzi: produrlo costa solo 175$
Sab Mag 15, 2010 9:06 pm Da kevin