aiuto per scacchiera in visual basic 6.0

Assistenza ed informazioni sul linguaggio Visual Basic fino alla versione .NET
Rispondi
Avatar utente
nadiafra

aiuto per scacchiera in visual basic 6.0

Messaggio da nadiafra »

Ciao a tutti, sono Francesca e avrei bisogno di un vostro aiuto. Il mio professore di , 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 posta il programma che ho provato che però funziona solo in parte. 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
Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite