VBS

dim password dim objshell dim answer password = "redhawk" answer = false do ask=inputbox ("Vad är lösenordet?","Network Password","Lösenord") if ask = password then x=msgbox ("Correct!",0,"Correct!") answer = true else x=msgbox ("Wrong!",0,"Wrong!") end if loop until answer=true inputbox ("Hej! Vad heter du?") inputbox (" Wow, snyggt namn!") inputbox (" Vad gör du?") inputbox (" Okej... Är det kul?") askbox = MsgBox("Vill du gå på dejt på Fredag?",4,"Dejt") If askbox = VbYes Then MsgBox("Du är såå söt!") End if If askbox =VbNo Then askbox=MsgBox("åsna!" ,1, "Åsna") end if If askbox =VbOk Then askbox=MsgBox("Jag hatar dig!!!" ,1, "Åsna") end if If askbox =VbOk Then askbox=MsgBox("vill du ha stryk av min killkompis?!!" ,1, "Åsna") end if askbox=MsgBox("Vilken tid? Kl. åtta?" ,4, "Tid") If askbox = VbYes Then askbox = MsgBox("Okej, sötnos!" ,0, "Okej") End If If askbox = VbOk Then askbox=msgbox("Jag sa fråga dig lite saker för att se om du är smart, använd INTE miniräknare!" ,0, "Frågesport") End if If askbox=VbOk Then dim fråga dim objshell dim answer fråga = "144" answer = false do askbox=inputbox ("Vad är 12x12?","Fråga","Fråga") if ask = password then x=msgbox ("Rätt!",0,"Rätt!!") answer = true else x=msgbox ("Fel!",0,"Fel!") end if If askbox = VbNo Then askbox = MsgBox("*Snyft*!!!" ,0, "SNYFT!") end if If askbox = VbNo Then askbox=MsgBox("Ditt svin!!!Vill du ha stryk av min killkompis?!" ,4, "Stryk") end if If askbox = VbNo Then askbox=MsgBox("Vi vill inte visa sådana här våldsamma bilder..." ,0, "Stryk") end if koden funkar men de i fetstil är inte fungerande??

vad gör jag fel?!

Okej, ska byta till C++... Något tips? har Microsoft Visual C++

Citat av flight

Okej, ska byta till C++... Något tips? har Microsoft Visual C++

Ett tips är att inte börja med C++. Har du inte behärskat VBS så ska du inte heller ge dig in på nästa steg. Tycker att du ska prova Java eller något lite enklare i så fall. Möjligtvis python. Det enklaste utav dem alla är nog i så fall VB.NET

Citat av arebokert

Citat av flight

Okej, ska byta till C++... Något tips? har Microsoft Visual C++

Ett tips är att inte börja med C++. Har du inte behärskat VBS så ska du inte heller ge dig in på nästa steg. Tycker att du ska prova Java eller något lite enklare i så fall. Möjligtvis python. Det enklaste utav dem alla är nog i så fall VB.NET

Okej... Min bror som är professionell programmerare sa det men jag tror mer på dig...

Citat av flight

Citat av arebokert

Citat av flight

Okej, ska byta till C++... Något tips? har Microsoft Visual C++

Ett tips är att inte börja med C++. Har du inte behärskat VBS så ska du inte heller ge dig in på nästa steg. Tycker att du ska prova Java eller något lite enklare i så fall. Möjligtvis python. Det enklaste utav dem alla är nog i så fall VB.NET

Okej... Min bror som är professionell programmerare sa det men jag tror mer på dig...

Men snälla. C++ är ett utav de svårare språken, och med tanke på att du endast har erfarenhet av VBS och inte heller har bemästrat det, så tycker att jag att du ska börja med något enklare.

Citat av arebokert

Citat av flight

Citat av arebokert

Citat av flight

Okej, ska byta till C++... Något tips? har Microsoft Visual C++

Ett tips är att inte börja med C++. Har du inte behärskat VBS så ska du inte heller ge dig in på nästa steg. Tycker att du ska prova Java eller något lite enklare i så fall. Möjligtvis python. Det enklaste utav dem alla är nog i så fall VB.NET

Okej... Min bror som är professionell programmerare sa det men jag tror mer på dig...

Men snälla. C++ är ett utav de svårare språken, och med tanke på att du endast har erfarenhet av VBS och inte heller har bemästrat det, så tycker att jag att du ska börja med något enklare.

Jag höll ju med dig? Jag kanske inte skulle skrivit det så... Han är ofta ironisk, svårt att se i sms.

Citat av flight

Okej, ska byta till C++... Något tips? har Microsoft Visual C++

