Programmeren
Geplaatst: za 21 nov 2009, 14:23
Hoi probeer een progama te maken in visual basic
waar je 5 keer na elkaar een woord in een input moet ingeven en ze moeten opglaan worden in arrays en daarna via de knop opvragen allemaal tevoorschrijn komen
dit is mijn code al
Public Class frmOpvevragenWwoorden
Private woord(5) As String
Private will As Integer
Private resultaat As String
Private Sub frmOpvevragenWwoorden_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
woord(0) = "oui"
woord(1) = "non"
woord(2) = "voiture"
woord(3) = "bureau"
woord(4) = "table"
Dim prompt As String
Dim titel As String = "woord
prompt = "Geef een woord "
' Tonen InputBox
resultaat = InputBox(prompt, titel)
End Sub
Private Sub btnOpvragen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpvragen.Click
txtresultaat.Text = woord(0).ToString & vbNewLine & woord(1).ToString & vbNewLine & woord(2).ToString & vbNewLine & woord(3).ToString & vbNewLine & woord(4).ToString & vbNewLine
End Sub
End Class
maar de input verdwijnt na ok en ik geen nieuw woord ingeven
hij zo vijf moeten vragen geef een in
maar dat doet hij niet
wie kan helpen?
Marjan
waar je 5 keer na elkaar een woord in een input moet ingeven en ze moeten opglaan worden in arrays en daarna via de knop opvragen allemaal tevoorschrijn komen
dit is mijn code al
Public Class frmOpvevragenWwoorden
Private woord(5) As String
Private will As Integer
Private resultaat As String
Private Sub frmOpvevragenWwoorden_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
woord(0) = "oui"
woord(1) = "non"
woord(2) = "voiture"
woord(3) = "bureau"
woord(4) = "table"
Dim prompt As String
Dim titel As String = "woord
prompt = "Geef een woord "
' Tonen InputBox
resultaat = InputBox(prompt, titel)
End Sub
Private Sub btnOpvragen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpvragen.Click
txtresultaat.Text = woord(0).ToString & vbNewLine & woord(1).ToString & vbNewLine & woord(2).ToString & vbNewLine & woord(3).ToString & vbNewLine & woord(4).ToString & vbNewLine
End Sub
End Class
maar de input verdwijnt na ok en ik geen nieuw woord ingeven
hij zo vijf moeten vragen geef een in
maar dat doet hij niet
wie kan helpen?
Marjan