Vet inte om det här forumet är igång fortfarande när det gäller Visual Basic. Provar dock så får vi se.
Jag har gjort ett program som vi använder i vår kiosk på jobbet där vi sätter in pengar på ett konto och sedan handlar digitalt på en pekskärm. Vi vill nu att man inte ska kunna handla mer på krita, alltså att man inte får gå mer minus är t.ex -1000:-
Jag har en textruta som heter Text1 där man anger kreditgräns där ska det alltså stå -1000. Sen har jag en textruta som heter Text2 där man har sitt innevarande saldo. Sen till slut har jag en textruta som heter Text3 där man anger hur mycket man ska handla för just den här gången. Sen trycker man på en knapp som heter Handla. Då ska programmet lägga ihop Text2 och Text3. Den summan ska inte gå under det som står i Text3 alltså -1000. Är summan under -1000 ska ett meddelande komma upp och köpet ska inte gå igenom.

Hej Lars,

Lever men är inte aktivt. Min förhoppning är att folk kommer tillbaka men jag tror också att det är nya tider med ex ChatGPT som kan lösa saker mycket snabbare än någon person.

Ditt exempel låter som ett matematiskt problem.

Grundtanken är:

Läs in värdena från textrutorna
Räkna ut nytt saldo
Jämför mot kreditgränsen
Stoppa köpet om gränsen överskrids
Exempel i Click-eventet för knappen Handla:

Private Sub cmdHandla_Click()

    Dim kreditgrans As Double
    Dim saldo As Double
    Dim belopp As Double
    Dim nyttSaldo As Double

    ' Läs in värden från textrutorna
    kreditgrans = CDbl(Text1.Text)   ' t.ex -1000
    saldo = CDbl(Text2.Text)         ' nuvarande saldo
    belopp = CDbl(Text3.Text)        ' belopp att handla för

    ' Räkna ut nytt saldo
    nyttSaldo = saldo - belopp

    ' Kontrollera kreditgräns
    If nyttSaldo < kreditgrans Then
        MsgBox "Köpet nekas! Kreditgränsen överskrids.", vbExclamation
        Exit Sub
    End If

    ' Köpet godkänns – uppdatera saldo
    Text2.Text = CStr(nyttSaldo)

End Sub