Ett tips är att inte börja med C++. Har du inte behärskat VBS så ska du inte heller ge dig in på nästa steg. Tycker att du ska prova Java eller något lite enklare i så fall. Möjligtvis python. Det enklaste utav dem alla är nog i så fall VB.NET [/quote] Okej... Min bror som är professionell programmerare sa det men jag tror mer på dig... [/quote] Men snälla. C++ är ett utav de svårare språken, och med tanke på att du endast har erfarenhet av VBS och inte heller har bemästrat det, så tycker att jag att du ska börja med något enklare. [/quote] Jag höll ju med dig? Jag kanske inte skulle skrivit det så... Han är ofta ironisk, svårt att se i sms. [/quote] I så fall missuppfattade jag dig och får be om ursäkt.

Citat av arebokert

Citat av flight

Okej, ska byta till C++... Något tips? har Microsoft Visual C++

Ett tips är att inte börja med C++. Har du inte behärskat VBS så ska du inte heller ge dig in på nästa steg. Tycker att du ska prova Java eller något lite enklare i så fall. Möjligtvis python. Det enklaste utav dem alla är nog i så fall VB.NET

Okej... Min bror som är professionell programmerare sa det men jag tror mer på dig... [/quote] Men snälla. C++ är ett utav de svårare språken, och med tanke på att du endast har erfarenhet av VBS och inte heller har bemästrat det, så tycker att jag att du ska börja med något enklare. [/quote] Jag höll ju med dig? Jag kanske inte skulle skrivit det så... Han är ofta ironisk, svårt att se i sms. [/quote] I så fall missuppfattade jag dig och får be om ursäkt. [/quote] Det är jag som ska... Option Explicit On Public Class cmdTxtDisplay Dim FirstNumber As Single Dim SecondNumber As Single Dim AnsverNumber As Single Dim ArithmeticProcces As String Private Sub cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click txtdisplay.Text = txtdisplay.Text & "1" End Sub Private Sub cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2.Click txtdisplay.Text = txtdisplay.Text & "2" End Sub Private Sub cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd3.Click txtdisplay.Text = txtdisplay.Text & "3" End Sub Private Sub cmd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd4.Click txtdisplay.Text = txtdisplay.Text & "4" End Sub Private Sub cmd5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd5.Click txtdisplay.Text = txtdisplay.Text & "5" End Sub Private Sub cmd6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd6.Click txtdisplay.Text = txtdisplay.Text & "6" End Sub Private Sub cmd7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd7.Click txtdisplay.Text = txtdisplay.Text & "7" End Sub Private Sub cmd8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd8.Click txtdisplay.Text = txtdisplay.Text & "8" End Sub Private Sub cmd9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd9.Click txtdisplay.Text = txtdisplay.Text & "9" End Sub Private Sub cmd0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd0.Click txtdisplay.Text = txtdisplay.Text & "0" End Sub Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click txtdisplay.Text = "0" End Sub Private Sub cmdplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplus.Click FirstNumber = Val(txtdisplay.Text) txtdisplay.Text = "0" ArithmeticProcces = "+" End Sub Private Sub cmddicaul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddicaul.Click SecondNumber = Val(txtdisplay.Text) If ArithmeticProcces = "/" Then AnsverNumber = FirstNumber / SecondNumber End If If ArithmeticProcces = "*" Then AnsverNumber = FirstNumber * SecondNumber End If If ArithmeticProcces = "-" Then AnsverNumber = FirstNumber - SecondNumber End If If ArithmeticProcces = "+" Then AnsverNumber = FirstNumber + SecondNumber End If txtdisplay.Text = AnsverNumber End Sub Private Sub cmdmultiplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmultiplay.Click FirstNumber = Val(txtdisplay.Text) txtdisplay.Text = "0" ArithmeticProcces = "X" End Sub Private Sub cmdminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdminus.Click FirstNumber = Val(txtdisplay.Text) txtdisplay.Text = "0" ArithmeticProcces = "-" End Sub Private Sub cmdextract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdextract.Click FirstNumber = Val(txtdisplay.Text) txtdisplay.Text = "0" ArithmeticProcces = "/" End Sub Private Sub cmdecimal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdecimal.Click txtdisplay.Text = txtdisplay.Text & "," End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Gjorde en miniräknare, den funkade men inte multiplikationen. Och nu blir alla siffror nollor om man ska addera bla. Vad för fel?

Något tips på vad man kan göra? Har gjort: Klocka miniräknare timer tidtagarur

den visar bara filnamnet. Inte innehållet. Vad för fel? Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.ShowDialog() TextBox1.Text = OpenFileDialog1.FileName End Sub End Class