VB nub teacher(dutch)
•
14 Sep 2007, 11:12
•
Journals
Public Class frmKassa
Private Sub btnBerekenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerekenen.Click
' De gebruiker geeft de prijs en het aantal verkochte stuks in. De procedure berekent het te betalen bedrag.'
' Declaratie variabelen.
Dim prijs As Decimal
Dim aantal As Integer
Dim teBetalen As Decimal
' De gegevens van de tekstvakken worden
' in de juiste variabelen geplaatst.
prijs = CDec(txtPrijs.Text)
aantal = CInt(txtAantal.text)
'Berekenen van het te betalen bedrag.
txtTeBetalen.Text = CStr(teBetalen)
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTeBetalen.Click
End Sub
End Class
prijs = CDec(txtPrijs.Text)
is giving errors z0mg
Private Sub btnBerekenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerekenen.Click
' De gebruiker geeft de prijs en het aantal verkochte stuks in. De procedure berekent het te betalen bedrag.'
' Declaratie variabelen.
Dim prijs As Decimal
Dim aantal As Integer
Dim teBetalen As Decimal
' De gegevens van de tekstvakken worden
' in de juiste variabelen geplaatst.
prijs = CDec(txtPrijs.Text)
aantal = CInt(txtAantal.text)
'Berekenen van het te betalen bedrag.
txtTeBetalen.Text = CStr(teBetalen)
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTeBetalen.Click
End Sub
End Class
prijs = CDec(txtPrijs.Text)
is giving errors z0mg
#include <conio.h>
const int SARAKKEET = 15;
const int RIVIT = 10;
void main(){
randomize();
int tau1[RIVIT][SARAKKEET];
for (int i= 0; i < RIVIT;i++)
for (int j= 0; j < SARAKKEET;j++)
tau1[j] = rand()%1000+1;
for (int i= 0;i < RIVIT;i++){
cout<<"\n";
for(int j = 0;j < SARAKKEET;j++){
cout.width(5);
cout<<tau1[j];
}
}
getch();
}
so NOT FUNNY :|