nä jag kan inte

29 oktober 2010 kl. 08:49

jag har programmering, ooooookeeeej
längtar bara tills ikväll
bio med min julia i malmö klockan 2100 åh <3

Private Sub Räkna_Click()
Dim position, Antal As Integer
If Text1.Text = "" Then
MsgBox ("Skriv texten först")
Exit Sub
End If
If teckenruta.Text = "" Then
MsgBox ("Ange tecken som ska räknas")
Exit Sub
End If

Antal = 0
position = 0

Do While position <= Len(Text1.Text)
position = position + 1
If Mid(Text1, position, 1) = Left(teckenruta, 1) Then
Antal = Antal + 1
End If
Loop
antalruta.Text = Antal
_______________________________________________________

Option Explicit
Dim datorpris As Integer
Dim monitorpris As Integer

Private Sub Command1_Click()
Frame2.Visible = True
Option3.Value = True
monitorpris = 2000
CALC

End Sub

Private Sub Command2_Click()
Frame2.Visible = False
monitorpris = 0
CALC

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
datorpris = 6000
monitorpris = 2000
CALC
End Sub


Public Sub CALC()
Pris = datorpris + monitorpris

End Sub

Private Sub Option1_Click()
datorpris = 6000
CALC

End Sub

Private Sub Option2_Click()
datorpris = 6500
CALC

End Sub

Private Sub Option3_Click()
monitorpris = 2000
CALC

End Sub

Private Sub Option4_Click()
monitorpris = 3000
CALC
End Sub


End Sub

---