-         

Ergebnis 1 bis 3 von 3

Thema: komma verschieben in zahl

  1. #1

    komma verschieben in zahl

    Anzeige

    SMARTPHONES & TABLETS-bis zu 77% RABATT-Kostenlose Lieferung-Aktuell | Cool | Unentbehrlich
    hallo,
    ich bin neu hier und hoffe das ich hier ein bisschen hilfe bekomme...
    ich möchte gerne auf meinem display eine frequenz einstellen mit 3 tastern..
    zwei tasten sollen hoch und runter zählen und eine das komma setzen, bzw diesen wert speichen...
    ich hab bis jetzt noch nichts passendes hier gefunden.
    vielen dank schon mal im vorraus

  2. #2
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    14.08.2007
    Ort
    Delmenhorst
    Alter
    32
    Beiträge
    731
    Einfach den Wert mit 10 multiplizieren oder dividieren!

  3. #3
    so in etwa?
    hab mir aus verschiedenen schnipseln mal was zusammengebaut
    kann man das noch schöner machen?
    Code:
    $regfile = "m32def.dat"
    $crystal = 1000000
    $hwstack = 32
    $swstack = 32
    $framesize = 32
    '$sim
    Config Lcd = 20 * 4
    Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0
    Declare Sub Zähler
    
    Cursor Of Noblink
    Cursor Off
    
    Cls
    
    'Menüversuch
    
    Const Keys = 3
    Config Portd = Input
    Portd = 255
    
    Dim I As Byte
    Dim Key As Byte
    Dim Zählerstand As Single
    
    
    
    
    Do
    For I = 1 To Keys
    Key = I
    
    Select Case Key
    
    Case 1 : Debounce Pind.0 , 0 , Display_keyup , Sub
    Case 2 : Debounce Pind.1 , 0 , Display_keydown , Sub
    Case 3 : Debounce Pind.2 , 0 , Display_keyenter , Sub
    
    End Select
    Next
    Loop
    End
    
    
    
    
    Display_keyup:
    
    Locate 1 , 1
    Lcd "Menue 1"
    
    Return
    
    
    Display_keydown:
    
    Locate 1 , 1
    
    Lcd " Menue 2"
    
    
    Return
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    Display_keyenter:
    
    Zählerstand = 150
    
    Sub Zähler
    '########################################################################
    Do                                                          'Hauptschleife
       'Abfrage der Tasten
      Debounce Pind.0 , 1 , Minus_ , Sub                        'Zählerstand reduzieren
      Debounce Pind.1 , 1 , Plus_ , Sub                         'Zählerstand erhöhen
      Debounce Pind.2 , 1 , Dezi_ , Sub                         'mal 10
      Debounce Pind.3 , 1 , Mezi_ , Sub                         'durch 10
        Loop
    
    '#######################################################################
    
    Plus_:
    Incr Zählerstand
                                                                
    
    Locate 1 , 1
    Lcd "Frequenz :" ; Zählerstand ; "  Mhz"
    Return
    
    Minus_:
    Decr Zählerstand
    
    
       Locate 1 , 1
    
    Lcd "Frequenz :" ; Zählerstand ; "  Mhz"
    
    Return
    
    
    
    
    
    Dezi_:
    Zählerstand = Zählerstand * 10
    
    Locate 1 , 1
    
    Lcd "Frequenz :" ; Zählerstand ; "  Mhz"
    
    
    Return
    
    
    
    
    Mezi_:
    Zählerstand = Zählerstand / 10
    
    
    Locate 1 , 1
    
    Lcd " Frequenz :" ; Zählerstand ; " Mhz"
    
    Return
    
    
    
    
    
    
    
    
    End Sub

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •