Au progrrammeur en herbe

[Invité Invité]

ben c'est pour savoir

si vous connaiteriez pas un site pour la programation en basic ou meme si qqun veut bien m'aider vue que je fais un prog(calcule les depense) et il suit pas mes ordres merci (c'est pour un devoir)

 

et voici le code source

Private Sub Command1_Click()

Dim fn As String

Dim n As Integer

Dim month As Integer

Dim year As Integer

Dim c As Single

Dim u As Single

Dim f As Single

Dim other As Single

fn = Text1.Text

If Option1.Value = True Then

Open fn For Output As #1

year = InputBox("current year&quot

month = InputBox("current month&quot

Print #1, month, year

Close 1

End If

total = 0

If Option2.Value = True Then

Open fn For Input As #1

Input #1, month, year

Do While Not EOF(1)

Input #1, n, c, f, u, other

d = c + f + u + other

total = total + d

Loop

End If

Close 1

If Option3.Value = True Then

Form1.Enabled = False

Form2.Show

Form2.Text1.Text = year*

Form2.Text2.Text = month*

Form2.Text3.Text = n*

Form2.Text4.Text = total*

End If

If Option4.Value = True Then

Open fn For Append As #1

n = InputBox("day number&quot

c = InputBox("transport&quot

f = InputBox("food&quot

u = InputBox("ornement&quot

other = InputBox("other fee&quot

Print #1, n, c, f, u, other

Close 1

End If

 

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub Form_Load()

Text1.Text = "feb2.dta"

Option1.Value = False

Option2.Value = True

End Sub

*il m'ecrit 0 au lieu de la vrai valeur

[Invité Invité]

bon je recycle un topic que j'avais fait

ma mémé me dit tjr c'est avec les vieux pot qu'on fait la bonne confiture

[Invité Invité]

Euh ....

 

http://www.developpez.com/

 

J'ai pas mieux

[Invité Invité]

J'arrive pas a voir tes itterations, je vais essayer de decripter lol, c'est sous VB que tu as fais ca?

tu pourais mettre en non langage parlé ton prog parceque tes variables sont pas parlantes et mets des comentaires.

 

EDIt :

j'avais oublié :

 

http://www.codes-sources.com

[Invité Invité]

et voici le code source

- - -

 

 

Private Sub Command1_Click()

- - - Dim fn As String

- - - Dim n As Integer

- - - Dim month As Integer

- - - Dim year As Integer

- - - Dim c As Single

- - - Dim u As Single

- - - Dim f As Single

- - - Dim other As Single

- - - fn = Text1.Text

 

 

 

- - - If Option1.Value = True Then

- - - - - - Open fn For Output As #1

- - - - - - year = InputBox("current year" )

- - - - - - month = InputBox("current month" )

- - - - - - Print #1, month, year

- - - - - - Close 1

- - - End If

 

- - - total = 0

 

- - - If Option2.Value = True Then

- - - - - - Open fn For Input As #1

- - - - - - Input #1, month, year

 

- - - - - - Do While Not EOF(1)

- - - - - - - - - - - - Input #1, n, c, f, u, other

- - - - - - - - - - - - d = c + f + u + other

- - - - - - - - - - - - total = total + d

- - - - - - Loop

 

- - - End If

 

 

- - - Close 1

 

- - - If Option3.Value = True Then

- - - - - - Form1.Enabled = False

- - - - - - Form2.Show

- - - - - - Form2.Text1.Text = year*

- - - - - - Form2.Text2.Text = month*

- - - - - - Form2.Text3.Text = n*

- - - - - - Form2.Text4.Text = total*

- - - End If

 

- - - If Option4.Value = True Then

- - - - - - Open fn For Append As #1

- - - - - - n = InputBox("day number" )

- - - - - - c = InputBox("transport" )

- - - - - - f = InputBox("food" )

- - - - - - u = InputBox("ornement" )

- - - - - - other = InputBox("other fee"

- - - - - - Print #1, n, c, f, u, other

- - - - - - Close 1

- - - End If

 

End Sub

 

 

 

 

 

Private Sub Command2_Click()

- - - End

End Sub

 

Private Sub Form_Load()

- - - Text1.Text = "feb2.dta"

- - - Option1.Value = False

- - - Option2.Value = True

End Sub

*il m'ecrit 0 au lieu de la vrai valeur

 

 

 

 

Tu peux expliquer quelles sont tes option activées?

Sous VB, tu peux faire un apas à pas et mettre un espion pour suivre la valeur de tes variables

[Invité Invité]

je suis sous VB mais comment le mettre l'espion

merci saez

ben les option qui sont activé sont celle par defaut (j'ai rien acitivé)

ben le problem vien de cette syntaxe

- - - If Option3.Value = True Then

- - - - - - Form1.Enabled = False

- - - - - - Form2.Show

- - - - - - Form2.Text1.Text = year

- - - - - - Form2.Text2.Text = month

- - - - - - Form2.Text3.Text = n

- - - - - - Form2.Text4.Text = total

- - - End If

c'est comme si je mettai rien

[Invité Invité]

regarde dans les menu de VB, ou dans l'aide, j'etais sous VB6 à l'epoque il me semble

[Invité Invité]

problem resolu

c'estais le option.value qui fesait problem a cause de mon livre qui a omi de dire les proprités des frames

[Invité Invité]

ah vi c'est pas enabled ou comme ca?

[Invité Invité]

le truc c'est qu'il a oublié de me dire que je dois que cree les Option box dans les frames pour le diviser vu que y'a 2 choix a faire en meme temp et qui si je les met pas dans frames je pourrai faire un seul choix