Calculadora!

[DuroPt]

Olá sou novo novo novo =P

Este é o meu problema, estava  tentar fazer uma calculadora, e comecei por por este código:

Private Sub Command1_Click(Index As Integer)

Select Case Index

Select Case 0

Label1.Caption = Label1.Caption & "0"

Select Case 1

Label1.Caption = Label1.Caption & "1"

Select Case 2

Label1.Caption = Label1.Caption & "2"

Select Case 3

Label1.Caption = Label1.Caption & "3"

Select Case 4

Label1.Caption = Label1.Caption & "4"

Select Case 5

Label1.Caption = Label1.Caption & "5"

Select Case 6

Label1.Caption = Label1.Caption & "6"

Select Case 7

Label1.Caption = Label1.Caption & "7"

Select Case 8

Label1.Caption = Label1.Caption & "8"

Select Case 9

Label1.Caption = Label1.Caption & "9"

End Select

End Sub

Quando meti play, só para ver se estava a funcionar, tudo bem, quando cliquei numa tecla, qualquer que seja, deu o seguinte erro: "  Compile error: Statements and labels invalid between Select case and first case"

Não entendo! Abraços!

[asworm]

salect case index

    case 0

    case1... etc.

experimenta la agora...

[DuroPt]

continua a dar erro...mas calculo que tenhas escrito a palavara "select" mas escrita! (salect)

[asworm]

exacto, enganeime eu passo o codigo

Private Sub Command1_Click(Index As Integer)
Select Case Index
  Case 0
Label1.Caption = Label1.Caption & "0"
Case 1
Label1.Caption = Label1.Caption & "1"
Case 2
Label1.Caption = Label1.Caption & "2"
Case 3
Label1.Caption = Label1.Caption & "3"
Case 4
Label1.Caption = Label1.Caption & "4"
Case 5
Label1.Caption = Label1.Caption & "5"
Case 6
Label1.Caption = Label1.Caption & "6"
Case 7
Label1.Caption = Label1.Caption & "7"
Case 8
Label1.Caption = Label1.Caption & "8"
Case 9
Label1.Caption = Label1.Caption & "9"
End Select
End Sub

ve la agora

[DuroPt]

LOOL e não é que está a dar! capaz de tu perceberes disto! ;D

[DuroPt]

aha ok granda burro ...LOl ja percebi o que estava a fazer mal...oh meud eus XD ABRAÇOS

[asworm]

muitas horas a programar... e inda não sei metade do que se pode fazer em basic...

cumps sempre as ordens

[DuroPt]

Private Sub Command1_Click(Index As Integer)

Dim K As Integer

Select Case Index

Case 0

Label1.Caption = Label1.Caption & "0"

Case 1

Label1.Caption = Label1.Caption & "1"

Case 2

Label1.Caption = Label1.Caption & "2"

Case 3

Label1.Caption = Label1.Caption & "3"

Case 4

Label1.Caption = Label1.Caption & "4"

Case 5

Label1.Caption = Label1.Caption & "5"

Case 6

Label1.Caption = Label1.Caption & "6"

Case 7

Label1.Caption = Label1.Caption & "7"

Case 8

Label1.Caption = Label1.Caption & "8"

Case 9

Label1.Caption = Label1.Caption & "9"

Case 10 'Este é o comando com o sinal +(mais)

K = Label1.Caption 'Para dar um valor a K, para que mais tarde seja somado

Label1.Caption = "" 'para limpar a label

End Select

End Sub

Não consigo sair daqui, alguem já tem uma calculadora feita, para eu ver o código e tentar perceber

[jpaulino]

Dim K As Integer tem de ficar de fora do sub se não vai sempre a zero (quando fazer click)

Define como

Private K As Integer